vba地控件及用戶窗體

上傳人：奔*** IP屬地：河北更新時間：2024-05-10 格式：doc 頁數(shù)：158 大小：6.69MB 人氣指數(shù)：12 舉報 版權(quán)申訴

已閱讀1頁，還剩157頁未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報或認(rèn)領(lǐng)

文檔簡介

1、　　目錄　　VBA常用技巧1　　第8章控件與用戶窗體4　　技巧1限制文本框的輸入4　　技巧2文本框添加右鍵快捷菜單6　　技

2、巧3文本框回車自動輸入10　　技巧4自動選擇文本框內(nèi)容11　　技巧5設(shè)置文本框數(shù)據(jù)格式12　　技巧6限制文本框的輸入長度14　　技巧7將光標(biāo)返回文本框中15　　技巧8文本框的自動換行17

3、　　技巧9多個文本框數(shù)據(jù)相加19　　技巧10控件跟隨活動單元格20　　技巧11高亮顯示按鈕21　　技巧12組合框和列表框添加列表項(xiàng)的方法23　　12-1使用RowSource屬性添加列表項(xiàng)23<p&g

4、t;　　12-2使用List屬性添加列表項(xiàng)24　　12-3使用AddItem方法添加列表項(xiàng)25　　技巧13去除列表框數(shù)據(jù)源的重復(fù)值和空格27　　技巧14移動列表框條目29　　技巧15允許多項(xiàng)選擇的列表框32

5、技巧16多列組合框和列表框的設(shè)置35　　16-1多列組合框和列表框添加列表項(xiàng)35　　16-2多列列表框?qū)懭牍ぷ鞅?7　　技巧17輸入時逐步提示信息39　　技巧18二級組合框46　　技巧19使用DTP控件輸入日

6、期48　　技巧20使用RefEdit控件選擇區(qū)域51　　技巧21如何注冊控件52　　技巧22遍歷控件的方法55　　22-1使用名稱中的變量遍歷控件55　　22-2使用對象類型遍歷控件57

7、　　22-3使用程序標(biāo)識符遍歷控件58　　22-4使用名稱中的變量遍歷圖形59　　22-5使用FormControlType屬性遍歷圖形60　　技巧23使微調(diào)框最小變動量小于161　　技巧24不打印工作表中的控件63</p&g

8、t;　　24-1設(shè)置控件格式63　　24-2設(shè)置控件的printobjcet屬性65　　技巧25在框架中使用滾動條65　　技巧26使用多頁控件67　　技巧27標(biāo)簽文字垂直居中對齊69　　技

9、巧28使用TabStrip控件71　　技巧29顯示GIF動畫圖片73　　技巧30播放Flash文件76　　技巧31在工作表中添加窗體控件78　　31-1使用AddFormControl方法79　　31-2使用

10、Add方法81　　技巧32在工作表中添加ActiveX控件83　　32-1使用Add方法84　　32-2使用AddOLEObject方法86　　技巧33使用spreadsheet控件87　　技巧34使用List

11、view控件90　　34-1使用Listview控件顯示數(shù)據(jù)列表90　　34-2在Listview控件中使用復(fù)選框93　　34-3調(diào)整Listview控件的行距95　　34-4在Listview控件中排序98

12、34-5Listview控件的圖標(biāo)設(shè)置99　　技巧35調(diào)用非模式窗體102　　技巧36進(jìn)度條的制作104　　36-1使用進(jìn)度條控件104　　36-2使用標(biāo)簽控件106　　技巧37使用TreeView控件顯示層

13、次109　　技巧38用戶窗體添加圖標(biāo)113　　技巧39用戶窗體添加最大最小化按紐115　　技巧40禁用窗體標(biāo)題欄的關(guān)閉按鈕116　　技巧41屏蔽窗體標(biāo)題欄的關(guān)閉按鈕117　　技巧42無標(biāo)題欄和邊框的窗體119

14、　　技巧43制作年月選擇窗體120　　技巧44自定義窗體中的鼠標(biāo)指針類型123　　技巧45調(diào)整窗體的顯示位置124　　技巧46由鼠標(biāo)確定窗體顯示位置126　　技巧47用戶窗體的打印127

15、　　技巧48使用自定義顏色設(shè)置窗體顏色129　　技巧49在窗體中顯示圖表130　　49-1使用Export方法130　　49-2使用API函數(shù)132　　技巧50窗體運(yùn)行時調(diào)整控件大小133

