转载

 

 

1、Option Explicit ‘强制对模块内装有变量举行宣示

Option Private Module
‘标记模块为私有,仅对相同工程被其他模块出因而,在宏对话框中莫出示

Option Compare Text ‘字符串不分轻重缓急写

Option Base 1 ‘指定数组的首先单下标为 1

2、On Error Resume Next ‘忽略错误继续执行 VBA代码,避免出现错误信息

3、On Error GoTo ErrorHandler ‘当错误爆发时越反至过程遭到之之一地点

4、On Error GoTo 0 ‘復苏正常的缪提醒

5、Application.DisplayAlerts=False ‘在程序执行过程中要出现的警示框不显得

6、Application.ScreenUpdating=False ‘关闭屏幕刷新

Application.ScreenUpdating=True ‘打开屏幕刷新

7、Application.Enable.CancelKey=xlDisabled ‘禁用 Ctrl+Break
中止宏运行的职能

8、 Workbooks.Add() ‘制造一个新的工作簿

9、Workbooks(“book1.xls”).Activate ‘激活名为 book1之工作簿

10、ThisWorkbook.Save ‘保存工作簿

11、ThisWorkbook.close ‘关闭当前工作簿

12、ActiveWorkbook.Sheets.Count ‘获取活动工作薄中工作表数

13、ActiveWorkbook.name  ‘重返活动工作薄的称号

14、ThisWorkbook.Name ‘重返当前工作簿名称

ThisWorkbook.FullName ‘重返当前工作簿路径和称号

15、ActiveWindow.EnableResize=False ‘禁止调整活动工作簿的高低

16、Application.Window.Arrange xlArrangeStyleTiled
‘将工作簿以平铺模式排列

17、ActiveWorkbook.WindowState=xl马克斯(Max)imized ‘将当前工作簿最大化

18、ActiveSheet.UsedRange.Rows.Count ‘当前工作表中既运的行数

19、Rows.Count ‘获取工作表的行数(注:考虑向前兼容性)

20、Sheets(Sheet1).Name= “Sum” ‘将 Sheet1命名为 Sum

21、ThisWorkbook.Sheets.Add Before:=Worksheets(1)
‘添加一个新工作表达在首先工作表前

22、ActiveSheet.Move After:=ActiveWorkbook. _

Sheets(ActiveWorkbook.Sheets.Count) ‘将当前工作表变至工作表的最后

23、Worksheets(Array(“sheet1″,”sheet2”)).Select ‘同时接纳工作表
1暨办事表 2

24、Sheets(“sheet1”).Delete或 Sheets(1).Delete ‘删除工作表 1

25、ActiveWorkbook.Sheets(i).Name ‘获取工作表 i的名

26、ActiveWindow.DisplayGridlines=Not ActiveWindow.DisplayGridlines

切换工作表中的网格线显示,这种办法呢堪用在其余地点开展交互切换,即一定给开关按钮

27、ActiveWindow.DisplayHeadings=Not ActiveWindow.DisplayHeadings 

‘切换工作表中的队边框呈现

28、 ActiveSheet.UsedRange.FormatConditions.Delete
‘删除当前工作表中持有的条件格式

29、Cells.Hyperlinks.Delete ‘撤废当前工作表有超链接

30、ActiveSheet.PageSetup.Orientation=xlLandscape 

仍旧 ActiveSheet.PageSetup.Orientation=2 ‘将页面设置更改为横向

31、ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName
‘在页面设置的表尾中输入文件路径

ActiveSheet.PageSetup.LeftFooter=Application.UserName
‘将用户称放置于走工作表的页脚

32、ActiveCell.CurrentRegion.Select 

或者 Range(ActiveCell.End(xlUp),ActiveCell.End(xlDown)).Select 
‘选用时运动单元格所涵盖的界定,上下横凭空行

33、Cells.Select ‘选定当前工作表底持有单元格

34、Range(“A1”).ClearContents ‘清除活动工作表上单元格 A1受的情节

Selection.ClearContents ‘清除选定区域内容

Range(“A1:D4”).Clear ‘彻底清除 A1暨 D4 单元格区域之情节,包括格式

35、Cells.Clear ‘清除工作表中所有单元格的内容

36、ActiveCell.Offset(1,0).Select ‘活动单元格下换一实践,同理,可下转移一列

37、Range(“A1”).Offset(ColumnOffset:=1)或 Range(“A1”).Offset(,1)
‘偏移一排

Range(“A1”).Offset(Rowoffset:=-1)或 Range(“A1”).Offset(-1) ‘向上偏移一行

38、Range(“A1”).Copy Range(“B1”) ‘复制单元格 A1,粘贴到单元格 B1中

Range(“A1:D8”).Copy Range(“F1”) ‘将单元格区域复制到单元格 F1开头之区域受到

Range(“A1:D8”).Cut Range(“F1”) ‘剪切单元格区域 A1届 D8,复制到单元格
F1始的区域受到

Range(“A1”).CurrentRegion.Copy Sheets(“Sheet2”).Range(“A1”) ‘复制包含 A1
的单独元格区域及工作表 2被以 A1打起头的独自元格区域被

注:CurrentRegion属性等价于定位命令,由一个矩形单元格块组成,周围凡是一个依然多单空行或列

39、ActiveWindow.RangeSelection.Value=XX ‘将值 XX 输入到所选单元格区域中

40、ActiveWindow.RangeSelection.Count ‘活动窗口中甄选的单元格数

41、Selection.Count ‘当前入选区域的单元格数

42、GetAddress=Replace(Hyperlinkcell.Hyperlinks(1).Address,mailto:,””)
‘重临单元格中一级链接的地点并赋值

43、TextColor=Range(“A1”).Font.ColorIndex ‘检查单元格
A1底公文颜色并赶回颜色索引 ,Range(“A1”).Interior.ColorIndex ‘获取单元格
A1坐景象

