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 ‘当前工作簿中的第一个工作表被激活
ThisWorkbook.ActiveSheet.StandardHeight ‘将工作表的行高恢复为标准值
ThisWorkbook.Workshees.Add ThisWorkbook.Worksheets(2), , 2  ‘在第二个工作表之前添加两个新的工作表
ThisWorkbook.Sheets(1).ProtectContents ‘检查工作表是否受到保护
ActiveSheet.Columns("B").Insert ‘在A列右侧插入列，即插入B列
Application.Visible = True ‘显示工作簿
Application.Visible = False ‘隐藏工作簿
ThisWorkbook.ReadOnly
  ActiveWorkbook.ReadOnly ‘返回当前工作簿的读/写值
ThisWorkbook.Path
ActiveWorkbook.Path ‘返回当前工作簿的路径(注:若工作簿未保存,则为空)
ActiveWorkbook.LinkSources(xlExcelLinks)(1) ‘返回当前工作簿中的第一条链接Workbooks.Close ‘关闭所有打开的工作簿
ThisWorkbook.BuiltinDocumentProperties(“Last Save Time”)
返回上次保存工作簿的日期和时间
Err.Clear ‘清除程序运行过程中所有的错误
ActiveCell.Value = Second(Time) '在当前单元格中显示现在时间的秒数
ActiveCell.Value = Minute(Time) '在当前单元格中显示现在时间的分钟数
ActiveCell.Value = Hour(Time) '在当前单元格中显示现在时间的小时数
ActiveCell.Value = MonthName(1) '在当前单元格中显示月份的名称,本句为显示"一月"
ActiveCell.Value = Day(Date) '在当前单元格中输入今天的日期数
ActiveCell.Value = Month(Date) '在当前单元格中输入今天所在的月份数
ActiveCell.Value = Year(Date) '在当前单元格中输入今年的年份数
MsgBox WeekdayName(Weekday(Date)) '获取今天的星期数
DatePart("y", Date) '获取今天在全年中的天数
ActiveSheet.Range("A1").AutoFill Range(Cells(1, 1), Cells(10, 1))
'将单元格A1的数值填充到单元格A1至A10区域中
Weekday(Date) '获取今天的星期,以数值表示,1-7分别对应星期日至星期六
ActiveSheet.Range("C1").AddComment '在当前工作表的单元格C1中添加批注
ActiveCell.Value = StrConv(ActiveCell.Value, vbLowerCase) '将活动单元格中的字符串转
换成小写
ActiveCell.Value = UCase(ActiveCell.Value) '将当前单元格中的字符转换成大写
Len(ActiveCell.Value) '获取活动单元格中字符串的个数
ActiveCell.Value = LTrim(ActiveCell.Value) '删除字符串前面的空白字符
IsEmpty (ActiveCell.Value) '判断活动单元格中是否有值
ActiveCell.CurrentArray.Select '选定包含活动单元格的整个数组单元格区域.假定该单元格在数据单元格区域中
Cells.SpecialCells(xlCellTypeLastCell) ‘选中当前工作表中的最后一个单元格
ActiveSheet.Range("C2:E6").AutoFormat Format:=xlRangeAutoFormatColor3 '将当前工作表中单元格区域C2至E6格式自动调整为彩3格式
ActiveSheet.Cells(1, 1).Font.ColorIndex = 3 ‘设置字体颜为红
ActiveSheet.Cells(1, 1).Font.Bold = TRUE ‘设置字体加粗
ActiveSheet.Range("A1:D10").ClearFormats '清除单元格区域A1至D10中的格式
ActiveCell.Value = Shell("C:\Windows\", vbNormalFocus) '开启Windows计算器
Range("A1:Z30").Hyperlinks.Delete ‘删除指定范围所有的链接
Columns(1).Hyperlinks.Delete ‘删除第1列中所有的链接
Selection.Hyperlinks.Delete ‘删除所选区域的所有链接
Worksheets("sheet1").Range("A1:D2").CreateNames Top:=True '将A2至D2的单元格名称设定为A1到vba listbox控件详解D1单元格的内容

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。