16、技巧51在用戶窗體上添加菜單136　　技巧52在用戶窗體上添加工具欄140　　技巧53使用代碼添加窗體及控件145　　技巧54用戶窗體的全屏顯示151　　54-1設(shè)置用戶窗體為應(yīng)用程序的大小151　　54-2

17、根據(jù)屏幕分辨率進(jìn)行設(shè)置152　　技巧55在用戶窗體上添加狀態(tài)欄153　　控件與用戶窗體　　限制文本框的輸入　　用戶在使用文本框輸入數(shù)據(jù)時，往往希望能限制輸入數(shù)據(jù)的類型，比如只能輸入數(shù)字。但是

18、沒有內(nèi)置的屬性能限制在文本框中只能輸入數(shù)字，只能在文本框的事件過程中使用代碼來測試輸入的是哪類字符，然后只允許輸入數(shù)字字符和一個“-”號、一個“.”號，如下面的代碼所示。　　#001 Private Sub TextBox1_KeyPress(ByVal KeyANSI As MSForms.ReturnInteger)　　#002 Sele

19、ct Case KeyANSI　　#003 Case Asc("0") To Asc("9")　　#004 Case Asc("-")　　#005 If InStr(1, Me.TextBox

20、1.Text, "-") > 0 Or _　　#006 Me.TextBox1.SelStart > 0 Then　　#007 KeyANSI = 0　　#008 End If</p

21、>　　#009 Case Asc(".")　　#010 If InStr(1, Me.TextBox1.Text, ".") > 0 Then　　#011 KeyANSI = 0&

22、lt;p>　　#012 End If　　#013 Case Else　　#014 KeyANSI = 0　　#015 End Select　　#016 End Sub

23、;　　代碼解析：　　文本框的KeyPress事件過程，測試鍵盤輸入的是哪類字符，只允許輸入數(shù)字字符和一個“-”號、一個“.”號。　　KeyPress事件的語法如下：　　Private Sub object_KeyPress( ByVal KeyANSI

24、As MSForms.ReturnInteger)　　參數(shù)Object是必需的，一個有效的對象。　　參數(shù)KeyANSI是可選的，整數(shù)值，代表標(biāo)準(zhǔn)的數(shù)字ANSI 鍵代碼。　　第2行代碼使用Case Else語句測試文本框KeyPress事件的KeyANSI參數(shù)值。　　第3行

25、代碼，如果鍵盤輸入的是0到9之間的數(shù)字字符，則允許輸入。如果想在文本框中允許其它類型的字符輸入，在此句代碼中列出允許輸入的字符即可。　　第4行到第8行代碼，如果鍵盤輸入的是“-”號，先使用InStr函數(shù)測試文本框中是否已有“-”號，如果InStr函數(shù)返回值大于0，說明文本框中已有“-”號。接下來使用文本框的SelStart 屬性來測試插入點(diǎn)，如果文本框的SelStart 屬性值大于0，說明“-”

26、號的插入點(diǎn)不是第一個。如果以上兩個條件中有任何一個成立，將KeyAscii參數(shù)值設(shè)置為0，使文本框只能在第一位輸入一個“-”號。　　第9行到第12行代碼，如果鍵盤輸入的是“.”號的話，使用InStr函數(shù)測試文本框中是否已有“.”號，如果已有“.”號，將KeyAscii參數(shù)值設(shè)置為0，使文本框只能輸入一個“.”號。　　第13、14行代碼，如果鍵盤輸入的是其

27、他字符則將KeyAscii參數(shù)值設(shè)置為0，使文本框不能輸入其他字符。　　經(jīng)過以上設(shè)置文本框只允許輸入數(shù)字字符和一個“-”號、一個“.”號，但是能輸入中文字符。如果希望限制中文字符的輸入，可以在文本框的Change事件中進(jìn)行設(shè)置，如下面的代碼所示。　　#001 Private Sub TextBox1_Change()<p&

28、gt;　　#002 Dim i As Integer　　#003 Dim s As String　　#004 With TextBox1　　#005 For i = 1 To Len(.Text)　　#006

29、 s = Mid(.Text, i, 1)　　#007 Select Case s　　#008 Case ".", "-", "0" To "9"　　#009

30、 Case Else　　#010 .Text = Replace(.Text, s, "")　　#011 End Select　　#012 Next<

31、p>　　#013 End With　　#014 End Sub　　代碼解析：　　文本框的Change事件，判斷輸入的字符是否為數(shù)字字符和“-”號、“.”號，如果不是則使用Replace函數(shù)將文本框中輸入的其他字符替換成空白。<p

