MicrosoftWord-vba代码.pdf

文档介绍：: .
Sub SayHello()
xt = ""
. = ""
. = ""
. = ""
. = ""
End With
End Sub






Sub Macro1()
'
' Macro1 Macro
'

'
Range("B1").Select
= "Jan"
Range("C1").Select
= "Feb"
Range("D1").Select
= "Mac"
Range("E1").Select
= "Apri"
Range("F1"). = "May"
Range("G1").Select
= "June"
Range("B1").Select
End Sub
Sub Macro2()
'
' Macro2 Macro
'

'
= "jan"
(0, 1).Range("A1").Select
= "feb"
(0, 1).Range("A1").Select
= "mac"
(0, 1).Range("A1").Select
= "apri"
(0, 1).Range("A1").Select
= "may"
(0, 1).Range("A1").Select
= "june"
(0, -5).Range("A1").Select
End Sub



Sub macro3()
(0, 0) = "Jan"
(0, 1) = "Feb"
(0, 2) = "Mar"
(0, 3) = "Apr"
(0, 4) = "May"
(0, 5) = "Jun"
End Sub




Sub showvalue()
MsgBox Worksheets("sheet1").Range("A1").Value
End SubSub changevalue()
Worksheets("sheet1").Range("A1").Value =
End Sub







1. 先确保安装时选择了 VBA 帮助文件(采用自定义安装)
2. 在"Microsoft Visual Basic' 窗口中-->( 菜单)帮助-->Microsoft Visual Basic 帮助
-->( 打开'Excel 帮助'对话框-->