VBA编制程序常用语句

 

 

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

Option Private Module
‘标记模块为个人,仅对同一工程中任何模块有用,在宏对话框中不展现

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

Option Base 1 ‘钦命数组的第3个下标为 1

贰 、On Error Resume Next ‘忽略错误继续执行 VBA代码,制止出现错误消息

③ 、On Error GoTo ErrorHandler ‘当错误发生时跳转到进程中的有个别地方

肆 、On Error GoTo 0 ‘复苏经常的荒唐提醒

⑤ 、Application.DisplayAlerts=False ‘在程序执行进度中使出现的告诫框不出示

六 、Application.ScreenUpdating=False ‘关闭显示屏刷新

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

柒 、Application.Enable.CancelKey=xlDisabled ‘禁止使用 Ctrl+Break
中止宏运转的效果

⑧ 、 Workbooks.Add() ‘创造3个新的工作簿

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

⑩ 、ThisWorkbook.Save ‘保存工作簿

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

1二 、ActiveWorkbook.Sheets.Count ‘获取活动工作薄江西中华工程公司作表数

1三 、ActiveWorkbook.name  ‘重临活动工作薄的名号

1肆 、ThisWorkbook.Name ‘重回当前工作簿名称

ThisWorkbook.FullName ‘再次来到当前工作簿路径和名称

1五 、ActiveWindow.EnableResize=False ‘禁止调整活动工作簿的大大小小

1陆 、Application.Window.Arrange xlArrangeStyleTiled
‘将工作簿以平铺格局排列

1七 、ActiveWorkbook.WindowState=xl马克西姆ized ‘将近期工作簿最大化

1捌 、ActiveSheet.UsedRange.Rows.Count ‘当前工作表中已采取的行数

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

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

2壹 、ThisWorkbook.Sheets.Add Before:=Worksheets(1)
‘添加三个新工作表在首先办事表前

22、ActiveSheet.Move After:=ActiveWorkbook. _

Sheets(ActiveWorkbook.Sheets.Count) ‘将当前工作表移至工作表的末梢

2叁 、Worksheets(Array(“sheet1″,”sheet2”)).Select ‘同时选取工作表
1和工作表 2

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

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

26、ActiveWindow.DisplayGridlines=Not ActiveWindow.DisplayGridlines

切换工作表中的网格线显示,那种情势也得以用在别的地点拓展互动切换,即一对一于开关按钮

27、ActiveWindow.DisplayHeadings=Not ActiveWindow.DisplayHeadings 

‘切换工作表中的系列边框展现

2捌 、 ActiveSheet.UsedRange.FormatConditions.Delete
‘删除当前工作表中全部的标准化格式

2玖 、Cells.Hyperlinks.Delete ‘撤消当前工作表全数超链接

30、ActiveSheet.PageSetup.Orientation=xlLandscape 

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

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

ActiveSheet.PageSetup.LeftFooter=Application.UserName
‘将用户名放置在移动工作表的页脚

32、ActiveCell.CurrentRegion.Select 

或 Range(ActiveCell.End(xlUp),ActiveCell.End(xlDown)).Select 
‘选用当前移动单元格所蕴藏的限制,上下左右无空行

3三 、Cells.Select ‘选定当前工作表的装有单元格

3四 、Range(“A1”).ClearContents ‘清除活动工作表上单元格 A第11中学的内容

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

Range(“A1:D4”).Clear ‘彻底清除 A1至 D4 单元格区域的剧情,蕴含格式

3⑤ 、Cells.Clear ‘清除工作表中全数单元格的剧情

3陆 、ActiveCell.Offset(1,0).Select ‘活动单元格下移一行,同理,可下移一列

3⑦ 、Range(“A1”).Offset(ColumnOffset:=1)或 Range(“A1”).Offset(,1)
‘偏移一列

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

3⑧ 、Range(“A1”).Copy Range(“B1”) ‘复制单元格 A1,粘贴到单元格 B第11中学

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
的单元格区域到工作表 第22中学以 A1起初的单元格区域中

注:CurrentRegion属性等价于定位命令,由1个矩形单元格块组成,周围是二个或四个空行或列

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

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

4壹 、Selection.Count ‘当前当选区域的单元格数

4贰 、GetAddress=Replace(Hyperlinkcell.Hyperlinks(1).Address,mailto:,””)
‘再次来到单元格Chinese Football Association Super League级链接的地方并赋值

