ms Excelで電話番号に+91または022のような色のみの電話コードを与える方法

-1

電話番号と携帯電話番号が優れているデータがたくさんあります。電話コードに赤などの特定の色を付ける方法を教えてください。たとえば、022-1234567または+ 91-1234567890です。列全体または単一セルのみで、+ 91と022だけをExcelで色付けする方法を教えてください。

Sub Macro1() 
ActiveCell.FormulaR1C1 = ActiveCell.Value 
With ActiveCell
 .Characters(Start:=1, Length:=0)
 .Font 
 .Name = "Arial" 
 .ThemeFont = xlThemeFontNone 
End With 
With ActiveCell
 .Characters(Start:=1, Length:=3) 
 .Font 
 .OutlineFont = False 
 .Shadow = False 
 .Underline = xlUnderlineStyleNone 
 .Color = -16776961 
 .TintAndShade = 0 
 .ThemeFont = xlThemeFontNone 
End With End Sub

microsoft-excel

— umesh yadav
ソース

条件付き書式設定

— デイブ

スーパーユーザーへようこそ。残念ながら、私たちはコード作成サービスではありません。特定のタスクを実行するためのコードを単純に求めるのではなく、特定の問題を解決できるように、これまでに試したこと（現在のコードを含む）と行き詰まった場所をお知らせください。コードを要求するだけの質問は広すぎて、保留またはクローズされる可能性があります。

— DavidPostill

特定のヘルプが必要な場合は、Excelのバージョンについても具体的にする必要があります。

— ジュリアンナイト

Sub Macro1（）ActiveCell.FormulaR1C1 = ActiveCell.Value with ActiveCell.Characters（Start：= 1、Length：= 0）.Font .Name = "Arial" .ThemeFont = xlThemeFontNone End With With ActiveCell.Characters（Start：= 1、長さ：= 3）.Font .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .Color = -16776961 .TintAndShade = 0 .ThemeFont = xlThemeFontNone End With End Sub

— umesh yadav

上記で作成しました。今日は、どうしても上司に見せる必要があります。「-」までの文字の長さをカウントする方法をアドバイスしてください

— umesh yadav

で始まる場合：

ここに画像の説明を入力してください

そして、この短いマクロを実行します：

Sub ColorMeRed()
    Dim r As Range, rng As Range, v As String
    Dim i As Long
    Set rng = Range("B1:B10")

    For Each r In rng
        v = r.Text
        i = InStr(v, "-")
        If i > 0 Then
            r.Characters(Start:=1, Length:=i - 1).Font.Color = vbRed
        End If
    Next r
End Sub

最終的には：

ここに画像の説明を入力してください

— ゲイリーの学生
ソース