Excel中用自动运行宏提高工作效率
时间：2005-03-07 13:11 来源：未知 作者：未知 阅读：次
在日常工作中，我们经常需要在每次打开同一个Excel文件时都进行一些例行的操作，如改变表格的格式、更新报表日期、打印文件、对工作表进行保护或取消保护等等。Excel的自动运行宏“Auto＿Open”可在文件打开后立即完成这些例行的操作任务，既快速又准确。
假设我们在Excel文件的工作表Sheet1中有一个《销售日报表》， 下面我们在这个文件中建立一个Auto＿Open宏，让它在文件打开后自动完成下面任务：
1. 取消工作表保护；
2. 把“当日销售”列里的数据值复制到“上日销售”一列；
3. 将日期增加一天；
4. 恢复工作表保护。
具体做法如下：
1. 在“工具”菜单上选择“宏”子菜单，打开“宏”对话框，在“宏名”一栏里键入“Auto＿Open”再点击下面的“新建”钮，进入宏编辑状态。注意不要把宏名字输错了，否则宏不会自动执行。
2. 在宏编辑状态下，把下面VBA Visual Basic for Application 语句输入到Auto＿Open下面： Sub Auto＿Open Sheets"Sheet1".Activate ‘取消工作表保护 ActiveSheet.Unprotect ’将当日销售值拷贝到上日销售一栏 x = MsgBox"把当日销售值拷贝到上日销售栏吗？" vbYesNo If x = vbYes Then Range"B5B8".Copy Range"C5".Select Selection.PasteSpecial Paste=xlValues Application.CutCopyMode = False End If ’将日期增加一天 x = MsgBox"把日期增加一天吗？" vbYesNo If x = vbYes Then Range"C2" = Range"C2" + 1 End If ’重新保护工作表 ActiveSheet.Protect End Sub 将文件保存并关闭。
重新打开此文件，体验一下Auto＿Open宏是如何为你工作的吧。 如果你想用Auto＿Open完成其它的操作而又不知道如何用VBA语句直接建立宏，Excel的录制宏的功能可以帮助你，但是别忘了把所录制的宏取名为Auto＿Open。关于录制宏的方法请参阅一般的Excel功能手册。
假设我们在Excel文件的工作表Sheet1中有一个《销售日报表》， 下面我们在这个文件中建立一个Auto＿Open宏，让它在文件打开后自动完成下面任务：
1. 取消工作表保护；
2. 把“当日销售”列里的数据值复制到“上日销售”一列；
3. 将日期增加一天；
4. 恢复工作表保护。
具体做法如下：
1. 在“工具”菜单上选择“宏”子菜单，打开“宏”对话框，在“宏名”一栏里键入“Auto＿Open”再点击下面的“新建”钮，进入宏编辑状态。注意不要把宏名字输错了，否则宏不会自动执行。
2. 在宏编辑状态下，把下面VBA Visual Basic for Application 语句输入到Auto＿Open下面： Sub Auto＿Open Sheets"Sheet1".Activate ‘取消工作表保护 ActiveSheet.Unprotect ’将当日销售值拷贝到上日销售一栏 x = MsgBox"把当日销售值拷贝到上日销售栏吗？" vbYesNo If x = vbYes Then Range"B5B8".Copy Range"C5".Select Selection.PasteSpecial Paste=xlValues Application.CutCopyMode = False End If ’将日期增加一天 x = MsgBox"把日期增加一天吗？" vbYesNo If x = vbYes Then Range"C2" = Range"C2" + 1 End If ’重新保护工作表 ActiveSheet.Protect End Sub 将文件保存并关闭。
重新打开此文件，体验一下Auto＿Open宏是如何为你工作的吧。 如果你想用Auto＿Open完成其它的操作而又不知道如何用VBA语句直接建立宏，Excel的录制宏的功能可以帮助你，但是别忘了把所录制的宏取名为Auto＿Open。关于录制宏的方法请参阅一般的Excel功能手册。
(责任编辑：admin)
顶一下
(1)
100%
踩一下
(0)
0%
最新内容
推荐内容