下載類型檔案
第二下載區
下載規範檔案
Length 選擇性的 Variant 資料類型。默示要傳回的字元個數翻譯如果此引數被省略，則 Characters 方法會傳回該字串的餘數部份 (設定為 Start 引數的字元今後的所有字元)。
如許的問題我們可以用 Characters 方式來設定字元或子字串的花式。
Characters 方式
傳回 Characters 物件，該物件代表某個圖案的文字方塊或貯存格中的文字中的字元局限。可使用 Characters 物件在字串中新增字元和設定字元的格式。
expression.Characters(Start翻譯社 Length)
expression 必選。傳回指定文字方塊內 Characters 物件的運算式。
典範在 Sheet1 工作表模組裡的程式碼可以將
'你可以將這幾個程式碼複製到你資料的工作表的模組中
'這個讓你新打的內容所有"/"都變紅
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
本文出自: https://blog.xuite.net/crdotlin/excel/10718108-%E8%A8%AD%E5%AE%9A%E5%84%B2%E5%AD%98%E6%A0%BC%E9%83%A有關各國語文翻譯公證的問題歡迎諮詢華頓翻譯公司02-77260932
文章標籤
全站熱搜
留言列表
