close
'翻譯公司可以將這幾個程式碼複製到你資料的工作表的模組中
'這個讓你新打的內容所有"/"都變紅
Private Sub Worksheet_Change(ByVal Target As Range)
'先將字體都改成黑
Target.Font.ColorIndex = xlAutomatic
'將所有"/"都變紅
redSlash Target
End Sub
'假如你的資料已存在翻譯社 則請將此程式碼前面的" ' "去掉.
''這個讓你本來的資料只要點一下或拖沓選起來所有的"/"都變紅
'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' '先將字體都改成黑
' Target.Font.ColorIndex = xlAutomatic
' '將所有"/"都變紅
' redSlash Target
'End Sub
'更改"/"色彩為紅色
'引數為選擇區或輸入區貯存格
Sub redSlash(Target As Range)
Dim Rng As Range '儲存格索引
Dim i As Long, j As Long 'i 為返回位置, j 為搜尋比對肇端位置
'遍歷區域所有貯存格
For Each Rng In Target.Cells
'搜尋肇端位置
j = 1
With Rng
Do '一向找到沒有"/"
'尋覓"/"位置
i = VBA.InStr(j, .Text, "/")
'如果找到將阿誰"/"字改為紅色
If i > 0 Then .Characters(i, 1).Font.ColorIndex = 3
'移動下次搜索位置
j = i + 1
Loop While i > 0
End With
Next
End Sub
'這個讓你新打的內容所有"/"都變紅
Private Sub Worksheet_Change(ByVal Target As Range)
'先將字體都改成黑
Target.Font.ColorIndex = xlAutomatic
'將所有"/"都變紅
redSlash Target
End Sub
'假如你的資料已存在翻譯社 則請將此程式碼前面的" ' "去掉.
''這個讓你本來的資料只要點一下或拖沓選起來所有的"/"都變紅
'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' '先將字體都改成黑
' Target.Font.ColorIndex = xlAutomatic
' '將所有"/"都變紅
' redSlash Target
'End Sub
'更改"/"色彩為紅色
'引數為選擇區或輸入區貯存格
Sub redSlash(Target As Range)
Dim Rng As Range '儲存格索引
Dim i As Long, j As Long 'i 為返回位置, j 為搜尋比對肇端位置
'遍歷區域所有貯存格
For Each Rng In Target.Cells
'搜尋肇端位置
j = 1
With Rng
Do '一向找到沒有"/"
'尋覓"/"位置
i = VBA.InStr(j, .Text, "/")
'如果找到將阿誰"/"字改為紅色
If i > 0 Then .Characters(i, 1).Font.ColorIndex = 3
'移動下次搜索位置
j = i + 1
Loop While i > 0
End With
Next
End Sub
典範在 Sheet1 工作表模組裡的程式碼可以將
第二下載區
Length 選擇性的 Variant 資料類型翻譯表示要傳回的字元個數。若是此引數被省略，則 Characters 方式會傳回該字串的餘數部分 (設定為 Start 引數的字元今後的所有字元)。
下載範例檔案
下載典範檔案
這樣的問題我們可以用 Characters 方式來設定字元或者子字串的格局翻譯
Characters 方式
傳回 Characters 物件，該物件代表某個圖案的文字方塊或貯存格中的文字中的字元規模。可以使用 Characters 物件在字串中新增字元和設定字元的花式。
expression.Characters(Start翻譯社 Length)
expression 必選。傳回指定文字方塊內 Characters 物件的運算式翻譯
Start 選擇性的 Variant 資料類型。示意將要傳回的第一個字元。假如此引數設定為 1 或被省略，則 Characters 方式會傳回以第一個字元為最先的字元範圍。
文章來自: http://blog.xuite.net/crdotlin/excel/10718108-%E8%A8%AD%E5%AE%9A%E5%84%B2%E5%AD%98%E6%A0%BC%E9%83%A8有關各國語文翻譯公證的問題歡迎諮詢天成翻譯公司02-77260931
文章標籤
全站熱搜
留言列表
