EXCELVBA-Chp15.pdf

《EXCELVBA-Chp15.pdf》由会员分享，可在线阅读，更多相关《EXCELVBA-Chp15.pdf（16页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、1 第十五章控制項15-01取得表單的控制項名稱應用範例Sub 顯示控制項的名稱()MsgBox“依序顯示各控制項的名稱”suu=ActiveSheet.Shapes.Count For i=1 To suu henji=MsgBox(“第”&i&“個控制項名稱為：”&ActiveSheet.Shapes(i).Name&“，繼續嗎？”,vbYesNo)If henji=vbNo Then Exit Sub Next i End Sub 15-02設定表單控制項的值應用範例Sub 設定控制項的值()MsgBox“點選選項按鈕2、取消勾選核取方塊4”ActiveSheet.option butt

2、on 2.Value=True ActiveSheet.check box 4.Value=False End Sub 15-03取得表單控制項的值應用範例Sub 顯示控制項的值()MsgBox“顯示選項按鈕、核取方塊、下拉式方塊、清單方塊的值”MsgBox“選項按鈕2 的值：”&ActiveSheet.option button 2.Value&vbCR&“選項按鈕3 的值：”&ActiveSheet.option button 3.Value&vbCR&“核取方塊4 的值：”&ActiveSheet.check box 4.Value&vbCR&“下拉式方塊的值：”&ActiveSheet

3、.drop down 5.Value&vbCR&“清單方塊的值：”&ActiveSheet.list box 6.Value End Sub 2 15-04隱藏表單控制項應用範例Sub 隱藏按鈕()MsgBox“隱藏使用中工作表內的按鈕1”ActiveSheet.button 1.Visible=False MsgBox“回復原來的狀態”ActiveSheet.button 1.Visible=True End Sub 15-05按下按鈕後執行巨集(表單)應用範例按下按鈕，即執行10-05的資料排序程序。請參閱10-05應用範例(資料排序)15-06取得控制工具箱的控制項名稱應用範例Sub 顯

4、示控制項的名稱()MsgBox“依序顯示各控制項的名稱”suu=ActiveSheet.Shapes.Count For i=1 To suu henji=MsgBox(“第”&i&“個控制項名稱為：”&ActiveSheet.Shapes(i).Name&“，繼續嗎？”,vbYesNo)If henji=vbNo Then Exit Sub Next i End Sub 3 15-07在控制工具箱的清單方塊、下拉式方塊中新增清單中的項目應用範例1 Sub 新增下拉式方塊的項目()MsgBox“新增下拉式方塊的項目”With ActiveSheet.ComboBox1 .AddItem“台北市

5、”.AddItem“台中市”.AddItem“高雄市”End With End Sub 應用範例2 Sub 新增清單方塊的項目()MsgBox“新增清單方塊的項目”With ActiveSheet.ListBox1 .AddItem“分公司 A”.AddItem“分公司 B”.AddItem“分公司 C”End With End Sub 15-08設定控制項的值(控制工具箱)應用範例Sub 設定控制項的值()MsgBox“設定文字方塊、選項按鈕及核取方塊的值”ActiveSheet.TextBox1.Value=100 ActiveSheet.OptionButton1.Value=True

6、ActiveSheet.CheckBox1.Value=True End Sub 4 15-09取得控制工具箱的控制項值應用範例Sub 顯示控制項的值()MsgBox“顯示文字方塊、選項按鈕、核取方塊、清單方塊及下拉式方塊的值”MsgBox“文字方塊的值：”&ActiveSheet.TextBox1.Value&vbCR&“OptionButton1的值：”&ActiveSheet.OptionButton1.Value&vbCR&“OptionButton2的值：”&ActiveSheet.OptionButton2.Value&vbCR&“CheckBox1的值：”&ActiveSheet

7、.CheckBox1.Value&vbCR&“清單方塊的值：”&ActiveSheet.ListBox1.Value&vbCR&“下拉式方塊的值：”&ActiveSheet.ComboBox1.Value End Sub 15-11指令按鈕與事件程序應用範例按下 CommandButton1按鈕後，即執行姓名排序的程序Private Sub CommandButton1_Click()hanni=“A2:C12”kii=“B2”ActiveSheet.Range(hanni).Select retu=Range(kii).Value henji=MsgBox(“對”&retu&“遞增排序”,v

8、bYesNo)If henji=vbNo Then Exit Sub Selection.Sort key1:=Range(kii),header:=xlYes,Order1:=xlAscending End Sub 15-12顯示視窗或對話方塊(自訂表單)應用範例Sub 顯示自訂表單()MsgBox“顯示自訂表單”UserForm1.Show End Sub 5 15-13變更自訂表單的高度及寬度應用範例Sub 設定自訂表單的尺寸()MsgBox“將 UserForm1的高度與寬度各放大1.5 倍”takasa=UserForm1.Height haba=UserForm1.Width Us

