用vba制作excel翻譯程序

《用vba制作excel翻譯程序》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在應(yīng)用文檔-天天文庫。

1、用VBA制作Excel翻譯程序。目的：由于經(jīng)常進(jìn)行日文Excel文檔的翻譯，所以希望用編寫VBA程序能讓機(jī)器自動(dòng)翻譯一部分，并且有中日對(duì)譯表可以自己編輯和修改。Lib是中日對(duì)譯表名。UserForm是用戶界面，以下有選擇要翻譯表名的選項(xiàng)，“日翻中”、“中翻日”、“中日對(duì)譯表維護(hù)”等三個(gè)按鍵。功能一覽：1程序的調(diào)用。2應(yīng)用界面。3對(duì)譯表的建立。4每一個(gè)單詞的替換（可用宏錄制）5更換下一個(gè)單詞，直到所有單詞都替換完成，需要循環(huán)語句。（難點(diǎn)）5.1更換關(guān)鍵字。（不知怎么會(huì)出錯(cuò)，說下標(biāo)越界，不能排錯(cuò)?？ㄔ谶@里了）5.2換成下一個(gè)關(guān)鍵字，用循環(huán)語句。（還沒做到這一步，有一定難度，不過

2、應(yīng)該能解決吧）6問題出現(xiàn)：?jiǎn)卧~替換時(shí)，不能Ctrl+Z返回上一步狀態(tài)。防止替換錯(cuò)誤，需要提前備份。（現(xiàn)在先不管這一步了，先把程序做出來再說）編程設(shè)計(jì)：我寫了一下VBA，但是試運(yùn)行時(shí)出現(xiàn)下標(biāo)越界的報(bào)錯(cuò)，但不知怎么糾錯(cuò)。請(qǐng)各位大俠幫忙！?。rivateSubUserForm1_tran()MsgBox"程序測(cè)試開始！"Sheets("Temp").Cells(1,1).Value=1'Temp是要處理的文檔，可改名。'Lib是字典庫。'DoDimMyRangeAsRangeMyRange=Sheets(lib).Range("A1")Sheets(temp).Cells("A

3、2")=Sheets(lib).Range(MyRange).Value'IfActiveSheet.Cells(1,6).Value=""Then'Quit'EndIf'變量的使用：錯(cuò)誤方式：n=單元格的值；另一個(gè)值等于=n。'正確方式：n=單元格的位置，另一個(gè)單元格的值=n位置的值。'Dimn'n=Sheets(lib).Cells("A3")'A3'Debug.Printa(i,1)&""&a(i,2)'Loop'選擇翻譯的范圍'進(jìn)行替換'注意保證字符編碼正確'條件循環(huán)，將整個(gè)對(duì)譯表的對(duì)應(yīng)翻譯全部替換。'Range("C5").Select'Selection.Cop

4、y'WithApplication.ReplaceFormat.Font'.Name="宋體"'.Subscript=False'EndWith'Cells.ReplaceWhat:="プロジェクト",Replacement:="項(xiàng)目",LookAt:=xlPart,_'SearchOrder:=xlByRows,MatchCase:=False,SearchFormat:=False,_'ReplaceFormat:=TrueTextBox1.Value="程序測(cè)試完畢！"MsgBox"日翻中已執(zhí)行完畢!"EndSub'已完成步驟：過程的代入；文本框、消息框的試用；表值的

5、賦值；注釋的加入；'未完成的步驟：變量的使用；表格的替換；字體編碼的確保；條件循環(huán)語句的使用；能夠恢復(fù)；要翻譯文件的選擇；問題補(bǔ)充：程序是憑自己水平盡力做出來的，高手可以幫忙揪一下錯(cuò)，如果看不懂也可以將程序重新設(shè)計(jì)一下。謝謝！希望各位幫忙的兄弟也可以拿一下具體的代碼上來，謝謝！對(duì)我有用[0]丟個(gè)板磚[0]引用舉報(bào)管理TOP回復(fù)次數(shù)：4wang405等　級(jí)：#1樓得分：0回復(fù)于：2008-10-0420:46:36我花了近一個(gè)小時(shí)給你又是寫又是測(cè)試,終于弄出來了你要的.代碼不長(zhǎng),但基本是你要的.Subfanyi()OnErrorGoTofanyierrDimcnAsStrin

6、g'中文DimjiAsString'日文DimmyrangeAsRange'用戶選擇區(qū)域Setmyrange=Application.InputBox("請(qǐng)選擇需要翻譯的單元格區(qū)域：","選擇",Type:=8)IfNotmyrangeIsNothingThenn=Sheets("中日表").UsedRange.Rows.Count'中日表中A列日文,B列中文Ifn=1ThenExitSubIfMsgBox("你是否要執(zhí)行文件翻譯功能？",32+vbYesNo,"詢問")=vbYesThenSheets("原文").CopyBefore:=Sheets("原文")Activ

7、eSheet.Name="備份"&Format(Date,"YY-MM-DD")&Format(Time,"hhnnss")'日期+時(shí)間不會(huì)重復(fù)Fori=2Tonji=Sheets("中日表").Range("A"&i)cn=Sheets("中日表").Range("B"&i)myrange.Interior.ColorIndex=3myrange.ReplaceWhat:=ji,Replacement:=cn,LookAt:=xlPart,_SearchOrder:=xlByRows,MatchCase:=Fal