VBA積木代碼的補充常用語句

VBA代碼語句積累是非常重要的，多積累對自己的寫代碼非常有用。我現在推出的這類VBA語句是我"搭積木"寫代碼思想的補充。積木塊非常重要，這種語句是積木塊之中的填充物可以有效的讓您搭建的積木更加結實、堅固。

151 WorksheetFunction.CountA(Cells) 返回工作表中非空單元格數量

152 ActiveSheet.Range("A20:D20").Formula="=Sum(R[-19]C:R[-1]C" 對A列至D列前19個數值求和

153 ActiveWindow.Visible=False 使當前窗口圖表處於非活動狀態

154 ActiveChart.Deselect 使圖表處於非活動狀態

155 UserForms.Add(MyForm).Show 添加用戶窗體MyForm並顯示

156 TextName.SetFocus 設置文本框獲取輸入焦點

157 UserForm1.Controls.Count 顯示窗體UserForm1上的控件數目

158 ListBox1.AddItem "Command1" 在列表框中添加Command1

159 ListBox1.ListIndex 返回列表框中條目的值，若為-1，則表明未選中任何列表框中的條目

160 RefEdit1.Text 返回代表單元格區域地址的文本字符串

161 RefEdit1.Text=ActiveWindow.RangeSelection.Address 初始化RefEdit控件顯示當前所選單元格區域

162 Set FirstCell=Range(RefEdit1.Text).Range("A1") 設置某單元格區域左上角單元格

163 Application.OnTime Now + TimeValue("00:00:15"), "myProcedure" 等待15秒後運行myProcedure過程

164 ActiveWindow.ScrollColumn=ScrollBarColumns.Value 將滾動條控件的值賦值給ActiveWindow對象的ScrollColumn屬性

165 ActiveWindow.ScrollRow=ScrollBarRows.Value 將滾動條控件的值賦值給ActiveWindow對象的ScrollRow屬性

166 UserForm1.ListBox1.AddItem Sheets("Sheet1").Cells(1,1) 將單元格A1中的數據添加到列表框中

167 ListBox1.List=Product 將一個名為Product數組的值添加到ListBox1中

168 ListBox1.RowSource="Sheet2!SumP" 使用工作表Sheet2中的SumP區域的值填充列表框

169 ListBox1.Selected(0) 選中列表框中的第一個條目(注：當列表框允許一次選中多個條目時，必須使用Selected屬性)

170 ListBox1.RemoveItem ListBox1.ListIndex 移除列表框中選中的條目

171 Application.UserName 返回應用程序的用戶名

172 Application.Caller 返回代表調用函數的單元格

173 Application.Caller.Parent.Parent 返回調用函數的工作簿名稱

174 Application.StatusBar="請等待……" '將文本寫到狀態欄

175 Application.StatusBar="請等待……" & Percent & "% Completed" '更新狀態欄文本，以變量Percent代表完成的百分比

176 Application.StatusBar=False 將狀態欄重新設置成正常狀態

177 Application.Goto Reference:=Range("A1:D4") 指定單元格區域A1至D4，等同於選擇"編輯——定位"，指定單元格區域為A1至D4，不會出現"定位"對話框

178 Application.Dialogs(xlDialogFormulaGoto).Show 顯示"定位"對話框，但定位條件按鈕無效

179 Application.Dialogs(xlDialogSelectSpecial).Show 顯示"定位條件"對話框

180 Application.Dialogs(xlDialogFormatNumber).show 顯示"單元格格式"中的"數字"選項卡