9、erForm1.Height=takasa*3/2 UserForm1.Width=haba*3/2 UserForm1.Show MsgBox“回復原來的狀態”UserForm1.Height=takasa UserForm1.Width=haba End Sub 15-14指令按鈕與事件程序應用範例請將下列各應用範例的程式代入Sub()End Sub之間後執行：15-19取得自訂表單內的控制項數量15-24隱藏自訂表單15-27關閉自訂表單15-15自訂表單與事件程序應用範例請將下列各應用範例的程式代入Sub()End Sub之間後執行：15-28一開啟自訂表單，即設好各控制項的值15-1

10、6控制項與事件程序應用範例請將下列各應用範例的程式代入Sub()End Sub之間後執行：15-29變更控制項的值後即顯示訊息6 15-17設定自訂表單的初始位置應用範例Sub 設定自訂表單的位置()MsgBox“將自訂表單置於螢幕的左上角”UserForm1.StartupPosition=3 UserForm1.Show End Sub 15-18設定自訂表單的位置應用範例按下 CommandButton1按鈕後即變更自訂表單的位置請使用 Virtual Basic編輯器，在 UserForm1中以滑鼠雙擊CommandButton1將下列程序寫入後，執行15-12的應用範例開啟自訂表單，

11、然後再按表單中CommandButton1按鈕來執行此應用範例。Private Sub CommandButton1_Click()MsgBox“變更自訂表單的位置”x=UserForm1.Left y=UserForm1.Top UserForm1.Left=x/2 UserForm1.Top=y/2 MsgBox“回復原來的狀態”UserForm1.Left=x UserForm1.Top=y End Sub 7 15-19取得自訂表單內的控制項數量應用範例按下 CommandButton1按鈕後即顯示自訂表單中控制項的數量請使用 Virtual Basic編輯器(請參閱 15-18)，在

12、 UserForm1中以滑鼠雙擊CommandButton1將下列程序寫入後，執行15-12的應用範例開啟自訂表單，然後再按表單中CommandButton1按鈕來執行此應用範例。Private Sub CommandButton1_Click()MsgBox“顯示自訂表單UserForm1內的控制項數量”MsgBox UserForm1.Controls.Count End Sub 15-20取得自訂表單中控制項的名稱應用範例按下 CommandButton1按鈕後即依序顯示自訂表單中的控制項名稱請使用 Virtual Basic編輯器(請參閱 15-18)，在 UserForm1中以滑鼠雙

13、擊CommandButton1將下列程序寫入後，執行15-12的應用範例開啟自訂表單，然後再按表單中CommandButton1按鈕來執行此應用範例。Private Sub CommandButton1_Click()MsgBox“依序顯示自訂表單中的控制項名稱”i=1 For Each youso in UserForm1.Controls henji=MsgBox(“第”&i&“個控制項的名稱為：”&youso.Name&“，繼續嗎？”,vbYesNo)If henji=vbNo Then Exit Sub i=i+1 Next youso End Sub 8 15-21設定自訂表單控制項

14、的值應用範例Sub 設定控制項的值()MsgBox“將 100 填入文字方塊中、點選OptionButton1、勾選 CheckBox1後開啟自訂表單UserForm1”UserForm1.TextBox1.Value=100 UserForm1.OptionButton1.Value=True UserForm1.CheckBox1.Value=True UserForm1.Show End Sub 15-22自儲存格範圍中指定清單方塊及下拉式方塊的項目來源應用範例1 Sub 指定清單方塊內的項目()MsgBox“將儲存格範圍A2 到 A10 中的資料作為清單方塊ListBox1內的項目”U

15、serForm1.ListBox1.RowSource=“A2:A10”UserForm1.Show End Sub 應用範例2 Sub 指定下拉式方塊內的項目()MsgBox“將儲存格範圍A2 到 A10 中的資料作為下拉式方塊ComboBox1內的項目”UserForm1.ComboBox1.RowSource=“A2:A10”UserForm1.Show End Sub 9 15-23設定清單方塊、下拉式方塊內的項目應用範例1 Sub 設定清單方塊內的項目()MsgBox“新增清單方塊內的項目”With UserForm1.ListBox1 .AddItem“分公司 A”.AddItem