4③ 、TextColor=Range(“A1”).Font.ColorIndex ‘检查单元格
A1的文书颜色并赶回颜色索引 ,Range(“A1”).Interior.ColorIndex ‘获取单元格
A1背景象

4四 、cells.count ‘重临当前工作表的单元格数

4伍 、Selection.Range(“E4”).Select ‘激活当前活动单元格下方 3行,向右
4列的单元格

4六 、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 区域

4九 、Range(“Data”).Resize(,2) ‘将 Data 区域扩张 2列

50、Union(Range(“Data1”),Range(“Data2”)) ‘将 Data1 和 Data2 区域一而再

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

5贰 、Range(“Data”).Count ‘单元格区域Data 中的单元格数

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

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

5三 、Selection.Columns.Count ‘当前入选的单元格区域中的列数

Selection.Rows.Count ‘当前相中的单元格区域中的行数

5④ 、Selection.Areas.Count ‘选中的单元格区域所蕴含的区域数

5伍 、ActiveSheet.UsedRange.Row  ‘获取单元格区域中央银行使的率先行的行号

5⑥ 、大切诺基ng.Column ‘获取单元格区域 LX570ng 左上角单元格所在列编号

5七 、ActiveSheet.Cells.SpecialCells(xlCellTypeAllFormatConditions)
‘在活动工作表中回到全数符合条件格式设置的区域

5八 、Range(“A1”).AutoFilter 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))”
‘动态命名列

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

6三 、Names.Add Name:=”Total”,RefersTo:=123456 ‘将数字 123456 命名为
Total。注意数字无法加引号,不然正是命名字符串了。

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

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

6陆 、ActiveWorkbook.Names(“Com”).Name ‘再次来到名称字符串

6柒 、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)”
‘在单元格中输入数组公式。注意必须采取 卡宴1C1 样式的表明式

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

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

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

ActiveChart.ChartArea.Select ‘选中当前图表区域

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

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

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

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

76、ActiveChart.SetSourceData

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

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

7⑧ 、 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

8壹 、Ans=Msg博克斯(“Continue?”,vbYesNo) ‘在音信框中式点心击”是”按钮,则 Ans 值为
vbYes;点击”否”按钮,则 Ans 值为 vbNo。

If MsgBox(“Continue?”,vbYesNo)<>vbYes Then Exit Sub
‘再次回到值不为”是”,则脱离

8贰 、Config=vbYesNo+vbQuestion+vbDefaultButton2 ‘使用常量的重组,赋值组
Config变量,并设置第3个按钮为缺省按钮 

8三 、 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) ‘应用工作表函数重返所选区域的平均值并按钦赐格式突显

8伍 、Userform1.Show ‘展现用户窗体

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

8⑦ 、Userform1.Hide ‘逃匿用户窗体

8⑧ 、Unload Userform1 或 Unload Me ‘卸载用户窗体

8九 、(图像控件).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

9② 、Application.Enable伊夫nts=False ‘禁止使用全体事件

Application.Enable伊芙nts=True ‘启用全体事件

注:不适用于用户窗体控件触发的风浪

9叁 、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 ‘释放该对象变量

9肆 、评释并创办叁个 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)

9五 、创设并传递贰个 Excel.Application 对象的引用

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

9陆 、Set d = CreateObject(Scripting.Dictionary) ‘成立1个 Dictionary
对象变量

9柒 、d.Add “a”, “Athens” ‘为指标变量添加关键字和条文

9捌 、Application.OnKey “^I”,”macro” ‘设置 Ctrl+I 键为 macro 进度的火速键

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

100、Application.Volatile True
‘无论哪天工作表中任意单元格重新总计,都会强制总括该函数

Application.Volatile False
‘唯有在该函数的三个或多个参数发生变更时,才会重新计算该函数

10① 、Err.Clear ‘清除程序运转进度中有着的不当

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

或 Application.Caller.Parent.Parent.BuiltinDocumentProperties(“”Last
Save Time”) ‘再次来到上次保留工作簿的日期和岁月

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

或 Application.Caller.Parent.Parent.BuiltinDocumentProperties(“”Last
Print Date”) ‘再次来到上次打字与印刷或预览工作簿的日期和岁月

10肆 、Workbooks.Close ‘关闭全部打开的工作簿

