Excel VBA类代码实例集锦Word下载.docx
- 文档编号:15802812
- 上传时间:2022-11-16
- 格式:DOCX
- 页数:49
- 大小:64.57KB
Excel VBA类代码实例集锦Word下载.docx
《Excel VBA类代码实例集锦Word下载.docx》由会员分享,可在线阅读,更多相关《Excel VBA类代码实例集锦Word下载.docx(49页珍藏版)》请在冰豆网上搜索。
frm.Label1.Caption="
控件事件:
Change"
vbCrLf&
_
控件名称:
frm.Controls("
Index).Name&
Text属性:
Index).Text
EndIf
EndSub
PrivateSubmyText_DblClick(ByValCancelAsMSForms.ReturnBoolean)
DblClick"
Cancel属性:
Cancel
KeyUp事件与Change事件重迭,二者取其一
PrivateSubmyText_KeyUp(ByValKeyCodeAsMSForms.ReturnInteger,ByValShiftAsInteger)
KeyUp"
按键值:
&
H"
Hex$(KeyCode)
PrivateSubmyText_MouseMove(ByValButtonAsInteger,ByValShiftAsInteger,ByValXAsSingle,ByValYAsSingle)
SelectCaseIndex
Case3
Userform2.Label2.Caption="
3"
Case8
Userform2.Label2.Caption="
8"
Case4
4"
Case9
9"
CaseElse
EndSelect
模块1代码:
Publica(1To14)AsmyText
Subformshow()
Userform2.Show
窗体代码:
PrivateSubCommandButton1_Click()
Dimi&
t$
Fori=1To14
Ifa(i).myText.Text<
t=t&
a(i).myText.Name&
vbTab&
a(i).myText.Text&
vbCrLf
EndIf
Nexti
MsgBoxt
PrivateSubUserForm_Initialize()
Seta(i)=NewmyText
Seta(i).myText=Me.Controls("
i)
Seta(i).frm=Me
工作表代码:
2,复选框选择
‘快盘\Mytb\更新\类\类0928..xls
‘当复选框选择到7个时,其它的复选框不能再选择。
当复选框选择小于7个,其它的复选框还能继续选择。
PublicWithEventscheAsMSForms.CheckBox
PrivateSubche_Change()'
类的数据改变事件
DimindexAsLong
index=Mid(che.Name,9)'
取出checkboxN中的数字N
Iffrm.Controls("
checkbox"
index)=TrueThen
a=a&
Format(index,"
00"
)&
"
n=n+1
Ifn=7Then
Fori=1To18
b=Format(i,"
)
IfInStr(a,b)=0Then
i).Enabled=False
Next
Else
n=n-1
a=Replace(a,Format(index,"
),"
i).Enabled=True
Publicnewclass(1To18)Asche类,n&
a$
UserForm1.Show
Setnewclass(i)=Newche类'
创建一个新的che类对象
Setnewclass(i).che=Controls("
i)'
设置新类和checkbox(i)控件创建关键
Setnewclass(i).frm=Me'
类窗体也和当前窗体建立关联
3,限制多个TEXTBOX的输入,使其只能输入数值
‘快盘\Mytb\更新\类\如何限制多个TEXTBOX的输入_zhaogang1980.xls
‘
PublicWithEventsTxtboxAsMSForms.TextBox
PrivateSubTxtbox_Change()
WithCreateObject("
vbscript.regexp"
.Global=True
.Pattern="
[^0-9.]+"
If.test(Txtbox.Text)Then
Txtbox.Text=.Replace(Txtbox.Text,"
EndWith
SubMacro1()
DimTxt()AsNewclsTxt
DimctlAsControl,m&
ForEachctlInMe.Controls
IfTypeName(ctl)="
TextBox"
Ifctl.Name<
TextBox1"
m=m+1
ReDimPreserveTxt(1Tom)
SetTxt(m).Txtbox=ctl
PrivateSubTextBox1_Exit(ByValCancelAsMSForms.ReturnBoolean)'
第一个不需要类模块
IfTextBox1.Text="
ThenExitSub
IfIsDate(TextBox1.Text)=FalseThen
Cancel=True
TextBox1.Text="
4,限制输入字母
PrivateWithEventstAsMSForms.TextBox
PrivateSubt_KeyPress(ByValKeyAsciiAsMSForms.ReturnInteger)
'
限制只可以输入数字,不可输入字母和其他符号
SelectCaseKeyAscii
Case48To57
Case46
IfInStr(1,t.Text,"
."
)Then
KeyAscii=0
PrivateSubt_KeyUp(ByValKeyCodeAsMSForms.ReturnInteger,ByValShiftAsInteger)
限制中文输入
WithCreateObject("
If.test(t.Text)Then
t.Text=.Replace(t.Text,"
EndWith
PublicSubtk(iAsOLEObject)
获取oleboject对象
Sett=i.Object
DimAr(1To100)AsTT
定义数组类
Subjustest()
DimjAsOLEObject,KAsByte
ForEachjInSheet1.OLEObjects
IfTypeName(j.Object)="
'
如果为TEXTBOX控件
j.Object.Text="
清空文本框
K=K+1:
SetAr(K)=NewTT
同时创建类实体
Ar(K).tkj
给类实体赋值,激活事件。
Next
5,表格上的按钮
‘telnet_zh
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Excel VBA类代码实例集锦 VBA 代码 实例 集锦