16、“分公司 B”.AddItem“分公司 C”End With UserForm1.Show End Sub 應用範例2 Sub 設定下拉式方塊內的項目()MsgBox“新增下拉式方塊內的項目”With UserForm1.ComboBox1 .AddItem“台北市”.AddItem“台中市”.AddItem“高雄市”,0 End With UserForm1.Show End Sub 15-24隱藏自訂表單應用範例按下 CommandButton1按鈕後即隱藏自訂表單請使用 Virtual Basic編輯器(請參閱 15-18)，在 UserForm1中以滑鼠雙擊CommandButton1

17、將下列程序寫入後，執行15-12的應用範例開啟自訂表單，然後再按表單中CommandButton1按鈕來執行此應用範例。Private Sub CommandButton1_Click()MsgBox“隱藏自訂表單UserForm1”UserForm1.Hide MsgBox“回復原來的狀態”UserForm1.Show End Sub 10 15-25隱藏自訂表單內的控制項應用範例按下 CommandButton1按鈕後即隱藏核取方塊CheckBox1請使用 Virtual Basic編輯器(請參閱 15-18)，在 UserForm1中以滑鼠雙擊CommandButton1將下列程序寫入後

18、，執行15-12的應用範例開啟自訂表單，然後再按表單中CommandButton1按鈕來執行此應用範例。Private Sub CommandButton1_Click()MsgBox“隱藏核取方塊CheckBox1”UserForm1.CheckBox1.Visible=False MsgBox“回復原來的狀態”UserForm1.CheckBox1.Visible=True End Sub 15-26停用自訂表單內的控制項應用範例按下 CommandButton1按鈕後即停用核取方塊CheckBox1請使用 Virtual Basic編輯器(請參閱 15-18)，在 UserForm1中以

19、滑鼠雙擊CommandButton1將下列程序寫入後，執行15-12的應用範例開啟自訂表單，然後再按表單中CommandButton1按鈕來執行此應用範例。Private Sub CommandButton1_Click()MsgBox“停用 CheckBox1”UserForm1.CheckBox1.Enabled=False MsgBox“回復原來的狀態”UserForm1.CheckBox1.Enabled=True End Sub 15-27關閉自訂表單應用範例按下 CommandButton2按鈕後即關閉自訂表單UserForm1請使用 Virtual Basic編輯器(請參閱 15

20、-18)，在 UserForm1中以滑鼠雙擊CommandButton2將下列程序寫入後，執行15-12的應用範例開啟自訂表單，然後再按表單中CommandButton2按鈕來執行此應用範例。11 Private Sub CommandButton2_Click()MsgBox“關閉自訂表單UserForm1”Unload UserForm1 End Sub 15-28一開啟自訂表單，即設好各控制項的值應用範例請使用 Virtual Basic編輯器(請參閱 15-18)，以滑鼠雙擊UserForm1，將下列程序寫入後，執行15-12的應用範例開啟自訂表單來觀察執行結果。Private Sub

21、 UserForm_Activate()MsgBox“一開啟 UserForm1，即依程序中的設定將資料寫入各控制項內”UserForm1.TextBox1.Value=“Excel VBA”UserForm1.OptionButton1.Value=True UserForm1.CheckBox1.Value=True With UserForm1.ListBox1 .AddItem“分公司 A”.AddItem“分公司 B”.AddItem“分公司 C”End With With UserForm1.ComboBox1 .AddItem“台北市”.AddItem“台中市”.AddItem“

22、高雄市”End With End Sub 12 15-29變更自訂表單控制項的值後即顯示訊息應用範例請使用 Virtual Basic編輯器(請參閱 15-18)，按 插入 自訂表單(新增自訂表單UserForm2)，在 UserForm2中新增文字方塊及指令按鈕後，以滑鼠雙擊UserForm2，將下列程序寫入。執行前請參考15-12的應用範例，先開啟自訂表單 UserForm2後再依下述說明執行。說明在自訂表單UserForm2的文字方塊TextBox1內輸入查詢文字後，將顯示在文字方塊中輸入欲查詢的文字後，請按CommnadButton1按鈕開始搜尋資料的對話窗；當按下CommandBut

