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
下載典範榜樣檔案
如許的問題我們可以用 Characters 方法來設定字元或子字串的格式。
Characters 方式
傳回 Characters 物件，該物件代表某個圖案的文字方塊或儲存格中的文字中的字元規模。可以使用 Characters 物件在字串中新增字元和設定字元的花式翻譯
expression.Characters(Start翻譯社 Length)
expression 必選。傳回指定文字方塊內 Characters 物件的運算式翻譯
Start 選擇性的 Variant 資料類型翻譯表示將要傳回的第一個字元。若是此引數設定為 1 或被省略，則 Characters 方式會傳回以第一個字元為起頭的字元規模。
下載典範檔案
Length 選擇性的 Variant 資料類型。透露表現要傳回的字元個數。假如此引數被省略，則 Characters 方法會傳回該字串的餘數部份 (設定為 Start 引數的字元今後的所有字元)。
典範榜樣在 Sheet1 工作表模組裡的程式碼可以將
來自: 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-77260932
文章標籤
全站熱搜
留言列表
