VBA Code Samples

Message

简单的弹出一个消息
MsgBox ("Common Msg") 
显示某个单元格的信息
MsgBox "Cell A1 is " & Range("A1").Value 
加入换行
MsgBox "Line 1 Content" & vbNewLine & "Line 2 Content" 

单元格赋值

Range("A1").Value = "code placed here"

or

Worksheets(1).Range("A1").Value = 'value'

Sheet的数量

Worksheets.Count

增加Sheet

Worksheets.Add

行的选择

Worksheets(1).Rows(2).Select

列的选择

Worksheets(1).Columns(7).Select

打开外部文件

Workbooks.Open "D:\test.xls"