控制工具与窗体工具

正确学会ExcelVBA的16堂课控制工具与窗体工具♂对表格内容进行处理♂对产品进行筛选与排序♂对产品信息进行管理♂在用户窗体中添加控件对表格内容进行处理实现英文名称标准化转换货币数字为中文形式实现冻结窗格功能实现冻结窗格功能具体的操作步骤如下：步骤1：按钮前面介绍的方法，在工作表中添加控件按钮，并在其【属性】对话框中的“名称”文本框中输入“冻结窗格”，这样便于当工作表中VBA过程较多时，为了便于程序的查看，可将过程的名称设置为与添加按钮的名称相同；在“Caption”文本框中也输入“冻结窗格”，即可修改添加的命令按钮的显示文本，如图6-9所示。步骤2：在设计模式下，双击添加的“冻结窗格”按钮，进入该按钮的代码编辑窗口，在代码窗口中添加如下的程序代码：PrivateSub冻结窗格_Click()WithSelectionActiveWindow.FreezePanes=TrueEndWithEndSub实现冻结窗格功能具体的操作步骤如下：步骤3：返回工作表，在【开发工具】选项卡的“控件”选项区中单击【设计模式】按钮，即可退出设计模式。选择D6单元格，单击【冰结窗格】按钮，即可看到冻结窗格的效果，此时当向下移动垂直滚动条时会发现前5行是固定不动的；当向右拖动水平滚动条时，会发现A、B、C列是固定不动的，如图6-10所示。步骤4：如果想取消冻结窗格的效果，可在工作表中切换到【视图】选项卡，在“窗口”选项区中选择【冻结窗格】→【取消冻结窗格】菜单项。对产品进行筛选与排序实现产品自动筛选实现产品自动排序实现产品自动排序具体的操作步骤如下：步骤1：参照前面介绍的方法，在工作表中添加控件按钮，并在其【属性】对话框的【按字母序】选项卡中，修改“名称”和“Caption”的属性值均为“排序”，如图6-13所示。步骤2：在设计模式下双击添加的【排序】按钮，即可进入该按钮的代码编辑窗口，在代码窗口中添加如下程序代码：PrivateSub排序_Click()Range("A3:F21").SortKey1:=Range("E3"),Order1:=xlDescending,Header:=xlGuessEndSub实现产品自动排序具体的操作步骤如下：步骤3：返回工作表，在【开发工具】选项卡的“控件”选项区中单击【设计模式】按钮，即可退出设计模式。单击【排序】按钮，即可实现“实际到账货款”为依据的降序排列功能，如图6-14所示。对产品信息进行管理实现记录单管理VBA程序代码管理VBA控件查询信息记录不同地区业务比例实现记录单管理具体的操作步骤如下：步骤1：在工作表中切换到【数据】选项卡，在“记录单”选项组中单击【记录单】按钮，即可打开【Sheet1】记录单，在其中可以看到记录单中显示了当前的记录位置、工作表中各字段名称以及各字段的对应值等信息，如图6-15所示。步骤2：单击【新建】按钮，该记录单处于“新建记录”状态。分别在与各字段名称对应的文本框中输入添加的信息，如图6-16所示。在输入完毕后按下Enter键，即可将新建的记录信息添加到工作表中，如图6-17所示。实现记录单管理具体的操作步骤如下：步骤3：如果想要删除某条记录，则可以打开的记录单对话框中通过单击【上一条】或【下一条】按钮，找到需要删除的记录信息。单击【删除】按钮，此时系统则弹出一个确认删除的提示信息，单击【确定】按钮，即可将所选记录删除，如图6-18所示。步骤4：若要查看某条指定的记录，可以单击【条件】按钮，在弹出的空白文本框中输入查询的条件，例如在“销售地区”文本框中输入“丰台区”，如图6-19所示。VBA控件查询信息具体的操作步骤如下：步骤1：为了便于对单元格区域的引用，首先需要对“B3：C21”单元格区域进行定义。选中“B3：C21”单元格区域后，切换到【插入】选项卡，在“名称”选项组中单击【定义名称】→【定义名称】菜单项，即可打开【新建名称】对话框，如图6-28所示。步骤2：在“名称”文本框中输入“查看联系方式”，单击【确定】按钮，即可完成对选中单元格区域名称的定义。切换到【开发工具】选项卡，在“控件”选项组中单击【插入】按钮，即可弹出其相应的下拉列表，如图6-29所示。VBA控件查询信息具体的操作步骤如下：步骤3：单击【组合框（ActiveX控件）】按钮

，在工作表中的合适位置处待鼠标指针变为“+”状时拖动鼠标至适当大小后释放，即可添加一个组合框，如图6-30所示。步骤4：右击插入的组合框，在弹出菜单中选择【属性】菜单项，即可打开其【属性】对话框，在【按字母序】选项卡“Style”选项右侧下拉列表中选择“2-fmStyleDropDownList”选项，即可设置用户必须从列表中选择值，如图6-31所示。VBA控件查询信息具体的操作步骤如下：步骤5：选择“LinkedCell”选项，在其右侧文本框中输入“G1”，即选择一个空的单元格G1作为显示查询数据结果的地方；在“ListFillRange”选项的右侧文本框中输入刚刚定义的单元格区域名称“查看联系方式”，如图6-32所示。步骤6：在“ColumnCount”选项右侧文本框中设置其值为2，表示当前引用区域中共有2列数据；在“BoundColumn”选项右侧的文本框中设置其值也为2，表示需要查找的是第2列单元格的内容，如图6-33所示。VBA控件查询信息具体的操作步骤如下：步骤7：单击“Font”选项右侧的【选择】按钮

，即可打开【字体】对话框，在其中选择字体为“TimesNewRoman”，字形为“常规”，大小为“四号”，如图6-34所示。步骤8：单击【确定】按钮返回工作表，选择【开发工具】选项卡，在“控件”选项组中单击【设计模式】按钮，即可退出设计模式。在组合框的下拉列表中可显示出各地区的业务负责人，如图6-35所示。VBA控件查询信息具体的操作步骤如下：步骤9：此时若选中任意负责人名称，可在单元格G1中显示其联系方式，如选择“Tina”，则单元格G1中显示的就是该负责人联系方式，如图6-36所示。在用户窗体中添加控件用户窗体控件插入与使用控件的公用属性控件的公用事件常用控件专家课堂（常见问题与解答）点拨1：在添加窗体时，在窗体代码窗口中输入运行窗体代码后，当运行窗体时，为什么总弹出运行“错误424，要求对象”的错误提示？解答：UserForm1.Show可添加到程序的任何位置，当程序运行到该句时，便会显示窗体；如果出现错误提示时，请检查在程序中使用UserForm1.Show方法和名称的窗体是否存在，如果不存在，则会出现错误提示信息。点拨2：使用Visible属性隐藏显示某控件时，在VBA