《Excel 2013 Power Programming with VBA》试读章节翻译

Text Tools工作薄

Text Tool工具是一个XLAM插件。在开发过程中,我将整个文件作为一个XLSM宏的工作薄。当一切运行结果令我满意之后,我将这个工作薄作为一个插件保存。

Text Tool由以下组成:

工作表:每个工作薄(包含插件)必须有至少一个工作表。利用这个特性,将在撤销操作中用到的信息存储在工作表中(见本章后面的“Implemnting Undo”)。VBA模块:模块包含公有变量,常量的声明,显示用户窗体的代码,以及进行“撤销”操作的代码。用户窗体:这个组件包含对话框。进行文本操作的代码存储在用户窗口的代码模块中。

Note:在这个插件文件中也包含一些我将指令显示在功能区的手动修改。见本章后面的“增加RibbonX代码”。但是无法修改修改只允许VBA使用的Excel命令区。

安装插件:

按照以下步骤安装插件(包括Text tool.xlam插件):

1.选择“文件”-〉“选项”

2.在Excel Option

3.Excel插件”,然后点击“Go”

4.如果你要安装的插件显示在可用插件列表中,选中这一项;如果列表中没有你要安装的插件,点击浏览去查找XLAN或者XLA插件。

5.点击OK。

插件将会被安装,并且直到你从列表中取消对插件的勾选之前一直有效。

在前面的安装的步骤中,你可以跳过步骤1到3,按下Alt+T1,这是用来显示插件对话框的pre-Excel2005键盘序列。或者如果在功能区有,选择“Developer”-“插件”-“增加插件”

TextTools工具是如何工作的

TextTools插件包含一些RibbonX代码,在功能区创建了一个新的项目:开始–>工具–>Text Tools。选择这个命令序列将会执行StartTextTool进程,此进程将会调用ShowTextToolsDialog进程。

Cross-Ref:这个工具需要调用StartTextTool和ShowTextToolsDialog两个进程的原因,在本书后面有介绍。

用户可以进行多种文本的修改操作并点击“应用”按钮执行这些修改。修改后在工作表中显示发生的变化,并且插件的对话框保持显示。每一个操作之后用户都可以进行撤销,或者继续执行修改操作。点击“帮助”按钮显示帮助窗口,点击“关闭”按钮关闭对话框。

Note:这是一个无形式回话框。换言之,在对话框显示的同时,你可以继续进行在Excel中的工作。从这个意义上说,无形式回话框和工具条相似。

Note:如果你在Excel2013中使用这个工具,如果你切换到一个不同的工作簿窗口Text Tool对话框将会是不可用的。为了在一个工作簿中使用这个工具,你必须关闭TextTools对话框,激活其他的窗口,然后再通过命令显示对话框。

歌里唱的是“你离开我,就是旅行的意义”,

《Excel 2013 Power Programming with VBA》试读章节翻译

相关文章:

你感兴趣的文章:

标签云: