vba中的對(duì)話框和自定義窗體

1、對(duì)話框和自定義窗體對(duì)話框和自定義窗體在第四章，你學(xué)習(xí)了如何使用Excel內(nèi)置的InputBox函數(shù)在VBA過程執(zhí)行期間從用戶處收集單一數(shù)據(jù)。但是，萬一你的程序在運(yùn)行時(shí)需要多個(gè)數(shù)據(jù)怎么辦呢？用戶也許希望一次就提供所有數(shù)據(jù)，或者從項(xiàng)目清單中作出所有合適的選擇。如果你定程序必須收集數(shù)據(jù)的話，那么你可以：?使用內(nèi)置對(duì)話框集合?創(chuàng)建一個(gè)自定義窗體本章將教你如何從VBA過程里顯示內(nèi)置的對(duì)話框，以及從零開始設(shè)計(jì)你自己的自定義窗體。Excel對(duì)話框在開

2、始創(chuàng)建自己的窗體之前，你應(yīng)該花上一些時(shí)間學(xué)習(xí)如何利用Excel內(nèi)置的對(duì)話框，這些內(nèi)置對(duì)話框本來就是為我們準(zhǔn)備的。我講的不是手動(dòng)選擇適合的選項(xiàng)，而是從你自己的VBA過程里調(diào)用這些對(duì)話框。Excel有一個(gè)特殊的內(nèi)置對(duì)話框集合，它們用開頭為xlDialog的常量表示，例如xlDialogClear，xlDialogFont，xlDialogDefineName和xlDialogOptionsView。這些內(nèi)置對(duì)話框是Excel對(duì)象，屬于內(nèi)置D

3、ialos集合，每個(gè)dialog對(duì)象代表一個(gè)內(nèi)置對(duì)話框。表101常用的內(nèi)置對(duì)話框?qū)υ捒蛎Q常量新建xlDialogNew打開xlDialogOpen另存為xlDialogSaveAs頁面設(shè)置xlDialogPageSetup打印xlDialogPrint字體xlDialogFont按照下述格式使用Show方法來顯示對(duì)話框：Application.Dialogs(常量).Show例如，下面的語句顯示字體對(duì)話框：Application.Di

4、alogs(xlDialogFont).Show如果你在對(duì)象瀏覽器里面選擇Excel庫后，再輸入xlDialog搜索的話，那些代表Excel內(nèi)置對(duì)話框的常量清單就會(huì)顯示在對(duì)象瀏覽器里面了（參見圖101）1.打開一個(gè)新工作簿并且保存為Chap10.xls2.切換到VB編輯器窗口3.打開立即窗口4.輸入下述語句并查看結(jié)果：Application.Dialogs(xlDialogClear).ShowApplication.Dialogs(x

5、lDialogFont).ShowApplication.Dialogs(xlDialogFontProperties).ShowApplication.Dialogs(xlDialogDefineName).Show下面的指令顯示“定義名稱”對(duì)話框，并且在工作簿中的“名稱”文本框中輸入“John”，“引用位置”里引用到單元格A1：Application.Dialogs(xlDialogDefineName).Show“John““=$