excel-vba-编程难点-版主高手实例集锦

excel-vba-编程难点-版主高手实例集锦

ID:25419892

大小:700.03 KB

页数:107页

时间:2018-11-20

excel-vba-编程难点-版主高手实例集锦_第1页
excel-vba-编程难点-版主高手实例集锦_第2页
excel-vba-编程难点-版主高手实例集锦_第3页
excel-vba-编程难点-版主高手实例集锦_第4页
excel-vba-编程难点-版主高手实例集锦_第5页
excel-vba-编程难点-版主高手实例集锦_第6页
excel-vba-编程难点-版主高手实例集锦_第7页
excel-vba-编程难点-版主高手实例集锦_第8页
excel-vba-编程难点-版主高手实例集锦_第9页
excel-vba-编程难点-版主高手实例集锦_第10页
资源描述:

《excel-vba-编程难点-版主高手实例集锦》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库

1、1.,常用的、带解释的VBA短句by:yuhongpuhttp://club.excelhome.net/dispbbs.asp?boardID=2&ID=169024&page=1&px=0VBA起步]常用的、带解释的VBA短句[A65536].End(xlUp).Row'A列末行向上第一个有值的行数[A1].End(xlDown).Row'A列首行向下第一个有值之行数[IV1].End(xlToLeft).Column'第一行末列向左第一列有数值之列数。[A1].End(xlToRight).Column'第一行首列向右有连续值的末列之列数A

2、pplication.CommandBars("Standard").Controls(2).BeginGroup=True'在常用工具栏的第二个按钮前插入分隔符Cells.WrapText=False'取消自动换行IfLen(Target)>5Then'如果当前单元格中的字符数超过5个,执行下一行Target.WrapText=True'自动换行EndIf[A1:B10].SpecialCells(xlCellTypeBlanks).Rows.Hidden=True'有空格即隐藏行[A2].parent.name'返回活动单元格的工作表名[A2

3、].parent.parent.name'返回活动单元格的工作簿名如下代码可使工作簿打开后30秒(或闲置30秒)内不输入、不重新选择等,自动关闭工作簿PrivateSubWorkbook_Open()'工作簿打开事件tt'工作簿打开时启动tt过程EndSubPrivateSubWorkbook_SheetChange(ByValShAsObject,ByValTargetAsRange)'工作表变化事件tt'工作表中任一单元格有变化时启动tt过程EndSubPrivateSubWorkbook_SheetSelectionChange(ByVal

4、ShAsObject,ByValTargetAsRange)'工作表选择变化事件tt'工作表中单元格的选择有变化时启动tt过程EndSubSubtt()'tt过程DimmyNowAsDate,BLAsInteger'定义myNow为日期型;定义BL为长整型myNow=Now'把当前的时间赋给变量myNowDo'开始循环语句DoBL=Second(Now)-Second(myNow)'循环中不断检查变量BL的值IfBL=30ThenGoToCl'当BL=30即跳转到CLDoEvents'转让控制权,以便sheets可继续操作LoopUntilBL>

5、30'当BL>30即跳出循环ExitSubCl:Application.EnableEvents=False'避免引起其他事件ActiveWorkbook.CloseTrue'关闭活动工作簿并保存Application.EnableEvents=True'可触发其他事件EndSubrange("e4").addcomment.Text"代头"&Chr(10)&"内容……"'添加批注range("e4").Comment.Visible=True'显示批注把工作簿中所有工作表的指定列调整为最佳列宽:Sub调整列宽()Dimi%Fori=1ToShe

6、ets.Count'遍历工作簿中所有的工作表Sheets(i).Columns("A:K").AutoFit'把每个工作表的[A:K]列调整为最佳列宽NextiEndSubDo循环语句的几种形式:1.DoWhilei>1'条件为True时执行......'要执行的语句Loop2.DoUntili>1'条件为False时执行......'要执行的语句Loop3.Do......'要执行的语句LoopWhilei>1'条件为True时执行4.Do......'要执行的语句LoopUntili>1'条件为False时执行5.While...Wend语句

7、Whilei>1'条件为True时执行......'要执行的语句Wend勾选"VBA项目的信任"Application.SendKeys"%(tmstv){ENTER}"'在Excel窗口操作Application.SendKeys"%(qtmstv){ENTER}"'在VBE窗口操作Application.CommandBars("命令按钮名称").Position=msoBarFloating'使[命令按钮]悬浮在表格中Application.CommandBars("命令按钮名称").Position=msoBarTop'使[命令按钮]排列

8、在工具栏中ActiveSheet.protectPassword:="wshzw"'为工作表保护加口令ActiveSheet.Unpro

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。