尼烏埃語翻譯第二下載區
這樣的問題我們可以用 Characters 方法來設定字元或子字串的花樣。
Characters 方式
傳回 Characters 物件，該物件代表某個圖案的文字方塊或儲存格中的文字中的字元規模。可使用 Characters 物件在字串中新增字元和設定字元的格式。
expression.Characters(Start翻譯社 Length)
expression 必選。傳回指定文字方塊內 Characters 物件的運算式翻譯
Start 選擇性的 Variant 資料類型。默示將要傳回的第一個字元翻譯假如此引數設定為 1 或被省略，則 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
下載類型檔案
Length 選擇性的 Variant 資料類型翻譯示意要傳回的字元個數。如果此引數被省略，則 Characters 方式會傳回該字串的餘數部份 (設定為 Start 引數的字元今後的所有字元)。
下載典範榜樣檔案
範例在 Sheet1 工作表模組裡的程式碼可以將
以下內文出自: 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
請先 登入 以發表留言。