excel表格函数英语翻译.docVIP

excel表格函数英语翻译 篇一：2010版Word amp; Excel 菜单栏中英文对照表 2010版Word amp;Excel 菜单栏中英文对照表 WORD EXCEL 篇二：用VBA制作Excel翻译程序 用VBA制作Excel翻译程序。 目的：由于经常进行日文Excel文档的翻译，所以希望用编写VBA程序能让机器自动翻译一部分，并且有中日对译表可以自己编辑和修改。 Lib是中日对译表名。 UserForm是用户界面，以下有选择要翻译表名的选项，“日翻中”、“中翻日”、“中日对译表维护”等三个按键。 功能一览： 1 程序的调用。 2 应用界面。 3 对译表的建立。 4 每一个单词的替换（可用宏录制） 5 更换下一个单词，直到所有单词都替换完成，需要循环语句。（难点） 5.1 更换关键字。（不知怎么会出错，说下标越界，不能排错。卡在这里了） 5.2 换成下一个关键字，用循环语句。（还没做到这一步，有一定难度，不过应该能解决吧） 6 问题出现：单词替换时，不能Ctrl+Z返回上一步状态。防止替换错误，需要提前备份。（现在先不管这一步了，先把程序做出来再说） 编程设计： 我写了一下VBA，但是试运行时出现下标越界的报错，但不知怎么纠错。请各位大侠帮忙！！！ Private Sub UserForm1_tran() MsgBox quot;程序测试开始！quot; Sheets(quot;Tempquot;).Cells(1, 1).Value = 1 #39;Temp是要处理的文档，可改名。 #39;Lib是字典库。 #39;Do Dim MyRange As Range MyRange = Sheets(lib).Range(quot;A1quot;) Sheets(temp).Cells(quot;A2quot;) = Sheets(lib).Range(MyRange).Value #39;If ActiveSheet.Cells(1, 6).Value = quot;quot; Then #39;Quit #39;End If #39;变量的使用：错误方式：n=单元格的值；另一个值等于=n。 #39;正确方式：n=单元格的位置，另一个单元格的值=n位置的值。 #39;Dim n #39;n = Sheets(lib).Cells(quot;A3quot;) #39;A3 #39;Debug.Print a(i, 1) amp; quot; quot; amp; a(i, 2) #39;Loop #39;选择翻译的范围 #39;进行替换 #39;注意保证字符编码正确 #39;条件循环，将整个对译表的对应翻译全部替换。 #39; Range(quot;C5quot;).Select #39; Selection.Copy #39; With Application.ReplaceFormat.Font #39; .Name = quot;宋体quot; #39; .Subscript = False #39; End With #39; Cells.Replace What:=quot;プロジェクトquot;, Replacement:=quot;项目quot;, LookAt:=xlPart, _ #39; SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ #39; ReplaceFormat:=True TextBox1.Value = quot;程序测试完毕！quot; MsgBox quot;日翻中已执行完毕!quot; End Sub #39;已完成步骤：过程的代入；文本框、消息框的试用；表值的赋值；注释的加入； #39;未完成的步骤：变量的使用；表格的替换；字体编码的确保；条件循环语句的使用；能够恢复；要翻译文件的选择； 问题补充：程序是凭自己水平尽力做出来的，高手可以帮忙揪一下错，如果看不懂也可以将程序重新设计一下。谢谢！ 希望各位帮忙的兄弟也可以拿一下具体的代码上来，谢谢！ 对我有用[0] 丢个板砖[0] 引用 举报 管理 TOP 回复次数：4 wang405 等 级： #1楼 得分：0回复于：2008-10-04 20:46:36我花了近一个小时给你又是写又是测试,终于弄出来了你要的.代码不长,但基本是你要的. Sub fanyi() On Error GoTo fanyierr Dim cn As String #39;中文 Dim ji As St