admin管理员组文章数量:1537381
2024年6月28日发(作者:)
工作表
1、'隐藏SHEET1这张工作表 sheets("sheet1").Visible=False
2、'显示SHEET1这张工作表 sheets("sheet1").Visible=True
3、'同时选择工作表1和工作表2
Worksheets(Array(“sheet1”,”sheet2”)).Select
4、'删除工作表1 Sheets(“sheet1”).Delete或 Sheets(1).Delete
5、'将该表格保存到C: 目录 "C:"
6、'在第1工作表前添加新工作表 before:=Sheets(1)
7、'在最后工作表后添加新工作表
after:=Sheets()
8、'删除当前工作表
可以用以下语句删除当前工作表。
9、保护工作表使其不至被修改。
Sheets(“工作表名 ”).Protect (Password)
10、撤销工作表保护使其被修改。
Sheets(“工作表名 ”).Unprotect (Password)
示例: Sheets(“sheet1”).Protect “123456” Sheets(“sheet1”).Unprotect
“123456”
11、添加工作表
12、当前工作表命名 = "www"
13、选定下(上)一个工作表
sheets(-1).select sheets(+1).select
14、'取消工作表标签
yWorkbookTabs = False
15、'格式_工作表不能重命名
dBars("Sheet").Controls(1).Enabled= False
16、'取消工作表标签 yWorkbookTabs = False
17、'右键菜单不能重命名
ntrol(ID:=889).Enabled = False
18、'工作表加密
Worksheets(″基础数据表″).Protect Password:="1234"
19、'深度隐藏工作表 e = 2
20、'显示工作表 e = -1
21、‘当前工作表中已使用的行数
22、 ‘获取工作表的行数(注:考虑向前兼容性)
23、Sheets(Sheet1).Name= “Sum” '将Sheet1命名为Sum
24、 Before:=Worksheets(1) '添加一个新工作表在第一
工作表前
25、 After:=ActiveWorkbook. _
Sheets() '将当前工作表移至工作表的最后
26、Sheets(“sheet1”).Delete或 Sheets(1).Delete '删除工作表1
27、(i).Name '获取工作表i的名称
28、'切换工作表中的网格线显示,这种方法也可以用在其它方面进行相互切换,即相
当于开关按钮
yGridlines=Not yGridlines
29、‘切换工作表中的行列边框显示
yHeadings=Not yHeadings
30、 ‘删除当前工作表中所有
的条件格式
31、'将页面设置更改为横向
ation=xlLandscape
或ation=2
32、‘在页面设置的表尾中输入文件路径
ooter=me
33 ‘将用户名放置在活动工作表的页脚
oter=me
34、‘两个关键字排序,相邻两列,B列为主关键字,A列为次关键字,升序排列
("A:B").Sort
Header:=xlYes
Key1:=Columns("B"), Key2:=Columns("A"), _
35、'开启数据记录单 ActiveS taForm
工作簿
1、定制自己的状态栏 Bar = "现在时刻: " & Time
2、恢复自己的状态栏 Bar = false
3、关闭屏幕更新 Update=False
4、'打开屏幕刷新 Updating=True
5、删除一个文件 kill "c:"
6、'退出EXCEL
7、‘将文本写到状态栏 Bar=”请等待……”
8、‘更新状态栏文本,以变量Percent代表完成的百分比 Bar=”
请等待……” & Percent & “% Completed”
9、MkDir "D:Music" 建立文件夹的方法
10、打开文件夹的方法 Hyperlink
Address:="D:Music", NewWindow:=True
11、'以本工作表名称另存文件到当前目录
& ".xls"
Filename:= & "" &
12、新建
打开 "路径 " & "文件名 .xls"
13、关闭同时保存 Workbooks("").Close savechanges:=True
14、.关闭同时不保存 Workbooks("").Close savechanges:=False
15、.Excel程序的关闭
16、关闭Excel的警告提示。 yAlerts = False
17、' 全屏显示 yFullScreen = True
18、不保存直接关闭当前的工作簿
Workbooks("").Close SaveChanges:=False
19、不保存直接关闭EXCEL窗口(关闭所有的工作簿)的VBA语句
yAlerts = False
20、'保护工作簿 t
21、'取消保护工作簿 ect
22、'给当前工作簿改名为 "liu" = "liu"
23、'增加一个工作簿
24、'删除当前工作簿
25、'打开一个文件
"
FileName:="C:My
26、'关闭当前工作簿
27、‘返回工作簿代码的名称 me
me
28、‘返回当前工作簿的路径(注:若未保存,则为空)
29、‘将状态栏重新设置成正常状态
Bar=False
30、‘返回活动工作表的名称
31、‘返回活动窗口的标题 n
32、‘返回活动工作簿的名称
33、去掉XLS文件头上菜单栏的“MIcrosoft EXCEL ”字样 n =
"专用表格"
34、设置 15 秒后运行 my_Procedure 过程,从现在开始计时。
Now + TimeValue("00:00:15"), "my_Procedure"
35、设定 my_Procedure 这个宏在下午 5 点开始执行。
TimeValue("17:00:00"), "my_Procedure"
36、以某一单元格中的值为文件名保存
pyAs Str(Range("Sheet1!A1")) + ".xls"
37、 '保存工作簿
38、 '获取活动工作薄中工作表数
39、 '返回活动工作薄的名称
40、 ‘返回当前工作簿名称
me ‘返回当前工作簿路径和名称
41、 Resize=False ‘禁止调整活动工作簿的大小
42、 e xlArrangeStyleTiled ‘将工作簿以平铺方式排
列
43、 State=xlMaximized ‘将当前工作簿最大化
44、‘返回当前工作簿的名称
Dim fs, d, s
Set fs = CreateObject("stemObject")
Set d =
ve(veName(olutePathName()))
s = number '磁盘序列号
If s = 要使用的电脑磁盘序列号 Then Exit Sub
Dim FirstDate, de, days
FirstDate = Date
de = GetSetting("XXX", "YYY", "date", "") '从注册表取值
If de = "" Then '如果取不到值
SaveSetting "XXX", "YYY", "date", FirstDate '把日期保存到注册表
MsgBox "本文件可使用120天,今天是第1次使用", , "提示"
Else
days = Date - CDate(de) '计算文件使用的天数
If days > 120 Then '如果文件使用超过60天
MsgBox "已超过使用期限,本文件将自杀", , "警告"
FileAccess xlReadOnly '改为只读属性
Kill me '自杀
False '关闭不保存
End If
MsgBox "本文件已使用" & days & "天,还有" & 120 - days & "天可使用", , "提示
"
End If
版权声明:本文标题:VBA-EXCEL工作表代码 内容由热心网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:https://m.elefans.com/xitong/1719553647a784676.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论