Excel的在线翻译插件，翻译结果添加到备注里~

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 = "②