44、cells.count ‘再次来到当前工作表底单元格数

45、Selection.Range(“E4”).Select ‘激活当前移动单元格下方 3实践,向右边4排的光元格

46、Cells.Item(5,”C”) ‘引单元格 C5  Cells.Item(5,3) ‘引单元格 C5

47、Range(“A1”).Offset(RowOffset:=4,ColumnOffset:=5)

或 Range(“A1”).Offset(4,5) ‘指定单元格 F5

48、Range(“B3”).Resize(RowSize:=11,ColumnSize:=3)、Rnage(“B3”).Resize(11,3)
‘创建 B3:D13 区域

49、Range(“Data”).Resize(,2) ‘将 Data 区域扩大 2列

50、Union(Range(“Data1”),Range(“Data2”)) ‘将 Data1 和 Data2 区域连续

51、Intersect(Range(“Data1”),Range(“Data2”)) ‘重回 Data1 和 Data2
区域的接力区域

52、Range(“Data”).Count ‘单元格区域Data 中之单元格数

Range(“Data”). Columns.Count ‘单元格区域 Data 中之列数

Range(“Data”). Rows.Count ‘单元格区域 Data 中之行数

53、Selection.Columns.Count ‘当前相中的独自元格区域受到的列数

Selection.Rows.Count ‘时当选的唯有元格区域中的行数

54、Selection.Areas.Count ‘选中的无非元格区域所富含的区域屡

55、ActiveSheet.UsedRange.Row  ‘获取单元格区域被应用的第一履行的行号

56、Rng.Column ‘获取单元格区域 Rng 左上斗单元格所在列编号

57、ActiveSheet.Cells.SpecialCells(xlCellTypeAllFormatConditions)
‘在运动工作表明中归所有符合条件格式设置的区域

58、Range(“A1”).AutoFilter Field(Field):=3,VisibleDropDown:=False
‘关闭由于举行机关筛选命令爆发的第 3个字段的下拉列表

59、Range(“A1:C3″).Name=”computer” ‘命名 A1:C3 区域为 computer

或 Range(“D1:E6″).Name=”Sheet1!book” ‘命名局部变量,即 Sheet1达标区域
D1:E6吧 book 或 Names(“computer”).Name=”robot” ‘将区域 computer
重命名为 robot

60、Names(“book”).Delete ‘删除名称

61、Names.Add Name:=

“ContentList”,RefersTo:=”=OFFSET(Sheet1!A2,0,0,COUNTA(Sheet2!$A:$A))”
‘动态命名列

62、Names.Add Name:=”Company”,RefersTo:=”CompanyCar” ‘命名字符串
CompanyCar

63、Names.Add Name:=”Total”,RefersTo:=123456 ‘将数字 123456 命名吧
Total。注意数字不克加引号,否则就是是命名字符串了。

64、 Names.Add Name:=”MyArray”,RefersTo:=ArrayNum ‘将数组 ArrayNum
命名为 MyArray。

65、 Names.Add Name:=”ProduceNum”,RefersTo:=”=$B$1″,Visible:=False
‘将称隐藏

66、ActiveWorkbook.Names(“Com”).Name ‘重临名称字符串

67、Application.WorksheetFunction.IsNumber(“A1”) ‘使用工作表函数检查
A1单元格中之数据是否为数字

68、Range(“A:A”).Find(Application.Worksheet

Function.Max(Range(“A:A”))).Activate 

‘激活单元格区域 A 列中尽丰硕价值的但元格

69、Cells(8,8).FormulaArray=”=SUM(R2C[-1]:R[-1]C[-1]*R2C:R[-1]C)”
‘在单元格中输入数组公式。注意要下 R1C1 样式的表明式

70、ActiveSheet.ChartObjects.Count ‘获取当前工作表中图纸的个数

71、ActiveSheet.ChartObjects(“Chart1”).Select ‘选中当前工作表中图纸
Chart1

72、 ActiveSheet.ChartObjects(“Chart1”).Activate

ActiveChart.ChartArea.Select ‘选中时图区域

73、WorkSheets(“Sheet1”).ChartObjects(“Chart2”).Chart.

ChartArea.Interior.ColorIndex=2 ‘更改工作表达中图纸的图表区的颜色

74、Sheets(“Chart2”).ChartArea.Interior.ColorIndex=2
‘更改图表工作表达中图表区的颜色

75、Charts.Add ‘添加新的图片工作表

76、ActiveChart.SetSourceData

Source:=Sheets(“Sheet1”).Range(“A1:D5”),PlotBy:=xlColumns
‘指定图表数据源并按列排列

77、ActiveChart.Location Where:=xlLocationAsNewSheet
‘新图作为新图片工作表

78、 ActiveChart.PlotArea.Interior.ColorIndex=xlNone
‘将绘图区颜色变为白色

79、WorkSheets(“Sheet1”).ChartObjects(1).Chart.Export

FileName:=”C:MyChart.gif”,FilterName:=”GIF” ‘将图片 1 导出至 C
盘上并取名为MyChart.gif 

80、 MsgBox “Hello!” ‘信息框中显示音信 Hello

81、Ans=MsgBox(“Continue?”,vbYesNo) ‘在音讯框中点击”是”按钮,则 Ans 值为
vbYes;点击”否”按钮,则 Ans 值为 vbNo。

If MsgBox(“Continue?”,vbYesNo)<>vbYes Then Exit Sub
‘重回值不也”是”,则退

82、Config=vbYesNo+vbQuestion+vbDefaultButton2 ‘使用常量的三结合,赋值组
Config变量,并安装第二单按钮为少省按钮 

83、 MsgBox “This is the first line.” & vbNewLine & “Second line.”
‘在消息框中强制换行,可用vbCrLf 代替 vbNewLine。

