Excel VBA的语法就不多说了, 从最重要的Application开始
Application对象代表Excel程序本身, 对Application的操作会直接影响Excel程序
废话不多说, 直接上代码
先来介绍一下Application的常用属性:
1.ActiveCell 当前激活的(1个)单元格, 一个Range对象, 注意是一个格子
- Dim myRange As Range
- '下述四种写法等同
- Set myRange = Application.ActiveCell '如果窗口没有显示工作表,则此属性无效
- Set myRange = ActiveWindow.ActiveCell
- Set myRange = ActiveCell '懒人写法, 后续会有很多Application下的属性可以去掉Application的前缀
- Set myRange = Application.ActiveWindow.ActiveCell
获取到单元格的Range对象就能对其进行操作了:(语法就不介绍了)
- With ActiveCell '获取当前激活的单元格
- .Value = '哈哈'
- With .Font
- .Bold = True
- .Italic = True
- .Size = 18
- End With
- End With
把(1个)格子的内容设置为'哈哈', 加粗,斜体,字号182. Selection 基本概念和ActiveCell类似, 与之不同的是Selection可以表示多个单元格, 依然是一个Range对象
- Dim r As range
- Set r = Application.Selection
- r.Value = 1
3.ActiveWorkbook 当前激活的一个工作簿,是一个Workbook对象
- Dim wb As Workbook
- '下述两种写法等同
- Set wb = Application.ActiveWorkbook
- Set wb = ActiveWorkbook '又是懒人写法
如果当前的Excel是空的, 就是说没有打开任何一个Workbook(工作簿) 上面的wb会是Nothing (VBA里的空)
每个Workbook对象都有一个Application属性, 貌似(Excel对象都有这个属性), 表示该对象所属的Application(这个Application是对象)- Dim app As Application
- Dim app2 As Application
- Set app = Application
- Set app2 = Application.ActiveWorkbook.Application
- If app = app2 Then 'I'sure. 这里会输出OK, 说明是同一个Application对象
- Debug.Print 'OK' 'Debug.Print 会将后面的文字内容输出到'立即窗口' (如果没看到立即窗口, 请:Ctrl+G)
- Else
- Debug.Print 'Fail'
- End If
4.Workbooks, Worksheets, Sheets
Application.Workbooks用于获取当前打开的(多个)工作簿
- For i = 1 To WorkBooks.Count '这里也可以写全Application.WorkBooks.Count
- Debug.Print WorkBooks(i).name
- Next
Applicaton.Sheets用于获取当前(激活的)工作簿下的所有工作表, 包括图表(Chart)- For i = 1 To Application.Sheets.Count '同样可以偷懒 Sheets.Count 一旦省略前缀基本上都是'激活的'(worksheet或者Workbook)
- Debug.Print Application.Sheets(i).name
- Next
- For i = 1 To Application.Worksheets.Count
- Debug.Print Application.Worksheets(i).name
- Next
Application.Caption = 'Haha'
注意一点, 这个可是没有'懒人写法'的
. 如果你想懒一下 Caption = 'Haha' VBA会把Caption当作一个新变量的试试下面这个
Application.Caption = ''
6. Range 上面在提到ActiveCell时说过Range, ActiveCell是一个Range对象, 这里的Range是一个属性, 但它同时也是一个Range对象, 是不是有点晕. 别担心
可以把Application.Range理解为一个方法(或者函数), Application.Range需要一个参数, 来返回参数指定的(n个)单元格, 看个例子先:
Application.Range('A1').Value = 100
这句话, 把Application(就是Excel) 当前激活的Workbook(工作簿)下的激活的Worksheet(工作表)下的Range('A1') (这里就是A1单元格) 的值设置为数字100
完整写法就是:
- Dim r As range 'r是一个Range对象
- Set r = Application.Range('A1')
- r.Value = 100
r 是一个Range对象, Application.Range('A1')返回一个Range对象, 而Application.Range本身是Application的属性再看看这个:
Application.Range('A1:B2').Value = 'Haha'
也许你会问, 这样用Range属性太麻烦了 ,还必须有前面激活的工作簿,工作表, 太不灵活了.
没错, Range属性不仅仅在Application下, 同样也存在于Worksheet下, OK, 聪明的你估计已经想到该怎么写了:
只要获取到了一个我想要的Worksheet对象(工作表), 我就能访问指定的范围Range(...)
Application.Worksheets('Sheet1').Range('A1').Value = 76000
当然,细心的你也许发现了:这里没有说是哪个Workbook, 没错, 这里的Workbook不是激活的那个Workbook, 而是你在写VBA程序的那个Workbook7. ScreenUpdating 屏幕更新, 用于设置是否将VBA的执行的中间结果显示在Excel表中
显然, 关闭屏幕更新, 会使得VBA的执行速度更快.
我们可以做个实验, 比较关闭前后的用时.
- Dim startTime As Date
- Dim endTime As Date
- For t = 0 To 1
- Application.ScreenUpdating = (t = 1)
- startTime = Time
- For Each c In ActiveSheet.Columns
- If c.Column Mod 2 = 0 Then
- c.Hidden = True
- End If
- Next
- endTime = Time
- x = (endTime - startTime) * 24 * 60 * 60
- If Application.ScreenUpdating Then
- Debug.Print 'ScreenUpdating Enabled: ' & x & ' sec.'
- Else
- Debug.Print 'ScreenUpdating Disabled: ' & x & ' sec.'
- End If
- Next
ScreenUpdating Disabled: 0 sec.
ScreenUpdating Enabled: 3.99999999999743 sec.
所以,执行复杂操作时很慢, 有可能就是没有关闭ScreenUpdating属性
8. StatusBar和DisplayStatusBar
Application.StatusBar就是Excel的状态栏, 而Application.DisplayStatusBar意思是否显示状态栏,一个Boolean变量
- Application.DisplayStatusBar = True
- Application.StatusBar = '正在打开文档...'
- Application.StatusBar = False '设为False就是恢复Excel状态栏的原来状态
联系客服