32、>　　第5、6行代碼在文本框輸入的所有字符中循環(huán)。　　第8行代碼列出允許輸入的字符。如果想在文本框中允許其它字符輸入，在此句代碼中列出即可。　　第9、10行代碼，如果不是允許輸入的字符，使用Replace函數(shù)替換成空白。　　經(jīng)過以上的設(shè)置，文本框中只能在第一位輸入一個“-”號、一個“.”號和“0”到“9”的

33、數(shù)字。　　文本框添加右鍵快捷菜單　　VBA中的控件沒有提供右鍵快捷菜單，用戶可以使用Excel 中的命令欄自已添加右鍵快捷菜單。　　步驟1：按<Alt+F11>組合鍵進(jìn)入VBE窗口，單擊菜單“插入”→“模塊”，在其代碼窗口輸入以下代碼：　　#001 Priv

34、ate ActiveTB As MSForms.TextBox　　#002 Public Sub CreateShortCutMenu()　　#003 Dim ShortCutMenu As CommandBar　　#004 Dim ShortCutMenuItem As CommandBa

35、rButton　　#005 Dim sCaption As Variant　　#006 Dim iFaceId As Variant　　#007 Dim sAction As Variant　　#008 Dim i As Integ

36、er　　#009 sCaption = Array("剪切(&C)", "復(fù)制(&T)", "貼粘(&P)", "刪除(&D)")　　#010 iFaceId = Array(21, 19, 22, 1786)</p&

37、gt;　　#011 sAction = Array("Action_Cut", "Action_Copy", "Action_Paste", "Action_Delete")　　#012 On Error Resume Next　　#

38、013 Application.CommandBars("ShortCut").Delete　　#014 Set ShortCutMenu = Application.CommandBars.Add("ShortCut", msoBarPopup)　　#015 With ShortCu

39、tMenu　　#016 For i = 0 To 3　　#017 Set ShortCutMenuItem = .Controls.Add(msoControlButton)　　#018 With ShortCutMenuItem</p&

40、gt;　　#019 .Caption = sCaption(i)　　#020 .faceID = Val(iFaceId(i))　　#021 .OnAction = sAction(i)

41、#022 End With　　#023 Next　　#024 End With　　#025 End Sub　　代碼解析：　　第1行代碼，

42、在模塊級別中聲明變量ActiveTB是用來對應(yīng)窗體中的文本框所觸發(fā)的所有事件的變量。　　CreateShortCutMenu過程用來創(chuàng)建標(biāo)題為“ShortCut”的右鍵快捷菜單，并添加4個菜單項(xiàng)。關(guān)于自定義右鍵快捷菜單請參閱技巧86 。　　#001 Public Sub ShowPopupMenu(txtCtr As MSForms.TextBox)&

43、lt;/p>　　#002 Dim Action As Variant　　#003 Set ActiveTB = txtCtr　　#004 With Application.CommandBars("ShortCut")　　#005

44、 .Controls(1).Enabled = txtCtr.SelLength > 0　　#006 .Controls(2).Enabled = .Controls(1).Enabled　　#007 .Controls(3).Enabled = txtCtr.CanPaste

45、　　#008 .Controls(4).Enabled = .Controls(1).Enabled　　#009 .ShowPopup　　#010 End With　　#011 End Sub<b&g

46、t;　　代碼解析：　　ShowPopupMenu過程根據(jù)文本框中字符的選中狀態(tài)設(shè)置右鍵快捷菜單菜單項(xiàng)的Enabled屬性后使用ShowPopup方法顯示右鍵快捷菜單。　　第5行代碼，如果當(dāng)前文本框中已有選中的字符則“剪切”按鈕有效。　　第6行代碼，如果當(dāng)前文本框中已有選中的字符則“復(fù)制”按鈕有

47、效。　　第7行代碼，如果剪貼板中包含對象支持的數(shù)據(jù)。則“貼粘”按鈕有效。　　第8行代碼，如果當(dāng)前文本框中已有選中的字符則“刪除”按鈕有效。　　第9行代碼，顯示快捷菜單。　　#001 Public Sub Action_Cut()

48、　　#002 ActiveTB.Cut　　#003 End Sub　　#004 Public Sub Action_Copy()　　#005 ActiveTB.Copy　　#006 End Sub　　#0

49、07 Public Sub Action_Paste()　　#008 ActiveTB.Paste　　#009 End Sub　　#010 Public Sub Action_Delete()　　#011 Dim s As String</

