Excel VBA能做些什么？

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

　　主要用途如下：

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

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

　　3、簡化模板的使用

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

　　5、創(chuàng)建報(bào)表

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

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

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

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

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

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

　　End If

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

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

　　If X = vbYes Then

　　Close

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

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

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

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

　　For Each w In Workbooks

　　If w.Name ThisWorkbook.Name Then

　　w.Close SaveChanges:=True

　　End If

　　Next w

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

　　Application.WindowState = xlMaximized

　　5、本示例顯示活動(dòng)工作表的名稱。

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

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

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