excel代码
-
2023年3月18日发(作者：日本救心丸)工作表
1、'隐藏SHEET1这张工作表sheets("sheet1").Visible=False
2、'显示SHEET1这张工作表sheets("sheet1").Visible=True
3、'同时选择工作表1和工作表2
Worksheets(Array(“sheet1”,”sheet2”)).Select
4、'删除工作表1Sheets(“sheet1”).Delete或Sheets(1).Delete
5、'将该表格保存到C:目录"C:"
6、'在第1工作表前添加新工作表ore:=Sheets(1)
7、'在最后工作表后添加新工作表
er:=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（″基础数据表″）.ProtectPassword:="1234"
19、'深度隐藏工作表e=2
20、'显示工作表e=-1
21、‘当前工作表中已使用的行数
22、‘获取工作表的行数(注：考虑向前兼容性)
23、Sheets(Sheet1).Name=“Sum”'将Sheet1命名为Sum
24、ore:=Worksheets(1)'添加一个新工作表在
第一工作表前
25、ter:=ActiveWorkbook._
Sheets()'将当前工作表移至工作表的最后
26、Sheets(“sheet1”).Delete或Sheets(1).Delete'删除工作表1
27、(i).Name'获取工作表i的名称
28、'切换工作表中的网格线显示，这种方法也可以用在其它方面进行相互切换，
即相当于开关按钮
yGridlines=yGridlines
29、‘切换工作表中的行列边框显示
yHeadings=yHeadings
30、‘删除当前工作表中所
有的条件格式
31、'将页面设置更改为横向
ation=xlLandscape
或ation=2
32、‘在页面设置的表尾中输入文件路径
ooter=me
33‘将用户名放置在活动工作表的页脚
oter=me
34、‘两个关键字排序，相邻两列，B列为主关键字，A列为次关键字，
升序排列("A:B").SortKey1:=Columns("B"),
Key2:=Columns("A"),_Header:=xlYes
35、'开启数据记录单taForm
工作簿
1、定制自己的状态栏Bar="现在时刻:"&
Time
2、恢复自己的状态栏Bar=false
3、关闭屏幕更新Update=False
4、'打开屏幕刷新Updating=True
5、删除一个文件kill"c:"
6、'退出
7、‘将文本写到状态栏Bar=”请等待……”
8、‘更新状态栏文本，以变量Percent代表完成的百分比
Bar=”请等待……”&Percent&“%Completed”
9、MkDir"D:Music"建立文件夹的方法
10、打开文件夹的方法Hyperlink
Address:="D:Music",NewWindow:=True
11、'以本工作表名称另存文件到当前目录
Filename:=&""&
&".xls"
12、新建
打开"路径"&"文件名.xls"
13、关闭同时保存Workbooks("").Close
savechanges:=True
14、.关闭同时不保存Workbooks("").Close
savechanges:=False
15、.Excel程序的关闭
16、关闭Excel的警告提示。yAlerts=False
17、'全屏显示yFullScreen=True
18、不保存直接关闭当前的工作簿
Workbooks("").CloseSaveChanges:=False
19、不保存直接关闭EXCEL窗口(关闭所有的工作簿)的VBA语句
yAlerts=
20、'保护工作簿t
21、'取消保护工作簿ect
22、'给当前工作簿改名为"liu"="liu"
23、'增加一个工作簿
24、'删除当前工作簿
25、'打开一个文件leName:="C:My
"
26、'关闭当前工作簿
27、‘返回工作簿代码的名称me
me
28、‘返回当前工作簿的路径(注:若未保存,则为空)
29、‘将状态栏重新设置成正常状态
Bar=False
30、‘返回活动工作表的名称
31、‘返回活动窗口的标题n
32、‘返回活动工作簿的名称
33、去掉XLS文件头上菜单栏的“MIcrosoftEXCEL”字样
n="专用表格"
34、设置15秒后运行my_Procedure过程，从现在开始计时。
Now+TimeValue("00:00:15"),
"my_Procedure"
35、设定my_Procedure这个宏在下午5点开始执行。
TimeValue("17:00:00"),"my_Procedure"
36、以某一单元格中的值为文件名保存
pyAsStr(Range("Sheet1!A1"))+".xls"
37、'保存工作簿
38、'获取活动工作薄中工作表数
39、'返回活动工作薄的名称
40、‘返回当前工作簿名称
me‘返回当前工作簿路径和名称
41、Resize=False‘禁止调整活动工作簿的大小
42、exlArrangeStyleTiled‘将工作簿以平铺
方式排列
43、State=xlMaximized‘将当前工作簿最大
化
44、‘返回当前工作簿的名称
Dimfs,d,s
Setfs=CreateObject("stemObject")
Setd=
ve(veName(olutePathName()
))
s=number'磁盘序列号
Ifs=要使用的电脑磁盘序列号ThenExitSub
DimFirstDate,de,days
FirstDate=Date
de=GetSetting("XXX","YYY","date","")'从注册表取值
Ifde=""Then'如果取不到值
SaveSetting"XXX","YYY","date",FirstDate'把日期保存到注册表
MsgBox"本文件可使用120天，今天是第1次使用",,"提示"
Else
days=Date-CDate(de)'计算文件使用的天数
Ifdays>120Then'如果文件使用超过60天
MsgBox"已超过使用期限，本文件将自杀",,"警告"
FileAccessxlReadOnly'改为只读属性
me'自杀
alse'关闭不保存
EndIf
MsgBox"本文件已使用"&days&"天，还有"&120-days&"天可使用",,
"提示"
EndIf