admin管理员组文章数量:1530521
Translate-plug-in-for-Excel
Translate plug-in for Excel,Excel的翻译插件，适合一些经常与英文Excel打交道的英文菜鸟
ps:我老婆刚进入中外合资公司的财务岗位，英文有点费劲，我就想着做个Excel插件给她缓解下工作压力，也能更快的学习英文了~
【github地址】: https://github/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 = "②版权声明：本文标题：Excel的在线翻译插件，翻译结果添加到备注里~ 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/dongtai/1725598289a1032127.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论