จัดรูปแบบในคอลัมน์เดียวกันให้มีสีต่างกัน

[aejira]

ต้องการจัดรูปแบบข้อมูลในเซลล์ในคอลัมน์เดียวกันโดยให้ข้อความที่อยู่ด้านหลัง Space เป็นสีตัวอักษรน้ำเงิน
แนบไฟล์มาให้แล้วนะคะ อยากขอคำแนะนำหน่อยค่ะ ว่านอกจากคำสั่ง VBA ที่เขียนมาแล้วมีวิธีอื่นๆอีกหรือไม่คะ
หากเพื่อนๆท่านใดมีงานในลักษณะดังกล่าวจะได้นำความรู้ที่ได้ไปใช้เพื่อให้ทำงานได้อย่างสะดวกและราบขึ้นค่ะ
ขอบคุณมากๆค่ะ

[snasui]

สำหรับการระบายสีอักขระใด ๆ ในเซลล์โดยมีเงื่อนไข ต้องพึ่ง VBA ครับ

สำหรับ Code ที่เขียนมาสามารถปรับให้เหลือแค่ด้านล่างได้ครับ

Code: Select all

Sub FormatActiveCells()
    Dim c As Range
    For Each c In Selection
        If InStr(c.Value, " ") > 0 Then
            c.Characters(InStr(c.Value, " ")).Font.Color = RGB(0, 0, 255)
        End If
    Next
End Sub

[aejira]

ข้าน้อยขอคารวะท่านจอมยุทธ