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

《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