EXCEL VBA 经典实例400句(3)

'(124)自动调整当前工作表A列列宽
ActiveSheet.Range("A:A").EntireColumn.AutoFit
'(125)选中当前工作表中常量和文本单元格
ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlTextValues)
'选中当前工作表中常量和文本及错误值单元格
ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlErrors+xlTextValues)
'*******************************************************
' 公式与函数
'(126)将自定义的SumPro函数指定给Excel中的"统计函数"类别
Application.MacroOptions Macro:="SumPro", Category:=4
'(127)为自定义函数SumPro进行了功能说明
Application.MacroOptions Macro:="SumPro", _
Description:="First Sum,then Product"
'(128)获取A列的下一个空单元格
Application.WorksheetFunction.CountA (Range("A:A")) + 1
'(129)返回该单元格所在列非空单元格的数量
WorksheetFunction.CountA (Cell.EntireColumn)
'返回该单元格所在行非空单元格的数量
WorksheetFunction.CountA (Cell.EntireRow)
'(130)返回工作表中非空单元格数量
WorksheetFunction.CountA (Cells)
'(131)对A列至D列前19个数值求和
ActiveSheet.Range("A20:D20").Formula = "=Sum(R[-19]C:R[-1]C"
'*******************************************************
' 图表
'(1
32)使图表处于非活动状态
ActiveWindow.Visible = False
'或
ActiveChart.Deselect
'(133)若选中的为图表，则该语句为真，否则为假
TypeName(Selection) = "Chart"
'(134

学习之后能大幅提高excel VBA编写水平,内容详尽全面

)删除工作表上所有的ChartObject对象
ActiveSheet.ChartObjects.Delete
'删除当前工作簿中所有的图表工作表
ActiveWorkbook.Charts.Delete
'*******************************************************
' 窗体和控件
'(135)添加用户窗体MyForm并显示
UserForms.Add(MyForm).Show
'(136)设置文本框获取输入焦点
TextName.SetFocus
'(137)将数值调节钮控件的值改为0
SpinButton1.Value = 0
'(138)将数值调节钮控件的值赋值给文本框控件
TextBox1.Text = SpinButton1.Value
'将文本框控件值赋给数值调节钮控件
SpinButton1.Value = "/Val(TextBox1.Text)"
'数值调节钮控件和文本框控件相比较
CStr(SpinButton1.Value)=TextBox1.Text
'(139)显示窗体UserForm1上的控件数目
UserForm1.Controls.Count
'(140)在列表框中添加Command1
ListBox1.AddItem "Command1"
'(141)返回列表框中条目的值，若为-1，则表明未选中任何列表框中的条目
ListBox1.ListIndex
'(142)返回代表单元格区域地址的文本字符串
RefEdit1.Text
'初始化RefEdit控件显示当前所选单元格区域
RefEdit1.Text = ActiveWindow.RangeSelection.Address
'设置某单元格区域左上角单元格
Set FirstCell = Range(RefEdit1.Text).Range("A1")
'(143)等待15秒后运行myProcedure过程
Application.OnTime Now + TimeValue("00:00:15"), "myProcedure"
'(144)将滚动条控件的值赋值给ActiveWindow对象的ScrollColumn属性
ActiveWindow.ScrollColumn = ScrollBarColumns.Value
'将滚动条控件的值赋值给ActiveWindow对象的ScrollRow属性
ActiveWindow.ScrollRow = ScrollBarRows.Value
'(145)将单元格A1中的数据添加到列表框中
UserForm1.ListBox1.AddItem Sheets("Sheet1").Cells(1, 1)
'将一个名为Product数组的值添加到ListBox1中
ListBox1.List = Product
'使用工作表Sheet2中的SumP区域的值填充列表框
ListBox1.RowSource = "Sheet2!SumP"
'(146)选中列表框中的第一个条目(注：当列表框允许一次选中多个条目时，必须使用Selected属性)
ListBox1.Selected (0)
'(147)移除列表框中选中的条目
ListBox1.RemoveItem ListBox1.ListIndex
'*******************************************************
' 对象
' Application对象
'(148)返回应用程序的用户名
erName
'(149)返回代表调用函数的单元格
Application.Caller
'(150)返回调用函数的工作簿名称
Application.Caller.Parent.Parent
'(151)将文本写到状态栏
Application.StatusBar = "请等待……"
'更新状态栏文本，以变量Percent代表完成的百分比
Application.StatusBar = "请等待……" & Percent & "% Completed"
'将状态栏重新
设置成正常状态
Application.StatusBar = False
'(152)指定单元格区域A1至D4，等同于选择"编辑——定位"，指定单元格区域为A1至D4，不会出现"定位"对话框
Application.Goto Referen

学习之后能大幅提高excel VBA编写水平,内容详尽全面

ce:=Range("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)执行"定位"话框，相当于选择菜单"编辑——定位"命令
mandBars(1).Controls(2).Controls(16).Execute
'(158)返回一个垂直的数组
Application.Transpose (Array("Sun", "Mon", "Tur", "Wed", "Thu", "Fri", "Sat"))
'(159)返回使用的Excel版本号
Application.Version
'(160)设置光标形状为北西 …… 此处隐藏：3519字，全部文档内容请下载后查看。喜欢就下载吧 ……