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 显示"单元格格式"中的"数字"选项卡