常用VBA代码语句写真121
大家好，很多朋友都在期待这类的语句集锦，是的，这类语句对自己写代码十分有益，今日就再次推送这类文章。
121 ActiveWorkbook.Path 返回当前工作簿的路径
122 ThisWorkbook.Saved 工作簿存储
123 ActiveWorkbook.Saved 工作簿存储值
124 Application.Visible = False 隐藏工作簿
125 Application.Visible = True 显示工作簿
126 ActiveSheet.Columns("B").Insert 在A列右侧插入列，即插入B列
127 ActiveSheet.Columns("E").Cut
ActiveSheet.Columns("B").Insert 以上两句将E列数据移至B列，原B列及以后的数据相应后移
128 ActiveSheet.Columns("B").Cut
ActiveSheet.Columns("E").Insert 以上两句将B列数据移至D列，原C列和D列数据相应左移一列
129 ThisWorkbook.Worksheets(“sheet1”).Visible=xlSheetHidden 隐藏工作表
130 ThisWorkbook.Worksheets(“sheet1”).Visible=xlSheetVeryHidden 隐藏工作表，不能通过在Excel菜单中选择“格式——工作表——取消隐藏”来重新显示工作表
131 ThisWorkbook.Worksheets(“sheet1”).Visible=xlSheetVisible 显示被隐藏的工作表
132 ThisWorkbook.Sheets(1).ProtectContents 保护工作表
133 ThisWorkbook.Worksheets.Add Count:=2, Before:=ThisWorkbook.Worksheets(2)
在第二个工作表之前添加两个新的工作表
134 ThisWorkbook.Workshees.Add ThisWorkbook.Worksheets(2), , 2 在第二个工作表之前添加两个新的工作表
135 ThisWorkbook.Worksheets(3).Copy 复制一个工作表到新的工作簿
136 ThisWorkbook.Worksheets(3).Copy ThisWorkbook.Worksheets(2) 复制第三个工作表到第二个工作表之前
137 ThisWorkbook.ActiveSheet.Columns.ColumnWidth = 20 改变工作表的列宽为20
138 ThisWorkbook.ActiveSheet.Columns.ColumnWidth=ThisWorkbook.ActiveSheet.StandardWidth 将工作表的列宽恢复为标准值
139 ThisWorkbook.ActiveSheet.Columns(1).ColumnWidth = 20 改变工作表列1的宽度为20
140 ThisWorkbook.ActiveSheet.Rows.RowHeight = 10 改变工作表的行高为10
141 ThisWorkbook.ActiveSheet.Rows.RowHeight = ThisWorkbook.ActiveSheet.StandardHeight 将工作表的行高恢复为标准值
142 ThisWorkbook.ActiveSheet.Rows(1).RowHeight = 10 改变工作表的行1的高度值设置为10
143 ThisWorkbook.Worksheets(1).Activate 当前工作簿中的第一个工作表被激活
144 ThisWorkbook.Worksheets("Sheet1").Rows(1).Font.Bold = True 设置工作表Sheet1中的行1数据为粗体
145 ThisWorkbook.Worksheets("Sheet1").Rows(1).Hidden = True 将工作表Sheet1中的行1隐藏
144 ActiveCell.EntireRow.Hidden = True 将当前工作表中活动单元格所在的行隐藏
145 ActiveSheet.Range(“A:A”).EntireColumn.AutoFit 自动调整当前工作表A列列宽
146 ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlTextValues) 选中当前工作表中常量和文本单元格
147 ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlErrors+xlTextValues) 选中当前工作表中常量和文本及错误值单元格
148 Application.WorksheetFunction.CountA(Range(“A:A”))+1 获取A列的下一个空单元格
149 WorksheetFunction.CountA(Cell.EntireColumn) 返回该单元格所在列非空单元格的数量
150 WorksheetFunction.CountA(Cell.EntireRow) 返回该单元格所在行非空单元格的数量