VBA自学收集

自　学　收　集1、Application.CommandBars("WorksheetMenuBar").Enabled=false2、cells(activecell.row,"b").value'活动单元格所在行B列单元格中的值3、SubCheckSheet()'如果当前工作薄中没有名为kk的工作表的话，就增加一张名为kk的工作表，并将其排在工作表从左至右顺序排列的最左边的位置，即排在第一的位置  DimshtSheetAsWorksheet  ForEachshtSheetInSheets      IfshtSheet.Name="KK"ThenExitSub  NextshtSheet  SetshtSheet=Sheets.Add(Before:=Sheets(1))  shtSheet.Name="KK"EndSub4、Sheet1.ListBox1.List=Array("一月","二月","三月","四月")'一次性增加项目5、Sheet2.Rows(1).Value=Sheet1.Rows(1).Value'将一个表中的一行全部拷贝到另一个表中6、Subpro_cell()'将此代码放入sheet1,则me=sheet1,主要是认识meMe.UnprotectCells.Locked=FalseRange("D11:E11").Locked=TrueMe.ProtectEndSub7、Application.CommandBars("Ply").Enabled=False'工作表标签上快捷菜单失效8、Subaa()'把B1到B12单元格的数据填入c1到c12Fori=1To12Range("C"&i)=Range("B"&i)NextiEndSub9、ActiveCell.AddCommentSelection.Font.Size=12'在点选的单元格插入批注，字体为12号10、PrivateSubWorksheet_BeforeDoubleClick(ByValTargetAsRange,CancelAsBoolean)  Cancel=TrueEndSub11、ScrollArea属性参阅应用于示例特性以A1样式的区域引用形式返回或设置允许滚动的区域。用户不能选定滚动区域之外的单元格。String类型，可读写。说明可将本属性设置为空字符串("")以允许对整张工作表内所有单元格的选定。示例本示例设置第一张工作表的滚动区域。Worksheets(1).ScrollArea="a1:f10"12\ifapplication.max([a1:e1])=10thenmsgbox""commandbutton1.enabled=false'A1—E1最大的数值达到10时，自动弹出对话框，并冻结按钮12、本示例将更改的单元格的颜色设为蓝色。PrivateSubWorksheet_Change(ByValTargetasRange)  Target.Font.ColorIndex=5EndSub13、Subtest()'求和DimrngAsRange,rng2AsRangeForEachrngInActiveSheet.UsedRange.Columns      Setrng2=Range(Cells(1,rng.Column),Cells(Cells(65536,rng.Column).End(xlUp).Row,rng.Column))      rng2.Cells(rng2.Cells.Count).Offset(1,0)=WorksheetFunction.Sum(rng2)NextrngEndSub14、将工作薄中的全部n张工作表都在sheet1中建上链接Subtest2()DimPtAsRangeDimiAsIntegerWithSheet1  SetPt=.Range("a1")  Fori=2ToThisWorkbook.Worksheets.Count      .Hyperlinks.AddAnchor:=Pt,Address:="",SubAddress:=Worksheets(i).Name&"!A1"      SetPt=Pt.Offset(1,0)  NextiEndWithEndSub15、保存所有打开的工作簿，然后退出MicrosoftExcel。ForEachwInApplication.Workbooks  w.SaveNextwApplication.Quit16、让form标题栏上的关闭按钮失效PrivateSubUserForm_QueryClose(CancelAsInteger,CloseModeAsInteger)IfCloseMode<>1ThenCancel=TrueEndSub17、Subcountsh()'获得工作表的总数MsgBoxSheets.CountEndSub18、SubIE()'打开个人网页ActiveWorkbook.FollowHyperlink"about:blank"SendKeys"{F4}ykk1976.anyp.cn{ENTER}",TrueEndSub19、Subdelback()'一次性删除工作簿中所有工作表的背景ForEachshtSheetInSheets  shtSheet.SetBackgroundPictureFilename:=""  NextshtSheetEndSub20、[a1].formula="=b1+c1"'A1中设定公式为=B1+C121、PrivateSubCommandButton1_Click()'将A1到C6中大于=3的数依次放入E列DimiAsLongr=1ForEachiInRange("a1:c6")  Ifi>=3ThenCells(r,5)=i:r=r+1NextEndSub22、PrivateSubWorkbook_SheetChange(ByValShAsObject,ByValTargetAsRange)'显示带数字的表名b=Split(Sh.Name,"(")OnErrorGoTossnum=CInt(Left(b(1),Len(b(1))-1))Ifnum>=1Andnum<20ThenMsgBoxSh.NameEndIfExitSubss:MsgBox"error",16,""EndSub23、SubTest()'选择所有工作表名以"业报"开头的工作表或头两个字是业报的报表名引用SetSh=ActiveSheetIfLeft(Sh.Name,2)="业报"Then'或ifsh.namelike"业报*"thenMsgBox"你成功了",64,""EndIfEndSub24、1.建立文件夹的 方法 快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载 MkDir"D:\Music"2.打开文件夹的方法ActiveWorkbook.FollowHyperlinkAddress:="D:\Music",NewWindow:=True25、在当前工作表翻页  Application.SendKeys"{PGUP}",True  Application.SendKeys"{PGDN}",True或者  ActiveWindow.LargeScrollDown:=1  ActiveWindow.LargeScrollDown:=-126、当Target="*小计"时如何写,*代表任何字符。ifinstr(target.value,"小计")<>0thenPrivateSubWorksheet_SelectionChange(ByValTargetAsRange)IfTarget.ValueLike"*小计"ThenMsgBox"OK"EndSub27、ActiveCell.FormulaR1C1="=SUM(R[1]C:R[14]C,R[59]C:R[78]C)"这是相对引用的写法：根据推算你的函数是放在“AD6”单元格你的函数：=SUM(R[1]C:R[14]C  中的  "R"表示行    "C"表示列。R[1]表示“AD6+1行"，C表示“列没有变化，就是同列”那么：R[1]C就表示AD7同理，R[14]表示AD6+14行，表示：AD20。以此类推。28、PrivateSubCommandButton1_Click()'将A1到C6中大于=3的数依次放入E列DimiAsLongDimiRngAsRangeForEachiRngInSheets(1).Range("a1:c6")  IfiRng.Value>=3Then  i=i+1  Sheets(1).Range("E"&i).Value=iRng.Value  EndIfNextEndSub29、工作表中的窗体按钮禁用后，按钮形状不变，字体不变，从外表上无法看出其已禁用，如何设置属性使其像控件按纽那样明显的禁用？WithActiveSheet.Buttons(1)      .Enabled=False      ActiveSheet.Shapes(.Caption).DrawingObject.Font.ColorIndex=15  EndWith復原的方法  WithActiveSheet.Buttons(1)      .Enabled=True      ActiveSheet.Shapes(.Caption).DrawingObject.Font.ColorIndex=xlAutomatic  EndWith30、PrivateSubWorksheet_SelectionChange(ByValTargetAsRange'选定A1时要输入密码IfTarget.Address="$A$1"Then  A=InputBox("请输入密码","officefans")  IfA=1Then[A1].SelectElse[A2].SelectEndIfEndSub31、如何将工作薄中的命名单元格成批删除！DimItemAsName  ForEachItemInActiveWorkbook.Names      Item.Delete  NextItem32、平时只能看到表1，如要看表2和表3，只能通过表1的链接打开,且表2和表3回到表1后，又不可见。PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)  IfTarget.Address="$A$3"Then  '当点击"$A$3"单元格时...    Sheet2.Visible=1  '取消隐藏  Sheet2.Activate'激活  ActiveSheet.Range("A1").SelectEndIfIfTarget.Address="$A$6"ThenSheet3.Visible=1  '取消隐藏Sheet3.ActivateActiveSheet.Range("A1").SelectEndIfEndSub33、将a2单元格内容替换为a1内容ActiveCell.ReplaceWhat:=[a2],Replacement:=[a1]34、如果是要填入名称,则:PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)Selection.Value=ComboBox1.column(1)EndSub如果是要填入代码和名称的组合:PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)Selection.Value=cstr(ComboBox1.column(0))+""+combobox1.column(1)EndSubPrivateSubWorksheet_SelectionChange(ByValTargetAsRange)Selection.Value=ComboBox1.ValueEndSubPrivateSubWorksheet_SelectionChange(ByValTargetAsRange)  'target.row  代表行号  'target.column代表列号  i=target.row  '获取行号  j=target.column'获取列号EndSub35、当激活工作表时，本示例对A1:A10区域进行排序。PrivateSubWorksheet_Activate()  Range("a1:a10").SortKey1:=Range("a1"),Order:=xlAscendingEndSub36、BeforePrint事件参阅应用于示例特性在打印指定工作簿（或者其中的任何内容）之前，产生此事件。PrivateSubWorkbook_BeforePrint(CancelAsBoolean)Cancel    当事件产生时为False。如果该事件过程将本参数设为True，则当该过程运行结束之后不打印工作簿。示例本示例在打印之前对当前活动工作簿的所有工作表重新计算。PrivateSubWorkbook_BeforePrint(CancelAsBoolean)  ForEachwkinWorksheets      wk.Calculate  NextEndSub37、Open事件参阅应用于示例特性打开工作簿时，将产生本事件。PrivateSubWorkbook_Open()示例每次打开工作簿时，本示例都最大化MicrosoftExcel窗口。PrivateSubWorkbook_Open()  Application.WindowState=xlMaximizedEndSub38、ActiveSheet属性参阅应用于示例特性返回一对象，该对象代表活动工作簿中的，或者指定的窗口或工作簿中的活动工作表（最上面的工作表）。只读。如果没有活动的工作表，则返回Nothing。说明如果未给出对象识别符，本属性返回活动工作簿中的活动工作表。如果某一工作簿在若干个窗口中出现，那么该工作簿的ActiveSheet属性在不同窗口中可能不同。示例本示例显示活动工作表的名称。MsgBox"Thenameoftheactivesheetis"&ActiveSheet.Name39、Calculate方法参阅应用于示例特性计算所有打开的工作簿、工作簿中的一张特定的工作表或者工作表中指定区域的单元格，如下表所示：要计算依照本示例所有打开的工作簿Application.Calculate（或只是Calculate）指定工作表指定工作表指定区域Worksheets(1).Rows(2).Calculateexpression.Calculateexpression    对于Application对象可选，对于Worksheet对象和Range对象必需。该表达式返回“应用于”列表中的对象之一。示例本示例计算Sheet1已用区域中A列、B列和C列的公式。Worksheets("Sheet1").UsedRange.Columns("A:C").Calculate程序的核心是算法问题40、End属性参阅应用于示例特性返回一个Range对象，该对象代表包含源区域的区域尾端的单元格。等同于按键End+向上键、End+向下键、End+向左键或End+向右键。Range对象，只读。expression.End(Direction)expression    必需。该表达式返回“应用于”列表中的对象之一。Direction    XlDirection类型，必需。所要移动的方向。XlDirection可为XlDirection常量之一。xlDownxlToRightxlToLeftxlUp示例本示例选定包含单元格B4的区域中B列顶端的单元格。Range("B4").End(xlUp).Select本示例选定包含单元格B4的区域中第4行尾端的单元格。Range("B4").End(xlToRight).Select本示例将选定区域从单元格B4延伸至第四行最后一个包含数据的单元格。Worksheets("Sheet1").ActivateRange("B4",Range("B4").End(xlToRight)).Select41、应用于CellFormat和Range对象的Locked属性。本示例解除对Sheet1中A1:G37区域单元格的锁定，以便当该工作表受保护时也可对这些单元格进行修改。Worksheets("Sheet1").Range("A1:G37").Locked=FalseWorksheets("Sheet1").Protect42、Next属性参阅应用于示例特性返回一个Chart、Range或Worksheet对象，该对象代表下一个工作表或单元格。只读。说明如果指定对象为区域，则本属性的作用是仿效Tab，但本属性只是返回下一单元格，并不选定它。在处于保护状态的工作表中，本属性返回下一个未锁定单元格。在未保护的工作表中，本属性总是返回紧靠指定单元格右边的单元格。示例本示例选定sheet1中下一个未锁定单元格。如果sheet1未保护，选定的单元格将是紧靠活动单元格右边的单元格。Worksheets("Sheet1").ActivateActiveCell.Next.Select43、想通过target来设置(A1：A10)区域内有改动，就发生此事件。不知道如何iftarget.row=1andtarget.column<=10thenSub列举菜单项()Dimr,s,iAsIntegerr=1Fori=1ToCommandBars.Count  ActiveSheet.Cells(r,1)="CommandBars("&i&").Name:"&CommandBars(i).Name  r=r+1  Fors=1ToCommandBars(i).Controls.Count      ActiveSheet.Cells(r,1)=s&"、"&CommandBars(i).Controls(s).Caption      r=r+1  NextNextEndSub44、本示例设置MicrosoftExcel每当打开包含链接的文件时，询问用户是否更新链接。Application.AskToUpdateLinks=True45、自定义函数PublicFunctionNow1()Dimstring1AsString  string1=VBA.Date  Now1=string1EndFunction46、复制Subcopy1()Sheet2.Range("C5:C10").CopySheet1.Range("C5:C10")EndSub47、如何统计表中sheet的个数？msgboxsheets.countColumns("G:G").Select48、Selection.EntireColumn.Hidden=True这样隐藏有个毛病，如何解决？如果A1:G1单元格合并的话，就把A：G列均隐藏了。Columns("G:G").EntireColumn.Hidden=True49、在VBA中引用excel函数的方法1).Worksheets("Sheet1").Range("A1").Formula="=$A$4+$A$10"2).Sheet1.Cells(1,1).Formula="="&Sheets(iii).Name&"!R1C4"在宏中用R1C1方式写时 表格 关于规范使用各类表格的通知入职表格免费下载关于主播时间做一个表格详细英语字母大小写表格下载简历表格模板下载 1的A1中会在写为“=Sheet2!$D$1”用这种方式,想用什么函数就用什么函数.50、选定下（上）一个工作表sheets(activesheet.index-1).selectsheets(activesheet.index+1).select51、PrivateSubWorkbook_Open()  ActiveWindow.DisplayWorkbookTabs=False'取消工作表标签  Application.CommandBars("Sheet").Controls(1).Enabled=False' 格式 pdf格式笔记格式下载页码格式下载公文格式下载简报格式下载 ＿工作表不能重命名  Application.CommandBars.FindControl(ID:=889).Enabled=False'右键菜单不能重命名EndSub52、[a65536].End(xlUp’A列从下往上第一个非空的单元格53、Submacro()Setrng=Range("C11:F13")        定义RNG为一个单元格区域ForEachcelInrng            定义CEL为RNG中的一个任一单元格colo=cel.Interior.ColorIndex      定义COLO为单元格CEL的填充颜色Ifcolo<>-4142Then            如果COLO的值不等于-4142iR=[b65536].End(xlUp).Row+1      IR等于B列数据区域的行数+1If[a65535].End(xlUp).Value<>Cells(cel.Row,2)ThenCells(iR,1)=Cells(cel.Row,2)  如果A列最后一个非空值单元格  不等于Cells(cel.Row,2)的值那么单元格Cells(iR,1)的值等于Cells(cel.Row,2)  的值  CEL.ROW是C11:F13中任意单元格的行号Cells(iR,2)=Cells(10,cel.Column)  Cells(iR,3)=cel.ValueCells(iR,4)=IIf(colo=36,"Yellow","Red")  Cells(iR,4)的值如果colo=36那么值为"Yellow",否则值为"RED"nextEndSub54、PrivateSubWorkbook_SheetSelectionChange(ByValShAsObject,ByValTargetAsRange)'**********运行数据日志记录**********DimrngAsRange  IfActiveSheet.Name<>"主界面"AndActiveSheet.Name<>"目录索引"Then  ForEachrngInTarget.Cells      Changecell=ActiveSheet.Name&"，单元格："&rng.Address(0,0)&"，更改为："&rng.value&"。更改时间："&Now      CritOrAddtext  Next  EndIfEndSub55、ActiveSheet.Unprotect  '撤销当前工作表保护IfActiveSheet.Name<>"主界面"AndActiveSheet.Name<>"目录索引"AndTarget.Row>3Then  '行变色OnErrorResumeNext[ChangColor_With].FormatConditions.DeleteTarget.EntireRow.Name="ChangColor_With"With[ChangColor_With].FormatConditions            .Delete            .AddxlExpression,,"TRUE"            .Item(1).Interior.ColorIndex=4EndWithEndIfActiveSheet.Protect56、在C1中弄个下拉无表,实际是有效性,你可以选择A1:A4为C1单元格有效性的序列数据源,如果说C1不与A1:A4在同一表,则不能这么用,应当先对A1:A4命名,然后把数据源改为名称.57、自动增加工作表进入宏命令编辑窗口，在Sub自动增加工作表()命令后依次键入如下宏命令内容：Dimi&,userintoi=0userinto=InputBox("输入插入工作表数量：")IfIsNumeric(userinto)=TrueThenDoUntili=userintoWorksheets.Addi=i+1LoopEndIfEndSub58、方法一（共享级锁定）:  1、先对EXCEL文件进行一般的VBAProject”工程密码保护。  2、打开要保护的文件，选择：工具--->保护--->保护并共享工作簿--->以追踪修订方式共享-->输入密码-->保存文件。  完成后，当你打开“VBAProject”工程属性时，就将会提示：“工程不可看！“方法二（推荐，破坏型锁定）：  用16进制编辑工具，如WinHex、Ultraedit-32（可到此下载）等，再历害点的人完全可以用debug命令来做......用以上软件打开EXCEL文件，查找定位以下地方：ID="{00000000-0000-0000-0000-000000000000}"  注：实际显示不会全部为0  此时，你只要将其中的字节随便修改一下即可。保存再打开，就会发现大功告成！  当然，在修改前最好做好你的文档备份。至于恢复只要将改动过的地方还原即可（只要你记住了呵呵）。顺便说一句，这种方法仍然是可破解的，因为加密总是相对的。59、SubAddComments()'自動對ActiveSheet所有有公式格位加上註解  SetRG=Cells.SpecialCells(xlCellTypeFormulas)  ForEachcInRG      c.AddComment      c.Comment.TextText:=c.Formula  NextcEndSubSubDe_Comments()'自動消除所有註解  SetRG=Cells.SpecialCells(xlCellTypeFormulas)  ForEachcInRG      c.ClearComments  NextcEndSub60、如何在Excel里使用定时器HYPERLINK"http://www.aspsky.net"\t"_blank"www.aspsky.net  2002-3-1220:53:27  动网先锋  用过Excel97里的加载宏"定时保存"吗？可惜它的源程序是加密的，现在就上传一篇介绍实现它的文档。    在Office里有个方法是application.ontime，具体函数如下：    expression.OnTime(EarliestTime,Procedure,LatestTime,Schedule)    如果想进一步了解，请参阅Excel的帮助。    这个函数是用来安排一个过程在将来的特定时间运行，（可为某个日期的指定时间，也可为指定的时间段之后）。通过这个函数我们就可以在Excel里编写自己的定时程序了。下面就举两个例子来说明它。    1.在下午17:00:00的时候显示一个对话框。    SubRun_it()    Application.OnTimeTimeValue("17:00:00"),"Show_my_msg"    '设置定时器在17:00:00激活，激活后运行Show_my_msg。    EndSub    SubShow_my_msg()    msg=MsgBox("现在是17:00:00！",vbInformation,"自定义信息")    EndSub    2.模仿Excel97里的"自动保存宏",在这里定时5秒出现一次    Subauto_open()    MsgBox"欢迎你，在这篇文档里，每5秒出现一次保存的提示！",vbInformation,"请注意！"    Callruntimer'打开文档时自动运行    EndSub    Subruntimer()    Application.OnTimeNow+TimeValue("00:00:05"),"saveit"    'Now+TimeValue("00:15:00")指定在当前时间过5秒钟开始运行Saveit这个过程。    EndSub    SubSaveIt()    msg=MsgBox("朋友，你已经工作很久了，现在就存盘吗？"&Chr(13)_    &"选择是：立刻存盘"&Chr(13)_    &"选择否：暂不存盘"&Chr(13)_    &"选择取消：不再出现这个提示",vbYesNoCancel+64,"休息一会吧！")    '提示用户保存当前活动文档。    Ifmsg=vbYesThenActiveWorkbook.SaveElseIfmsg=vbCancelThenExitSub    Callruntimer'如果用户没有选择取消就再次调用Runtimer    EndSub      以上只是两个简单的例子，有兴趣的话，可以利用Application.Ontime这个函数写出更多更有用的定时程序。  SubShow_my_msg()    msg=MsgBox("现在是17:00:00！",vbInformation,"自定义信息")    EndSub    2.模仿Excel97里的"自动保存宏",在这里定时5秒出现一次    Subauto_open()    MsgBox"欢迎你，在这篇文档里，每5秒出现一次保存的提示！",vbInformation,"请注意！"    Callruntimer'打开文档时自动运行    EndSub      Subruntimer()    Application.OnTimeNow+TimeValue("00:00:05"),"saveit"    'Now+TimeValue("00:15:00")指定在当前时间过5秒钟开始运行Saveit这个过程。    EndSub接上面61、Excel最重要的应用就是利用公式进行计算。无论输入是纯粹的数字运算，还是引用其他单元格计算，只要在一个单元格中输入公式，就能得到结果。这个直接显示结果的设计对于绝大多数场合来说都是适用的，但某些情况下就不那么让人满意了。比如说在做工程施工的预结算编写，使用Excel，既要写出工程量的计算式，也要看到它的结果，于是这样相同的公式在Excel里面要填两次，一次在文本格式的单元格中输入公式，一次是在数据格式的单元格中输入公式让Excel计算结果。如何既能看到公式又能看到结果呢？这个问题笔者认为可以从两个方面考虑：一种方法是所谓“已知结果，显示公式”，先在数据格式单元格中输入公式让Excel计算结果，然后在相邻的单元格中看到公式；另一种方法所谓“已知公式，显示结果”，就是先在一个文本格式的单元格中输入公式，在相邻的单元格中看到结果。★已知结果，显示公式假设C列为通过公式计算得到的结果（假设C1为“=A1+B1”，或者直接是数字运算“=2+3”)，而相邻的D列是你需要显示公式的地方（即D1应该显示为“=A1+B1”或者“=2+3”）。1.打开“工具”菜单选择“选项”命令，出现“选项”对话框。2.在“常规”选项卡中，选中“R1C1引用方式”选项。3.定义名称，将“引用位置”由“=GET.CELL(6,Sheet1!RC[-1])”即可。这里的RC[-1]含义是如果在当前单元格的同行前一列单元格中有公式结果，则在当前单元格中得到公式内容，即在含公式结果单元格的同行后一列单元格显示公式内容；如果将RC[-1]改为RC[1]，则在公式结果的同行前一列单元格显示公式内容。4.如果“引用位置”中含有“RC[-1]”，则在含公式结果单元格的同行后一列单元格中输入“=FormulaofResult”即可得到公式；如果“引用位置”中含有“RC[1]”，则在含公式结果单元格的同行前一列单元格中输入“=FormulaofResult”即可得到公式。提示：如果想要在含公式结果单元格的同行后数第2列中显示公式内容，则需要把“引用位置”中的“RC－1”改为“RC－2”。★已知公式，显示结果假设C列为输入的没有等号公式（假设C1为“A1+B1”)，而相邻的D列是你需要存放公式计算结果的地方（即D1显示A1和B1单元格相加的结果）。1.选中D1，然后打开“插入”菜单选择“名称”命令中的“定义”子命令，出现“定义名称”对话框。2.在“在当前工作表中的名称”输入栏中输入定义的名称“ResultofFomula”，在下方的“引用位置”编辑栏中输入“=EVALUATE(Sheet1!C1)”，单击[确认]按钮退出。3.在D1中输入“=ResultofFomula”，然后选中按住右下角的填充柄向下拉动填充即可。提示：EVALUATE是Eexcel4．0版的宏表函数，Excel2000和Excel2002中还支持，但只可用于名称定义中。4.填充后要按[F9]进行重算，如果C列的公式有改动，也需要及时按[F9]进行重算。巧施妙计，就能让公式和结果在Excel中和平共处了，你也试试吧。62、http://www.yesky.com/20010724/190094_3.shtml　MicrosoftExcel是一款功能非常强大的电子表格软件。它可以轻松地完成数据的各类数学运算，并用各种二维或三维图形形象地表示出来，从而大大简化了数据的处理工作。但若仅利用Excel的常用功能来处理较复杂的数据，可能仍需进行大量的人工操作。但Excel的强大远远超过人们的想象--宏的引入使其具有了无限的扩展性，因而可以很好地解决复杂数据的处理问题。　　随着支持Windows的应用程序的不断增多和功能的不断增强，越来越多的程序增加了宏处理来方便用户的自由扩展。但初期各应用程序所采用的宏语言并不统一，这样用户每使用一种应用程序时都得重新学习一种宏语言。为了统一各种应用程序下的宏，Microsoft推出了VBA（VisualBasicforApplications）语言。　　VBA是从流行的VisualBasic编程语言中派生出来的一种面向应用程序的语言，它适用于各种Windows应用程序，可以解决各应用程序的宏语言不统一的问题。除此之外，使用VBA语言还有如下优点：1、VBA是一种通用程序语言，通过它不仅可以共享Microsoft相关的各种软件（如Excel、Word、Access）……，而且随着其它的一些软件（如大名鼎鼎的AutoCAD2000）等对VBA的支持，这些软件也已进入到了VBA的控制范围；2、可以将用VBA编写的程序复制到VisualBasic中调试并运行，从而实现用VisualBasic来控制有关的应用程序；3、VBA提供的大量内部函数大大简化了用户的操作。　　对于而今的宏，不仅语言统一 规范 编程规范下载gsp规范下载钢格栅规范下载警徽规范下载建设厅规范下载 ，而且其功能也已非常强大。但在大多数介绍Excel的"傻瓜书"、" 指南 验证指南下载验证指南下载验证指南下载星度指南下载审查指南PDF "、"入门与提高"等参考书中往往略过不提，或浅浅带过，读者从中获得的有关知识往往不足以应付处理复杂数据的需求。为了完成工作，就让我们一起来学习"宏"的妙用吧。　　一)、宏的自学　　首先需要明确的是，本文不可能教会您关于宏的所有内容。您需要学会利用"录制宏"的方法来学习宏：点击Excel"工具"下拉菜单中"宏"下?quot;录制新宏"，此后可象平时一样进行有关操作，待完成后停止录制。然后再点击"工具"下拉菜单中"宏"下"宏"的"编辑"选项即可打开刚才所录制的宏的VisualBasic源程序，并且可以在此时的"帮助"下拉菜单中获得有关的编程帮助。对录制宏进行修改不仅可以学习宏的使用，还能大大简化宏的编写。　　二)、基本概念　　为了学习Excel中的宏，我们需要先了解以下一些基本概念。　　1、工作簿：Workbooks、Workbook、ActiveWorkbook、ThisWorkbook　　Workbooks集合包含Excel中所有当前打开的Excel工作簿，亦即所有打开的Excel文件；Workbook对应Workbooks中的成员，即其中的Excel文件；ActiveWorkbook代表当前处于活动状态的工作簿，即当前显示的Excel文件；ThisWorkbook代表其中有VisualBasic代码正在运行的工作簿。　　在具体使用中可用Workbooks(index)来引用Workbook对象，其中index为工作簿名称或编号；如Workbooks(1)、Workbooks("年度报表.xls")。而编号按照创建或打开工作簿的顺序来确定，第一个打开的工作簿编号为1，第二个打开的工作簿为2……。　　2、工作表：Worksheets、Worksheet、ActiveSheet　　Worksheets集合包含工作簿中所有的工作表，即一个Excel文件中的所有数据表页；而Worksheet则代表其中的一个工作表；ActiveSheet代表当前处于的活动状态工作表，即当前显示的一个工作表。　　可用Worksheets(index)来引用Worksheet对象，其中index为工作表名称或索引号；如Worksheets(1)、Worksheets("第一季度数据")。工作表索引号表明该工作表在工作表标签中的位置：第一个（最左边的）工作表的索引号为1，最后一个（最右边的）为Worksheets.Count。需要注意的是：在使用过程中Excel会自动重排工作表索引号，保持按照其在工作表标签中的从左至右排列，工作表的索引号递增。因此，由于可能进行的工作表添加或删除，工作表索引号不一定始终保持不变。　3、图表：Chart、Charts、ChartObject、ChartObjects、ActiveChart　　Chart代表工作簿中的图表。该图表既可为嵌入式图表（包含在ChartObject中），也可为一个分开的（单独的）图表工作表。　　Charts代表指定工作簿或活动工作簿中所有图表工作表的集合，但不包括嵌入式在工作表或对话框编辑表中的图表。使用Charts(index)可引用单个Chart图表，其中index是该图表工作表的索引号或名称；如Charts(1)、Charts("销售图表")。图表工作表的索引号表示图表工作表在工作簿的工作表标签栏上的位置。Charts(1)是工作簿中第一个（最左边的）图表工作表；Charts(Charts.Count)为最后一个（最右边的）图表工作表。　　ChartObject代表工作表中的嵌入式图表，其作用是作为Chart对象的容器。利用ChartObject可以控制工作表上嵌入式图表的外观和尺寸。　　ChartObjects代表指定的图表工作表、对话框编辑表或工作表上所有嵌入式图表的集合。可由ChartObjects(index)引用单个ChartObject，其中index为嵌入式图表的编号或名称。如Worksheets("Sheet1").ChartObjects(1)、Worksheets("sheet1").ChartObjects("chart1")分别对应"Sheet1"工作表中的第一个嵌入式图表、以及名为"Chart1"的嵌入式图表。　　ActiveChart可以引用活动状态下的图表，不论该图表是图表工作表，或嵌入式图表。而对于图表工作表为活动工作表时，还可以通过ActiveSheet属性引用之。　　4、单元格：Cells、ActiveCell、Range、Areas　　Cells(row,column)代表单个单元格，其中row为行号，column为列号。如可以用Cells(1,1)、Cells(10,4)来引用"A1"、"D10"单元格。ActiveCell代表活动工作表的活动单元格，或指定工作表的活动单元格。　　Range代表工作表中的某一单元格、某一行、某一列、某一选定区域（该选定区域可包含一个或若干连续单元格区域）或者某一三维区域。　　可用Range(arg)来引用单元格或单元格区域，其中arg可为单元格号、单元格号范围、单元格区域名称。如Range("A5")、Range("A1:H8")、Range("Criteria")。虽然可用Range("A1")返回单元格A1，但用Cells更方便，因为此时可用变量指定行和列。　可将Range与Cells结合起来使用，如Range(Cells(1,1),Cells(10,10))代表单元格区域"A1:J10"；而expression.Cells(row,column)返回单元格区域中的一部分，其中expression是返回Range的表达式，row和column为相对于该区域的左上角偏移量。如由Range("C5:C10").Cells(1,1)引用单元格C5。　　Areas为选定区域内的连续单元格块的集合，其成员是Range对象。而其中的每个Range对象代表选定区域内与其它部分相分离的一个连续单元格块。某些操作不能在选定区域内的多个单元格块上同时执行；必须在选定区域内的单元格块数Areas.Count上循环，对每个单独的单元格块分别执行该操作。此时，可用Areas(index)从集合中返回单个Range对象，其中index为单元格块编号；如Areas(1)。　　5、行与列：Rows、Columns、Row、Column　　Rows、Columns分别代表活动工作表、单元格区域范围Range、指定工作表中的所有行数、列数。对于一个多选单元格区域范围Range的Rows、Columns，只返回该范围中第一个区域的行数、列数。例如，如果Range对象有两个区域（areas）A1:B2和C3:D4，Rows.Count返回2而不是4。　　可通过Rows(行号)、Columns(列号)来引用相应的行与列；如Rows(3)、Columns(4)分别对应第三行、D列。利用Rows、Column可以获得区域中第一块的第一行行号、第一列列号，所得值均以十进制数表示。　　三)、处理单元格　　1、直接赋值与引用　　将变量、常量值直接赋给单元格、或将单元格的值直接赋给变量、常量，这是在Excel中最简单的单元格赋值及引用方法。如下例将工作表"Sheet1"A1单元格的值赋给Integer变量I，并将I+1的值赋给当前工作表中的B1单元格：　　DimIAsInteger　　I=Worksheets("Sheet1").Cells(1,1)　　Cells(1,2).Select'选定B1单元格，使其成为当前单元格　　ActiveCell=I+1'以I+1为当前单元格赋值　　2、用公式赋值　　在宏的使用中，可能会更多地用公式来给单元格赋值。如下例将相对于活动单元格左侧第4列、向上第6行至向上第2行的单元格数值之和赋给活动单元格（以本行、本列为第0行、0列）：　　ActiveCell.Formula="=AVERAGE(R[-6]C[-4]:R[-2]C[-4])"　　3、引用其它工作表中的单元格　　当赋值公式中需要引用其它工作表中的单元格时，在被引用的单元格前加上"工作表名！"即可。如以下即在赋值中引用了"Sheet1"工作表中的A1至A4单元格：　　Range("E10").Formula="=SUM(Sheet1!R1C1:R4C1)"　　但需注意的是：当被引用的工作表名中含有某些可能引起公式歧义的字符时，需要用单引号'将工作表名括起来。如：　　Worksheets("Sheet1").ActiveCell.Formula="=Max('1-1剖面'!D3:D5)"　　4、引用其它工作簿中的单元格　　在被引用单元格所在工作表名前加上"[工作簿名]"，即可引用其它工作簿中的单元格。如：ActiveCell.Formula="=MAX([Book1.xls]Sheet3!R1C:RC[4])"同样需注意的是：当被引用的工作簿名中含有某些可能引起公式歧义的字符时，需要用中括号"["、"]"及单引号'将工作簿名括起来。如：　　Cells(1,2).Formula="=MIN('[1995-2000总结.xls]1995-1996年'!$A$1:$A$6)"　　5、避免循环引用　　在上述公式赋值过程中，应避免在公式中引用被赋值的单元格，防止循环引用错误。　　6、添加批注　　可按如下方法格给单元格添加批注：　　Dim批注文本AsString　　批注文本="批注示例"'准备批注文本　　ActiveCell.AddComment'添加批注　　ActiveCell.Comment.TextText:=临时'写入批注文本　　ActiveCell.Comment.Visible=False'隐藏批注7、添加、删除、复制、剪切、粘贴单元格　　Range("D10").InsertShift:=xlToRight'在D10单元格处添加一新单元格，原D10格右移　　Range("C2").InsertShift:=xlDown'在C2单元格处添加一新单元格，原C2格下移　　Rows(2).EntireRow.Insert'在第2行前添加一空白行，原第2行下移　　Columns(3).EntireColumn.Insert'在C列前添加一空白列，原C列右移　　Columns("A:D").DeleteShift:=xlToLeft'删除A列至D列，其右侧列左移　　Rows("3:5").DeleteShift:=xlUp'删除第3行至第5行，其下方行上移　　Range("B2").EntireRow.Delete'删除第2行　　Range("C4").EntireColumn.Delete'删除C列　　Range("B10:C13").Copy'复制B10至C13单元格区域　　Cells(1,2).Cut'剪切B1单元格　　Range("D10").Select　　ActiveSheet.Paste'自D10单元格起粘贴剪贴板中的内容　　四)、图表　　1、工作表图表　　以下为一添加工作表图表的实例。　　Charts.Addafter:=Worksheets("Sheet1")'在"Sheet1"工作表之后添加新图表工作表　　ActiveChart.ChartType=xlXYScatterSmooth'图表类型为XY平滑线散点图　　ActiveChart.SetSourceDataSource:=Sheets("结点坐标").Range("A1:B69"),PlotBy:=_　　xlColumns'图表数据来源于"结点坐标"工作表的A1至B69单元格，且按列绘图。　　ActiveChart.LocationWhere:=xlLocationAsNewSheet　　WithActiveChart　　　　.HasTitle=True　　　　.ChartTitle.Characters.Text="节点坐标"'图表标题"节点坐标"　　　　.Axes(xlCategory,xlPrimary).HasTitle=True　　　　.Axes(xlCategory,xlPrimary).AxisTitle.Characters.Text="x"'x轴标题"x"　　　　.Axes(xlValue,xlPrimary).HasTitle=True　　　　.Axes(xlValue,xlPrimary).AxisTitle.Characters.Text="y"'y轴标题"y"　　EndWith　　WithActiveChart.Axes(xlCategory)　　　　.HasMajorGridlines=True'显示x轴主网格线，默认情况下为显示　　　　.HasMinorGridlines=True'显示x轴次网格线，默认情况下为不显示　　EndWith　　WithActiveChart.Axes(xlValue)　　　　.HasMajorGridlines=True'标出x轴主网格值，默认情况下为标注　　　　.HasMinorGridlines=False'取消x轴次网格值标注，默认情况下为不标注　　EndWith　　ActiveChart.Legend.Position=xlRight'图例显示在图表右侧　　2、嵌入式图表　　嵌入式图表仅在添加方式及引用格式上与工作表图表有所