23、ton1後，開始搜尋的程序(Private Sub CommandButton1_Click()。1.變更 TextBox1內的值後，顯示訊息對話窗Private Sub TextBox1_AfterUpdate()MsgBox“在文字方塊中輸入欲查詢的文字後，請按CommnadButton1按鈕開始搜尋資料”End Sub 2.按下 ConnandButton1後的資料搜尋程序Private Sub CommandButton1_Click moji=UserForm2.TextBox1.Value MsgBox“從使用中儲存格開始搜尋含有”&moji&“文字的儲存格”Set iti=Cel

24、ls.Find(What:=moji,After:=ActiveCell)If iti Is Nothing Then MsgBox“查無此資料”Exit Sub Else iti.Select End If End Sub 13 15-30自訂表單中下拉式方塊與指令按鈕的應用應用範例請使用 Virtual Basic編輯器(請參閱 15-18)，在 UserForm1中以滑鼠雙擊CommandButton1將下列程序寫入後，執行15-12的應用範例開啟自訂表單，然後再按表單中CommandButton1按鈕來執行此應用範例。說明按下 CommandButton1指令按鈕後，即將下拉式方塊中被

25、選取的項目寫入儲存格 A1 內。設定下拉式方塊的項目Private Sub UserForm_Activate()With UserForm1.ComboBox1 .AddItem“台北市”.AddItem“台中市”.AddItem“高雄市”End With End Sub 按下 CommandButton1後Private Sub CommandButton1_Click()MsgBox“將下拉式方塊內的值寫入使用中工作表內的A1 儲存格中”atai=UserForm1.ComboBox1.Value ActiveSheet.Range(“A1”)=atai End Sub 14 15-31

26、自訂表單中清單方塊與指令按鈕的應用應用範例請使用 Virtual Basic編輯器(請參閱 15-18)，在 UserForm1中以滑鼠雙擊CommandButton1將下列程序寫入後，執行15-12的應用範例開啟自訂表單，然後再按表單中CommandButton1按鈕來執行此應用範例。說明按下 CommandButton1指令按鈕後，即將清單方塊中被選取的項目寫入儲存格 A1 內。設定清單方塊的項目Private Sub UserForm_Activate()With UserForm1.ListBox1 .AddItem“分公司 A”.AddItem“分公司 B”.AddItem“分公司

27、C”End With End Sub 按下 CommandButton1後Private Sub CommandButton1_Click()MsgBox“將清單方塊內被選取的項目寫入使用中工作表內的A1 儲存格中”atai=UserForm1.ListBox1.Value ActiveSheet.Range(“A1”)=atai End Sub 15 15-32自訂表單中核取方塊與指令按鈕的應用應用範例請使用 Virtual Basic編輯器(請參閱 15-18)，按 插入 自訂表單(新增自訂表單UserForm2)，在 UserForm2中新增兩個核取方塊及一個指令按鈕後，以滑鼠雙擊 Us

28、erForm2，將下列程序寫入。執行前請參考15-12的應用範例，先開啟自訂表單UserForm2後再依下述說明執行。說明在自訂表單UserForm2中勾選 CheckBox1、按下 CommandButton1後，將隱藏樞紐分析表中的行總計；勾選CheckBox2則隱藏樞紐分析表中的列總計。Private Sub CommandButton1_Click()ch1=UserForm2.CheckBox1.Value ch2=UserForm2.CheckBox2.Value If ch1=True Then Selection.PivotTable.RowGrand=False Else S

29、election.PivotTable.RowGrand=True End If If ch2=True Then Selection.PivotTable.ColumnGrand=False Else Selection.PivotTable.ColumnGrand=True End If End Sub 16 15-33自訂表單中選項按鈕與指令按鈕的應用應用範例請使用 Virtual Basic編輯器(請參閱 15-18)，按 插入 自訂表單(新增自訂表單UserForm2)，在 UserForm2中新增兩個選項按鈕及一個指令按鈕後，以滑鼠雙擊 UserForm2，將下列程序寫入。執行前請

30、參考15-12的應用範例，先開啟自訂表單UserForm2後再依下述說明執行。說明在自訂表單UserForm2中點選 OptionButton1後按下CommandButton1，圖案將變為立體圖案，若點選的是OptionButton2，圖案將變為平面圖案。Private Sub CommandButton1_Click()op1=UserForm2.OptionButton1.Value op2=UserForm2.OptionButton2.Value If op1=True Then Selection.ShapeRange.ThreeD.SetThreeDFormat msoThreeD1 End If If op2=True Then Selection.ShapeRange.ThreeD.Visible=msoFalse End If End Sub