excel之vba编程常用语句300句之二

《excel之vba编程常用语句300句之二》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、ThisWorkbook.ActiveSheet.Rows(1).RowHeight=10‘改变工作表的行1的高度值设置为10(121)ThisWorkbook.Worksheets(1).Activate‘当前工作簿中的第一个工作表被激活(122)ThisWorkbook.Worksheets("Sheet1").Rows(1).Font.Bold=True‘设置工作表Sheet1中的行1数据为粗体(123)ThisWorkbook.Worksheets("Sheet1").Rows(1).Hidden=True‘将工作表Sheet1中的行1隐藏

2、ActiveCell.EntireRow.Hidden=True‘将当前工作表中活动单元格所在的行隐藏注：同样可用于列。(124)ActiveSheet.Range(“A:A”).EntireColumn.AutoFit‘自动调整当前工作表A列列宽(125)ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlTextValues)‘选中当前工作表中常量和文本单元格ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlErrors+xlTextV

3、alues)‘选中当前工作表中常量和文本及错误值单元格*******************************************************公式与函数(126)Application.MacroOptionsMacro:=”SumPro”,Category:=4‘将自定义的SumPro函数指定给Excel中的“统计函数”类别(127)Application.MacroOptionsMacro:=”SumPro”,_Description:=”FirstSum,thenProduct”‘为自定义函数SumPro进行了功能说明(

4、128)Application.WorksheetFunction.CountA(Range(“A:A”))+1‘获取A列的下一个空单元格(129)WorksheetFunction.CountA(Cell.EntireColumn)‘返回该单元格所在列非空单元格的数量WorksheetFunction.CountA(Cell.EntireRow)‘返回该单元格所在行非空单元格的数量(130)WorksheetFunction.CountA(Cells)‘返回工作表中非空单元格数量(131)ActiveSheet.Range(“A20:D20”).

5、Formula=“=Sum(R[-19]C:R[-1]C”’对A列至D列前19个数值求和*******************************************************图表(132)ActiveWindow.Visible=False或ActiveChart.Deselect‘使图表处于非活动状态(133)TypeName(Selection)=”Chart”‘若选中的为图表，则该语句为真，否则为假(134)ActiveSheet.ChartObjects.Delete‘删除工作表上所有的ChartObject对象Ac

6、tiveWorkbook.Charts.Delete‘删除当前工作簿中所有的图表工作表*******************************************************窗体和控件(135)UserForms.Add(MyForm).Show‘添加用户窗体MyForm并显示(136)TextName.SetFocus‘设置文本框获取输入焦点(137)SpinButton1.Value=0‘将数值调节钮控件的值改为0(138)TextBox1.Text=SpinButton1.Value‘将数值调节钮控件的值赋值给文本框控件

7、SpinButton1.value="/Val(TextBox1.Text)"‘将文本框控件值赋给数值调节钮控件CStr(SpinButton1.Value)=TextBox1.Text‘数值调节钮控件和文本框控件相比较(139)UserForm1.Controls.Count‘显示窗体UserForm1上的控件数目(140)ListBox1.AddItem“Command1”‘在列表框中添加Command1(141)ListBox1.ListIndex‘返回列表框中条目的值，若为-1，则表明未选中任何列表框中的条目(142)RefEdit1.Te

8、xtloanapprovalandpostcreditapprovalofficer/atalllevelsinaccor