Translate-plug-in-for-Excel
Translate plug-in for Excel,Excel的翻译插件,适合一些经常与英文Excel打交道的英文菜鸟
ps:我老婆刚进入中外合资公司的财务岗位,英文有点费劲,我就想着做个Excel插件给她缓解下工作压力,也能更快的学习英文了~
【github地址】: https://github.com/amwukddx/Translate-plug-in-for-Excel
使用方法
使用的网易有道在线翻译API
- 1、将“Excel文件翻译(备注).xla”文件放入到 C:\Users{你的windows用户名}\AppData\Roaming\Microsoft\AddIns 目录下
- 2、随便打开一个Excel,点击菜单:文件->选项->加载项->下面的“管理”“转到(G)” 弹出“加载项”选项卡
- 2.1 点击“浏览(B)” 弹出文件选择框
- 2.2 选择 C:\Users{你的windows用户名}\AppData\Roaming\Microsoft\AddIns\Excel文件翻译(备注).xla文件
- 2.3 确认已勾选后点击“确定”即可
- 2.4 关闭Excel,再重新打开Excel(如果提示需要宏启用的,点击启用),在文件、…视图…的主菜单位置后面会出现一个“加载项”的菜单,里面就有“翻译到备注”的功能按钮了
- 3、操作说明
- 3.1 点击 “① 提取中英文”菜单,会临时在最前面加一个工作簿,名称为fanyi_en2zh,用于临时字典存放于手工处理的地方,之后会遍历所有可见的工作表,对其进行中英文检索,输出到fanyi_en2zh表的A列当中去,之后自动在C列添加相应的有道在线翻译公式,翻译后将把结果值转到B列,并清理C列的公式,避免提示“需要更新链接”之类的,之后就能看到对于的中英文对照关系,一些专业词汇翻译的可能不是很准确,且有特殊符合的问题,需要手工整理下(有道API给的就是这个,我也没辙,如果一些翻译不出来的,可能是意大利语或者法语之类的,毕竟是少数,自己再百度翻译下看看是否提示可能是某某语言)
- 3.2 点击 “② 将翻译结果添加到备注”菜单,将会把“fanyi_en2zh”整理好的字典,一个个的写入到对应单元格备注里
- 3.3 点击 “③ 清除翻译备注”菜单,会清理之前写入的字典备注
- 3.4 点击 “④ 清理临时工作簿”菜单,会提示将“fanyi_en2zh”工作簿进行删除。
代码分析
Option Explicit
'启动时添加菜单“翻译到备注”
Private Sub Workbook_Open()
AddMenuItemExample
End Sub
' 添加菜单
Public Sub AddMenuItemExample()
Dim cbWSMenuBar As CommandBar
Dim cbc As CommandBarControl
Set cbWSMenuBar = Application.CommandBars("Worksheet Menu Bar")
Set cbc = cbWSMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)
cbc.Tag = "翻译到备注"
With cbc
.Caption = "&翻译到备注"
With .Controls.Add(Type:=msoControlButton, Temporary:=True)
.Caption = "① 提取中英文"
.OnAction = "ThisWorkbook.提取所有英文"
.Tag = "Item1"
End With
With .Controls.Add(Type:=msoControlButton, Temporary:=True)
.Caption = "②