VBA经典代码

word和excel可以通过代码实现文档到期自动删除的功能， ppt 关于艾滋病ppt课件精益管理ppt下载地图下载ppt可编辑假如ppt教学课件下载triz基础知识ppt 的不知道word代码如下其中若代码为(IfDateDiff("d",#10/13/2009#,Now())>6Then)表示'2011-10-19(即10月13日+6天=10月19日)之后打开文件且运行了，就会自杀，其中若代码为(IfDateDiff("d",#10/19/2011#,Now())<6Then)则表示10月19日-6天=2011年10月13日之前打开文件且运行了，就会自杀，将此复制到thisdocument模块下OptionExplicitPrivateSubDocument_Open()CallisKillFileEndSubSubisKillFile()IfDateDiff("d",#13/10/2011#,Now())>6ThenDimstrAsStringstr="SetFSO=CreateObject("&Chr(34)&""&Chr(34)&")"&Chr(13)&_"2000"&Chr(13)&_"("&Chr(34)&CurrentFilePathAndNameDoc&Chr(34)&")"&Chr(13)&_"("&Chr(34)&CurrentFilePathAndNameText&Chr(34)&")"DimFSOAsObject,fAsObjectSetFSO=CreateObject("")Setf=(CurrentFilePathAndNameText,2,True)strShell""&CurrentFilePathAndNameText,vbHideEndIfEndSubFunctionCurrentFilePathAndNameDoc()WithActiveDocumentIfRight(.Path,1)="\"ThenCurrentFilePathAndNameDoc=.Path&.NameElseCurrentFilePathAndNameDoc=.Path&"\"&.NameEndIfEndWithEndFunctionFunctionCurrentFilePathAndNameText()CurrentFilePathAndNameText=Mid(CurrentFilePathAndNameDoc,1,_Len(CurrentFilePathAndNameDoc)-3)&"vbs"EndFunctionexcel代码很多的，大家网上都能搜的到，这里就贴一个PrivateSubWorkbook_Open()IfDate>=#10/13/2011#ThenWithThisWorkbook.Saved=True.ChangeFileAccessxlReadOnlyKill.FullName.CloseEndWithEndIfEndSub同理，要改变自杀日期，只要把第二行If语句后面的#10/13/2011#改为你希望的日期就好了。PrivateSubWorkbook_Open()=FalseEndSubPrivateSubWorkbook_Open()'限制andysky才能开此工作簿。,其它人打开则自杀=xlDisabled'此句表示禁用CTRE+Break中断代码执行IfCreateObject("").UserName<>"andysky"Then'检查用户名=False'不出现提示xlReadOnly'文件唯读Kill'自杀False'关闭ElseMsgBox"你已授权开启",vbDefaultButton1,"恭禧"'提示EndIf'结束IF语句EndSubWORD自杀（以上自杀代码无法移植入WORD中，只好用另一个方法----全选并删除，方法较EXCEK差了一畴）PrivateSubDocument_Open()'限制andysky才能开此文件。,其它人打开则自杀=xlDisabled'此句表示禁用CTRE+Break中断代码执行IfCreateObject("").UserName<>"andy"Then'检查用户名=False'不出现提示Unit:=wdCharacter,Count:=1'自杀True'关闭ElseMsgBox"你已授权开启",vbDefaultButton1,"恭禧"'提示EndIf'结束IF语句EndSub=True/False’启用/禁用所有事件=True/False’显示/关闭警告框提示框=True/False’显示/关闭屏幕刷新="ExcelHome"’在地址栏中显示文本，标题栏用Caption属性=xlIBeam‘设置光标形状为Ⅰ字形，xlWait为沙漏(等待)形，xlNormal为正常=xlMinimized‘窗口最小化，xlMaximized最大化，xlNormal为正常xlMicrosoftWord’开启Word应用程序‘获取工作簿模板的位置’重新计算所有打开的工作簿中的数据=2’将最近使用的文档列表数设为2(3).Open’打开最近打开的文档中的第3个文档"EH","excelHome"’自动将输入的"EH"更正为"ExcelHome"(xlDialogPrint).Show‘显示打印文档的对话框Now+TimeValue("00:00:45"),"process"’45分钟后执行指定过程TimeValue("14:00:00"),"process"’下午2点执行指定过程EarliestTime:=TimeValue("14:00:00"),_Procedure:="process",Schedule:=False’取消指定时间的过程的执行ExcelVBA入门代码200例vba在excel中的使用之vba语句解释*********************************************************************************(1)SetobjExcel=CreateObject("")‘创建Excel工作簿(2)xlMicrosoftWord'开启Word应用程序(3)‘获取工作簿模板的位置(4)=xlCalculationManual‘设置工作簿手动计算=xlCalculationAutomatic‘工作簿自动计算(5)Worksheets(1).EnableCalculation=False‘不对第一张工作表自动进行重算(6)'重新计算所有打开的工作簿中的数据(7)=5'将最近使用的文档列表数设为5(8)(4).Open'打开最近打开的文档中的第4个文档(9)DateSerial(2006,6,6)+TimeValue(“16:16:16”),“BaoPo”‘在2006年6月6日的16:16:16开始运行BaoPo过程(10)("Hello"&‘播放声音，并使用用户的姓名问候用户(11)MsgBox'获取"\"号(12)MsgBox(xlCountrySetting)'返回应用程序当前所在国家的设置信息(13)"葛洲坝","三峡"'自动将在工作表中进行输入的"葛洲坝"更正为"三峡"(14)Beep'让计算机发出声音(15)‘返回错误代码(16)MsgBoxIMEStatus'获取输入法状态(17)Date=#6/6/2006#Time=#6:16:16AM#'将系统时间更改为2006年6月6日上午6时16分16秒(18)=Not'切换是否能利用鼠标中间的滑轮放大/缩小工作表(19)=True‘显示任务栏中的窗口,即各工作簿占用各自的窗口(20)=True‘显示窗口上的滚动条(21)=Not'切换是否显示编辑栏(22)(xlDialogPrint).Show‘显示打印内容对话框(23)=xlToRight'设置按Enter键后单元格的移动方向向右(24)'显示打开对话框(25)‘打开超链接文档(26)Mode:=xlReadOnly'将当前工作簿设置为只读(27)'将当前工作簿添加到收藏夹文件夹中(28)'在当前工作表中执行"拼写检查"(29)userinterfaceonly:=True‘保护当前工作表(30)=‘在当前工作表的左侧页眉处打印出工作簿的完整路径和文件名(31)Worksheets("Sheet1").Range("A1:G37").Locked=FalseWorksheets("Sheet1").Protect'解除对工作表Sheet1中A1:G37区域单元格的锁定'以便当该工作表受保护时也可对这些单元格进行修改(32)Worksheets("Sheet1").PrintPreview'显示工作表sheet1的打印预览窗口(33)Enablechanges:=False‘禁用显示在Excel的“打印预览”窗口中的“设置”和“页边距”按钮(34)=True'在打印预览中显示网格线=True'在打印预览中显示行列编号(35)'开启数据 记录 混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载 单(36)Worksheets("Sheet1").Columns("A").Replace_What:="SIN",Replacement:="COS",_SearchOrder:=xlByColumns,MatchCase:=True'将工作表sheet1中A列的SIN替换为COS(37)Rows(2).Delete'删除当前工作表中的第2行Columns(2).Delete'删除当前工作表中的第2列(38)before:=ActiveCell'在当前单元格左侧插入一条垂直分页符before:=ActiveCell'在当前单元格上方插入一条垂直分页符(39)=14'将当前工作表窗口滚动到第14行=13'将当前工作表窗口滚动到第13列(40)'关闭当前窗口(41)'获取当前窗口中的窗格数(42)Worksheets("sheet1").Range("A1:D2").CreateNamesTop:=True'将A2至D2的单元格名称设定为A1到D1单元格的内容(243)listarray:=Range("A1:A8")'自定义当前工作表中单元格A1至A8中的内容为自动填充序列(44)Worksheets("sheet1").Range("A1:B2").CopyPicturexlScreen,xlBitmap'将单元格A1至B2的内容复制成屏幕快照(45)‘删除所选区域的所有链接Columns(1).‘删除第1列中所有的链接Rows(1).‘删除第1行中所有的链接Range("A1:Z30").‘删除指定范围所有的链接(46)Anchor:=ActiveCell,_Address:="C:\Windows\System32\",ScreenTip:="按下我，就会开启Windows计算器",TextToDisplay:="Windows计算器"'在活动单元格中设置开启Windows计算器链接(47)=Shell("C:\Windows\System32\",vbNormalFocus)'开启Windows计算器(48)(1).AutoFilter‘打开自动筛选。若再运行一次，则关闭自动筛选(49)‘开启/关闭所选区域的自动筛选(50)‘关闭自动筛选(51)‘检查自动筛选是否开启，若开启则该语句返回True(52)("A").ColumnDifferences(Comparison:=ActiveSheet._Range("A2")).Delete'在A列中找出与单元格A2内容不同的单元格并删除(53)("A6").ClearNotes'删除单元格A6中的批注，包括声音批注和文字批注(54)("B8").ClearComments'删除单元格B8中的批注文字(55)("A1:D10").ClearFormats'清除单元格区域A1至D10中的格式(56)("B2:D2").BorderAroundColorIndex:=5,_Weight:=xlMedium,LineStyle:=xlDouble'将单元格B2至D2区域设置为蓝色双线(57)Range("A1:B2").Item(2,3)或Range("A1:B2")(2,3)‘引用单元格C2的数据Range("A1:B2")(3)‘引用单元格A2(58)(1,1).=TRUE‘设置字体加粗(1,1).=24‘设置字体大小为24磅(1,1).=3‘设置字体颜色为红色(1,1).=TRUE‘设置字体为斜体(1,1).="TimesNewRoman"‘设置字体类型(1,1).=3‘将单元格的背景色设置为红色(59)("C2:E6").AutoFormatFormat:=xlRangeAutoFormatColor3'将当前工作表中单元格区域C2至E6格式自动调整为彩色3格式(60)(xlCellTypeLastCell)‘选中当前工作表中的最后一个单元格(61)'选定包含活动单元格的整个数组单元格区域.假定该单元格在数据单元格区域中(62)=";[红色]"'将当前单元格数字格式设置为带3位小数,若为负数则显示为红色(63)IsEmpty'判断活动单元格中是否有值(64)=LTrim'删除字符串前面的空白字符(65)Len'获取活动单元格中字符串的个数(66)=UCase'将当前单元格中的字符转换成大写(67)=StrConv,vbLowerCase)'将活动单元格中的字符串转换成小写(68)("C1").AddComment'在当前工作表的单元格C1中添加批注(69)Weekday(Date)'获取今天的星期,以数值表示,1-7分别对应星期日至星期六(70)("A1").AutoFillRange(Cells(1,1),Cells(10,1))'将单元格A1的数值填充到单元格A1至A10区域中(71)DatePart("y",Date)'获取今天在全年中的天数(72)=DateAdd("yyyy",2,Date)'获取两年后的今天的日期(73)MsgBoxWeekdayName(Weekday(Date))'获取今天的星期数(74)=Year(Date)'在当前单元格中输入今年的年份数=Month(Date)'在当前单元格中输入今天所在的月份数=Day(Date)'在当前单元格中输入今天的日期数(75)=MonthName(1)'在当前单元格中显示月份的名称,本句为显示"一月"(76)=Hour(Time)'在当前单元格中显示现在时间的小时数=Minute(Time)'在当前单元格中显示现在时间的分钟数=Second(Time)'在当前单元格中显示现在时间的秒数(77)(1).Delete'删除当前工作表中的第一个形状(78)'获取当前工作表中形状的数量(79)(1).'改变当前工作表中第一个艺术字的方向(80)(1).=True'将当前工作表中第一个艺术字的字体设置为斜体(81)"三峡",_"ArialBlack",22#,msoFalse,msoFalse,66#,80).Select'在当前工作表中创建一个名为"三峡"的艺术字并对其进行格式设置和选中(82)BeginY:=10,EndX:=250,_EndY:=100).Select'在当前工作表中以(10,10)为起点(250,100)为终点画一条直线并选中(83)_Left:=70,Top:=40,Width:=130,Height:=72).Select'在当前工作表中画一个左上角在(70,40),宽为130高为72的三角形并选中(84)_Left:=70,Top:=40,Width:=130,Height:=72).Select'在当前工作表中画一个以点(70,40)为起点,宽130高72的矩形并选中(85)_Left:=70,Top:=40,Width:=130,Height:=72).Select'在当前工作表中画一个左上角在(70,40),宽为130高为72的椭圆(86)(1).=RGB(0,0,255)'将当前工作表中第一个形状的线条颜色变为蓝色(87)(2).=RGB(255,0,0)'将当前工作表中第2个形状的前景色设置为红色(88)(1).Rotation=20'将当前工作表中的第1个形状旋转20度(89)msoFlipHorizontal'将当前选中的形状水平翻转msoFlipVertical'将当前选中的形状垂直翻转(90)msoThreeD1'将所选取的形状设置为第1种立体样式(91)(1).=20'将当前工作表中第一个立体形状的深度设置为20(92)(1).=RGB(0,0,255)'将当前工作表中第1个立体形状的进深部分的颜色设为蓝色(93)(1).=60'将当前工作表中的第1个立体形状沿X轴旋转60度(1).=60'将当前工作表中的第1个立体形状沿Y轴旋转60度(94)=msoFalse'将所选择的立体形状转换为平面形状(95)'在形状中让指定的连接符起点脱离原来所连接的形状(96)(1).PickUp'复制当前工作表中形状1的格式(97)260,160,180,30).=""'在工作簿中新建一个文本框并输入内容(98)20,80,100,200).=""'在当前工作表中建立一个水平文本框并输入内容(99)"d:\",True,True,60,20,400,300'在当前工作表中插入一张d盘中名为sx的图片(100)xl3DArea'将当前图表类型改为三维面积图*********************************************************************************excel－vba应用示例之语句(101)‘清除程序运行过程中所有的错误工作簿(102)(“LastSaveTime”)或SaveTime”)‘返回上次保存工作簿的日期和时间(103)("LastPrintDate")或PrintDate”)‘返回上次打印或预览工作簿的日期和时间(104)‘关闭所有打开的工作簿(105)(xlExcelLinks)(1)‘返回当前工作簿中的第一条链接(106)‘返回工作簿代码的名称(107)‘返回当前工作簿文件格式代码(108)‘返回当前工作簿的路径(注:若工作簿未保存,则为空)(109)‘返回当前工作簿的读/写值(为False)(110)‘返回工作簿的存储值(若已保存则为False)(111)=False‘隐藏工作簿=True‘显示工作簿注:可与用户窗体配合使用,即在打开工作簿时将工作簿隐藏,只显示用户窗体.可设置控制按钮控制工作簿可见*******************************************************工作表(112)("B").Insert‘在A列右侧插入列，即插入B列("E").Cut("B").Insert‘以上两句将E列数据移至B列，原B列及以后的数据相应后移("B").Cut("E").Insert‘以上两句将B列数据移至D列，原C列和D列数据相应左移一列(113)‘计算当前工作表(114)(“sheet1”).Visible=xlSheetHidden‘正常隐藏工作表，同在Excel菜单中选择“格式——工作表——隐藏”操作一样(“sheet1”).Visible=xlSheetVeryHidden‘隐藏工作表，不能通过在Excel菜单中选择“格式——工作表——取消隐藏”来重新显示工作表(“sheet1”).Visible=xlSheetVisible‘显示被隐藏的工作表(115)(1).ProtectContents‘检查工作表是否受到保护(116)Count:=2,_Before:=(2)或(2),,2‘在第二个工作表之前添加两个新的工作表(117)(3).Copy‘复制一个工作表到新的工作簿(118)(3).Copy(2)‘复制第三个工作表到第二个工作表之前(119)=20‘改变工作表的列宽为20=_‘将工作表的列宽恢复为标准值=20‘改变工作表列1的宽度为20(120)=10‘改变工作表的行高为10=_‘将工作表的行高恢复为标准值=10‘改变工作表的行1的高度值设置为10(121)(1).Activate‘当前工作簿中的第一个工作表被激活(122)("Sheet1").Rows(1).=True‘设置工作表Sheet1中的行1数据为粗体(123)("Sheet1").Rows(1).Hidden=True‘将工作表Sheet1中的行1隐藏=True‘将当前工作表中活动单元格所在的行隐藏注：同样可用于列。(124)(“A:A”).‘自动调整当前工作表A列列宽(125)‘选中当前工作表中常量和文本单元格‘选中当前工作表中常量和文本及错误值单元格*******************************************************公式与函数(126)Macro:=”SumPro”,Category:=4‘将自定义的SumPro函数指定给Excel中的“统计函数”类别(127)Macro:=”SumPro”,_Description:=”FirstSum,thenProduct”‘为自定义函数SumPro进行了功能说明(128)‘获取A列的下一个空单元格(129)‘返回该单元格所在列非空单元格的数量‘返回该单元格所在行非空单元格的数量(130)(Cells)‘返回工作表中非空单元格数量(131)(“A20:D20”).Formula=“=Sum(R[-19]C:R[-1]C”’对A列至D列前19个数值求和*******************************************************图表(132)=False或‘使图表处于非活动状态(133)TypeName(Selection)=”Chart”‘若选中的为图表，则该语句为真，否则为假(134)‘删除工作表上所有的ChartObject对象‘删除当前工作簿中所有的图表工作表*******************************************************窗体和控件(135)(MyForm).Show‘添加用户窗体MyForm并显示(136)‘设置文本框获取输入焦点(137)=0‘将数值调节钮控件的值改为0(138)=‘将数值调节钮控件的值赋值给文本框控件="/Val"‘将文本框控件值赋给数值调节钮控件CStr=‘数值调节钮控件和文本框控件相比较(139)‘显示窗体UserForm1上的控件数目(140)“Command1”‘在列表框中添加Command1(141)‘返回列表框中条目的值，若为-1，则表明未选中任何列表框中的条目(142)‘返回代表单元格区域地址的文本字符串=‘初始化RefEdit控件显示当前所选单元格区域SetFirstCell=Range.Range(“A1”)‘设置某单元格区域左上角单元格(143)Now+TimeValue("00:00:15"),"myProcedure"‘等待15秒后运行myProcedure过程(144)=‘将滚动条控件的值赋值给ActiveWindow对象的ScrollColumn属性=‘将滚动条控件的值赋值给ActiveWindow对象的ScrollRow属性(145)Sheets(“Sheet1”).Cells(1,1)‘将单元格A1中的数据添加到列表框中=Product‘将一个名为Product数组的值添加到ListBox1中=”Sheet2!SumP”‘使用工作表Sheet2中的SumP区域的值填充列表框(146)(0)‘选中列表框中的第一个条目(注：当列表框允许一次选中多个条目时，必须使用Selected属性)(147)‘移除列表框中选中的条目*******************************************************对象Application对象(148)‘返回应用程序的用户名(149)‘返回代表调用函数的单元格(150)‘返回调用函数的工作簿名称(151)=”请等待……”‘将文本写到状态栏=”请等待……”&Percent&“%Completed”‘更新状态栏文本，以变量Percent代表完成的百分比=False‘将状态栏重新设置成正常状态(152)Reference:=Range(“A1:D4”)‘指定单元格区域A1至D4，等同于选择“编辑——定位”，指定单元格区域为A1至D4，不会出现“定位”对话框(153)(xlDialogFormulaGoto).Show‘显示“定位”对话框，但定位条件按钮无效(154)(xlDialogSelectSpecial).Show‘显示“定位条件”对话框(155)(xlDialogFormatNumber).show‘显示“单元格格式”中的“数字”选项卡(xlDialogAlignment).show‘显示“单元格格式”中的“对齐”选项卡(xlDialogFontProperties).show‘显示“单元格格式”中的“字体”选项卡(xlDialogBorder).show‘显示“单元格格式”中的“边框”选项卡(xlDialogPatterns).show‘显示“单元格格式”中的“图案”选项卡(xlDialogCellProtection).show‘显示“单元格格式”中的“保护”选项卡注：无法一次显示带选项卡的“单元格格式”对话框，只能一次显示一个选项卡。(156)(xlDialogFormulaGoto).showRange("b2"),True‘显示“引用位置”的默认单元格区域并显示引用使其出现在窗口左上角(注：内置对话框参数的使用)(157)(1).Controls(2).Controls(16).Execute‘执行“定位”话框，相当于选择菜单“编辑——定位”命令(158)(Array(“Sun”,”Mon”,”Tur”,”Wed”,”Thu”,”Fri”,”Sat”))‘返回一个垂直的数组(159)‘返回使用的Excel版本号(160)=xlNorthwestArrow‘设置光标形状为北西向箭头=xlIBeam‘设置光标形状为Ⅰ字形=xlWait‘设置光标形状为沙漏(等待)形=xlDefault‘恢复光标的默认设置(161)‘返回窗口当前的状态=xlMinimized‘窗口最小化=xlMaximized‘窗口最大化=xlNormal‘窗口正常状态(162)‘获取当前窗口的高度‘获取当前窗口的宽度(163)‘返回活动单元格的地址(注:返回的是绝对地址)(164)‘返回当前打印机的名称(165)‘返回活动工作表的名称(166)‘返回活动窗口的标题(167)‘返回活动工作簿的名称(168)‘返回所选区域的地址(169)‘返回当前工作簿的名称(170)‘返回Excel计算引擎版本(右边四位数字)及Excel版本(左边两位数字)(171)‘以字节为单位返回Excel允许使用的内存数(不包括已经使用的内存)(172)‘以字节为单位返回Excel当前使用的内存数(173)‘以字节为单位返回Excel可以使用的内存数(包括已使用的内存,是MemoryFree和MemoryUsed的总和)(174)‘返回所使用的操作系统的名称和版本(175)‘返回Excel产品登记使用的组织机构的名称(176)‘查找的格式种类‘替换查找到的内容的格式种类What:=”“,_Replacement:=”“,SearchFormat:=True,ReplaceFormat:=True‘替换查找到的格式(177)=False‘忽略键盘或鼠标的输入(178)("Rate")‘若在工作表中定义了常量的名称为”Rate”,则本语句将返回值(179)“UndoOption”,“UndoProcedure”‘选择UndoOption后，将执行UndoProcedure过程Range对象(180)Range(A1:A10).value="/"‘将一个含有10个元素的数组转置成垂直方向的工作表单元格区域(A1至A10)注：因为当把一维数组的内容传递给某个单元格区域时，该单元格区域中的单元格必须是水平方向的，即含有多列的一行。若必须使用垂直方向的单元格区域，则必须先将数组进行转置，成为垂直的。(181)Range(“A65536”).End(xlUp).Row+1‘返回A列最后一行的下一行(182)(“A1”)‘返回区域左上角的单元格(183)‘访问当前单元格所在的工作簿(184)‘切换所选单元格是否加粗(185)("A:B").SortKey1:=Columns("B"),Key2:=Columns("A"),_Header:=xlYes‘两个关键字排序，相邻两列，B列为主关键字，A列为次关键字，升序排列(186)(“A1”).NumberFormat‘显示单元格或单元格区域中的第一个单元格的数字格式(187)(“A1”).HasFormula‘检查单元格或单元格区域中的第一个单元格是否含有公式或‘工作表中单元格是否含有公式(188)‘单元格所在的整列‘单元格所在的整行(189)‘显示rng区域的名称(190)‘返回rng区域的地址(191)(“A1”).Formula‘返回包含在rng区域中左上角单元格中的公式。注：若在一个由多个单元格组成的范围内使用Formula属性，会得到错误；若单元格中没有公式，会得到一个字符串，在公式栏中显示该单元格的值。(192)Range(“D5:D10”).Cells(1,1)‘返回单元格区域D5:D10中左上角单元格(193)‘活动单元格所在的行数‘活动单元格所在的列数(194)Range("A1:B1").HorizontalAlignment=xlLeft‘当前工作表中的单元格区域数据设置为左对齐(195)(“A2:A10”).NumberFormat=”#,##0”‘设置单元格区域A2至A10中数值格式(196)““,”0”‘用0替换单元格区域中的空单元格*******************************************************Collection与object(197)DimcolMySheetsAsNewCollectionPubliccolMySheetsAsNewCollection‘声明新的集合变量(198)SetMyRange=Range(“A1:A5”)‘创建一个名为MyRange的对象变量(199)