ExcelVBA类代码实例集锦.docVIP

Excel-VBA-类代码实例集锦 PAGE PAGE 1 ———————————————————————————————— 作者： ———————————————————————————————— 日期： 个人收集整理，勿做商业用途 个人收集整理，勿做商业用途 个人收集整理，勿做商业用途 1, 类动态数组控件 ‘2007VBA技巧 ‘快盘\Mytb\更新\类\类动态数组控件.xlsm ‘2013- 类模块代码： Public WithEvents frm As MSForms.UserForm Public WithEvents myText As MSForms.TextBox Public Index As Integer Private Sub myText_Change() Index = Mid(myText.Name, 8) If frm.Controls(Textbox Index) Then frm.Label1.Caption = 控件事件：Change vbCrLf _ 控件名称： frm.Controls(Textbox Index).Name