excel中使用vb编写宏并使用

1.首先打开excel，选择功能区的视图-宏-录制宏

2.然后在d出框中填写名称及其说明，便于多个宏时进行区分。点击确定。

3.再次点击视图-宏，选择查看宏

4.选择你刚刚添加的宏，点击编辑，就会进入vb编辑器页面

5.在编辑器中编写你想要的功能，（例如截图中的A列第一行填槐毁并写1，A列第二行填写2），保余伍存并关闭。

6.回到excel界面后，视图-宏-停止录制。这时候宏已经制作完成。

7.和第三布一样，选择视图-宏-查看宏，这时候你刚刚制作完成的宏就显示在第一个，点击执行，就会出现效果（A列第一行填写1，A列第二行填写2）。

完成。

vb的语法请自行搜索，或者留言铅迹学习交流~

宏 *** 作是在打开word文档以后录制的,也就是说运行宏也要在打开word文档后进行,所以要把宏复制到vb环境中咐冲去运行的话,就得正樱先在vb中 *** 作打开word文档,参考下面代码:(演示前请先c下建一个文件名为test.doc的word空文档, *** 作完成后,你会发现C盘里有个aa.doc文件,你打开就会发现宏 *** 作写的一则通知)

Private Sub Command1_Click()

Dim MyWord As Word.Application

Dim MyWordBook As Word.Document

Set MyWord = New Word.Application

Set MyWordBook = MyWord.Documents.Add("c:\test.doc") '打开test.doc用户自定义的空白WORD文档

MyWordBook.Activate

'3.放置宏代码

With MyWordBook

'此处就可以插入宏代码了

'衡清歼 Macro1 Macro

' 宏在 2009-9-20 由 adsl 录制

'

Selection.Font.Size = 30

Selection.FormattedText.Bold = True

Selection.Font.Color = wdColorBlack

Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

Selection.TypeText Text:=" 通知"

Selection.Font.Color = wdColorRed

Selection.TypeParagraph

Selection.Font.Size = 22

Selection.TypeText Text:=" 今天下午三一）"

Selection.MoveLeft Unit:=wdCharacter, Count:=2

Selection.TypeText Text:="（"

Selection.MoveRight Unit:=wdCharacter, Count:=2

Selection.TypeText Text:="班 全体同学四点钟到 *** 场进行体育课考试。"

Selection.TypeParagraph

Selection.TypeParagraph

Selection.TypeParagraph

Selection.TypeText Text:= _

" "

Selection.InsertDateTime DateTimeFormat:="yyyy-MM-dd", InsertAsField:= _

False, DateLanguage:=wdEnglishUS, CalendarType:=wdCalendarWestern, _

InsertAsFullWidth:=False

Selection.MoveUp Unit:=wdLine, Count:=1

Selection.Font.Size = 22

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.TypeParagraph

Selection.Font.Size = 16

Selection.TypeText Text:=""

Selection.Font.Color = wdColorRed

End With

'4.保存,关闭文档,退出

MyWord.Visible = False '设置WORD可见

MyWordBook.SaveAs FileName:="c:\aa.doc"

MyWordBook.Close

MyWord.Quit

Set MyWordBook = Nothing

Set MyWord = Nothing

MsgBox " *** 作完毕", vbOKOnly, "提醒"

unload me

End Sub

VBA语句如下:

DoCmd.RunMacro

"hong"

该语句乱搭咐可用在函数及SUB过程当中.

你哗纯可在VB调试窗枝悄口中试运行这个语句.

---