10伍 、 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)

11壹 、Application.Visible = False ‘隐藏工作簿

Application.Visible = True ‘出示工作簿

注:可与用户窗体合营使用,即在打开工作簿时将工作簿隐藏,只展现用户窗体.可设置控制按钮控制工作簿可知

11二 、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列数据对应左移一列

11叁 、ActiveSheet.Calculate ‘总结当前工作表

11四 、ThisWorkbook.Worksheets(“”sheet1”).Visible=xlSheetHidden
‘不奇怪隐藏工作表,同在 Excel 菜单中选用””格式——工作表——隐藏”操作一样

ThisWorkbook.Worksheets(“”sheet1”).Visible=xlSheetVeryHidden
‘隐藏工作表,不能够由此在 Excel
菜单中选拔””格式——工作表——撤废隐藏”来再度展现工作表

ThisWorkbook.Worksheets(“”sheet1”).Visible=xlSheetVisible
‘呈现被隐形的工作表

11伍 、ThisWorkbook.Sheets(1).ProtectContents ‘检查工作表是或不是受到保安

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

ThisWorkbook.Worksheets(2) 

或 ThisWorkbook.Workshees.Add ThisWorkbook.Worksheets(2), , 2 
‘在第贰个工作表在此以前添加四个新的工作表

11⑦ 、ThisWorkbook.Worksheets(3).Copy ‘复制2个办事表到新的工作簿

11八 、 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

12① 、ThisWorkbook.Worksheets(1).Activate
‘当前工作簿中的首个工作表被激活

12二 、ThisWorkbook.Worksheets(“Sheet1”).Rows(1).Font.Bold = True
‘设置工作表Sheet第11中学的行1数据为粗体

12三 、ThisWorkbook.Worksheets(“Sheet1”).Rows(1).Hidden = True
‘将工作表Sheet第11中学的行1隐藏

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

注:同样可用以列。

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

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

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

12六 、Application.MacroOptions Macro:=”SumPro”,Category:=4 ‘将自定义的
SumPro 函数钦点给Excel 中的””总结函数”连串

12柒 、Application.MacroOptions Macro:=”SumPro”, Description:=”First
Sum,then Product” ‘为自定义函数 SumPro 举行了功能表达

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

12⑨ 、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列前 二十三个数值求和

132、ActiveWindow.Visible=False 

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

13三 、TypeName(Selection)=”Chart” ‘若选中的为图表,则该语句为真,否则为假

13四 、ActiveSheet.ChartObjects.Delete ‘删除工作表上全部的 ChartObject对象

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

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

13陆 、TextName.SetFocus ‘设置文本框获取输入主题

13七 、SpinButton1.Value=0 ‘将数值调节钮控件的值改为 0

13八 、TextBox1.Text=SpinButton1.Value
‘将数值调节钮控件的值赋值给文本框控件

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

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

13⑨ 、UserForm1.Controls.Count ‘彰显窗体 UserForm1 上的控件数目

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

14壹 、ListBox1.ListIndex
‘重临列表框中条指标值,若为-1,则表明未入选任何列表框中的条目

14贰 、 Ref艾德it1.Text ‘重返代表单元格区域地址的文本字符串

RefEdit1.Text=ActiveWindow.RangeSelection.Address ‘开头化 Ref艾德it
控件显示当前所选单元格区域

Set FirstCell=Range(Ref艾德it1.Text).Range(“”A1”)
‘设置某单元格区域左上角单元格

14三 、Application.OnTime Now + TimeValue(“00:00:15”), “myProcedure” ‘等待
15 秒后运转 myProcedure进程

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

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

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

ListBox1.List=Product ‘将贰个名为 Product 数组的值添加到 ListBox1 中

ListBox1.RowSource=”Sheet2!SumP” ‘使用工作表Sheet第22中学的 SumP
区域的值填充列表框

14六 、ListBox1.Selected(0)
‘选中列表框中的第多个条文(注:当列表框允许2次当选多少个条款时,必须运用Selected属性)

14七 、ListBox1.RemoveItem ListBox1.ListIndex ‘移除列表框中选中的条目

14⑧ 、Application.UserName ‘重回应用程序的用户名

14玖 、Application.Caller ‘再次来到代表调用函数的单元格

150、Application.Caller.Parent.Parent ‘重返调用函数的工作簿名称

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

