ExcelVBA-控件与⽤户窗体及常⽤函数
参考：
TextBox事件
→KeyPress事件的语法如下：
KeyANSI只是个参数，所以可以改成任何喜欢的名字，每键⼊⼀个值的时候，都会触发KeyANSI，通过设置，可以实现限制默写值的键⼊。
→KeyDown事件    按下触发
→KeyUp事件    松⼿触发
CommandButton事件
→MouseMove事件
→MouseDown事件    按下事件，左右键都可
→MouseUp事件    松开⿏标事件
→MouseClick事件    ⿏标点击事件，右键不可
UserForm事件
→MouseMove事件
→Initialize事件
Unload UserForm1  实现关闭窗体
ListBox事件vba做excel窗体录入教程
→
常⽤函数
→ Instr(2, "eAlex", "e")    返回e在Alex中第⼀次出现的位置（从第1个字符开始算起，结果是4）
→ Round(34.566, 2)    返回前者保留2位⼩数的四舍五⼊结果
→ Int(34.43)    返回不⼤于此数的最⼤整数
→ Val("22.3")    转成数字
→ Left("Alex", 3)    左边3个字符
→ Mid("Alex", 1, 2)    索引1开始，长度为2的字符
→ Right("", 3)    右边3个字符
→ Asc("A")    返回⼀个 Integer，代表字符串中⾸字母的字符代码
→ Trim("  Alex  ")    去除所有空格
→ LTrim("  Alex  ")    去除左空格
→ RTrim("  Alex  ")    去除右空格
→ Len("Sleep")    计算长度
→ CInt("123")    转成整型Integer
→ CStr(123)    转成字符型String
→ Space(2)    两个空格
→ r = Cells(Rows.Count, 1).End(xlUp).Row    获取内容的最后⼀⾏
Range("A1:A10").Select
Selection.Copy
Cells(2, 2).Select
ActiveSheet.Paste
Application.CutCopyMode = false    '选区复制，然后黏贴，最后取出选区框
→ Workbooks.Open "F:\Desktop\1.xls"    打开⽂件
→ ActiveWorkbook.Close savechanges:=True    关闭⽂件，保存⽂件
→ ActiveWorkbook.SaveAs Filename:="F:\Desktop\2.xlsx"    另存为⽂件
TextBox控件
→TextBox1.Text
→TextBox1.SetFocus    将光标定位到TextBox1上
→TextBox1.SelStart    指定选中⽂本的起点位置
→TextBox1.MaxLength    ⽂本框可输⼊的最长长度
→TextBox1.MultiLine    多⾏
→TextBox1.Top
→TextBox1.Left
→TextBox1.Width
→TextBox1.Height
CommandButton控件
→CommandButton1.Top
→CommandButton1.Left
→CommandButton1.Width
→CommandButton1.Height
ListBox控件
→ListBox1.ListIndex    选中⽂本的索引，-1为没选定，0为第⼀个
→ListBox1.List(0)    第⼀个条⽬的内容
→ListBox1.ListCount    条⽬数⽬
→ListBox1.ListStyle    值为1是有选框的
→ListBox1.MultiSelect    值为1可以多选
UserForm控件
→UserForm1.Show
→Unload UserForm1
ComboBox控件  →ComboBox1.List    可以直接⽤数组赋值
→ComboBox1.ListIndex = 0    ComboBox上显⽰第⼀个⽂本
→ComboBox1.Clear    去除上⾯所有内容
→ComboBox1.AddItem "北京"    加⼊内容
MultiPage控件
→MultiPage1.Value = 0    多页显⽰的时候显⽰第⼀页的内容
→MultiPage1.SelectedItem.Index > 2    选中出了第⼀页以外的其他页
MultiPage控件与TabStrip控件的区别就在于前者每⼀页之间没有任何关系，⽽后者则是公⽤同⼀个页⾯，只是标签名称不同的~ TabStrip控件
→TabStrip1.Value = 0    多页显⽰的时候显⽰第⼀页的内容
→TabStrip1.SelectedItem.Caption    不同Tab的名称
→TabStrip1.SelectedItem.Index    不同Tab的索引
→TabStrip1.Style    有三个选择，默认是0，1是按钮形式的
Image控件
→Image1.Picture = LoadPicture(FilPath)    加载图⽚，其中FilPath是图⽚的完整地址
Dim Arr As Variant
Dim r As Integer
r = Cells(Rows.Count, 1).End(xlUp).Row
Arr = Range("A1:A" & r)
ListBox1.List = Arr
ComboBox也有同样地⽤法~

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。