EXCEL VBA常用代码解析6

作者:rongqian
公式与函数(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 ‘将数值调节钮控件的值赋值给文本框控件  pinButton1.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 ‘移除列表框中选中的条目对象