GBKEE

回復 1# greedner
往這方向試試看

1. Sub Auto_Open()   '一般模組的程式碼(檔案開啟時自動執行的程式)
   
2.     Dim myPick As Integer
   
3.     Do Until myPick = 1 Or myPick = 2
   
4.         myPick = Application.InputBox("1.繁體版 , 2.簡体版", "繁體 / 簡体")
   
5.     Loop
   
6.     If myPick = 1 Then
   
7.        ' 呼叫設定_繁體版的變數程式
   
8.     ElseIf myPick = 2 Then
   
9.         '呼叫設定_簡体版的變數程式
   
10.     End If
    
11. End Sub

複製代碼

GBKEE

回復 4# handsometrowa
雖然vba的程式碼都是英文,但變數的內容可以是中文  
1# 說: 繁體和簡體的環境 導致總有一邊辦公室不能使用
因為:繁體版中有些簡体字是不能用的,簡体版中有些繁體字是不能用的