vba中的對話框和自定義窗體

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

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

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

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

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