Cách chỉ cung cấp màu cho mã điện thoại như +91 hoặc 022 trong số điện thoại trong ms excel

-1

Tôi có số lượng dữ liệu có số điện thoại và điện thoại di động trong excel. cho tôi biết làm thế nào để cung cấp màu sắc cụ thể như màu đỏ cho mã điện thoại. ví dụ 022-1234567 hoặc + 91-1234567890. Vui lòng cho tôi biết cách chỉ tô màu +91 và 022 trong excel cho toàn bộ cột hoặc chỉ các ô.

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
nguồn

Định dạng có điều kiện

— Dave

Chào mừng đến với Siêu người dùng. Thật không may, chúng tôi không phải là một dịch vụ viết mã. Thay vì chỉ yêu cầu mã để thực hiện một tác vụ cụ thể, vui lòng cho chúng tôi biết những gì bạn đã thử cho đến nay (bao gồm bất kỳ mã nào bạn hiện có) và nơi bạn bị mắc kẹt để chúng tôi có thể giúp bạn giải quyết vấn đề cụ thể của bạn. Các câu hỏi chỉ yêu cầu mã quá rộng và có khả năng là giữ hoặc đóng .

— DavidPostill

Nếu bạn muốn được trợ giúp cụ thể, bạn cũng cần phải cụ thể về phiên bản Excel nào.

— Julian Knight

Sub Macro1 () ActiveCell.FormulaR1C1 = ActiveCell.Value With ActiveCell.Char character (Bắt đầu: = 1, Độ dài: = 0) .ont .Name = "Arial" .ThemeFont = xlThemeFontNone Kết thúc với ActiveCell.Char Độ dài: = 3) .ont .OutlineFont = false .Shadow = false .Underline = xlUnderlineStyleNone .Color = -16776961 .TintAndShade = 0 .ThemeFont = xlThemeFontNone Kết thúc với Sub Sub

— umesh yadav

Tôi đã tạo ra ở trên. Tôi thực sự cần phải cho người quản lý của tôi bằng bất cứ giá nào ngày hôm nay. xin vui lòng tư vấn làm thế nào để đếm chiều dài ký tự cho đến khi "-"

— umesh yadav

Nếu chúng ta bắt đầu với:

enter image description here

và chạy macro ngắn này:

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

Chúng tôi kết thúc với:

enter image description here

— Gary's Student
nguồn