Excel VBA_类代码实例集锦资料

《Excel VBA_类代码实例集锦资料》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、1,类动态数组控件‘2007VBA技巧‘快盘Mytb更新类类动态数组控件.xlsm‘2013-6-16类模块代码：PublicWithEventsfrmAsMSForms.UserFormPublicWithEventsmyTextAsMSForms.TextBoxPublicIndexAsIntegerPrivateSubmyText_Change()Index=Mid(myText.Name,8)Iffrm.Controls("Textbox"&Index)<>""Thenfrm.Label1.Cap

2、tion="控件事件：Change"&vbCrLf&_"控件名称："&frm.Controls("Textbox"&Index).Name&vbCrLf&_"Text属性："&frm.Controls("Textbox"&Index).TextEndIfEndSubPrivateSubmyText_DblClick(ByValCancelAsMSForms.ReturnBoolean)Index=Mid(myText.Name,8)Iffrm.Controls("Textbox"&Index)<>""Thenfr

3、m.Label1.Caption="控件事件：DblClick"&vbCrLf&_"控件名称："&frm.Controls("Textbox"&Index).Name&vbCrLf&_"Cancel属性："&CancelEndIfEndSubKeyUp事件与Change事件重迭，二者取其一PrivateSubmyText_KeyUp(ByValKeyCodeAsMSForms.ReturnInteger,ByValShiftAsInteger)Index=Mid(myText.Name,8)Iffrm.Contr

4、ols("Textbox"&Index)<>""Thenfrm.Label1.Caption="控件事件：KeyUp"&vbCrLf&_"控件名称："&frm.Controls("Textbox"&Index).Name&vbCrLf&_"按键值：&H"&Hex$(KeyCode)EndIfEndSubPrivateSubmyText_MouseMove(ByValButtonAsInteger,ByValShiftAsInteger,ByValXAsSingle,ByValYAsSingle)SelectCas

5、eIndexCase3Userform2.Label2.Caption="3"Case8Userform2.Label2.Caption="8"Case4Userform2.Label2.Caption="4"Case9Userform2.Label2.Caption="9"CaseElseUserform2.Label2.Caption=""EndSelectEndSub模块1代码：Publica(1To14)AsmyTextSubformshow()Userform2.ShowEndSub窗体代码：Priva

6、teSubCommandButton1_Click()Dimi&,t$Fori=1To14Ifa(i).myText.Text<>""Thent=t&"控件名称："&a(i).myText.Name&vbTab&"Text属性："&a(i).myText.Text&vbCrLfEndIfNextiMsgBoxtEndSubPrivateSubUserForm_Initialize()Dimi&Fori=1To14Seta(i)=NewmyTextSeta(i).myText=Me.Controls("Textbo

7、x"&i)Seta(i).frm=MeNextiEndSub工作表代码：PrivateSubCommandButton1_Click()Userform2.ShowEndSub2,复选框选择‘快盘Mytb更新类类0928..xls‘当复选框选择到7个时，其它的复选框不能再选择。当复选框选择小于7个，其它的复选框还能继续选择。类模块代码：PublicWithEventscheAsMSForms.CheckBoxPublicWithEventsfrmAsMSForms.UserFormPrivateSubch

8、e_Change()'类的数据改变事件DimindexAsLongindex=Mid(che.Name,9)'取出checkboxN中的数字NIffrm.Controls("checkbox"&index)=TrueThena=a&Format(index,"00")&","n=n+1Ifn=7ThenFori=1To18b=Format(i,"00")IfInStr(a