原文翻譯

下載類型檔案

第二下載區

下載規範檔案

Length      選擇性的 Variant 資料類型。默示要傳回的字元個數翻譯如果此引數被省略，則 Characters 方法會傳回該字串的餘數部份 (設定為 Start 引數的字元今後的所有字元)。

假定貯存格放的是 “A/B/C”，華頓翻譯公司們想將 “/”設為紅色像如許 “A/B/C”，可以看的更分明翻譯
如許的問題我們可以用 Characters 方式來設定字元或子字串的花式。
 
Characters 方式
傳回 Characters 物件，該物件代表某個圖案的文字方塊或貯存格中的文字中的字元局限。可使用 Characters 物件在字串中新增字元和設定字元的格式。
 
expression.Characters(Start翻譯社 Length)
expression      必選。傳回指定文字方塊內 Characters 物件的運算式。
 
Start      選擇性的 Variant 資料類型。表示將要傳回的第一個字元翻譯如果此引數設定為 1 或被省略，則 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


本文出自: 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

arrow
arrow
    文章標籤
    翻譯社
    全站熱搜

    hortonsk3ib0d 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