admin 管理员组

文章数量: 1184232


2024年3月28日发(作者：idea的debug调试)

用VBA制作Excel翻译程序。

目的：由于经常进行日文Excel文档的翻译，所以希望用编写VBA程序能让机器自动

翻译一部分，并且有中日对译表可以自己编辑和修改。

Lib是中日对译表名。

UserForm是用户界面，以下有选择要翻译表名的选项，“日翻中”、“中翻日”、“中日

对译表维护”等三个按键。

功能一览：

1 程序的调用。

2 应用界面。

3 对译表的建立。

4 每一个单词的替换（可用宏录制）

5 更换下一个单词，直到所有单词都替换完成，需要循环语句。（难点）

5.1 更换关键字。（不知怎么会出错，说下标越界，不能排错。卡在这里了）

5.2 换成下一个关键字，用循环语句。（还没做到这一步，有一定难度，不过应该能解

决吧）

6 问题出现：单词替换时，不能Ctrl+Z返回上一步状态。防止替换错误，需要提前备

份。（现在先不管这一步了，先把程序做出来再说）

编程设计：

我写了一下VBA，但是试运行时出现下标越界的报错，但不知怎么纠错。请各位大侠

帮忙！！！

Private Sub UserForm1_tran()

MsgBox "程序测试开始！"

Sheets("Temp").Cells(1, 1).Value = 1

'Temp是要处理的文档，可改名。

'Lib是字典库。

'Do

Dim MyRange As Range

MyRange = Sheets(lib).Range("A1")

Sheets(temp).Cells("A2") = Sheets(lib).Range(MyRange).Value


本文标签： 替换 程序 单词

版权声明：本文标题：用VBA制作Excel翻译程序 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/p/1711577463a600686.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。