Application.StatusBar=”请等待……” & Percent & “”% Completed”
‘更新景况栏文本,以变量Percent 代表实现的百分比

Application.StatusBar=False ‘将状态栏重新设置成符合规律情形

15二 、Application.Goto Reference:=Range(“”A1:D4″) ‘钦命单元格区域 A1至
D4,等同于采纳””编辑——定位”,内定单元格区域为 A1至
D4,不会现身””定位”对话框

15叁 、Application.Dialogs(xlDialogFormulaGoto).Show
‘显示””定位”对话框,但原则性条件按钮无效

15④ 、Application.Dialogs(xlDialogSelectSpecial).Show
‘突显””定位条件”对话框

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

Application.Dialogs(xlDialogAlignment).show
‘展现””单元格格式”中的””对齐”选项卡

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

Application.Dialogs(xlDialogBorder).show
‘展现””单元格格式”中的””边框”选项卡

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

Application.Dialogs(xlDialogCellProtection).show
‘呈现””单元格格式”中的””尊敬”选项卡

注:不可能三回显示带选项卡的””单元格格式”对话框,只可以二回呈现一个选项卡。

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

15⑦ 、Application.CommandBars(1).Controls(2).Controls(16).Execute
‘执行””定位”话框,也便是采取菜单””编辑——定位”命令

15⑧ 、Application.Transpose(Array(“”Sun”,”Mon”,”Tur”,”Wed”,”Thu”,”Fri”,”Sat”))
‘重返三个笔直的数组

15⑨ 、Application.Version ‘再次来到使用的 Excel 版本号

160、Application.Cursor = xlNorthwestArrow ‘设置光标形状为北西向箭头

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

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

Application.Cursor = xlDefault ‘苏醒光标的私下认可设置

16壹 、Application.WindowState ‘再次来到窗口当前的事态

Application.WindowState = xlMinimized ‘窗口最小化

Application.WindowState = xl马克西姆ized ‘窗口最大化

Application.WindowState = xlNormal ‘窗口正常意况

16贰 、Application.UsableHeight ‘获取当前窗口的冲天

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

16叁 、Application.ActiveCell.Address
‘重临活动单元格的地点(注:再次回到的是纯属地址)

16四 、Application.ActivePrinter ‘重回当前打字与印刷机的名称

16⑤ 、Application.ActiveSheet.Name ‘再次来到活动工作表的称号

16陆 、Application.ActiveWindow.Caption ‘再次回到活动窗口的标题

16七 、Application.ActiveWorkbook.Name ‘重临活动工作簿的名号

16⑧ 、Application.Selection.Address ‘重返所选区域的地址

16玖 、Application.ThisWorkbook.Name ‘再次来到当前工作簿的名称

170、Application.CalculationVersion ‘重回Excel总括引擎版本(左侧多人数字)及 Excel 版本(左侧两位数字)

17① 、Application.MemoryFree
‘以字节为单位再次来到Excel允许使用的内部存款和储蓄器数(不蕴涵已经应用的内部存款和储蓄器)

17贰 、Application.MemoryUsed ‘以字节为单位再次来到 Excel 当前选择的内部存款和储蓄器数

17③ 、Application.MemoryTotal ‘以字节为单位再次回到 Excel
能够采纳的内部存款和储蓄器数(包蕴已运用的内部存款和储蓄器,是MemoryFree和 MemoryUsed 的总和)

17肆 、Application.OperatingSystem ‘再次来到所利用的操作系统的名号和版本

17⑤ 、Application.OrganizationName ‘再次回到Excel产品登记采纳的团协会部门的称谓

17陆 、Application.FindFormat ‘查找的格式种类

Application.ReplaceFormat ‘替换查找到的内容的格式体系

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

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

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

17捌 、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)

注:因为当把一维数组的内容传递给有个别单元格区域时,该单元格区域中的单元格必须是程度方向的,即含有多列的一行。若必须采纳垂直方向的单元格区域,则必须先将数组进行转置,成为垂直的。

18① 、Range(“”A65536”).End(xlUp).Row+1 ‘重返 A 列最终一行的下一行

18贰 、rng.Range(“”A1”) ‘重返区域左上角的单元格

18叁 、cell.Parent.Parent.Worksheets ‘访问当前单元格所在的工作簿

