Excel VBA能做些什么？

　　簡單地說，就是模擬人工操作，完成一些挺繁瑣的事情。比如：從網(wǎng)上復(fù)制到Word的文章，格式很亂，你就可以自己寫一個宏，來自動完成整理工作，而不是人工一點一點地改，那樣太累了。

　　主要用途如下：

　　1、使重復(fù)的任務(wù)自動化

　　2、自定義EXCEL工具欄，菜單和界面

　　3、簡化模板的使用

　　4、自定義EXCEL，使其成為開發(fā)平臺

　　5、創(chuàng)建報表

　　6、對數(shù)據(jù)進行復(fù)雜的操作和分析

　　以下是Visual Basic for Application的一些部分代碼用途案例：

　　1、本示例為設(shè)置密碼窗口(1)

　　If Application.InputBox(“請輸入密碼:”) = 1234 Then

　　[A1] = 1 密碼正確時執(zhí)行

　　Else:MsgBox “密碼錯誤，即將退出！” 此行與第2行共同設(shè)置密碼

　　End If

　　2、本示例為設(shè)置密碼窗口(1)

　　X = MsgBox(“是否真的要結(jié)帳?”, vbYesNo)

　　If X = vbYes Then

　　Close

　　3、本示例為設(shè)置工作表密碼

　　ActiveSheet.Protect Password:=641112 ‘ 保護工作表并設(shè)置密碼

　　ActiveSheet.Unprotect Password:=641112 ’撤消工作表保護并取消密碼

　　4、本示例關(guān)閉除正在運行本示例的工作簿以外的其他所有工作簿，并保存其更改內(nèi)容。

　　For Each w In Workbooks

　　If w.Name ThisWorkbook.Name Then

　　w.Close SaveChanges:=True

　　End If

　　Next w

　　每次打開工作簿時，本示例都最大化 Microsoft Excel 窗口。

　　Application.WindowState = xlMaximized

　　5、本示例顯示活動工作表的名稱。

　　MsgBox"The name of the active sheet is"& ActiveSheet.Name

　　6、本示例保存當(dāng)前活動工作簿的副本。

　　ActiveWorkbook.SaveCopyAs"C:/TEMP/XXXX.XLS"