84、MsgBox “the average is
:”&Format(Application.WorksheetFunction.Average

(Selection),”#,##0.00″),vbInformation, “selection count average” &
Chr(13) ‘应用工作表函数回所拔取区域之平均值并循指定格式显示

85、Userform1.Show ‘来得用户窗体

86、Load Userform1 ‘加载一个用户窗体,但欠窗体处于隐藏状态

87、Userform1.Hide ‘潜藏用户窗体

88、Unload Userform1 要 Unload Me ‘卸载用户窗体

89、(图像控件).Picture=LoadPicture(“图像路径”) ‘在用户窗体中呈现图形

90、UserForm1.Show 0 或 UserForm1.Show vbModeless
‘以窗体设置也无格局状态

91、Me.Height=Int(0.88*ActiveWindow.Height)
‘窗体中度也当前走窗口中度的 0.88

Me.Width=Int(0.88*ActiveWindow.Width) ‘窗体宽度为近年来移动窗口中度的
0.88

92、Application.Enable伊夫(Eve)nts=False ‘禁用所有事件

Application.Enable伊芙(Eve)nts=True ‘启用所有事件

横流:不适用于用户窗体控件触发的事件

93、Set ExcelSheet = CreateObject(“Excel.Sheet”) ‘创立一个 Excel
工作表对象

ExcelSheet.Application.Visible = True ‘设置 Application 对象使 Excel
可见

ExcelSheet.Application.Cells(1, 1).Value = “Data”
‘在表的首先独单元中输入文本

ExcelSheet.SaveAs “C:\TEST.XLS” ‘将拖欠表保存及 C:\test.xls 目录

ExcelSheet.Application.Quit ‘关闭 Excel

Set ExcelSheet = Nothing ‘释放该对象变量

94、表明并创设一个 Excel 对象引用  

Dim xlApp As Excel.Application 

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.WorkSheet

Set xlApp = CreateObject(“Excel.Application”)

Set xlBook = xlApp.Workbooks.Add

Set xlSheet = xlBook.Worksheets(1)

95、成立并传递一个 Excel.Application 对象的援

Call MySub (CreateObject(“Excel.Application”)) 

96、Set d = CreateObject(Scripting.Dictionary) ‘创立一个 Dictionary
对象变量

97、d.Add “a”, “Athens” ‘为目的变量添加要字与条款

98、Application.OnKey “^I”,”macro” ‘设置 Ctrl+I 键为 macro 过程的连忙键

99、 Application.CutCopyMode=False ‘退出剪切/复制格局

100、Application.Volatile True
‘无论什么时候工作表中任意单元格重新总结,都会合强制总括该函数

Application.Volatile False
‘只有在拖欠函数的一个要多独参数有改变时,才晤面又总结该函数

101、Err.Clear ‘清除程序运行过程中存有的不当

102、ThisWorkbook.BuiltinDocumentProperties(“”Last Save Time”)

还是 Application.Caller.Parent.Parent.BuiltinDocumentProperties(“”Last
Save 提姆e”) ‘再次回到上次封存工作簿的日子与日

103、 ThisWorkbook.BuiltinDocumentProperties(“Last Print Date”)

或 Application.Caller.Parent.Parent.BuiltinDocumentProperties(“”Last
Print Date”) ‘重返上次打印或预览工作簿的日子与岁月

104、Workbooks.Close ‘关闭所有打开的工作簿

105、 ActiveWorkbook.LinkSources(xlExcelLinks)(1)
‘重临当前工作簿中之首先长达链接

106、ActiveWorkbook.CodeName

ThisWorkbook.CodeName  ‘重回工作簿代码的号

107、ActiveWorkbook.FileFormat 

ThisWorkbook.FileFormat  ‘重回当前工作簿文件格式代码

108、ThisWorkbook.Path

ActiveWorkbook.Path ‘再次来到当前工作簿的门径(注:若工作簿未保存,则为空)

109、ThisWorkbook.ReadOnly

ActiveWorkbook.ReadOnly ‘再次来到当前工作簿的读/写值(为 False)

110、ThisWorkbook.Saved

ActiveWorkbook.Saved ‘再次来到工作簿的存储值(若曾保存则为 False)

111、Application.Visible = False ‘藏工作簿

Application.Visible = True ‘显得工作簿

横流:可及用户窗体配合下,即在开辟工作簿时将工作簿隐藏,只体现用户窗体.可设置控制按钮控制工作簿可见

112、ActiveSheet.Columns(“B”).Insert ‘在A 列左侧插入列,即插 B 列

ActiveSheet.Columns(“E”).Cut

ActiveSheet.Columns(“B”).Insert  ‘以上两句子以 E 列数据易至 B 列,原 B
列及事后的数码对应后更换

ActiveSheet.Columns(“B”).Cut

ActiveSheet.Columns(“E”).Insert ‘以上两词以 B列数据易至 D列,原 C列和
D列数据对应左移一排列

113、ActiveSheet.Calculate ‘统计当前工作表

114、ThisWorkbook.Worksheets(“”sheet1”).Visible=xlSheetHidden
‘正常隐藏工作表,同在 Excel 菜单中采取””格式——工作表——隐藏”操作一样

ThisWorkbook.Worksheets(“”sheet1”).Visible=xlSheetVeryHidden
‘隐藏工作表,不可知由此在 Excel
菜单中拔取””格式——工作表——撤废隐藏”来又突显工作表

ThisWorkbook.Worksheets(“”sheet1”).Visible=xlSheetVisible
‘突显为埋伏的工作表

115、ThisWorkbook.Sheets(1).ProtectContents ‘检查工作表是否碰到怜惜

116、ThisWorkbook.Worksheets.Add Count:=2, Before:=

ThisWorkbook.Worksheets(2) 

抑或 ThisWorkbook.Workshees.Add ThisWorkbook.Worksheets(2), , 2 
‘在次只工作表在此之前添加少独新的工作表

117、ThisWorkbook.Worksheets(3).Copy ‘复制一个工作表到新的工作簿

118、 ThisWorkbook.Worksheets(3).Copy ThisWorkbook.Worksheets(2)
‘复制第三单办事表达到第二只工作表从前

119、ThisWorkbook.ActiveSheet.Columns.ColumnWidth = 20 ‘

反工作表的列宽为 20

ThisWorkbook.ActiveSheet.Columns.ColumnWidth =
ThisWorkbook.ActiveSheet.StandardWidth ‘将工作表的列宽恢复生机为标准值

ThisWorkbook.ActiveSheet.Columns(1).ColumnWidth = 20 ‘改变工作表列
1的增长率为 20

120、ThisWorkbook.ActiveSheet.Rows.RowHeight = 10 ‘改变工作表的行高为 10

ThisWorkbook.ActiveSheet.Rows.RowHeight =
ThisWorkbook.ActiveSheet.StandardHeight ‘将工作表的行高恢复生机也标准值

ThisWorkbook.ActiveSheet.Rows(1).RowHeight = 10 ‘改变工作表的行
1的低度值设置为 10

121、ThisWorkbook.Worksheets(1).Activate
‘当前工作簿中的率先个工作表被激活

122、ThisWorkbook.Worksheets(“Sheet1”).Rows(1).Font.Bold = True
‘设置工作表Sheet1中之行1数据吧粗体

123、ThisWorkbook.Worksheets(“Sheet1”).Rows(1).Hidden = True
‘将工作表Sheet1饱受之行1隐藏

ActiveCell.EntireRow.Hidden = True ‘将当前工作表中活动单元格所当的尽隐藏

横流:同样可用于列。

124、ActiveSheet.Range(“”A:A”).EntireColumn.AutoFit ‘自动调整当前工作表
A 列列宽

125、ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlTextValues)
‘选中当前工作表中常量和文件单元格

ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlErrors+xlTextValues)
‘选中当前工作表中常量和文书和左值单元格