50、p>　　#012 With ActiveTB　　#013 s = .SelText　　#014 .Value = Replace(.Value, s, "")　　#015 End With

51、　　#016 End Sub　　代碼解析：　　Action_Cut過程是快捷菜單中單擊“剪切”菜單項(xiàng)所運(yùn)行的過程。使用Cut 方法將當(dāng)前選中的文本框中的文本刪除并移至剪貼板。　　Action_Copy過程是快捷菜單中單擊“復(fù)制”菜單項(xiàng)所運(yùn)行的過程。使用C

52、opy方法將文本框選中的文本復(fù)制到剪貼板上。　　Action_Paste過程是快捷菜單中單擊“貼粘”菜單項(xiàng)所運(yùn)行的過程。使用Paste方法把剪貼板上的內(nèi)容傳送到一個文本框中。　　Action_Delete過程是快捷菜單中單擊“貼粘”菜單項(xiàng)所運(yùn)行的過程。使用Replace函數(shù)將文本框中選中的文本的文本替換成空字符。

53、　　#001 Public Sub DeleteShortCutMenu()　　#002 On Error Resume Next　　#003 Application.CommandBars("ShortCut").Delete　　#004 End Sub</p&

54、gt;　　代碼解析：　　DeleteShortCutMenu過程刪除創(chuàng)建的右鍵快捷菜單。　　步驟2：在VBE窗口中，單擊菜單“插入”→“用戶窗體”，在窗體上添加兩個文本框控件。雙擊窗體，在其代碼窗口中輸入下面的代碼。　　#001 Private Sub

55、 UserForm_Initialize()　　#002 Call CreateShortCutMenu　　#003 End Sub　　#004 Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer,

56、 ByVal X As Single, ByVal Y As Single)　　#005 If Button = 2 Then ShowPopupMenu ActiveControl　　#006 End Sub　　#007 Private Sub TextBox2_MouseUp(ByVal But

57、ton As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)　　#008 If Button = 2 Then ShowPopupMenu ActiveControl　　#009 End Sub　　#010

58、 Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)　　#011 Call DeleteShortCutMenu　　#012 End Sub　　代碼解析：</p&g

59、t;　　第1行到第3行代碼，窗體的Initialize事件，在窗體初始化時運(yùn)行CreateShortCutMenu過程創(chuàng)建右鍵快捷菜單。　　第4行到第9行代碼，文本框的MouseUp事件，當(dāng)用戶右健單擊文本框時運(yùn)行ShowPopupMenu過程在選中的菜單項(xiàng)上顯示右鍵快捷菜單。　　第10行到第12行代碼，窗體的QueryClose事

60、件，在關(guān)閉窗體時運(yùn)行DeleteShortCutMenu過程刪除右鍵快捷菜單。　　窗體運(yùn)行后，右鍵單擊文本框顯示右鍵快捷菜單，如圖 991所示。　　圖 991文本框快捷菜單　　文本框回車自動輸入　　在使用文本框向工作表輸入數(shù)據(jù)時

61、，為了加快輸入速度，可以利用文本框的KeyDown事件，回車后自動輸入并清空文本框，如下面的代碼所示。　　#001 Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)　　#002 With TextBox1&l

62、t;/p>　　#003 If Len(Trim(.Value)) > 0 Then　　#004 If KeyCode = vbKeyReturn Then　　#005 Sheet1.Range("A65536").End(x

63、lUp).Offset(1, 0) = .Value　　#006 .Text = ""　　#007 End If　　#008 End If　　#009 End Wi

64、th　　#010 End Sub　　代碼解析：　　文本框的KeyDown事件，在輸入數(shù)據(jù)并按<Enter>鍵后自動將數(shù)據(jù)錄入到工作表A列最后一個非空單元格的下一個單元格中。　　KeyDown事件在按下鍵盤按鍵時發(fā)生，語法

65、如下：　　Private Sub object_KeyDown( ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As fmShiftState)　　參數(shù)object是必需的，一個有效的對象。　　參數(shù)KeyCode是必需的，代表被按下的鍵的鍵代碼。</

66、p>　　參數(shù)Shift是可選的，Shift、Ctrl 和Alt的狀態(tài)。　　第3行代碼，為了防止誤輸入空白數(shù)據(jù)，使用Len 函數(shù)和Trim 函數(shù)檢查文本框內(nèi)是否為有效數(shù)據(jù)。　　第4行代碼，根據(jù)KeyCode參數(shù)值判斷是否按下了回車鍵。如果用戶按下了回車鍵，KeyCode參數(shù)返回常數(shù)vbKeyReturn。

