close
下載類型檔案
下載範例檔案
範例在 Sheet1 工作表模組裡的程式碼可以將
Length 選擇性的 Variant 資料類型翻譯默示要傳回的字元個數。若是此引數被省略，則 Characters 方法會傳回該字串的餘數部門 (設定為 Start 引數的字元今後的所有字元)翻譯
第二下載區這樣的問題我們可以用 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
本篇文章引用自此: 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-77260931
文章標籤
全站熱搜
留言列表
