เลือกกลุ่มตัวเลขที่อยู่ในเซลเดียวให้เป็นตามเงื่อนไข

[pom 818]

คือว่า ในเซลเดียวมีกลุ่มตัวเลขอยู่ 10 ตัว คือ 0-9 สลับกันและกั้นด้วยเครื่องหมาย (-) เช่น 34-025-189-67 ถ้าเราต้องการเปลี่ยนให้เลข 2 เป็นตัวหนาและเป็นสีแดง และให้เลข 5 เป็นตัวหนาและเป็นสีเขียว และให้เลข 7 เป็นตัวหนาและเป็นสีฟ้า ต้องใช้สูตรอย่างไรครับ เพราะปัจจุบันผมต้องเปลี่ยนที่ละชุดไปเลื้อยๆ ซึ่งไฟล์งานมีจำนวนมากครับ ขอความกรุณาคุณควนช่วยเหลือด้วยครับ ขอบคุณครับ

[snasui]

การทำเช่นนั้นต้องใช้ VBA มาช่วยครับ

ผมทำตัวอย่างมาให้แล้วตามไฟล์แนบซึ่งใช้ Code ตามด้านล่าง หากยังไม่เคยใช้ Macro ต้อง Enable Macro ก่อน ดูตัวอย่างที่นี่ครับ http://www.snasui.com/viewtopic.php?p=2680#p2680

Code: Select all

Sub ChageFontColor()
Dim r As Range, b As Byte
For Each r In Selection
    For b = 1 To Len(r)
        Select Case Mid(r, b, 1)
            Case 4
                r.Characters(b, 1).Font.FontStyle = "Bold"
                r.Characters(b, 1).Font.ColorIndex = 3
            Case 6
                r.Characters(b, 1).Font.FontStyle = "Bold"
                r.Characters(b, 1).Font.ColorIndex = 45
            Case 7
                r.Characters(b, 1).Font.FontStyle = "Bold"
                r.Characters(b, 1).Font.ColorIndex = 8
        End Select
    Next b
Next r
End Sub

[pom 818]

ขอบคุณมากครับ แล้วผมจะลองทำตามที่ท่านอาจารย์บอกมาครับ