关闭工作簿，可防止关闭时自动运行的宏病dú。 99、让一个变量得到单元格A1到A5的总和（变量设为X）, X=Sum(Range(“A1:A5”)) 错 X=Application.WorksheetFunction.Sum(Range(“A1:A5”))正确 也就是说必须通过Application的WorksheetFunction属xìng间接调用工作表函数 100、Rem和'是注释符，注释语句是非执行语句，要养成对代码注释的习惯。
101、ActiveSheet.Next.Select选择活动工作表下一张工作表， ActiveSheet.Previous.Select选上一张 102、单元格B2：B10数值不全为空用IF语句表达 For Each cl in ActiveSheet.Range("B2:B10") If cl.Value <> "" then msgbox "有非空单元格" Exit For endif next 103、用Range引用单元格和单元格区域
Range("A1") 单元格A1 Range("A1:B5") 从单元格A1到B5区域 Range("A1:B5 ,B1:B7") 多块的选定区域 Range("A:A") A列 Range("1:1") 第一行 Range("A:C") A列到C列的区域 Range("1:5") 第1行到第5行的区域 Range("1:1,3:3") 第1、行 Range("A:A,C:C") A列、C列 104、用Cells及编号引用单元格 Cells(6,1)A6单元格 如果对工作表用Cells属xìng时不指定索引，表示引用工作表上的所有单元格，下例清除活动工作簿中工作表Sheet1上所有单元格的内容 Worksheets(“sheet1”).Cells.ClearContents 105、可用变量代入单元格索引值，故Cells属xìng非常适用于在单元格区域中循环，如： For counter=1 To 20 Worksheets(“sheet1”).Cells(counter,3).value=counter Next counter 106、引用行或列 Rows(1) 第1行 Rows 所有行 Columns(1) 第1列 Columns(“C”) 第3列 Columns 工作表上所有列 106、可用方括号将A1样式的引用或命名区域的名称括起来，作为Range属xìng的快捷方式，这样就不必键入Range 和引号，如 Worksheets(“sheet1”).[A1:B2].clearContents [MyRange].Value=30 107、用Offset处理按相对于其他单元格的某一位置的常用办法是使用Offset属xìng，本例将活动工作表上活动单元格下一行和右边三列的单元格的内容设置为下划线，如： ActiveCell.Offset(1,3).font.Underline=XlDouble 108、把别的工作表Sheet2数据，读到当前工作表的方法列举 1）[A1]=Sheet2.[A1] 把Sheet2A1单元格的数据，读到A1单元格 2）[A2:A4]=Sheet2.[B1] 把Sheet2单元格B1的数据读到A2:到A4单元格 3）Range(B1”)=Sheet2.Range(“B1”) 把Sheet2工作表单元格B1数据，读到B1单元格 4)Range(“C1:C3”)=Sheet2.Range(“C1”) 把Sheet2工作表单元格C1数据，读到C1:C3 5)Cells(1,4)=Sheet2Cells(1,4) 把Sheet2工作表单元格D1数据，读到D1 单元格 6)Range(Cells(1,5),Cells(5,5)=Sheet2.Cells(1,5) 把sheet2工作表单元格E1数据，读到E1:E5单元格 7)Selection.Value=Sheet2.[F1] 把Sheet2 工作表单元格[F1]数据，读到任何你点选的单元格 109、Sub前有个Private表示是私有子程序，这个子程序不会出现在“宏”对话框中 110、Sub test() ActiveSheet.Calculate End Sub重算活动工作表
111、编程前应该尽可能地多了解Excel对象的属xìng、方法 112、每一个Excel对象的属xìng、方法的调用都要通过OLE连接的一个或多个调用，这些OLE调用都是需要时间的，减少使用对象引用能加快VBA代码的运行 113、使用With语句 Workbooks(1).Sheets(1).Range(“A1:A1000”).font.Ncom=”Pay” Workbooks(1).Sheets(1).Range(“A1:A1000”).Font.Fontstyle=”Bold”… 改用With语句则运行速度加快 例：With Workbooks(1).Sheets(1).Range(“A1:A1000”).font .Ncom=”Pay” .Fontstyle= Bold” … End With 114、用set设置对象变量，以减少对象的访问，如： Set MyRange=Workbooks(1).Sheets(1) Mysheet.Range(“A1”).Value=100 Mysheet.Range(“A2”).Value=200 比直接用Workbooks(1).Sheets(1). Range(“A1”).Value=100 Workbooks(1).Sheets(1). Range(“A2”).Value=200运行快 115、在循环中要尽是减少对象的访问 For k=1 To 100 Sheets(“sheet1”).select Cells(k,1).value=Cells(1,1).Value Next k 更快的代码是 set TheValue=Cells(1,1).Value Sheets(“sheet1”).select For k=1 To 100 Cells(k,1).value=TheValue 116、减少对象的激活和选择 如果你是通过录制宏的来学习VBA的程序里一定充满了对象的激活和选择，如Workbooks(XXX).active 、Sheets(XXX).Select 、Range(XXX).Select等，但事实上大多数情况下这些cāo作不是必须的，如 Sheets(“sheet1”).Select Range(“A1”).Value=100 Range(“A2”).Value=200 可改为With sheets(“Sheet3”) .Range (“A1”)=100 .Range (“A2”)=200 117、关闭屏幕更新是提高运行速度的最有效的办法，推荐使用 Application.ScreenUpdate=False 程序运行后再改回来 118、VBA中默认的数据类型是Variant，你必须选择使用何种数据类型，因为Variant数据类型占用存储空间较大(16或22字节)而且它将影响程序的xìng能，Vba必须识别Variant类型的变量中存储了何种数据类型。 119、再列一个自定义函数计算价格为10%为运费的简单函数例子
Public Function Shipping(Price) Shipping=Price*0.1 End Function 如还是不懂的话，将上述过程复制到模块中，然后在工作表任意单元格中输入=Shipping(C1)你就会明白 120、ActiveWindow.DisplyGridlines=False 此句用来关闭网格线。
121、100个错误类型 1 应用程序定义或对象定义错误 2 应用程序定义或对象定义错误 3 无 GoSub 返回 4 应用程序定义或对象定义错误 5 无效的过程调用或参数 6 溢出 7 内存溢出 8 应用程序定义或对象定义错误 9 下标越界 10 该数组被固定或暂时锁定 11 除数为零 12 应用程序定义或对象定义错误 13 类型不匹配 14 溢出串空间 15 应用程序定义或对象定义错误 16 表达式太复杂 17 不能执行所需的cāo作 18 出现用户中断 19 应用程序定义或对象定义错误 20 无错误恢复 21 应用程序定义或对象定义错误 22 应用程序定义或对象定义错误 23 应用程序定义或对象定义错误 24 应用程序定义或对象定义错误 25 应用程序定义或对象定义错误 26 应用程序定义或对象定义错误 27 应用程序定义或对象定义错误 28 溢出堆栈空间 29 应用程序定义或对象定义错误 30 应用程序定义或对象定义错误 31 应用程序定义或对象定义错误 32 应用程序定义或对象定义错误 33 应用程序定义或对象定义错误 34 应用程序定义或对象定义错误 35 子过程或函数未定义 36 应用程序定义或对象定义错误 37 应用程序定义或对象定义错误 38 应用程序定义或对象定义错误
39 应用程序定义或对象定义错误 40 应用程序定义或对象定义错误 41 应用程序定义或对象定义错误 42 应用程序定义或对象定义错误 43 应用程序定义或对象定义错误 44 应用程序定义或对象定义错误 45 应用程序定义或对象定义错误 46 应用程序定义或对象定义错误 47 DLL 应用程序客户太多 48 加载 DLL 错误 49 DLL 调用约定错误 50 应用程序定义或对象定义错误 51 内部错误 52 文件名或文件号错误 53 文件未找到 54 文件模式错误 55 文件已打开 56 应用程序定义或对象定义错误 57 设备 I/O 错误 58 文件已存在 59 记录长度错误 60 应用程序定义或对象定义错误 61 磁盘已满 62 输入超出文件尾 63 记录号错误 64 应用程序定义或对象定义错误 65 应用程序定义或对象定义错误 66 应用程序定义或对象定义错误 67 文件太多 68 设备不可用 69 应用程序定义或对象定义错误 70 拒绝的权限 71 磁盘未准备好 72 应用程序定义或对象定义错误 73 应用程序定义或对象定义错误 74 不能更名为不同的驱动器 75 路径/文件访问错误 76 路径未找到 77 应用程序定义或对象定义错误 78 应用程序定义或对象定义错误 79 应用程序定义或对象定义错误 80 应用程序定义或对象定义错误 81 应用程序定义或对象定义错误 82 应用程序定义或对象定义错误
83 应用程序定义或对象定义错误 84 应用程序定义或对象定义错误 85 应用程序定义或对象定义错误 86 应用程序定义或对象定义错误 87 应用程序定义或对象定义错误 88 应用程序定义或对象定义错误 89 应用程序定义或对象定义错误 90 应用程序定义或对象定义错误 91 对象变量或 With 块变量未设置 92 For 循环未初始化 93 无效的模式串 94 无效使用 Null 95 应用程序定义或对象定义错误 96 由于对象已经激活了事件接受器支持的最大数目的事件，不能吸收对象的事件 97 不能调用对象的友元函数，该对象不是所定义类的一个实例。 98 属xìng或方法调用不能包括对私有对象的引用，不论是作为参数还是作为返回值 99 应用程序定义或对象定义错误 100 应用程序定义或对象定义错误
122、Private Sub Calendar1_Click() ActiveCell = Me.Calendar1.Value End Sub 123、设置日历控件字号 Private Sub UserForm_Initialize() Me.Calendar1.GridFont.Size = 14 End Sub 124、以下是从金刚金作品里提出来的部份事件代码，做得很好，值得借鉴学习： Private Sub Workbook_Activate() MsgBox "工作簿被切换为作用工作簿", vbInformation, "Workbook_Activate" End Sub Private Sub Workbook_AddinInstall() MsgBox "激活新的加载宏时", vbInformation, "Workbook_AddinInstall" End Sub Private Sub Workbook_AddinUninstall() MsgBox "取消以前选取的加载宏时", vbInformation, "Workbook_AddinUninstall" End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) MsgBox "工作簿被关闭之前", vbInformation, "Workbook_BeforeClose" End Sub Private Sub Workbook_BeforePrint(Cancel As Boolean) MsgBox "工作簿打印之前", vbInformation, "Workbook_BeforePrint" End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) MsgBox "
松语文学免费小说阅读_www.16sy.com