67、　　第5、6行代碼，將文本框數(shù)據(jù)輸入到工作表A列的最后一個單元格內(nèi)，同時清空文本框內(nèi)容準(zhǔn)備下一次輸入。　　自動選擇文本框內(nèi)容　　如果希望光標(biāo)進(jìn)入文本框時能自動選擇文本框內(nèi)容，可以在文本框的MouseUp事件中來完成，如下面的代碼所示。　　#001 Priv

68、ate Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)　　#002 With TextBox1　　#003 If Button = 2 Then</p&g

69、t;　　#004 .SelStart = 0　　#005 .SelLength = Len(.Text)　　#006 End If　　#007 End With　　#00

70、8 End Sub　　代碼解析：　　文本框的MouseUp事件，在光標(biāo)進(jìn)入文本框釋放鼠標(biāo)右鍵時自動選擇文本框內(nèi)容。　　MouseUp事件在用戶釋放鼠標(biāo)按鍵時發(fā)生，語法如下：　　Private Sub object_MouseUp(

71、ByVal Button As fmButton, ByVal Shift As fmShiftState, ByVal X As Single, ByVal Y As Single)　　參數(shù)object是必需的，一個有效的對象。　　參數(shù)Button是可選的，設(shè)置引起該事件的鼠標(biāo)按鍵的整數(shù)值，如表格 1011所示。<p&g

72、t;　　表格 1011Button參數(shù)值　　參數(shù)Shift是可選的，Shift、Ctrl 和Alt的狀態(tài)。　　參數(shù)X和參數(shù)Y是可選的，窗體、框架或頁的位置的橫坐標(biāo)與縱坐標(biāo)。　　第3行到第6行代碼，如果用戶進(jìn)入文本框釋放鼠標(biāo)右鍵，設(shè)置文本框的SelStart 屬性為0，SelLength屬性為文本框的全部字符數(shù)

73、。　　SelStart 屬性指定選中文本的起點(diǎn)，語法如下：　　object.SelStart [= Long]　　參數(shù)object是必需的，一個有效的對象。　　參數(shù)Long是可選的，指定選中文本的起點(diǎn)。　　SelLength 屬性

74、指定文本框或組合框的文本部分中選中的字符數(shù)，語法如下：　　object.SelLength [= Long]　　參數(shù)object是必需的，一個有效的對象。　　參數(shù)Long是可選的，指定選中的字符數(shù)。　　運(yùn)行窗體，當(dāng)光標(biāo)進(jìn)入文本框釋放鼠標(biāo)右鍵時自動選擇文本框內(nèi)容，如圖 10

75、11所示。　　圖 1011自動選擇文本框內(nèi)容　　設(shè)置文本框數(shù)據(jù)格式　　文本框在用來輸入數(shù)據(jù)時，除了限制輸入的數(shù)據(jù)類型外，還可以設(shè)置文本框的數(shù)據(jù)格式，如下面的代碼所示。　　#001 Private Sub TextBox1_Ex

76、it(ByVal Cancel As MSForms.ReturnBoolean)　　#002 TextBox1 = Format(TextBox1, "0.00")　　#003 End Sub　　#004 Private Sub TextBox2_Exit(ByVal Canc

77、el As MSForms.ReturnBoolean)　　#005 TextBox2 = Format(TextBox2, "0.00")　　#006 End Sub　　代碼解析：　　文本框的Exit

78、事件過程，在文本框輸入數(shù)據(jù)時使用Format函數(shù)格式化為兩位小數(shù)格式。　　控件的Exit事件在同一窗體中的一個控件即將把焦點(diǎn)轉(zhuǎn)移到另一個控件之前發(fā)生，語法如下：　　Private Sub object_Exit( ByVal Cancel As MSForms.ReturnBoolean)　　參數(shù)Object是必

79、需的，一個有效的對象。　　參數(shù)Cancel是必需的，事件狀態(tài)。如果設(shè)置為False表示由該控件處理這個事件（默認(rèn)方式）。設(shè)置為True表示由應(yīng)用程序處理這個事件，并且焦點(diǎn)留在當(dāng)前控件上。　　當(dāng)文本框在輸入完數(shù)據(jù)失去焦點(diǎn)時使用Format函數(shù)格式化自定義數(shù)值格式。Format函數(shù)語法如下：　　Format(expr

80、ession[, format[, firstdayofweek[, firstweekofyear]]])　　參數(shù)expression是必需的，任何有效的表達(dá)式。　　參數(shù)format是可選的，有效的命名表達(dá)式或用戶自定義格式表達(dá)式。　　參數(shù)firstdayofweek是可選的，常數(shù)，表示一星期的第一天。<

