2.VBA中文教材.pptx

2.基础篇中文;在开始宏设计之前，首先建立一个有效的数字签名，如下图步骤 ;【子程序(procedure)】 ?宏最小单位;变量类型;Range(“最后一行单元格”).end(xlUp).row Range(“最后一列单元格”).end(xlToLeft).row 【书写例】 Sub Test001() Dim X as String Worksheets(“Sheet1”).Activate X=Cells(3,2).Value (X=Range(“B3”).Value) MsgBox X End Sub;基本指令②　～整体～;基本指令③　～Set～;指令名称;基本指令⑤　～文字列操作篇～;指令内容;基本指令⑦　～IF分支语句～;基本指令⑧　～重复指令No.1～;要点;基本指令⑨　～重复指令No.2～;基本指令⑩　～重复指令No.3～;基本指令?　～VLookup～;Form操作①;Form操作②;Form操作③;Form操作④;Dim a, L, Llist, X, Y As Integer Dim Listset() As Variant =============Clear Lists========== Worksheets(Sheet2).Activate L = Range(A1).End(xlDown).Row If L = 3 Then Range(Cells(3, 1), Cells(L, 4)).ClearContents Cells(1, 1).Activate 　 End If ListBox1.Clear ============================= ※用If抽出处理列表 ;Form操作⑤;文件操作篇①;文件操作篇②;Excel文件操作篇①;【Copy:复制】 WorkSheets(“表名“).Copy After:=Workbooks(“Book2”).Worksheets(“Sheet1”) ?『After:=』　?指定表之后 ?『Before:=』　?指定表之前 ※省略引数的话复制到新工作簿。;【Delete：削除表】 WorkSheets(“表名”).Delete ActiveSheet.Delete;文件操作篇③;文件?文件夹操作篇④;文本文件操作篇①;文本文件操作篇②; Dim OL As Outlook.Application Dim ML As Outlook.MailItem 　　 　Set OL = CreateObject(Outlook.Application) Set ML = OL.CreateItem(olMailItem) ML.To = kosuke1.tanaka@ To ML.CC = kosuke1.tanaka@ CC ML.BCC = BCC ML.Subject = “TEST Mail 件名 ML.Attachments.Add “C:\TEST\SAMPLE1.XLS” ‘附件文件 ML.Body = “Mr.TANAKA” vbCrLf “Hello! How are you?” 本文 ML.Display ‘表示 Outlook Mail Set ML = Nothing Set OL = Nothing;『Macro记录』功能;Programming Format　- standard example -