Excel中用自动运行宏提高工作效率.docVIP

Excel中用自动运行宏提高工作效率 2001-07-29· · ··cpcw 　　在日常工作中，我们经常需要在每次打开同一个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B5B8.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功能手册。 T O P 排 行 - Visual C++界面编程 - Photoshop 图像去底技巧集粹 - windows xp 中的cmd - AI插图之梦:纸面绘画到数码图像  随心所欲定制Excel的输入格式 2001-11-20· ·蔡山··yesky 　　从事IT行业的人大凡对EXCEL这个办公软件很熟悉，但是在使用它的时候你也会遇到很多的烦恼。其实Excel的问世就是为了让办公自动化，让数据分析简单明了快捷。要享受EXCEL给您带来的这些快感，您就必须熟悉它，掌握它。现在有很多的人在深入地研究EXCEL的高级技术及使用方法，他们的目标就是要更大程度的发挥EXCEL的功用，更淋漓地使EXCEL成为一件办公利器！ 　　以下是我在工作中发现和揣摩得到的一些心得与技巧，希望能带给大家一些启发。在使用EXCEL时你首先接触的便是单元格，在单元格里输入字符和数字然后可以调节他们的格式。例如颜色，字体，居中。但是这种设置需要你手动去完成。在工作量较大的时候常常让人觉得无法忍受，尤其是编辑不相邻的多个单元格时更显不便。其实EXCEL中通过编程的方法可以做到定制文本格式甚至可以办到让您随时随地的控制格式。 　　打开工具栏中的visual basic 编辑器，在vbaproject工程中插入类模块（系统默认名称为类1），在此类模块中写入如下代码：　　Public WithEvents aaa As Worksheet　　Public Sub aaa_selectionchange(ByVal target As Range)　　target.Cells.Font.ColorIndex = 3　　End Sub 接着在vbaproject工程中插入一个模块，在此模块中写入如下代码：　　Dim tt As 类1　　Sub changecolor()　　Set tt = New 类1　　Set tt.aaa = ActiveSheet　　End Sub　　Sub endchangecolor()　　Set tt = Nothing　　End Sub 　　之后你会在工具栏里找到两个分别为changecolor和endchangecolor的宏。 　　这样就完成了。当你想让格式