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也有同樣地用法~