126、Application.MacroOptions Macro:=”SumPro”,Category:=4 ‘将从定义的
SumPro 函数指定给Excel 中之””总计函数”序列

127、Application.MacroOptions Macro:=”SumPro”, Description:=”First
Sum,then Product” ‘为自定义函数 SumPro 举行了成效表达

128、Application.WorksheetFunction.CountA(Range(“”A:A”))+1 ‘获取 A
列的下一个空单元格

129、WorksheetFunction.CountA(Cell.EntireColumn)
‘再次来到该单元格所在列非空单元格的数额

WorksheetFunction.CountA(Cell.EntireRow)
‘重临该单元格所于行非空单元格的数据

130、WorksheetFunction.CountA(Cells) ‘再次来到工作表中非空单元格数量

131、ActiveSheet.Range(“”A20:D20”).Formula=””=Sum(R[-19]C:R[-1]C”’对
A 列至 D列前 19个数值求和

132、ActiveWindow.Visible=False 

抑或 ActiveChart.Deselect ‘使图表处于无活动状态

133、TypeName(Selection)=”Chart” ‘若选中的为图,则该语句也确实,否则也假

134、ActiveSheet.ChartObjects.Delete ‘删除工作表上所有的 ChartObject对象

ActiveWorkbook.Charts.Delete ‘删除当前工作簿中所有的图形工作表

135、UserForms.Add(MyForm).Show ‘添加用户窗体 MyForm 并显示

136、TextName.SetFocus ‘设置文本框获取输入核心

137、SpinButton1.Value=0 ‘将数值调节钮控件的值改也 0

138、TextBox1.Text=SpinButton1.Value
‘用数值调节钮控件的价赋值给文本框控件

SpinButton1.Value=Val(TextBox1.Text) ‘将文本框控件值赋给数值调节钮控件

CStr(SpinButton1.Value)=TextBox1.Text ‘数值调节钮控件和文本框控件相较

139、UserForm1.Controls.Count ‘著窗体 UserForm1 及的控件数目

140、ListBox1.AddItem “”Command1” ‘在列表框中上加 Command1

141、ListBox1.ListIndex
‘再次来到列表框中条目标值,若否-1,则注解无当选任何列表框中的条文

142、 RefEdit1.Text ‘回代表单元格区域地址的文本字符串

RefEdit1.Text=ActiveWindow.RangeSelection.Address ‘开端化 RefEdit
控件呈现当前所挑选单元格区域

Set FirstCell=Range(RefEdit1.Text).Range(“”A1”)
‘设置有单元格区域左上角单元格

143、Application.On提姆e Now + 提姆eValue(“00:00:15”), “myProcedure” ‘等待
15 秒后运行 myProcedure过程

144、ActiveWindow.ScrollColumn=ScrollBarColumns.Value ‘
将滚动条控件的值赋值给ActiveWindow 对象的 ScrollColumn 属性

ActiveWindow.ScrollRow=ScrollBarRows.Value
‘将滚动条控件的值赋值给ActiveWindow对象的ScrollRow 属性

145、UserForm1.ListBox1.AddItem Sheets(“”Sheet1”).Cells(1,1) ‘将单元格
A1 中的数量增长到列表框中

ListBox1.List=Product ‘将一个称作也 Product 数组的价加加到 ListBox1 中

ListBox1.RowSource=”Sheet2!SumP” ‘使用工作表Sheet2中之 SumP
区域之值填充列表框

146、ListBox1.Selected(0)
‘选中列表框中之首个条文(注:当列表框允许同一浅入选多单条款时,必须动Selected属性)

147、ListBox1.RemoveItem ListBox1.ListIndex ‘移除列表框中当选的条文

148、Application.UserName ‘再次来到应用程序的用户称

149、Application.Caller ‘再次来到代表调用函数的独自元格

150、Application.Caller.Parent.Parent ‘再次回到调用函数的工作簿名称

151、Application.StatusBar=”请等……” ‘将文件写到状态栏

Application.StatusBar=”请等……” & Percent & “”% Completed”
‘更新状态栏文本,以变量Percent 代表就的比例

Application.StatusBar=False ‘将状态栏还安装成健康状态

152、Application.Goto Reference:=Range(“”A1:D4″) ‘指定单元格区域 A1暨
D4,等同于选取””编辑——定位”,指定单元格区域啊 A1届
D4,不会师产出””定位”对话框

153、Application.Dialogs(xlDialogFormulaGoto).Show
‘显示””定位”对话框,但一定法按钮无效

154、Application.Dialogs(xlDialogSelectSpecial).Show
‘显示””定位法”对话框

155、Application.Dialogs(xlDialogFormatNumber).show
‘展现””单元格格式”中的””数字”选项卡

Application.Dialogs(xlDialogAlignment).show
‘呈现””单元格格式”中之””对旅”选项卡

Application.Dialogs(xlDialogFontProperties).show
‘展现””单元格格式”中的””字体”选项卡

Application.Dialogs(xlDialogBorder).show
‘显示””单元格格式”中之””边框”选项卡

Application.Dialogs(xlDialogPatterns).show
‘展现””单元格格式”中的””图案”选项卡

Application.Dialogs(xlDialogCellProtection).show
‘显示””单元格格式”中之””保养”选项卡

横流:无法等同不成呈现带选项卡的””单元格格式”对话框,只可以一坏映现一个选项卡。

156、Application.Dialogs(xlDialogFormulaGoto).show Range(“b2”), True
‘呈现””引用地方”的默认单元格区域并显示引用使其现出在窗口左上角(注:内置对话框参数的动)

157、Application.CommandBars(1).Controls(2).Controls(16).Execute
‘执行””定位”话框,分外给选拔菜单””编辑——定位”命令

158、Application.Transpose(Array(“”Sun”,”Mon”,”Tur”,”Wed”,”Thu”,”Fri”,”Sat”))
‘再次回到一个直的数组

159、Application.Version ‘再次回到下的 Excel 版本号

160、Application.Cursor = xl诺思(North)westArrow ‘设置光标形状也北西向阳箭头

Application.Cursor = xlIBeam ‘设置光标形状也Ⅰ字形

Application.Cursor = xlWait ‘设置光标形状为沙漏(等待)形

Application.Cursor = xlDefault ‘复苏光标的默认设置

161、Application.WindowState ‘重返窗口当前底状态

Application.WindowState = xlMinimized ‘窗口最小化

Application.WindowState = xl马克斯imized ‘窗口最大化

Application.WindowState = xlNormal ‘窗口正常状态

162、Application.UsableHeight ‘获取当前窗口的惊人

Application.UsableWidth ‘获取当前窗口的升幅

163、Application.ActiveCell.Address
‘重临活动单元格的地方(注:再次回到的凡绝地址)

164、Application.ActivePrinter ‘重返时打印机的名称

165、Application.ActiveSheet.Name ‘再次回到活动工作表的名目

166、Application.ActiveWindow.Caption ‘再次来到活动窗口的标题

167、Application.ActiveWorkbook.Name ‘重返活动工作簿的称谓

168、Application.Selection.Address ‘重临所挑选区域的地址

169、Application.ThisWorkbook.Name ‘再次回到当前工作簿的名称

170、Application.CalculationVersion ‘重临Excel统计引擎版本(右侧三个数字)及 Excel 版本(左侧两员数字)

171、Application.MemoryFree
‘因字节为单位重回Excel允许下的外存数(不包已选取的内存)

172、Application.MemoryUsed ‘以字节为单位再次来到 Excel 当前使用的外存数

173、Application.MemoryTotal ‘为字节为单位再次回到 Excel
可以以的内存数(包括曾经运用的内存,是MemoryFree和 MemoryUsed 的总额)

174、Application.OperatingSystem ‘重回所使用的操作系统的名目与本子

175、Application.OrganizationName ‘再次回到Excel产品注册以的社机关的称呼

176、Application.FindFormat ‘查找的格式体系

Application.ReplaceFormat ‘替换查找到的始末的格式类别

ActiveSheet.Cells.Replace What:=” “”, Replacement:=” “”,SearchFormat:=

True,ReplaceFormat:=True ‘替换查找到的格式

177、Application.Interactive=False ‘忽略键盘或鼠标的输入

178、Application.伊娃luate(“Rate”) ‘若当做事表中定义了常量 0.06
的名为”Rate”,则本语句以回值 0.06

179、Application.OnUndo “”Undo Option”,””Undo Procedure” ‘选择
UndoOption 后,将执行 Undo Procedure 过程

180、Range(A1:A10).Value=Application.WorksheetFunction.Transpose(MyArray)
‘将一个分包 10只因素的数组转置成垂直方向的劳作表单元格区域(A1暨 A10)

注:因为当把一维数组的始末传递给某单元格区域时,该单元格区域被之单元格必须是程度方向的,即含多排列的一行。若要动垂直方向的光元格区域,则要先以数组举办转置,成为垂直的。

181、Range(“”A65536”).End(xlUp).Row+1 ‘重回 A 列最后一行的下一行

182、rng.Range(“”A1”) ‘再次来到区域左上角的单独元格

183、cell.Parent.Parent.Worksheets ‘访问时单元格所当的工作簿

184、Selection.Font.Bold=Not Selection.Font.Bold ‘切换所挑选单元格是否加粗

185、ActiveSheet.Range(“A:B”).Sort Key1:=Columns(“B”),
Key2:=Columns(“A”), Header:=xlYes
‘三只关键字排序,相邻两列,B列为主关键字,A 列为次首要字,升序排列

186、cell.Range(“”A1”).NumberFormat
‘呈现单元格或单元格区域中的首先只单元格的数字格式

187、cell.Range(“”A1”).HasFormula
‘检查单元格或单元格区域被之率先只单元格是否带有公式

要么 cell.HasFormula ‘工作表明中单元格是否含有公式

188、Cell.EntireColumn ‘单元格所当的整列

Cell.EntireRow ‘单元格所当的整行

189、rng.Name.Name ‘显示 rng区域之号

190、rng.Address ‘再次来到 rng 区域之地址

191、cell.Range(“”A1”).Formula ‘再次来到包含在
rng区域被左上角单元格中之公式。

流动:若在一个由四只单元格组成的限制外动 Formula
属性,会拿走错误;若单元格中没公式,会取得一个字符串,在公式栏中显得该单元格的价。

192、Range(“”D5:D10”).Cells(1,1) ‘重返单元格区域 D5:D10 中左上角单元格

193、ActiveCell.Row ‘活动单元格所于的行数

ActiveCell.Column ‘活动单元格所于的列数

194、Range(“A1:B1”).HorizontalAlignment = xlLeft
‘当前工作表中之无非元格区域数据设置为左对伙同

195、ActiveSheet.Range(“”A2:A10″).NumberFormat=”#,##0”
‘设置单元格区域 A2顶 A10碰到数值格式

196、rng.Replace “” “”,”0″  ‘用 0替换单元格区域被的空单元格

197、Dim colMySheets As New Collection

Public colMySheets As New Collection  ‘阐明新的聚集变量

198、Set MyRange=Range(“”A1:A5”) ‘制造一个号称吧 MyRange 的对象变量

199、<object>.Add Cell.Value CStr(Cell.Value)
‘向集中上加惟一的条文(即将再一次的条文忽略)

200、Declare Function GetWindowsDirectoryA Lib “”kernel32” (ByVal
lpBuffer As String,ByVal nSize As Long) As Long ‘API 函数声称。再次来到安装
Windows 所在的目名称,调用该函数后,安装 Windows
的目名称将在率先单参数
lpBuffer中,该目录名称的字符串长度包含在其次个参数 nSize 中

201、Set objExcel =
CreateObject(“Excel.Application”)objExcel.Workbooks.Add ‘创建Excel
工作簿

202、Application.ActivateMicrosoftApp xlMicrosoftWord ‘开启Word应用程序

203、Application.TemplatesPath ‘获取工作簿模板的位置

204、Application.Calculation = xlCalculationManual ‘设置工作簿手动统计

Application.Calculation = xlCalculationAutomatic ‘工作簿自动测算

205、Worksheets(1).EnableCalculation = False
‘不针对第一张工作表自动举办重算

206、Application.CalculateFull ‘重新总结有所打开的工作簿中的数量

207、Application.RecentFiles.马克斯imum = 5 ‘将近期应用的文档列表数设为5

208、Application.RecentFiles(4).Open ‘打开近期开拓的文档中之第4单文档

209、Application.On提姆e
DateSerial(2006,6,6)+提姆eValue(“”16:16:16″),””BaoPo” 
‘在二〇〇六年1月6日之16:16:16起始运行BaoPo过程

210、Application.Speech.Speak (“Hello” & Application.UserName)
‘播放音响,并运用用户之全名问候用户

211、MsgBox Application.PathSeparator ‘获取”\”号

212、MsgBox Application.International(xlCountrySetting)
‘重返应用程序当前所于江山的安新闻

213、Application.AutoCorrect.AddReplacement “葛洲坝”, “三峡”
‘自动将在做事表明中开展输入的”葛洲坝”更正为”三峡”

214、Beep ‘让电脑发出声音

215、Err.Number ‘重返错误代码

216、MsgBox IMEStatus ‘得到输入法状态

217、Date = #6/6/2006#Time = #6:16:16 AM#
‘将系统时变更为二〇〇六年九月6日早晨6时16划分16秒

218、Application.RollZoom = Not Application.RollZoom
‘切换是否能利用鼠标中间的滑轮放大/收缩工作表

219、Application.ShowWindowsInTaskba = True
‘展现任务栏中之窗口,即各级工作簿占用各自的窗口

220、Application.DisplayScrollBars = True ‘显示窗口及的轮转条

221、Application.DisplayFormulaBar = Not Application.DisplayFormulaBar
‘切换是否出示编辑栏

222、Application.Dialogs(xlDialogPrint).Show ‘展现打印内容对话框

223、Application.MoveAfterReturnDirection = xlToRight
‘设置按Enter键后单元格的活动方向朝着右边

224、 Application.FindFile ‘展现打开对话框

225、ThisWorkbook.FollowHyperlink http://fanjy.blog.excelhome.net 
‘打开超链接文档,呵呵,作者的Blog

ThisWorkbook.FollowHyperlink http://www.excelba.com                
‘偶的小站*~_~*

226、ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
‘将当前工作簿设置也单纯念

227、ActiveWorkbook.AddToFavorites ‘将当前工作簿添加到收藏夹文件夹着

228、ActiveSheet.CheckSpelling ‘在当前工作表中施行”拼写检查”

229、ActiveSheet.Protect userinterfaceonly:=True ‘珍重当前工作表

230、ActiveSheet.PageSetup.LeftHeader = ThisWorkbook.FullName
‘在当前工作表底左侧页眉处打印出工作簿的完全路径和文书称

231、Worksheets(“Sheet1”).Range(“A1:G37”).Locked

 = FalseWorksheets(“Sheet1”).Protect

‘解除对工作表Sheet1吃A1:G37区域单元格的锁定

‘以便当该工作表受珍惜时也不过针对这些单元格举行修改

232、Worksheets(“Sheet1”).PrintPreview ‘展现工作表sheet1的打印预览窗口

233、ActiveSheet.PrintPreview Enablechanges:=False ‘禁用显示在Excel
的””打印预览”窗口中之””设置”和””页边距”按钮

234、ActiveSheet.PageSetup.PrintGridlines = True ‘在打印预览中显得网格线

ActiveSheet.PageSetup.PrintHeadings = True ‘在打印预览中显行列编号

235、ActiveSheet.ShowDataForm ‘开启数据记录单

236、Worksheets(“Sheet1”).Columns(“A”).Replace What:=”SIN”,
Replacement:=”COS”, SearchOrder:=xlByColumns, MatchCase:=True
‘将工作表sheet1中A列的SIN替换为COS

237、Rows(2).Delete ‘删除当前工作表中的第2实施

Columns(2).Delete ‘删除当前工作表中的第2排列

238、ActiveWindow.SelectedSheets.VPageBreaks.Add before:=ActiveCell
‘在现阶段单元格左边插入一修垂直分页符

ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell
‘在当前单元格上方插入一长达垂直分页符

239、ActiveWindow.ScrollRow = 14 ‘将当前工作表窗口滚动到第14履

ActiveWindow.ScrollColumn = 13 ‘将当前工作表窗口滚动到第13排列

240、ActiveWindow.Close ‘关闭时窗口

241、ActiveWindow.Panes.Count ‘获取当前窗口中之窗格数

242、Worksheets(“sheet1”).Range(“A1:D2”).CreateNames Top:=True
‘将A2暨D2的才元格名称设定为A1顶D1单元格的始末

243、Application.AddCustomList listarray:=Range(“A1:A8”)
‘自定义当前工作表中单元格A1及A8碰到之内容也活动填写充体系

244、Worksheets(“sheet1”).Range(“A1:B2”).CopyPicture xlScreen, xlBitmap
‘将单元格A1到B2的情节复制成屏幕快照

245、Selection.Hyperlinks.Delete ‘删除所选区域之所有链接

Columns(1).Hyperlinks.Delete ‘删除第1排列着具有的链接

Rows(1).Hyperlinks.Delete ‘删除第1履遭负有的链接

Range(“A1:Z30”).Hyperlinks.Delete ‘删除指定范围有着的链接

246、ActiveCell.Hyperlinks.Add Anchor:=ActiveCell,
Address:=”C:\Windows\System32\Calc.exe”, ScreenTip:=”  按下自己,
就会见打开Windows  统计器”, TextToDisplay:=”Windows 统计器”
‘在活动单元格中设置开启Windows总计器链接

247、ActiveCell.Value = Shell(“C:\Windows\System32\Calc.exe”,
vbNormalFocus) ‘开启Windows计算器

248、ActiveSheet.Rows(1).AutoFilter
‘打开自动筛选。若再运行一遍于,则关闭自动筛选

249、Selection.Autofilter ‘开启/关闭所选区域的自动筛选

250、ActiveSheet.ShowAllData ‘关闭自动筛选

251、ActiveSheet.AutoFilterMode
‘检查活动筛选是否打开,若被则该语句重回True

252、ActiveSheet.Columns(“A”).ColumnDifferences(Comparison:=ActiveSheet.
Range(“A2”)).Delete ‘在A列被搜索有同单元格A2情不一之无非元格并删除

253、ActiveSheet.Range(“A6”).ClearNotes
‘删除单元格A6负之批注,包括声音批注和文字批注

254、ActiveSheet.Range(“B8”).ClearComments ‘删除单元格B8遇的批注文字

255、ActiveSheet.Range(“A1:D10”).ClearFormats
‘清除单元格区域A1到D10面临的格式

256、ActiveSheet.Range(“B2:D2”).BorderAround ColorIndex:=5,
Weight:=xlMedium, LineStyle:=xlDouble ‘将单元格B2届D2区域设置也黄色双线

257、Range(“A1:B2”).Item(2, 3)或Range(“A1:B2”)(2, 3) ‘引用单元格C2底多少

Range(“A1:B2”)(3) ‘引用单元格A2

258、ActiveSheet.Cells(1, 1).Font.Bold = TRUE ‘设置字体加粗

ActiveSheet.Cells(1, 1).Font.Size = 24 ‘设置字体大小为24磅

ActiveSheet.Cells(1, 1).Font.ColorIndex = 3 ‘设置字体颜色也革命

ActiveSheet.Cells(1, 1).Font.Italic = TRUE ‘设置字体为斜体

ActiveSheet.Cells(1, 1).Font.Name = “提姆es New Roman” ‘设置字体类型

ActiveSheet.Cells(1, 1).Interior.ColorIndex = 3
‘将单元格的背景观设置为褐色

259、ActiveSheet.Range(“C2:E6”).AutoFormat
Format:=xlRangeAutoFormatColor3
‘将当前工作表中单元格区域C2交E6格式自动调整为彩色3格式

260、Cells.SpecialCells(xlCellTypeLastCell)
‘选中当前工作表中的末段一个单元格

261、ActiveCell.CurrentArray.Select
‘选定包含移动单元格的全套数组单元格区域.假定该单元格在多少单元格区域中

262、ActiveCell.NumberFormatLocal = “0.000; [红色] 0.000”
‘将眼前单元格数字格式设置也牵动3位小数,若否负数则展现也革命

263、 IsEmpty (ActiveCell.Value) ‘判断活动单元格中是否发价

264、ActiveCell.Value = LTrim(ActiveCell.Value)
‘删除字符串后面的空白字符

265、Len(ActiveCell.Value) ‘获取活动单元格中字符串的个数

266、ActiveCell.Value = UCase(ActiveCell.Value)
‘将近来单元格中的字符转换成大写

267、ActiveCell.Value = StrConv(ActiveCell.Value, vbLowerCase)
‘将移动单元格中的字符串转换成为小写

268、ActiveSheet.Range(“C1”).AddComment
‘在当前工作表底单元格C1遭逢补充加批注

269、Weekday(Date) ‘获取明日底周天,以数值表示,1-7分头针对许星期五交周三

270、ActiveSheet.Range(“A1”).AutoFill Range(Cells(1, 1), Cells(10, 1))
‘将单元格A1底数值填充到单元格A1暨A10区域受到

271、DatePart(“y”, Date) ‘获取前些天于全年中之运气

272、ActiveCell.Value = DateAdd(“yyyy”, 2, Date) ‘获取两年晚底今日之日子

273、MsgBox WeekdayName(Weekday(Date)) ‘获取前日之星期数

274、 ActiveCell.Value = Year(Date) ‘在当前单元格中输入2019年的年份数

ActiveCell.Value = Month(Date) ‘在时下单元格中输入明天所当的月份数

ActiveCell.Value = Day(Date) ‘在手上单元格中输入前几日的日期数

275、ActiveCell.Value = MonthName(1)
‘在眼前单元格中显示月份的称号,本句为彰显”五月”

276、ActiveCell.Value = Hour(提姆(Tim)e) ‘在时下单元格中显示现在时光之钟点数

ActiveCell.Value = Minute(提姆(Tim)e) ‘在手上单元格中突显现在时的分钟数

ActiveCell.Value = Second(Time) ‘在眼前单元格中展现现在工夫的秒数

277、ActiveSheet.Shapes(1).Delete ‘删除当前工作表中之第一只相

278、ActiveSheet.Shapes.Count ‘获取当前工作表中形的数量

279、ActiveSheet.Shapes(1).TextEffect.ToggleVerticalText
‘改变当前工作表中率先个法子字之矛头

280、ActiveSheet.Shapes(1).TextEffect.FontItalic = True
‘将当前工作表中首先个章程字之字设置为斜体

281、ActiveSheet.Shapes.AddTextEffect(msoTextEffect21, “三峡”, “Arial
Black”, 22#, msoFalse, msoFalse, 66#, 80).Select
‘在当前工作表中创建一个叫作也”三峡”的法门字连针对那多少个进展格式设置与当选

282、ActiveSheet.Shapes.AddLine(BeginX:=10, BeginY:=10, EndX:=250,
EndY:=100).Select
‘在当前工作表中为(10,10)为起点(250,100)为极画一条直线并入选

283、ActiveSheet.Shapes.AddShape(Type:=msoShapeRightTriangle, Left:=70,
Top:=40, Width:=130, Height:=72).Select
‘在当前工作表中写一个左上角在(70,40),宽也130胜过也72的三角形并入选

284、ActiveSheet.Shapes.AddShape(Type:=msoShapeRectangle, Left:=70,
Top:=40, Width:=130, Height:=72).Select
‘在当前工作表中写一个盖点(70,40)为起源,宽130胜似72的矩形并当选

285、ActiveSheet.Shapes.AddShape(Type:=msoShapeOval, Left:=70, Top:=40,
Width:=130, Height:=72).Select
‘在当前工作表中描绘一个左上角在(70,40),宽也130强啊72之扁圆形

286、ActiveSheet.Shapes(1).Line.ForeColor.RGB = RGB(0, 0, 255)
‘将当前工作表中第一个相的线颜色变为肉色

287、ActiveSheet.Shapes(2).Fill.ForeColor.RGB = RGB(255, 0, 0)
‘将当前工作表中第2单模样的前景观设置也红

288、 ActiveSheet.Shapes(1).Rotation = 20
‘将当前工作表中的第1单形象旋转20度

289、Selection.ShapeRange.Flip msoFlipHorizontal
‘将眼前选中的貌水平翻转

Selection.ShapeRange.Flip msoFlipVertical ‘将如今当选的样子垂直翻转

290、Selection.ShapeRange.ThreeD.SetThreeDFormat msoThreeD1
‘将所选的形制设置为第1种立体样式

291、ActiveSheet.Shapes(1).ThreeD.Depth = 20
‘将当前工作表中第一单立体造型的深设置也20

292、ActiveSheet.Shapes(1).ThreeD.ExtrusionColor.RGB = RGB(0, 0, 255)
‘将当前工作表中第1只立体造型的深部分的颜料要为紫色

293、ActiveSheet.Shapes(1).ThreeD.RotationX = 60
‘将当前工作表中的第1个立体造型沿X轴旋转60度

ActiveSheet.Shapes(1).ThreeD.RotationY = 60
‘将当前工作表中的第1独立体造型沿Y轴转动60度

294、Selection.ShapeRange.ThreeD.Visible = msoFalse
‘将所采用的立体造型转换为面形状

295、Selection.ShapeRange.ConnectorFormat.BeginDisconnect
‘在象中于指定的连日符起点脱离原来所连接的模样

296、ActiveSheet.Shapes(1).PickUp ‘复制当前工作表中形状1的格式

297、ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 260,
160, 180, 30). TextFrame.Characters.Text = “fanjy.blog.excelhome.net”
‘在工作簿中初打一个文本框并输入内容

298、ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, 20, 80,
100, 200). TextFrame.Characters.Text = “fanjy.blog.excelhome.net”
‘在当前工作表中建立一个水平文本框并输入内容

299、 ActiveSheet.Shapes.AddPicture “d:\sx.jpg”, True, True, 60, 20,
400, 300 ‘在当前工作表中插入一布置d盘中名为sx 的图

300、ActiveChart.ApplyCustomType xl3DArea ‘将如今图类型变更也三维面积图

相关文章