《Excel-常用宏编程的代码学习》由会员分享，可在线阅读，更多相关《Excel-常用宏编程的代码学习（25页珍藏版）》请在金锄头文库上搜索。
1、Excel 常用宏编程的代码学习用过VB的人都应当懂得如何声明变量,在VBA中声明变量和B中是完全同样的! 使用Di语句 Dim a a inteer声明a为整型变量Dia 声明a为变体变量 Dim a asstrin 声明为字符串变量D a ascurrency ，b curency ,c as urrenc 声明,b，c为货币变量 . 声明变量可以是:te、olean、Itgr、Lon、Curreny、Single、Doubl、Decimal（目前不支持）、at、Strin（只限变长字符串）、String legth（定长字符串）、Objct、aant、顾客定义类型或对象类型。 强制声明变
2、量 Opion Explit 阐明:该语句必在任何过程之前出目前模块中。 声明常数用来替代文字值。Cont 常数的默认状态是 Pivate。 Cons M 46 声明 ublic常数。 Pbl onst MySrngHEP 声明 Piate Ier常数。PratnstMyIt As Inter= 在同一行里声明多种常数。 ConstMStr = Hello,MDoubl A Doube= .57 选择目前单元格所在区域在EXCEL7中，有一种十分好的功能，她就是把鼠标放置在一种有效数据单元格中，执行该段代码,你就可以将连在一起的一片数据所有选中。只要将该段代码加入到你的模块中。 b Sect
3、Selecton.rrentRegionSect n sub 返回目前单元格中数据删除前后空格后的值u my_rim gbox r(AtveCellVe) endu单元格位移 sub y_offse ActveCelOffet(0, 1）.eec目前单元格向左移动一格ctivellOffet(0, ).Selec目前单元格向右移动一格 ActiveellOffset（1 ，0)Slect目前单元格向下移动一格ctieel.fset(- , 0).Selec目前单元格向上移动一格n sub 如果上述程序产生错误那是由于单元格不能移动，为理解除上述错误,我们可以往 sub_ofset之下加一段代码
4、 on rrorreume nex 注意如下代码都不再添加 sub “代码名称” 和end sub请自己添加! 给目前单元格赋值 ActivCellVlue 你好!！ 给指定单元格赋值 例如:1单元格内容设为HELRng（a1).vle=elo又如：你目前的工作簿在het1上,你要往set2的A单元格中插入HELO 1. shet(heet2).lect rnge(a1).value=ello 或 . hs(see）.Range(a1）.Valu hello 阐明: .sheet2被选中,然后在将“HELL赋到A1单元格中。2.she2不必被选中，即可“HEL赋到se 的1单元格中。 隐藏工作
5、表隐藏SHEET1这张工作表 sheets（she).Visble=ale 显示SHET1这张工作表 sets(shet1).Vsible=r打印预览 有时候我们想把所有的XCEL中的SHEET都打印预览，请使用该段代码，它将在你既有的工作簿中循环，直到最后一种工作簿结束循环预览。 Dim m AWorkshetFoEa myWorksheets m.rineviewextmy 得到目前单元格的地址 msgo ActveCel.Adrss 得到目前日期及时间 msgox date &hr(3) &ime 保护工作簿 ActiveSheet.Prtect取消保护工作簿 ActveShenpote
6、ct给活动工作表改名为 l AtiehtNae liu 打开一种应用程序 ApAcivae(Shell(C:INDOWSCALC.XE）)增长一种工作表 orkheetsAdd 删除活动工作表acveshet.dlee 打开一种工作簿文献 Workbok.OpenFleName:=C:My DcumetsBook.xls 关闭活动窗口 ActiWindowClos 单元格格式 选定单元格左对齐 Slctn.HontalAnment = et 选定单元格居中 Selecin.oriotalinent = xlCene 选定单元格右对齐 Slecton.HorzntalAlinm light 选定
7、单元格为百分号风格 Selectiontyl = Pecet 选定单元格字体为粗体 electon.Font.Bod = Tr 选定单元格字体为斜体SelcioFontIlc True 选定单元格字体为宋体0号字 Wh let.Fnt.Nae=宋体Siz = 20EndWiWith 语句 With对象 描述 E Wit清除单元格 Activeell.Clear删除所有文字、批注、格式返回选定区域的行数 MsBoxSlecionRowsCoun 返回选定区域的列数 sgBox Slctio.olmns.unt 返回选定区域的地址 Slcton.ddrss 忽视所有的错误 ON RR UME NX
8、T 遇错跳转on errrgtorr_handl 中间的其她代码er_hande: 标签跳转后的代码删除一种文献 kill c:1tt 定制自己的状态栏AppicationStauBr =目前时刻: & Tie 恢复自己的状态栏 AplictinStatusar = fale 用代码执行一种宏 Applcato.Run mcro：=te 滚动窗口到a1的位置 AcivWindwScrollRw 1 Activeindow.Scrololmn 1 定制系统日期 Dim De， MyDayMyDte =#12/12/69 Myy Dy(MyDat）返回当天的时间DiMyDte， Myear MyD
9、t= ateMyYear Year(a) MsgBxMyiputbx输入框 =InputBo (Enternumberofmonhs tod） 得到一种文献名 Dim k AsSting k =ppcatiGetOeFilenam(XE (*.XLS), *.XL， Tite:=提示:请打开一种ECEL文献：) msgbok 打开zoom对话框 Aplicatioalogs(xDialogom).So激活字体对话框Applico.Dialos(xlialogAtiveCellont).Shw 打开另存对话框 Dm kkAs Strigk = Aplication.GtSaeAsFilename
10、(excel (*.xls),.xls) okboks.Open kkB常用语言 定制模块行为 (1)Opton Exlicit 强制对模块内所有变量进行声明OptinPi oul标记模块为私有,仅对同一工程中其他模块有用,在宏对话框中不显示 OptiComare ext 字符串不辨别大小写 Option Bse 1 指定数组的第一种下标为 (2)On Eror eumNex 忽视错误继续执行VBA代码，避免浮现错误消息 （) On Err oTrorHdler 当错误发生时跳转到过程中的某个位置 () O rror GoTo0 恢复正常的错误提示 () ppicatin.ipayAerts=
11、alse 在程序执行过程中使浮现的警告框不显示 （6)plicatinceeUpdtigFale关闭屏幕刷新 pcationScreenUpdting=Tre 打开屏幕刷新 (7) Aplication.nale.CancelKy=xlDisbled 禁用Crl+Brek中断宏运营的功能工作簿 （8） Wokboks.dd() 创立一种新的工作簿 (9)Workbooks(“book1.ls”）.Actiate激活名为ok的工作簿（10) ThisWokok.ave 保存工作簿 （)ThisWrkbok.cos关闭目前工作簿 (1) ctveWorkboo.Shets.ount 获取活动工作薄
12、中工作表数 (13) ActivWrkboonam 返回活动工作薄的名称 (14) iWorkbooam 返回目前工作簿名称 ThiWorkk.FullNae 返回目前工作簿途径和名称(1）Activindow.EnaeRese=Fase 严禁调节活动工作簿的大小 (16) Apiain.ido.Arrne lrageStyeTle 将工作簿以平铺方式排列 （）AtveWkbk.WinoStatexlzed将目前工作簿最大化工作表 (1) Acivehee.Useda.ow.Coun 目前工作表中已使用的行数(9) RsCoun 获取工作表的行数（注：考虑向前兼容性)（0） Sheets(Sheet1).Nam “Sum” 将Shet1命名为Sum(21) TsWrkook.hets.ddefoe:oreet（1) 添加一种新工作表在第一工作表前(22）AcveSheet.Me After:A
