资源描述：
《各种excel vba的命令2》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、各种ExcelVBA的命令2 本示例重复最近用户界面命令。本示例必须放在宏的第一行。 Application.Repeat 下例中，变量counter代替了行号。此过程将在单元格区域C1:C20中循环，将所有绝对值小于0.01的数字都设置为0（零）。SubRoundToZero1()ForCounter=1To20SetcurCell=sgBox请输入要打印的份数EndIfActiveSheet.Shon=10Selection.AutoFilterField:=1,Criteria1:=
2、'以下10行弹出窗口输入打印信息DimmyPrintNumAsIntegerDimmyPrompt,myTitleAsStringmyPrompt=请输入要打印的份数myTitle=打印选取范围myPrintNum=Application.InputBox(myPrompt,myTitle,4,,,,,1)IfmyPrintNum0Then'Application.ActivePrinter=zdserver2HPLaserJet5000PCL6在 Ne00:''
3、;指定打印机ActivesgBox请输入要打印的份数EndIfActiveSheet.Shoy'变量声明-需保存工作表的路径和名称 [M1]=Active1=当前工作簿的路径和名称 y=cells(1,14)'Y=单元格N1的值,即计算后的需保存工作簿的 路径和名称 :N).Calculate'计算指定 区域Activeanual.MaxChange=0.001EndWithActiveWorkbook.PrecisionAsDisplayed=TrueActi
4、veWindoiron'变量列icolIfirow>6Andicol=3Andcells(irow,3)>=cells(irow-1,3) Then'>大于6行,并且第3列,当本行3列>2行3列Appli123456下一页——..，。cation.EnableEvents=Falsecells(iroytime()Range(a1)=NoeNoeValue(00:00:01),mytimeEndSub '用单元格A1的内容作为文件名保存当前工作
5、簿的宏 Subb() ActiveandButton1_Click()'点数据录入按钮控件激活窗体LoadUserForm3'激活窗体UserForm3.StartUpPosition=3'激活窗体UserForm3.ShoandButton1_Click() Application.ScreenUpdating=False'此句和最后一句旨在不显 示宏的执行过程'OnErrorGoToErrorHandle'可以不要'ErrorH
6、andle:'可以不要'IfErr.Number=13Then'可以不要'ExitSub'可以不要'EndIf'可以不要Call3.Hide'退出窗体,继续按钮少此句,退出按钮执行此句UnloadUserForm3'退出窗体,继续按钮少此句,退出按钮执行此句Call批量打印'[此处到接顺序2][L2]='[到此处结束]Sheets(打印信息).SelectApplication.ScreenUpdating=
7、TrueEndSub '退出按钮语句PrivateSubmandButton2_Click()UserForm3.HideUnloadUserForm3EndSub '将窗体内的文本框中的数据写进工作表的单元格 PrivateSubwriteToWorkSheet() ActiveSheet.Range(k2)=TextBox1.Value'将文字框内容写进k列 ActiveSheet.Range(l2)=TextBox2.Value'将文字框内容写进l
8、列 TextBox1.Value='清空文字框内容 TextBox2.Value=&上一页123456下一页——..，。quot;'清空文字框内容 1的值等于变量X NextZ EndSub '以下是将打印情况写入工作表的宏 Sub打印信息() Application.ScreenUpdating=False'关闭屏幕更新 DimY'声明变量 Y=ActiveSheet.Name'判定活动工作表名称 Sheets(打印信息).
