VBA专题10-17：使用VBA操控Excel界面之在功能区中添加自定义编辑框控件

excelperfect

正如本系列前面讲解的那样，要在功能区中添加自定义控件，通常要经过两个步骤：

1.使用编辑器打开Excel工作簿文件，编辑其XML文件，添加想要的功能区界面元素。

2.在Excel中打开工作簿，开启VBE添加代码，以实现添加的控件的功能。

本文介绍在功能区中添加自定义的编辑框控件。

新建一个启用宏的工作簿并保存，关闭该工作簿，然后在CustomUI Editor中打开该工作簿，输入下面的XML代码：

打开该工作簿，在标准VBA模块中输入下面的代码：

'Callback for EditBox1 onChangeSub EditBox1_onChange(control As IRibbonControl, text As String) On Error Resume Next Range('A1').Interior.ColorIndex =text If Err.Number <> 0 Then _ MsgBox '请输入0至56之间的整数.'End Sub

此时，Excel工作簿中在自定义选项卡中的编辑框控件如下图所示：

下图显示了在编辑框中输入不同值时，单元格A1中的效果：

说明：本专题系列大部分内容学习整理自《Dissectand Learn Excel VBA in 24 Hours：Changingworkbook appearance》，仅供学习研究。

说明：本专题系列大部分内容学习整理自《Dissect and Learn Excel VBA in 24 Hours：Changing workbook appearance》，仅供学习研究。注：如果你有兴趣，你可以到知识星球App的完美Excel社群下载这本书的完整中文版电子书。