Selection.Copy
Sheets(sht_Name).Select Range(\ ActiveSheet.Paste With ActiveSheet
row_d = .Range(\ Range(\合计\ For i = 5 To 11 Cells(row_d,
i).value
=
Application.WorksheetFunction.Sum(Range(Cells(2, i), Cells(row_d - 1, i))) Next i End With
Sheets(\总表\ Range(\ End Sub
020.这个公式应该怎么写？
我想统计所有物料编码的第一个字符为a的库存数量的总和，这个公式应该怎么写？A列为物料编码,B列为库存数量。
解答：=SUMIF($A:$A,\
021.样修改此宏？
下面的宏是k版主帮我写的，从文件夹内汇入其他工作表表格。汇入范围为第五行、第L列。 如汇入范围改为第三行、第R列。 怎样修改此宏？
Public Sub Feed_in2()
Dim Row_dn, Row_dn1, i, j, k, m As Integer Dim Path1, Str1 As String Dim wb As Workbook
Row_dn = [B65536].End(xlUp).Row
Path1 = Application.ActiveWorkbook.Path Str1 = ActiveWorkbook.Name k = 5
With Application
.EnableEvents = False .ScreenUpdating = False If Row_dn >= 5 Then
Range(\ End If
With .FileSearch .NewSearch .LookIn = Path1
.FileType = msoFileTypeExcelWorkbooks If .Execute <= 1 Then
MsgBox \ Else
For m = 1 To .FoundFiles.Count Str2 = Split(.FoundFiles(m), \ n1 = UBound(Str2) Str2 = Str2(n1) If Str2 <> Str1 Then Set
wb
=
Workbooks.Open((Path1 & \ Row_dn1 wb.Sheets(1).[B65536].End(xlUp).Row
For i = 5 To Row_dn1
=
For j = 2 To 12
Workbooks(Str1).Sheets(1).Cells(k, j) _ = wb.Sheets(1).Cells(i, j)
Next j k = k + 1 Next i
wb.Close False Set wb = Nothing End If Next m End If End With
.EnableEvents = True End With End Sub
解答：除了B65536中的5，其余5都改成3；将Range(\& Row_dn)改成Range(\；将For j = 2 To 12改成For j = 2 To 17。
022.怎样控制textbox的只读，要使textbox中的数据不能
改变（删除或修改），在属性里我没有找到 有相关的方法吗？
解答：Textbox.Enabled = False，直接修改控件属性都行。 又问：这样还不行，因为Textbox在显示上就灰显了，我想只让它不可改变值，在显示上还是原来的形式。
解答：那就用Label代替，设臵BackColor和SpecialEffect属性。
023.请教个小问题！
你好：我录制了个删除工作表的宏，但每次运行后，总出现确认删除提示框，请问该如何编写，直接默认删除，不在作确认呢？
解答：Application.DisplayAlerts = False 代码为：Sub Dell() '
' Dell Macro
' DC.Direct 记录的宏 2003-11-14 Application.DisplayAlerts = False Sheets(\
ActiveWindow.SelectedSheets.Delete
ActiveWorkbook.Save
相关推荐：
loading