81、/p>　　參數(shù)firstweekofyear是可選的，常數(shù)，表示一年的第一周。　　在本例中，將文本框的數(shù)據(jù)格式化成自定義的兩位小數(shù)的數(shù)值格式，關(guān)于Format函數(shù)格式化日期和時間等其他數(shù)據(jù)請參閱VBA中Format函數(shù)的幫助。　　#001 Private Sub TextBox1_Change()&l

82、t;p>　　#002 TextBox3 = Format(Val(TextBox1) * Val(TextBox2), "0.00")　　#003 End Sub　　#004 Private Sub TextBox2_Change()　　#005 TextBox3

83、 = Format(Val(TextBox1) * Val(TextBox2), "0.00")　　#006 End Sub　　代碼解析：　　文本框的Change事件過程，在兩個文本框輸入完數(shù)據(jù)后，使用文本框的Change事件使TextBox3顯示其相乘

84、的金額并格式化為兩位小數(shù)的數(shù)據(jù)格式。　　Change事件在控件的 Value 屬性改變時發(fā)生，語法如下：　　Private Sub object_Change( )　　參數(shù)object是必需的，一個有效的對象。　　Change事件過程可以使顯示在控件上的數(shù)據(jù)同步或一致。在

85、本例中，當(dāng)TextBox1或TextBox2的數(shù)據(jù)發(fā)生改變時，兩者相乘的金額的金額也隨之改變并在TextBox3中顯示。　　因?yàn)槲谋究虻臄?shù)據(jù)類型是文本字符串，不能直接進(jìn)行計算的，所以計算前先使用Val函數(shù)轉(zhuǎn)換為數(shù)字，才能進(jìn)行計算。　　運(yùn)行窗體，輸入數(shù)據(jù)后格式化為兩位小數(shù)的數(shù)據(jù)格式，如圖 1021所示。　　圖 1

86、021設(shè)置文本框的數(shù)據(jù)格式　　限制文本框的輸入長度　　在使用文本框輸入數(shù)據(jù)時，可能希望限制能輸入的字符長度，即只能輸入一定長度的字符，超過設(shè)置數(shù)值就不能輸入，這時可以通過設(shè)置文本框的MaxLength屬性來實(shí)現(xiàn)，如下面的代碼所示。　　#001 Private Sub Worksheet_Activate()

87、　　#002 Me.TextBox1.MaxLength = 6　　#003 End Sub　　代碼解析：　　工作表的激活事件過程，將文本框的MaxLength屬性設(shè)置為6，使文本框只能輸入6個字符，超過6個字符即不能輸入

88、。　　應(yīng)用于文本框控件的MaxLength屬性規(guī)定用戶可以在文本框中輸入的最多字符數(shù)，語法如下：　　object.MaxLength [= Long]　　參數(shù)object是必需的，一個有效的對象。　　參數(shù)Long是可選的，整數(shù)，表示所允許的字符數(shù)。

89、　　如果將MaxLength屬性設(shè)置為0，表示只要內(nèi)存允許則沒有限制。　　將光標(biāo)返回文本框中　　在用文本框往工作表錄入數(shù)據(jù)時，一般會在錄入到工作表前驗(yàn)證輸入的數(shù)據(jù)是否正確，如果錯誤，則清空文本框內(nèi)容，提示用戶重新輸入。但此時光標(biāo)已經(jīng)不在文本框中，需要重新選擇文本框才能輸入。&

90、lt;p>　　可以在Exit事件中可以設(shè)置Cancel參數(shù)值使光標(biāo)停留在當(dāng)前文本框中，如下面的代碼所示。　　#001 Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)　　#002 With TextBox1　　#00

91、3 If .Text <> "" And Len(Trim(.Text)) <> 15 And Len(Trim(.Text)) <> 18 Then　　#004 .Text = ""　　#005 MsgBox

92、 "身份證號碼錄入錯誤!"　　#006 Cancel = True　　#007 End If　　#008 End With　　#009 End Sub&l

