Andy 胡

摘要： VBA中的字典类型需要添加Microsoft Scripting Runtime引用，在Tools菜单下添加 阅读全文

摘要： Sub SetCellColor() '设置单元格颜色 Sheet1.Cells(1, 1).Interior.ColorIndex = 5 End Sub 阅读全文

摘要： Option Explicit '强制对模块内所有变量进行声明 Option Compare Text '字符串不区分大小写 Option Base 1 '指定数组的第一个下标为1(只能指定0或1) Sub s1() On Error GoTo ErrorHandler Dim a(10) As String a(0) = 1 ErrorHandler: Debug.P... 阅读全文

摘要： 函数当过程用完全没有问题 函数是可以有返回值的 阅读全文

摘要： Sub 分枝() tmp = Cells(1, 1).Value '变量不用定义，当前写代码的Sheet Debug.Print tmp If tmp = "1" Then Debug.Print "A" 'ElseIf是连着的 ElseIf tmp = "2" Then Debug.Print "B" ... 阅读全文

摘要： Sub 表和格() '定义工作表 Dim ws As Worksheet 'get sheet by name【看到的表名，或序号1,2,3，...】，要加Set Set ws = Worksheets("表") Set ws = Worksheets(1) '1，2：单元格内容(页面对应Range，坐标对应Cells) Debug.Pri... 阅读全文

摘要： Sub testVar() '变量 Dim strT1 As String strT1 = "A" '常量【加不加类型都可以】 Const strT2 As String = "B" Const strT3 = "C" Dim i2 As Integer i2 = 2 Dim long4 As Long... 阅读全文