close

翻譯

下載類型檔案

下載範例檔案

範例在 Sheet1 工作表模組裡的程式碼可以將翻譯公司輸入的所有 “/” 都釀成紅字。

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

第二下載區
假定貯存格放的是 “A/B/C”，天成翻譯公司們想將 “/”設為紅色像這樣 “A/B/C”，可以看的更分明翻譯
這樣的問題我們可以用 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


本篇文章引用自此: 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

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

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

    E-mail轉寄