93、t;b>　　代碼解析：　　文本框的Exit事件，在輸入身份證號碼后即將把焦點(diǎn)轉(zhuǎn)移到錄入按鈕控件之前檢查輸入的身份證號碼是否正確。　　Exit事件在一個控件從同一窗體的另一個控件實(shí)際接收到焦點(diǎn)之前發(fā)生,語法如下:　　Private Sub object_Exit( ByVal Cancel

94、 As MSForms.ReturnBoolean)　　Cancel參數(shù)為事件狀態(tài)。False表示由該控件處理這個事件（這是默認(rèn)方式）。True表示由應(yīng)用程序處理這個事件，并且焦點(diǎn)應(yīng)當(dāng)留在當(dāng)前控件上。　　第3行代碼，使用Len函數(shù)和Trim函數(shù)檢查輸入的身份證號碼是否為15位或18位。　　第4行到第6行代碼，如果

95、輸入的身份證號碼不正確，清空文本框以便重新輸入并提示用戶，設(shè)置Cancel參數(shù)為True使光標(biāo)停留在文本框中。　　在Exit事件中之所以把文本框?yàn)榭找沧鰹橥ㄟ^驗(yàn)證的條件之一，因?yàn)槿绻患由稀癟extBox1.Text <> ""”這一條件，那么在窗體顯示后，如果用戶取消輸入或關(guān)閉輸入窗體，也會提示輸入錯誤。所以在錄入到工作表之前再驗(yàn)證文本框是否為空，如下面的代碼所

96、示。　　#001 Private Sub CommandButton1_Click()　　#002 With TextBox1　　#003 If .Text <> "" Then　　#004

97、 Sheet1.Range("a65536").End(xlUp).Offset(1, 0) = .Text　　#005 .Text = ""　　#006 Else　　#007 MsgBox &qu

98、ot;請輸入身份證號碼!"　　#008 End If　　#009 .SetFocus　　#010 End With　　#011 End Sub

99、代碼解析：　　輸入按鈕的Click事件，把文本框數(shù)據(jù)錄入到工作表A列最后一個單元格中并重新選擇文本框準(zhǔn)備下一次輸入。　　第3行代碼，在輸入到工作表前檢查文本框是否為空。　　第4、5行代碼，如果文本框不為空，錄入數(shù)據(jù)到工作表并清空文本框內(nèi)容。　　第7行代

100、碼，如果文本框?yàn)榭?，提示用戶輸入?shù)據(jù)。　　第8行代碼，使用SetFocus方法將光標(biāo)返回到文本框中以便重新輸入。　　SetFocus方法將焦點(diǎn)移動到對象的實(shí)例中，語法如下：　　object.SetFocus　　參數(shù)object.是必需的，一個有效的對象。</p&g

101、t;　　運(yùn)行窗體，在輸入框中輸入身份證號碼后自動驗(yàn)證輸入的數(shù)據(jù)，如果輸入數(shù)據(jù)錯誤，清空文本框并提示用戶重新輸入，如圖 1041所示。　　圖 1041提示用戶重新輸入　　文本框的自動換行　　在使用使用文本框顯示或錄入一段很長的文本時，需要將文本框設(shè)置

102、成多行顯示，否則文本內(nèi)容只能在一行中顯示，示例代碼如下：　　#001 Private Sub UserForm_Initialize()　　#002 With TextBox1　　#003 .WordWrap = True　　#004

103、 .MultiLine = True　　#005 .Text = Space(4) & "VBA(Visual Basic for Application)是" _　　#006 & "微軟公司為了加強(qiáng)Office軟件的二次開發(fā)能力而附加"

104、 _　　#007 & "于其中的編程語言。VBA的確非常強(qiáng)大，其與VB完全一" _　　#008 & "致的語法結(jié)構(gòu)，高效控制Office對象模型的能力，令無" _　　#009

105、 & "數(shù)人為之折腰。利用VBA，幾乎可以在Office里面做任何" _　　#010 & "其他程序能做的事情。但是，應(yīng)該清楚的認(rèn)識到VBA是依" _　　#011 & "托其宿主─—Excel（或

106、其他Office組件）而存在的，對" _　　#012 & "于Excel用戶來講，VBA只不過是錦上添花的東西，切不可" _　　#013 & "本末倒置，撿了芝麻丟了西瓜，把明明能夠利用Excel內(nèi)置" _</p&g

107、t;　　#014 & "功能完成的任務(wù)，硬是搬到VBA里面去做，以為用代碼實(shí)現(xiàn)" _　　#015 & "就是高人一頭的表現(xiàn)。其實(shí)，真正的高手，會盡量發(fā)揮" _　　#016 &a

