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

参考：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也有同样地用法~