拒绝访问 | www.ggdoc.com | 百度云加速
请打开cookies.
此网站 (www.ggdoc.com) 的管理员禁止了您的访问。原因是您的访问包含了非浏览器特征(3e081d07fb1c43ad-ua98).
重新安装浏览器，或使用别的浏览器扫二维码下载作业帮
3亿+用户的选择
下载作业帮安装包
扫二维码下载作业帮
3亿+用户的选择
英语翻译在电话会议中,以下句子应该如何翻译呢?1.请打开名为“abc”的excel文档,并转到名为“def”的工作薄.2.我们来看下一条.（关键是条字怎么翻译?item?issue?）3.今天的会议到此为止,（请意译）
作业帮用户
扫二维码下载作业帮
3亿+用户的选择
1.Please open the Excel Document with the name "abc",and turn to the book named "def".2.Let's see the next item/article.3.The meeting ends here today,thank you/thanks everyone.如果第一条你说的是“工作表”而非“工作簿”,那 book 就改成 sheet.因为打开 excel,默认的名称是 book1（工作簿1）,包含三个工作表（sheet）.对于“看”的翻译,look at 和 see 难以选择.对于“项目”,如果每条只是一句话的 1、2、3 这种形式,宜用 item.如果是 1、2、3 每条下面还有大段的文章,也就是类似于章节中的小节,用 article 比较合适.
为您推荐：
其他类似问题
1. Please open an excel file named ABC, then save it into a book named DEF2. let's have a look at the next item. 3. so much for today. thank you all.
1. Please open the excel file "abc"and save it under folder "def".2. Let's take a look at the next issue.3. That's all for today. Thank you.
please open the file abc under Excel, and transfer it into the workbook.let us move to the next itemthis is all for today, thank all of you
扫描下载二维码您所在位置： &
&nbsp&&nbsp&nbsp&&nbsp
用VBA制作Excel翻译程序.doc 5页
本文档一共被下载：
次 ,您可全文免费在线阅读后下载本文档。
下载提示
1.本站不保证该用户上传的文档完整性，不预览、不比对内容而直接下载产生的反悔问题本站不予受理。
2.该文档所得收入(下载+内容+预览三)归上传者、原创者。
3.登录后可充值，立即自动返金币，充值渠道很便利
需要金币：120 &&
用VBA制作Excel翻译程序
你可能关注的文档：
··········
··········
用VBA制作Excel翻译程序。
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是字典库。
Dim MyRange As Range
MyRange = Sheets(lib).Range(&A1&)
Sheets(temp).Cells(&A2&) = Sheets(lib).Range(MyRange).Value
'If ActiveSheet.Cells(1, 6).Value = && Then
'变量的使用：错误方式：n=单元格的值；另一个值等于=n。
'正确方式：n=单元格的位置，另一个单元格的值=n位置的值。
'n = Sheets(lib).Cells(&A3&) 'A3
'Debug.Print a(i, 1) & & & & a(i, 2)
'选择翻译的范围
'注意保证字符编码正确
'条件循环，将整个对译表的对应翻译全部替换。
' Range(&C5&).Select
' Selection.Copy
' With Application.ReplaceFormat.Font
' .Name = &宋体&
' .Subscript = False
' End With
' Cells.Replace What:=&プロジェクト&, Replacement:=&项目&, LookAt:=xlPart, _
' SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
' ReplaceFormat:=True
TextBox1.Value = &程序测试完毕！&
MsgBox &日翻中已执行完毕!&
'已完成步骤：过程的代入；文本框、消息框的试用；表值的赋值；注释的加入；
'未完成的步骤：变量的使用；表格的替换；字体编码的确保；条件循环语句的使用；能够恢复；要翻译文件的选择；
问题补充：程序是凭自己水平尽力做出来的，高手可以帮忙揪一下错，如果看不懂也可以将程序重新设计一下。谢谢！
希望各位帮忙的兄弟也可以拿一下具体的代码上来，谢谢！
对我有用[0] 丢个板砖[0] 引用 举报 管理 TOP 回复次数：4
#1楼 得分：0回复于： 20:46:36我花了近一个小时给你又是写又是测试,终于弄出来了你要的.代码不长,但基本是你要的.
Sub fanyi()
On Error GoTo fanyierr
Dim cn As String '中文
Dim ji As String '日文
Dim myrange As Range '用户选择区域
Set myrange = Application.InputBox(&请选择需要翻译的单元格区域：&, &选择&, Type:=8)
If Not myrange Is Not
正在加载中，请稍后...有谁能帮我翻译这段EXCEL VBA代码，我要每一句话的意思哦，谢谢高手帮忙_百度知道
有谁能帮我翻译这段EXCEL VBA代码，我要每一句话的意思哦，谢谢高手帮忙
Application.ScreenUpdating = False
Dim C_str$, Cell0 As Range
Dim p As Shape
Set My = Worksheets(&sheet1&)
For Each p In My.Shapes
If Not Application.Intersect(p.TopLeftCell, Range(&A:C&)) Is Nothing Then p.Delete
我有更好的答案
baidu://c亲.baidu.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="http://c.hiphotos，用短线连接有黑色圆点的单元格。<a href="http，如下图.com/zhidao/wh%3D600%2C800/sign=ca35a1bf8cd4/0ec8bd0cb.jpg" esrc="http://c.hiphotos：从A2到带星号单元格构成的矩形区域中.hiphotos.baidu.com/zhidao/pic/item/0ec8bd0cb，非要一句话说明
这段代码的作用我知道，我是想知道代码每一句的意思哦，呵呵。
字数太多，写不下，请下载附件。
采纳率：79%
这个最好去excel home去求助，那里很多大师
为您推荐：
其他类似问题
excel的相关知识
&#xe675;换一换
回答问题，赢新手礼包&#xe6b9;
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。网页版学习工具
EXCEL怎么翻译及发音
沪江词库精选EXCEL是什么意思、英语单词推荐、中英文句子翻译、英语短语
[ik'sel]&;
[ik'sel]&;
One day while he was watching in the sky, he saw Sanzang and his disciples coming from afar. He knew that the disciples had excellent fighting skills
一天，他正在空中了望，看见唐僧师徒远远地走来，他知道唐僧的徒弟武艺高强
Some excellent remarks were made on immortality,but mainly borrowed from and credited to Plato(Oliver Wendell Holmes,Sr.
一些优秀的言论是不朽的，但主要从柏拉图处借用并归功于他(奥立佛·温德尔·霍姆斯爵士)。
Lady Elliot had been an excellent woman, sensible and amiable.
艾略特夫人是位难得的妇女，通情达理而又和蔼可亲。
Neither is it the acme of excellence if you fight and conquer and the whole Empire says, &Well done!&
战胜而天下曰善,非善之善者也。
For practicality, oxygen therapeutics also excel
从实用的角度来看，氧气疗法也更具优势。
The baron walked triumphantly through the crowd, who for the sake of gain styled him &your excellency.&
男爵得意洋洋地穿过这些看热闹的人，有不少为了想得些赏钱，那些闲汉便齐声唤他“大人。”
&On the other hand, one whose Chinese is poor usually finds it difficult to excel in English.&
凡是华语基础差的，其英语往往也好不到哪里去。
&Now, during a conversation of some two or three moments between the Reverend Mr. Dimmesdale and this excellent and hoary-bearded deacon,&
此时,当丁梅斯代尔牧师先生和这位德高望重、须发灰白的执事谈话的片刻之间
&aluminum exhibits excellent atmospheric corrosion resistance, but can be very reactive with other metals.&
铝具有很好的抗大气腐蚀的性能,但是和其他金属混在一起时容易发生化学反应。
&Carbon steel has high and low temperature strength, is very tough and has excellent fatigue strength.&
碳钢具有高温和低温强度,具有很高的韧度和优异的抗疲劳强度。
phr. 美德，道德美，美好高尚的品德
phr. 红丝龙眼科
phr. 筋头竹；棕竹
phr. 秀丽迷惑龙
phr. 南洋杉（常绿乔木，产于澳大利亚）
phr. 巴西坚果
phr. 牙买加美洲苦树
帮助人才脱颖而出
vt. 胜过,优于,擅长
vi. 胜过其他
vbl. 胜过,优于,超过
优秀，卓越，优点
n. 阁下,优点
1.出色的；杰出的；优等的
1.优秀地；杰出地；卓越地；极好地
a. 不断向上的,精益求精的
未被胜过(或超越)的,无法改善(或改进)的,极好的
n. 优点, 阁下
excelliance
n. 由 excellent 和 alliance 拼缀而成, 强者联盟, 强强联手
[ snick ]的过去式
[ plutocracy ]的相关副词;[ plutocrat ]的相关副词;[ plutocratic ]的相关副词;[ plutocratical ]的相关副词
four thousand one hundred and forty two
seven thousand one hundred and forty two
[ mallard ]的复数形式
two thousand and one
[ rewire ]的第三人称单数;[ rewiring ]的第三人称单数}