Excel VBA 常用代码50例 

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