返回列表 上一主題 發帖

[發問] 如何利用VBA進行語言切換?

luke

帖子
140 
主題
37 
精華
0 
積分
193 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2007 
閱讀權限
20 
註冊時間
2012-3-28 
最後登錄
2015-7-5 

2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-5-9 18:43 | 只看該作者

[發問] 如何利用VBA進行語言切換?

各位大大

sheet3表A:B兩欄為繁體資料區塊,
E:F兩欄為拷貝A:B兩欄資料後,
再利用Excel增益集,
將繁體中文轉至簡體中文

如何利用VBA進行語言切換?

煩請先進 大大指導
TEST19.rar (12.02 KB)
收藏 分享

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
5#
發表於 2012-5-10 07:39 | 只看該作者
本帖最後由 c_c_lai 於 2012-5-10 07:46 編輯

回復 4# luke
誠如oobird版大說的，他已經把答案給了你，我多事把oobird版大的附檔將它改成你要的。
希望能增進你的瞭解。

利用VBA進行語言切換繁簡2.rar (19.35 KB)
  1. Sub copyTo()
  2.     ' Range("A1:B16").Copy Destination:=[E1:F16]      ' 兩種表達方式都可以，
  3.     [A1:B16].Copy Destination:=[E1:F16]                       ' 差別只是中西餐不同而已
  4. End Sub
複製代碼

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
4#
發表於 2012-5-9 22:20 | 只看該作者
chijanzen把代碼都分享出來了。
改一下轉換的範圍就行了。
繁簡.rar (8.67 KB)

TOP

luke

帖子
140 
主題
37 
精華
0 
積分
193 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2007 
閱讀權限
20 
註冊時間
2012-3-28 
最後登錄
2015-7-5 

2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章
3#
發表於 2012-5-9 21:34 | 只看該作者
回復 2# Hsieh


    回覆H大

    簡繁增益集是否可用VBA語法寫入特定位置
    例如:
    只選擇sheet3表E1:F16儲存格
    將繁體中文改成簡體中文, 其餘不變
   
    這種VBA語法是否可以寫出來

     謝謝先進 多次幫忙

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
142  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2026-7-16 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2012-5-9 19:41 | 只看該作者
回復 1# luke

簡繁增益集
學海無涯_不恥下問

TOP

        靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。
返回列表 上一主題