【4.0】地质“活字典”:基于Excel VBA构建可维护的万能标准库

核心能力概括：

• • 一键打开：因为字典库用的比较多，我给定义了快捷键 Ctrl+1，随时调出字典窗口。
• • 一次配置，长期使用：首次使用时选好字典库文件路径，配置会保存到本地，下次打开 Excel 即可直接用。
• • 与项目数据分离：字典库是独立 Excel 文件，可随项目版本更新、增删改岩石条目，而不影响 VBA 代码本身，实现可维护的项目标准库。

三、Excel 字典文件里有什么？

字典的"内容"全部放在一个 Excel 字典文件（如 Dictionary_Library.xlsx）里，工具只负责读取和展示，不修改你的字典结构。这样有两个好处：一是谁都能用 Excel 维护，不需要懂 VBA；二是可以按项目、按图幅做多套字典，只需在工具里切换配置即可。

1. 字典文件必须有的：Rock 工作表

工具要求字典文件中至少有一个名为 Rock 的工作表，且数据从第 2 行开始（第 1 行为表头）。

Rock 表用来存放「标准地质术语名称」及配套属性，典型列可包括（具体列名可按项目微调，只要和窗体、公式约定一致即可）：

也就是说：Excel 字典文件 = 以 Rock 表为核心的「标准地质术语名称库」，每一行是一条可被查询、引用的地质术语标准名。

2. 和野外/室内数据怎么对接？

字典的用途，是在Point_observation.shp表、Structures.shp表等表格里，统一使用 Rock 表里的标准名称。例如在野外观察点表中，通常会有诸如 F_RockName（现场定名）、RockName_1 / RockName_2 / RockName_3（样品定名）等字段——这些字段就可以通过「从字典里选」的方式填写，保证与 Rock 表中的 RockName 一致，避免手误和命名不统一。

因此，字典文件既可以只包含一个 Rock 表，也可以在同一工作簿里再放观测点模板、采样表模板等；工具只依赖 Rock 表做查询与校验，其它表由项目自行约定。

四、工具怎么用？（配置 + 打开字典）

• • 首次使用：在菜单中点击「岩石字典库」→「配置字典库」，在文件选择对话框中选中你的字典库文件（如 Dictionary_Library.xlsx）。
• 
  工具会自动验证：是否为 Excel 文件、是否包含 Rock 工作表、第 2 行第 2 列是否有数据等；验证通过后会把路径保存到加载项目录下的 RockDictConfig.txt，并提示「岩石字典库配置成功！」。
• • 日常使用：点击「打开岩石字典」或按 Ctrl+1，即可打开岩石字典窗体进行查询、选用。若尚未配置或字典文件被移动/删除，会提示「字典库未配置，是否现在配置？」，选「是」可重新走一遍配置流程。
• • 更换字典：若换了项目或换了图幅，只需再运行一次「配置字典库」，选择新的 Dictionary_Library.xlsx（或其它符合要求的 Excel 文件）即可，无需改代码。

五、小结

• • 地质"活字典" = VBA 加载项（查、引） + Excel 字典文件（存、改）。
• • 字典文件以 Rock 表为核心，列出标准岩石名称及可选属性；可与野外/室内的 F_RockName、RockName_1/2/3 等字段对接，统一命名。
• • 工具提供配置一次、Ctrl+1 即用的使用方式，且通过「只读验证、无模式窗体」等细节，兼顾稳定与体验。

若你正在用 Excel 做地质编录或采样管理，不妨试一下：建一个 Dictionary_Library.xlsx，按项目整理好 Rock 表，再配上这套岩石字典库加载项，把项目标准库做成手边的「活字典」。

今天填图组长返回了要修改的图幅合库数据，我翻看自己前一个月的调查路线记录，发现光是成分单词的拼写错误就有几十处。后来，我用自己开发的工具，结合项目部提供的最新元数据文件，后面的数据再也没出现过类似的拼写问题。这正是这套工具的价值所在：既准确，又高效。

另外，我开发的这套工具里还有一个“PLUS”版本，功能有点“超纲”。各种地质描述都做了统一，可以插入相关描述、特征，以及任何其他你想要表达的地质专业内容，考虑到它不太适合大范围推广——毕竟，如果大家都过度依赖工具，野外地质现象的观察和记录反而会被削弱，这也是项目部一直强调的原则。野外记录，还是要尽可能在掌上机或野簿上完成，这套工具只是辅助单词拼写的帮手，不能代替人脑，更不能代替实地观察。