繁簡文字轉換VBA程式碼

帖子: 163
主題: 45
精華: 0
積分: 246
點名: 1
作業系統: win7
軟體版本: ie
閱讀權限: 20
性別: 男
註冊時間: 2015-7-8
最後登錄: 2025-3-8

3^#

發表於 2022-4-1 09:02 | 只看該作者

回復 2# 准提部林

准大大,

明白了, 謝謝你的回覆

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2843
主題: 10
精華: 0
積分: 2899
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-5-31

4^#

發表於 2022-4-2 11:00 | 只看該作者

單字轉換:

簡繁轉換表_v01.rar (31.14 KB)

這是用在對岸傳來商品明細表中簡體轉繁體的簡易檔,
只用單字對單字轉換, 且商品品名大部份都有使用固定文字,
無法處理"詞/句"的完整轉換, 且有轉誤的可能, 最後還是人工修整~~

帖子: 163
主題: 45
精華: 0
積分: 246
點名: 1
作業系統: win7
軟體版本: ie
閱讀權限: 20
性別: 男
註冊時間: 2015-7-8
最後登錄: 2025-3-8

5^#

發表於 2022-4-2 22:33 | 只看該作者

回復 4# 准提部林
准大大, 萬分感激你的幫忙..謝謝

singo1232001

　暱稱: 熱狗慶

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2022-4-3 15:01 | 只看該作者

本帖最後由 singo1232001 於 2022-4-3 15:02 編輯

回復 5# mdr0465

選擇要改的格子再按按鈕翻譯目前只有設定一次查詢240字以內

VBA-GOOGLE簡繁.zip (25.23 KB)

singo1232001

　暱稱: 熱狗慶

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

7^#

發表於 2022-4-3 16:12 | 只看該作者

回復 6# singo1232001

不限字數

VBA-GOOGLE簡繁不限字數.zip (26.35 KB)

帖子: 163
主題: 45
精華: 0
積分: 246
點名: 1
作業系統: win7
軟體版本: ie
閱讀權限: 20
性別: 男
註冊時間: 2015-7-8
最後登錄: 2025-3-8

8^#

發表於 2022-4-5 10:48 | 只看該作者

本帖最後由 mdr0465 於 2022-4-5 10:53 編輯

回復 7# singo1232001

singo1232001 師兄,
謝謝你熱心的幫忙,但運行當中出現錯誤,在繁體,簡體轉換都一樣錯在那段程式碼

我是有安裝I.E,但不是預設瀏覽器

出錯字段.JPG (62.72 KB)

請幫忙

singo1232001

　暱稱: 熱狗慶

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

9^#

發表於 2022-4-5 18:57 | 只看該作者

本帖最後由 singo1232001 於 2022-4-5 19:11 編輯

回復 8# mdr0465

先執行一次最下方的iekill

再把下面綠色的那行給回復並且逐行執行然後看看ie是否被edge給中斷了
(由於現在微軟瘋狂的推薦edge 打開ie前幾次要進去設定 edge也要設定  讓兩個瀏覽器不會改預設 )
edge 設定.  設定.  隱私權、搜尋與服務. 清除 Internet Explorer 的瀏覽資料(關閉)
edge 設定.  設定.  預設瀏覽器.  Internet Explorer 相容性. 在 Microsoft Edge 中以 Internet Explorer 開啟網站(永不)  允許在 Internet Explorer 模式中重新載入網站(允許)
這幾個設定我也說不準  可以都改看看
再不行要重開機可能ie卡了

另外我不確定是否要安裝 .net framework 2.0 或3.5 或4.7 (我的電腦有裝) 可以google 下載安裝看看安裝完要重開機
我家的3台電腦是正常執行的 office2019 win10

帖子: 163
主題: 45
精華: 0
積分: 246
點名: 1
作業系統: win7
軟體版本: ie
閱讀權限: 20
性別: 男
註冊時間: 2015-7-8
最後登錄: 2025-3-8

10^#

發表於 2022-4-5 20:19 | 只看該作者

回復 9# singo1232001

singo1232001師兄

再一次謝謝你耐心的教導, 我成功逐行完kill 程式,亦有在edge 里完成設定,還有安裝.net framework 但都是運行唔到,請問還有什麼方法可以運行呢?

謝謝