《Excel-VBA-类代码实例集锦》由会员分享，可在线阅读，更多相关《Excel-VBA-类代码实例集锦（58页珍藏版）》请在金锄头文库上搜索。
1、1, 类动态数组控件 VBA技巧快盘yb更新类类动态数组控件xlsm-6-16类模块代码：ubli ithEvents rm As SFrms.UerorPubli Witvents yText As MFors.TetBoxPublicIndexsnteerPrvte Sub mTe_Chnge()Idex = Mid(mText.ame， 8)f fr.Controls(Textbo &de) Ten frm.abl1.Captin 控件事件：Chane&bCrLf 控件名称: & frm.ontos(Textbx &Inde).Nae &vbrLf _ Tex属性：&frnrols(Tx
2、tbox &Inex)TxtEnd IEn Private Sub yTetDlClk(yVal Cancel A SForm.Rernolan)Inde = M（yt.Name, 8）f rm.ontrl（extbox Index) hen rLabel1Cation = 控件事件:DbClick & vbCrf & _ 控件名称: fm.Controls(Tebx & ndex).ame & vbCL & _ Cancel属性: & elEnd IEnd SuKyUp事件与Change事件重迭,两者取其一Private SubmyTex_KeyUp（BVal KeyCoe or.Retur
3、nger, BValhi s Inteer)Ix = Mid（myexte， 8)Ir.Contros(box& Idex) Then frm.abel1.Catio 控件事件：y & vbCrLf 控件名称：& fm.ontol（extb & nx).Name vbrL&_ 按键值：&H & Hex$（KeyCoe)En IE SubPivateub Tex_MouseMove（yVaButto As Intge,yV Sits tege, ByValA Sg, ByVal Y s Singe)Sele Cse InexCase 3 Ueform2.Labl.Catin = 3Case se
4、rorm2.Label.aption = 8se 4 Userfm2.Lbl2.Cpion Cse9 Usrform2.Label2.apton =9ase Else Usr2.Label2.Cation End lectEnd Sub模块1代码:ublica(1o14) smyTextSubrshow()srfr2.SowEndSub窗体代码：Pate u omadBtt_ic()Dm i&， $Fo = o14 Ifa（).myex.Tex hen t = & 控件名称： & (i)myTet.Nme bTab & ext属性： &(i）myTetTet vbrLf End IfNet i
5、MsgBotEnd ubrivate Sub serFor_Iitlze()Dim i&Fo = 1 T14 Set a(i) = ew yxt Seta().myTxt=Me.Ctrols(Texto & i) et a（i)r= MeNxt iEndub工作表代码:rvat Sb CommndButto1ck()Userorm2.Swnd S2, 复选框选择快盘M更新类类92.xls当复选框选择到7个时,其他的复选框不能再选择。当复选框选择不不小于7个，其他的复选框还能继续选择。类模块代码：Pli ithEvents ceAs orshcBoxPl ithEvnts fmA MSorsUs
6、eFrmPrivtubch_Chage（） 类的数据变化事件 Dim index AsLon index = Mid(che.Name， 9) 取出chckbN中的数字N f fm.Ctr(heckbox& ndex) =True Then a Forma(idx, 00), n= 1 n = 7 Then For = 1 T 18 ora(i, 00) IfIStr（a, b) = Then frmContols(checkbo i).nabl=Fae End I et ls End f Else n = n - 1 = Replace(a, Fora(index,0), ) or i =1
7、To 8 fr.Controls（checbox i).Enabld True Nxt E Ifnd u模块1代码:Public newclass(o 18) s che类,n&， aSub formshow(）r1.ShwEd Sub窗体代码：PrivateSb UerFmItiale（) Fr = 1T 8 Setewclas(i) New e类 创立一种新的类对象 et newclass(）.che= Contol(ceckbox i) 设立新类和checkbox()控件创立核心 t newclas(i）frm e 类窗体也和目前窗体建立关联 ex End Su3, 限制多种TEXTBO
8、X的输入，使其只能输入数值快盘Mytb更新类如何限制多种TETBX的输入_zhga80ls类模块代码:ublic WihEvnts Txbox MSormsTextoxPrivat Sb Ttbo_Chage() Wih retObject(vbsip.regx) Glbal = Tre .Patern 0. I.test(Txtbox.Tx） Then Txtbo.Text .ece(Txtbo.Tex， ) EndIf EnWihEd Sub模块1代码:Sub cro1（)UseFor1.hond Sub窗体代码：Dm T（) sew clsTxrivate SbUserorm_Initi
9、lize() Dimctl AsCotrol, & or Ech ctl M.onls If Typee（ctl) =TtBox Tn If ctlNam Textox1 Th m = m 1 ReD reserve Tx(1 o ) Set Txt().tx c En f Ed If NexEnd SubPrvate Sub TextBox1_Exit(Va ancel sMSFormsturnBoolean)第一种不需要类模块 If TxtBox1Txt = The Eit Sub f Dt(Ttox1.xt)=Fals Thn nce = True Textox.Tet Ed In ub
10、4,限制输入字母 rivatWithEns t sMForm.TextBoxrvateub t_eyPres(Byl eyAsi MSors.ReturnInteger)限制只可以输入数字，不可输入字母和其她符号electaseKeyAsciiCae 8 o 5Case 4 If InSr(1, t.t, .)Then Keycii =0 Ed IfCase Else KeyAci= 0n SeecEn ubPrivt Su t_Ky（yVal KeyCode As MSForm.ReturIntegr,ByVa Sit s Intee)限制中文输入With CatObet(vbscriptre） .Global = True .Pten = 0-9. If .tes(t.Text) Then .
