vba源码注释.docVIP

Cell.EntireColumn ‘单元格所在的整列 Application.ActiveWorkbook.Name ‘返回活动工作簿的名称 Application.ActiveWindow.Caption ‘返回活动窗口的标题 Application.ActivePrinter ‘返回当前打印机的名称 Application.ActiveCell.Address ‘返回活动单元格的地址 Application.UsableHeight ‘获取当前窗口的高度Application.UsableWidth ‘获取当前窗口的宽度 Application.Version ‘返回使用的Excel版本号 Application.CommandBars(1).Controls(2).Controls(16).Execute ‘执行“定位”话框，相当于选择菜单“编辑——定位”命令 Application.Dialogs(xlDialogSelectSpecial).Show ‘显示“定位条件”对话框 Application.ActiveCell.Address ‘返回活动单元格的地址 Application.ActiveWindow.Caption ‘返回活动窗口的标题 Application.Goto Reference:=Range(“A1:D4”) ‘指定单元格区域A1至D4，等同于选择“编辑——定位 Application.StatusBar=False ‘将状态栏重新设置成正常状态 Application.Caller.Parent.Parent ‘返回调用函数的工作簿名称 Application.StatusBar=False ‘将状态栏重新设置成正常状态 Application.StatusBar=False ‘将状态栏重新设置成正常状态 Application.Caller ‘返回代表调用函数的单元格 Application.UserName ‘返回应用程序的用户名 ListBox1.RemoveItem ListBox1.ListIndex ‘移除列表框中选中的条目 ListBox1.Selected(0) ‘选中列表框中的第一个条目(注：当列表框允许一次选中多个条目时，必须使用Selected属性) ListBox1.RowSource=”Sheet2!SumP” ‘使用工作表Sheet2中的SumP区域的值填充列表框 ListBox1.List=Product ‘将一个名为Product数组的值添加到ListBox1中 ? ? Application.OnTime Now + TimeValue(00:00:15), myProcedure ‘等待15秒后运行myProcedure过程 Application.OnTime Now + TimeValue(00:00:15), myProcedure ‘等待15秒后运行myProcedure过程 ListBox1.ListIndex ‘返回列表框中条目的值，若为-1，则表明未选中任何列表框中的条目 ListBox1.AddItem “Command1” ‘在列表框中添加Command1 UserForm1.Controls.Count ‘显示窗体UserForm1上的控件数目 TextBox1.Text=SpinButton1.Value ‘将数值调节钮控件的值赋值给文本框控件 SpinButton1.Value=0 ‘将数值调节钮控件的值改为0 TextName.SetFocus ‘设置文本框获取输入焦点 UserForms.Add(MyForm).Show ‘添加用户窗体MyForm并显示 WorksheetFunction.CountA(Cell.EntireColumn) ‘返回该单元格所在列非空单元格的数量 Application.WorksheetFunction.CountA(Range(“A:A”))+1 ‘获取A列的下一个空单元格 ActiveSheet.Range(“A:A”).EntireColumn.AutoFit ‘自动调整当前工作表A列列宽 ActiveCell.EntireRow.Hidden = True ‘将当前工作表中活动单元格所在的行隐藏 ThisWorkbook.Worksheets(Sheet1).Rows(1).Hidden = True ‘将工作表Sheet1中的行1隐藏 ThisWorkbook.Worksheets(Sheet1).Rows(1).Font.Bold = True ‘设置工作表Sheet1中的行1数据为粗体 ThisWorkbook.Worksheets(1).Activate ‘当前工作簿中的第