vba语句解释63145

《vba语句解释63145》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、vba语句解释63145Application.CommandBars("命令按钮名称").Position=msoBarFloating'使[命令按钮]悬浮在表格中Application.CommandBars("命令按钮名称").Position=msoBarTop'使[命令按钮]排列在工具栏中ActiveSheet.protectPassword:="wshzw"'为工作表保护加口令ActiveSheet.UnprotectPassword:="wshzw"'解除工作表保护Activesheet.ProtectContents'判断

2、工作表是否处于保护状态Subwshzw()DimiAsIntegerFori=1To5Sheets("Sheet1").CopyAfter:=Sheets(1)'Before/After复制新表在Sheets("Sheet1")前/后ActiveSheet.Name=i&"月"'为复制的新表命名NextiSheets("Sheet1").Name="总表"'为Sheets("Sheet1")改名EndSubApplication.EnableEvents=False......Application.EnableEvents=True'抑

3、制事件连锁执行Application.DisplayAlerts=False'屏蔽确认提示Application.ScreenUpdating=False.......Application.ScreenUpdating=true'冻结屏幕以加快程序运行ActiveCell.CurrentRegion.Select'选择与活动单元格相连的区域range("a2:a20").NumberFormatLocal="00-00"'区域的格式化ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).R

4、ow'已用区域的最末行ActiveSheet.CopyBefore:=Sheets(1)'复制活动工作表到第一张工作表之前range("a2:a20").FormulaHidden=True'工作表处于保护状态时隐藏部分单元格公式FileDateTime("E:MyDocuments33.xls")或FileDateTime(thisworkbook.FullName)'文件被创建或最后修改后的日期和时间FileLen(thisworkbook.FullName)/1024或FileLen("E:MyDocumentstemp3

5、3.xls")/1024'文件的长度(大小),单位是KBApplication.AskToUpdateLinks=False'不询问是否更新链接,并自动更新链接ActiveSheet.Hyperlinks.Delete'删除活动工作表超链接ActiveWorkbook.SaveLinkValues=False'不保存活动工作簿的外部链接值ActiveSheet.PageSetup.CenterFooter=Range("k2").Value'打印时设置自定义页脚ActiveSheet.PageSetup.Orientation=xlLan

6、dscape'设置为横向打印ActiveSheet.PageSetup.Orientation=xlPortrait'设置为纵向打印Application.WindowState=xlMinimized'最小化窗口Application.WindowState=xlNormal'最大化窗口[A65536].End(xlUp).Row'A列末行向上第一个有值的行数[A1].End(xlDown).Row'A列首行向下第一个有值之行数[IV1].End(xlToLeft).Column'第一行末列向左第一列有数值之列数。[A1].End(xl

7、ToRight).Column'第一行首列向右有连续值的末列之列数Cells.WrapText=False'取消自动换行IfLen(Target)>5Then'如果当前单元格中的字符数超过5个,执行下一行Target.WrapText=True'自动换行EndIf[A1:B10].SpecialCells(xlCellTypeBlanks).Rows.Hidden=True'有空格即隐藏行[A2].parent.name'返回活动单元格的工作表名[A2].parent.parent.namerange("e4").addcomment.T

8、ext"代头"&Chr(10)&"内容……"'添加批注range("e4").Comment.Visible=True'显示批注Sub调整列宽()Dimi%Fori=1ToSheets.Cou