18④ 、Selection.Font.Bold=Not Selection.Font.Bold ‘切换所选单元格是还是不是加粗

18伍 、ActiveSheet.Range(“A:B”).Sort Key1:=Columns(“B”),
Key2:=Columns(“A”), Header:=xlYes
‘五个第①字排序,相邻两列,B列为主关键字,A 列为次重庆大学字,升序排列

18六 、cell.Range(“”A1”).NumberFormat
‘突显单元格或单元格区域中的第1个单元格的数字格式

18柒 、cell.Range(“”A1”).HasFormula
‘检查单元格或单元格区域中的第四个单元格是不是含有公式

或 cell.HasFormula ‘工作表中单元格是不是含有公式

18捌 、Cell.EntireColumn ‘单元格所在的整列

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

18玖 、rng.Name.Name ‘展现 rng区域的称谓

190、rng.Address ‘重返 rng 区域的地点

19壹 、cell.Range(“”A1”).Formula ‘再次来到包蕴在
rng区域中左上角单元格中的公式。

注:若在二个由多个单元格组成的限量内使用 Formula
属性,会取得错误;若单元格中绝非公式,会获得2个字符串,在公式栏中呈现该单元格的值。

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

19叁 、ActiveCell.Row ‘活动单元格所在的行数

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

19四 、Range(“A1:B1”).HorizontalAlignment = xlLeft
‘当前工作表中的单元格区域数据设置为左对齐

195、ActiveSheet.Range(“”A2:A10″).NumberFormat=”#,##0”
‘设置单元格区域 A2至 A第10中学数值格式

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

197、Dim colMySheets As New Collection

Public colMySheets As New Collection  ‘证明新的集合变量

19八 、Set MyRange=Range(“”A1:A5”) ‘创立多少个名为 MyRange 的目的变量

19玖 、<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
工作簿

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

20三 、Application.TemplatesPath ‘获取工作簿模板的岗位

20肆 、Application.Calculation = xlCalculation马努al ‘设置工作簿手动总计

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

20伍 、Worksheets(1).EnableCalculation = False
‘不对第1张工作表自动实行重算

20⑥ 、Application.CalculateFull ‘重新计算有所打开的工作簿中的数据

20柒 、Application.RecentFiles.马克西姆um = 5 ‘将多年来选取的文书档案列表数设为5

20捌 、Application.RecentFiles(4).Open ‘打开近期开拓的文书档案中的第伍个文档

20九 、Application.OnTime
DateSerial(二〇〇七,6,6)+TimeValue(“”16:16:16″),””BaoPo” 
‘在二〇〇七年八月25日的16:16:16开头运转BaoPo进程

2十 、Application.Speech.Speak (“Hello” & Application.UserName)
‘播放音响,并行使用户的真名问候用户

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

21② 、MsgBox Application.International(xlCountrySetting)
‘重回应用程序当前所在江山的装置信息

21③ 、Application.AutoCorrect.AddReplacement “葛洲坝”, “三峡”
‘自动将在办事表中展开输入的”葛洲坝”考订为”三峡”

21④ 、Beep ‘让电脑发出声音

21⑤ 、Err.Number ‘再次来到错误代码

21陆 、MsgBox IMEStatus ‘获得输入法情况

217、Date = #6/6/2006#Time = #6:16:16 AM#
‘将系统时间转移为2007年11月一日上午6时拾6分16秒

21八 、Application.RollZoom = Not Application.RollZoom
‘切换是或不是能使用鼠标中间的滑轮放大/裁减工作表

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

220、Application.DisplayScrollBars = True ‘呈现窗口上的滚动条

22壹 、Application.DisplayFormulaBar = Not Application.DisplayFormulaBar
‘切换是或不是出示编辑栏

22贰 、Application.Dialogs(xlDialogPrint).Show ‘呈现打印内容对话框

22三 、Application.MoveAfterReturnDirection = xlToRight
‘设置按Enter键后单元格的运动方向向右

22四 、 Application.FindFile ‘彰显打开对话框

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

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

22六 、ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
‘将日前工作簿设置为只读

22⑦ 、ActiveWorkbook.AddToFavorites ‘将当前工作簿添加到收藏夹文件夹中

22⑧ 、ActiveSheet.CheckSpelling ‘在当前工作表中执行”拼写检查”

22九 、ActiveSheet.Protect userinterfaceonly:=True ‘保养当前工作表

