Excel VBA - 控制元件與使用者窗體 及 常用函式

McDelfino發表於2011-10-28
Excel控制元件函式

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






相關文章