Andy 胡

导航

2016年12月3日

VBA_Excel_教程:字典类型

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

posted @ 2016-12-03 12:38 talkwah 阅读(886) 评论(0) 推荐(0) 编辑

VBA_Excel_教程:单元格颜色

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

posted @ 2016-12-03 11:54 talkwah 阅读(1408) 评论(0) 推荐(0) 编辑

VBA_Excel_教程:Option,错误处理

摘要: 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... 阅读全文

posted @ 2016-12-03 11:29 talkwah 阅读(268) 评论(0) 推荐(0) 编辑

VBA_Excel_教程:过程,函数

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

posted @ 2016-12-03 11:11 talkwah 阅读(418) 评论(0) 推荐(0) 编辑

VBA_Excel_教程:分枝循环结构

摘要: 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" ... 阅读全文

posted @ 2016-12-03 10:55 talkwah 阅读(520) 评论(0) 推荐(0) 编辑

VBA_Excel_教程:表,格

摘要: 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... 阅读全文

posted @ 2016-12-03 10:05 talkwah 阅读(274) 评论(0) 推荐(0) 编辑

VBA_Excel_教程:变量,数组

摘要: 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... 阅读全文

posted @ 2016-12-03 10:01 talkwah 阅读(425) 评论(0) 推荐(0) 编辑