230、ActiveSheet.PageSetup.LeftHeader = ThisWorkbook.FullName
‘在此时此刻工作表的左侧页眉处打字与印刷出工作簿的完整路径和文书名

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

 = FalseWorksheets(“Sheet1”).Protect

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

‘以便当该工作表受爱抚时也可对这么些单元格进行改动

23二 、Worksheets(“Sheet1”).PrintPreview ‘展现工作表sheet1的打字与印刷预览窗口

23③ 、ActiveSheet.PrintPreview Enablechanges:=False ‘禁止使用展现在Excel
的””打字与印刷预览”窗口中的””设置”和””页边距”按钮

23肆 、ActiveSheet.PageSetup.PrintGridlines = True ‘在打字与印刷预览中展现网格线

ActiveSheet.PageSetup.PrintHeadings = True ‘在打字与印刷预览中体现行反革命列编号

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

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

23七 、Rows(2).Delete ‘删除当前工作表中的第贰行

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

23捌 、ActiveWindow.SelectedSheets.VPageBreaks.Add before:=ActiveCell
‘在眼下单元格左侧插入一条垂直分页符

ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell
‘在时下单元格上方插入一条垂直分页符

23九 、ActiveWindow.ScrollRow = 14 ‘将当前工作表窗口滚动到第壹4行

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

240、ActiveWindow.Close ‘关闭当前窗口

24① 、ActiveWindow.Panes.Count ‘获取当前窗口中的窗格数

24② 、Worksheets(“sheet1”).Range(“A1:D2”).CreateNames Top:=True
‘将A2至D2的单元格名称设定为A1到D1单元格的情节

24③ 、Application.AddCustomList listarray:=Range(“A1:A8”)
‘自定义当前工作表中单元格A1至A第88中学的内容为电动填充种类

24肆 、Worksheets(“sheet1”).Range(“A1:B2”).CopyPicture xlScreen, xlBitmap
‘将单元格A1至B2的剧情复制成显示屏快速照相

24⑤ 、Selection.Hyperlinks.Delete ‘删除所选区域的保有链接

Columns(1).Hyperlinks.Delete ‘删除第三列中兼有的链接

Rows(1).Hyperlinks.Delete ‘删除第2行中保有的链接

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计算器

24捌 、ActiveSheet.Rows(1).AutoFilter
‘打开自动筛选。若再运营一次,则关闭自动筛选

24九 、Selection.Autofilter ‘开启/关闭所选区域的机关筛选

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

25一 、ActiveSheet.AutoFilterMode
‘检查机关筛选是不是打开,若开启则该语句再次回到True

25贰 、ActiveSheet.Columns(“A”).ColumnDifferences(Comparison:=ActiveSheet.
Range(“A2”)).Delete ‘在A列中找出与单元格A2内容见仁见智的单元格并删除

25三 、ActiveSheet.Range(“A6”).ClearNotes
‘删除单元格A6中的批注,包涵声音批注和文字批注

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

25⑤ 、ActiveSheet.Range(“A1:D10”).ClearFormats
‘清除单元格区域A1至D第10中学的格式

25⑥ 、ActiveSheet.Range(“B2:D2”).BorderAround ColorIndex:=5,
Weight:=xlMedium, LineStyle:=xlDouble ‘将单元格B2至D2区域设置为普鲁士蓝双线

25柒 、Range(“A1:B2”).Item(2, 3)或Range(“A1:B2”)(2, 3) ‘引用单元格C2的数码

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

25⑧ 、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 = “Times New 罗曼” ‘设置字体类型

ActiveSheet.Cells(1, 1).Interior.ColorIndex = 3
‘将单元格的背景象设置为革命

25玖 、ActiveSheet.Range(“C2:E6”).AutoFormat
Format:=xlRangeAutoFormatColor3
‘将当前工作表中单元格区域C2至E6格式自动调整为花团锦簇3格式

260、Cells.SpecialCells(xlCellTypeLastCell)
‘选中当前工作表中的结尾二个单元格

26一 、ActiveCell.CurrentArray.Select
‘选定包蕴移动单元格的万事数组单元格区域.假定该单元格在数据单元格区域中

262、ActiveCell.NumberFormatLocal = “0.000; [红色] 0.000”
‘将日前单元格数字格式设置为带三位小数,若为负数则显得为革命

