文档介绍：Excel VBA编程的常用代码
金币充加入收用户中英语词测绘书测绘黄测绘人VIP注测绘商务,测绘仪器器材商务平台 值 藏 心 典 籍 页 才 册
首页 测绘新闻 测绘论文 测绘软件 仪器商务 供应信息 产品中心 公司信息 测绘报单元格的地址
msgbox
得到当前日期及时间
msgbox date & chr(13) & time
保护工作簿
取消保护工作簿
给活动工作表改名为 "liu"
= "liu"
打开一个应用程序
AppActivate (Shell("C:\WINDOWS\")) 增加一个工作表
删除活动工作表
打开一个工作簿文件
FileName:="C:\My Documents\"
关闭活动窗口
单元格格式
选定单元格左对齐
= xlLeft
选定单元格居中
= xlCenter
选定单元格右对齐
= xlRight
选定单元格为百分号风格
= "Percent" 选定单元格字体为粗体
= True 选定单元格字体为斜体
= True 选定单元格字体为宋体20号字 With
.Name = "宋体"
.Size = 20
End With
With 语句
With 对象
.描述
End With
清除单元格
'删除所有文字、批注、格式
返回选定区域的行数
MsgBox 返回选定区域的列数
MsgBox 返回选定区域的地址
忽略所有的错误
ON ERROR RESUME NEXT 遇错跳转
on error goto err_handle '中间的其他代码
err_handle: ' 标签
'跳转后的代码
删除一个文件
kill "c:\"
定制自己的状态栏
= "现在时刻: " & Time
恢复自己的状态栏
= false 用代码执行一个宏
macro:="text" 滚动窗口到a1的位置
= 1 = 1 定制系统日期
Dim MyDate, MyDay
MyDate = #12/12/69#
MyDay = Day(MyDate)
返回当天的时间
Dim MyDate, MyYear
MyDate = Date
MyYear = Year(MyDate)
MsgBox MyYear
inputbox<输入框>
XX=InputBox ("Enter number of months to add")
得到一个文件名
Dim kk As String
kk = ("EXCEL (*.XLS), *.XLS", Title:="提示:请打开一个EXCEL文件:")
msgbox kk
打开zoom对话框
(xlDialogZoom).Show
激活字体对话框
(xlDialogActiveCellFont).Show
打开另存对话框
Dim kk As String
kk = ("excel (*.xls), *.xls")
kk
1 excle快捷键大全