随笔分类 -  VBA

单元格
摘要：range对象代表某一单元格，某一行，某一列，某一选定区域Sub rng()Range("a2").Select '单元格Range("a:a").Select '列Range("1:3").Select '行Range("a1:b10").Select '相邻区域Range("a1", "b10"... 阅读全文
posted @ 2015-09-16 11:18 混混的IT生涯 阅读(537) 评论(0) 推荐(0)
工作表
摘要：Sub 新建工作表()Sheets.Add , , 2 自动命名Sheets.Add.Name = "hello" 直接命名End SubSub 删除工作表()Sheet1.DeleteSheets("hello").Deleteon error resume nextapplication.dis... 阅读全文
posted @ 2015-09-16 10:50 混混的IT生涯 阅读(161) 评论(0) 推荐(0)
工作簿
摘要：Sub 工作簿新建()Dim wkb As WorkbookSet wkb = Workbooks.Addwkb.SaveAs ("c:\users\dalu\desktop\1.xls")End SubSub 打开工作簿()Dim wkb As WorkbookSet wkb = Workbook... 阅读全文
posted @ 2015-09-16 10:16 混混的IT生涯 阅读(137) 评论(0) 推荐(0)
for..next
摘要：Sub fornext循环()Dim i!, j!For i = 1 To 100 step 1(1可以默认不写)j = j + iNextMsgBox jEnd Sub 阅读全文
posted @ 2015-09-15 16:14 混混的IT生涯 阅读(129) 评论(0) 推荐(0)
for each..next
摘要：当需要处理集合成员的时候，一般会用这个，实际上就是处理对象Sub foreachnext循环()Dim rng As Range, n!For Each rng In Sheet1.Range("a2:a6")If rng = "a1" Then rng.Interior.ColorIndex = ... 阅读全文
posted @ 2015-09-15 16:11 混混的IT生涯 阅读(146) 评论(0) 推荐(0)
do until..loop
摘要：Sub util实例()Dim rs%rs = 2Do Until Cells(rs, 2) = ""If Cells(rs, 2) >= 90 Then Cells(rs, 3) = "good"rs = rs + 1LoopEnd Sub 阅读全文
posted @ 2015-09-15 15:59 混混的IT生涯 阅读(238) 评论(0) 推荐(0)
do while..loop
摘要：Sub while实例()Dim rs%rs = 2Do While Cells(rs, 2) ""If Cells(rs, 2) >= 90 Then Cells(rs, 3) = "good"rs = rs + 1LoopEnd Sub 阅读全文
posted @ 2015-09-15 15:55 混混的IT生涯 阅读(198) 评论(0) 推荐(0)
do..loop
摘要：循环语句，直到满足某个条件Sub 事例()Dim a%Doa = a + 1If a > 10 ThenMsgBox a & "大于10"Exit DoEnd IfLoopEnd Sub 阅读全文
posted @ 2015-09-15 15:47 混混的IT生涯 阅读(167) 评论(0) 推荐(0)
select case
摘要：根据表达式的值来决定执行几组语句中的其中之一Sub select多条件判断()Dim s$s = "a"Select Case sCase "a" MsgBox "我是a"Case "b" MsgBox "我是b"Case Else MsgBox "我是未知"End SelectEnd Sub 阅读全文
posted @ 2015-09-15 15:40 混混的IT生涯 阅读(309) 评论(0) 推荐(0)
数据类型
摘要：注释 简写 占用内存integer： 整型 % 2Bytesingle： 单精度 ！ 4Bytedouble： 双精度 # 8Bytelong： 长整型 & 4Bytesting： 字符型　... 阅读全文
posted @ 2015-09-15 15:18 混混的IT生涯 阅读(102) 评论(0) 推荐(0)
变量和常量
摘要：Sub 常量()Const pi = 3.1415926End SubSub 变量()Dim a As Integera = 39a = 323End Sub注意事项：vba允许使用未定义的变量，默认是变体变量（variant）变量的强制声明：option explicit不能用保留字以字母开头不能... 阅读全文
posted @ 2015-09-15 15:05 混混的IT生涯 阅读(128) 评论(0) 推荐(0)
方法
摘要：方法：实际上就是对对象的操作，他是一种in个动作，一种行为。Sub choose()Range("a1:a10").Select'如果没有写工作表名，默认活动工作表End SubSub copy()Sheet1.Range("a1:a10") = 1 '将1写入a1：a10区域Sheet1.Rang... 阅读全文
posted @ 2015-09-15 15:02 混混的IT生涯 阅读(122) 评论(0) 推荐(0)
过程
摘要：Sub show()MsgBox "我是一个弹出框"End Sub过程可以当作宏来使用 阅读全文
posted @ 2015-09-15 14:39 混混的IT生涯 阅读(120) 评论(0) 推荐(0)