108、mp; "Excel自身的威力，不到萬不得已的時候是不會去<Alt+F11>的。"　　#017 End With　　#018 End Sub　　代碼解析：　　窗體的Initialize事件過

109、程，在窗體顯示時將文本框設(shè)置成多行顯示文本。　　第3行代碼設(shè)置文本框的WordWrap屬性。WordWrap屬性指定一個控件的內(nèi)容在行末是否自動換行，語法如下：　　object.WordWrap [= Boolean]　　參數(shù)object是必需的，一個有效的對象。　　參數(shù)

110、Boolean是可選的，控件是否擴(kuò)展以適應(yīng)文本的大小，設(shè)置為True，文本換行，設(shè)置為False，文本不換行。　　第4行代碼設(shè)置文本框的MultiLine屬性。MultiLine屬性規(guī)定控件能否接受和顯示多行文本，語法如下：　　object.MultiLine [= Boolean]　　參數(shù)object是必需的，

111、一個有效的對象。　　參數(shù)Boolean是可選的，控件是否支持多行文本，設(shè)置為True，以多行顯示文本，設(shè)置為False，不多行顯示文本。如果將多行文本框的MultiLine屬性設(shè)置為False，則文本框的所有字符都將合并為一行，包括非打印字符（如，回車和換行）。　　對于既支持WordWrap屬性又支持MultiLine屬性的控件，當(dāng)MultiLine屬性

112、為False時，WordWrap屬性被忽略。　　運(yùn)行窗體，文本框顯示如圖 1051所示。　　圖 1051文本框自動換行　　多個文本框數(shù)據(jù)相加　　在技巧102 中，我們在TextBox1、TextBox2中輸入完數(shù)據(jù)后，利用文本框

113、的Change事件使TextBox3顯示其兩者相乘的金額，但是如果窗體中有多個文本框，需要在每一個文本框的Change事件中寫上相同的重復(fù)代碼，因此使用類模塊可以簡化代碼。　　在附件的窗體有七個文本框，其中六個用來輸入數(shù)據(jù)，一個用來顯示其他六個文本框相加后的合計數(shù)，首先打開VBE，插入一個類模塊建立一個類，類模塊的名字就是類的名字修改為“cmds”，在類模塊中輸入下面的代碼：

114、　　Public WithEvents cmd As MSForms.TextBox　　代碼解析：　　使用Public語句聲明變量cmd是用來響應(yīng)由TextBox對象觸發(fā)的事件的對象變量。　　在窗體的Initialize事件中寫入下面的代碼：</p

115、>　　#001 Dim col As New Collection　　#002 Private Sub UserForm_Initialize()　　#003 Dim i As Integer　　#004 Dim myc As cmds&

116、lt;p>　　#005 For i = 1 To 6　　#006 Set myc = New cmds　　#007 Set myc.cmd = Me.Controls("TextBox" & i)　　#008 col

117、.Add myc　　#009 Next　　#010 Set myc = Nothing　　#011 End Sub　　代碼解析：　　第1行代碼在模塊頂部聲明變量col的類

118、型為集合。　　第5行到第9行代碼，將窗體中的六個文本框賦給col集合。　?。P(guān)于類模塊請參閱論壇中有關(guān)的資料。）　　在類模塊中寫入下面的代碼：　　#001 Private Sub cmd_Change()　　#002

119、Dim i As Integer　　#003 Dim Dval As Double　　#004 For i = 1 To 6　　#005 Dval = Dval + Val(UserForm1.Controls("TextBox" & i))<

120、;/p>　　#006 UserForm1.TextBox7.Value = Dval　　#007 Next　　#008 End Sub　　代碼解析：　　窗體中的六個文本框統(tǒng)一的

121、Change事件，當(dāng)任何一個文本框中的數(shù)據(jù)發(fā)生變化時，所有文本框相加的合計數(shù)顯示在最后一個文本框中。　　運(yùn)行窗體在文本框中輸入數(shù)據(jù)結(jié)果如圖 1061所示。　　圖 1061多個文本框數(shù)據(jù)相加　　控件跟隨活動單元格　　在工作表中使用

眾賞文庫> 全部分類> 畢業(yè)設(shè)計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

vba地控件及用戶窗體

文檔簡介

溫馨提示

最新文檔

評論

vba地控件及用戶窗體

文檔簡介

溫馨提示

最新文檔

評論

免費(fèi)下載