26三 、 IsEmpty (ActiveCell.Value) ‘判断活动单元格中是还是不是有值

26肆 、ActiveCell.Value = LTrim(ActiveCell.Value)
‘删除字符串后面包车型客车空白字符

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

26⑥ 、ActiveCell.Value = UCase(ActiveCell.Value)
‘将如今单元格中的字符转换来大写

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

26八 、ActiveSheet.Range(“C1”).AddComment
‘在脚下工作表的单元格C第11中学添加批注

银河至尊游戏官网,26九 、Weekday(Date) ‘获取明日的星期,以数值表示,1-八个别对应星期天至星期四

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

27壹 、DatePart(“y”, Date) ‘获取后天在全年中的天数

27贰 、ActiveCell.Value = DateAdd(“yyyy”, 2, Date) ‘获取两年后的明日的日期

27③ 、MsgBox WeekdayName(Weekday(Date)) ‘获取明日的星期数

27肆 、 ActiveCell.Value = Year(Date) ‘在脚下单元格中输入今年的年份数

ActiveCell.Value = Month(Date) ‘在现阶段单元格中输入今天所在的月度数

ActiveCell.Value = Day(Date) ‘在当前单元格中输入今日的日子数

27⑤ 、ActiveCell.Value = MonthName(1)
‘在此时此刻单元格中彰显月份的名号,本句为展现”二月”

27陆 、ActiveCell.Value = Hour(Time) ‘在当前单元格中显示今后时间的小时数

ActiveCell.Value = Minute(Time) ‘在时下单元格中展现以后时光的分钟数

ActiveCell.Value = Second(Time) ‘在方今单元格中呈现未来时刻的秒数

27七 、ActiveSheet.Shapes(1).Delete ‘删除当前工作表中的率先个模样

27八 、ActiveSheet.Shapes.Count ‘获取当前工作表中形状的数额

27玖 、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
‘在当前工作表中创造一个名为”三峡”的方法字并对其展开格式设置和当选

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

28三 、ActiveSheet.Shapes.AddShape(Type:=msoShapeRightTriangle, Left:=70,
Top:=40, Width:=130, Height:=72).Select
‘在当前工作表中画二个左上角在(70,40),宽为130高为72的三角并入选

28四 、ActiveSheet.Shapes.AddShape(Type:=msoShapeRectangle, Left:=70,
Top:=40, Width:=130, Height:=72).Select
‘在当前工作表中画二个以点(70,40)为源点,宽130高72的矩形并当选

28五 、ActiveSheet.Shapes.AddShape(Type:=msoShapeOval, Left:=70, Top:=40,
Width:=130, Height:=72).Select
‘在当前工作表中画贰个左上角在(70,40),宽为130高为72的椭圆

28⑥ 、ActiveSheet.Shapes(1).Line.ForeColor.奥德赛GB = PAJEROGB(0, 0, 255)
‘将当前工作表中第3个形象的线条颜色变为深土黄

28柒 、ActiveSheet.Shapes(2).Fill.ForeColor.PAJEROGB = XC60GB(255, 0, 0)
‘将当前工作表中第3个形象的前景观设置为革命

28捌 、 ActiveSheet.Shapes(1).Rotation = 20
‘将当前工作表中的第②个样子旋转20度

28玖 、Selection.ShapeRange.Flip msoFlipHorizontal
‘将近年来入选的形制水平翻转

Selection.ShapeRange.Flip msoFlipVertical ‘将近来相中的形状垂直翻转

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

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

29贰 、ActiveSheet.Shapes(1).ThreeD.ExtrusionColor.GL450GB = 奥迪Q5GB(0, 0, 255)
‘将当前工作表中第①个立体造型的深度部分的水彩设为清水蓝

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

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

29④ 、Selection.ShapeRange.ThreeD.Visible = msoFalse
‘将所选用的立体造型转换为平面形状

29伍 、Selection.ShapeRange.ConnectorFormat.BeginDisconnect
‘在造型中让钦点的接连符源点脱离原来所连接的样子

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

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

29八 、ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, 20, 80,
100, 200). TextFrame.Characters.Text = “fanjy.blog.excelhome.net”
‘在当前工作表中创建1个品位文本框并输入内容

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

300、ActiveChart.ApplyCustomType xl3DArea ‘将最近图表类型改为三维面积图

相关文章