澳洲留学拒签次数:Excel Excel之VBA编程常用语句300句
来源:百度文库 编辑:中财网 时间:2024/05/09 06:06:59
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.OnTime Now + TimeValue("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 ‘移除列表框中选中的条目
*******************************************************
对象
Application对象
(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 = xlNorthwestArrow ‘设置光标形状为北西向箭头
Application.Cursor = xlIBeam ‘设置光标形状为Ⅰ字形
Application.Cursor = xlWait ‘设置光标形状为沙漏(等待)形
Application.Cursor = xlDefault ‘恢复光标的默认设置
(161) Application.WindowState ‘返回窗口当前的状态
Application.WindowState = xlMinimized ‘窗口最小化
Application.WindowState = xlMaximized ‘窗口最大化
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.Evaluate("Rate") ‘若在工作表中定义了常量0.06的名称为”Rate”,则本语句将返回值0.06
(179) Application.OnUndo “Undo Option”,“Undo Procedure” ‘选择UndoOption后,将执行Undo Procedure过程
*******************************************************
Range对象
(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替换单元格区域中的空单元格
*******************************************************
Collection与object
(197) Dim colMySheets As New Collection
Public colMySheets As New Collection ‘声明新的集合变量
(198) Set MyRange=Range(“A1:A5”) ‘创建一个名为MyRange的对象变量
(199)
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.OnTime Now + TimeValue("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 ‘移除列表框中选中的条目
*******************************************************
对象
Application对象
(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 = xlNorthwestArrow ‘设置光标形状为北西向箭头
Application.Cursor = xlIBeam ‘设置光标形状为Ⅰ字形
Application.Cursor = xlWait ‘设置光标形状为沙漏(等待)形
Application.Cursor = xlDefault ‘恢复光标的默认设置
(161) Application.WindowState ‘返回窗口当前的状态
Application.WindowState = xlMinimized ‘窗口最小化
Application.WindowState = xlMaximized ‘窗口最大化
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.Evaluate("Rate") ‘若在工作表中定义了常量0.06的名称为”Rate”,则本语句将返回值0.06
(179) Application.OnUndo “Undo Option”,“Undo Procedure” ‘选择UndoOption后,将执行Undo Procedure过程
*******************************************************
Range对象
(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替换单元格区域中的空单元格
*******************************************************
Collection与object
(197) Dim colMySheets As New Collection
Public colMySheets As New Collection ‘声明新的集合变量
(198) Set MyRange=Range(“A1:A5”) ‘创建一个名为MyRange的对象变量
(199)
那里下载EXCEL VBA编程的电子书籍
关于一个excel vba编程的问题
请教:一个EXCEL的VBA编程问题
Excel VBA
Excel VBA
vba excel
Excel VBA中EXCEL对象?
问一个有关excel VBA编程的问题
用VBA编程如何遍历EXCEL每一个工作表
请问EXCEL中的宏的制作必须会VBA编程
excel VBA小问题
EXCEL VBA 问题
excel VBA教程电子书
Excel VBA 高手进
EXCEL VBA 基础教程下载
哪有买Excel 2003 VBA教程
谁有excel VBA教程
excel vba ontime的问题
作一个excel-VBA宏
excel中VBA的问题
excel VBA 下拉菜单制作
如何使用VBA启动Excel
请问谁知道哪有《excel的vba高级编程》谢谢了!
EXCEL中用VBA编程,如何在打印成PDF文件的时候自动给文件命名?