如許的問題我們可以用 Characters 方式來設定字元或子字串的花式翻譯
Characters 方式
傳回 Characters 物件，該物件代表某個圖案的文字方塊或貯存格中的文字中的字元規模。可使用 Characters 物件在字串中新增字元和設定字元的花式。
expression.Characters(Start翻譯社 Length)
expression 必選。傳回指定文字方塊內 Characters 物件的運算式。
'你可以將這幾個程式碼複製到你資料的工作表的模組中
'這個讓翻譯公司新打的內容所有"/"都變紅
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 引數的字元以後的所有字元)。
引用自: 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
請先 登入 以發表留言。