Excel VBA - 控件与用户窗体 及 常用函数

来源：http://blog.csdn.net/alexbnlee/article/details/6913565

参考：http://msdn.microsoft.com/zh-cn/library/ktwtk9ff%28v=VS.80%29.aspx

 TextBox事件 

→ KeyPress事件的语法如下：

KeyANSI只是个参数，所以可以改成任何喜欢的名字，每键入一个值的时候，都会触发KeyANSI，通过设置，可以实现限制默写值的键入。
→ KeyDown事件    按下触发
→ KeyUp事件    松手触发

 CommandButton事件 
→ MouseMove事件
→ MouseDown事件    按下事件，左右键都可
→ MouseUp事件    松开鼠标事件
→ MouseClick事件    鼠标点击事件，右键不可

 UserForm事件 
→MouseMove事件
→Initialize事件
Unload UserForm1   实现关闭窗体

 ListBox事件

 常用函数  

→ 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("Alex.exe", 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也有同样地用法~