VBA ทำสีเพื่อนแสดง visual Firm & Forecast

[scars13]

สวัสดีครับ ขอความช่วยเหลือหน่อยครับ
ในกรณีที่ผมอยาก เขียน code VBA เพื่อให้ใส่สีในเซลล์นั้นๆให้พื้นสีเป็น ฟ้าอ่อน ในกรณีที่ตัวหนังสือเป็นสีน้ำเงิน

ส่วนตัวหนังสือสีดำคือ ไม่ต้องใส่สีอะไร เนื่องจากผมอยากทำVisual ให้เห็นง่ายๆว่า

ตัวอย่างเช่น
รายการไหน Firm ตัวหนังสือ สีฟ้า ผมจะให้แสดงว่า เซลล์นั้นๆ จะต้องเป็นพื้นสี ฟ้าอ่อน
รายการไหน Forecast ที่ตัวหนังสือสีดำ ผมจะไม่ทำอะไรกับเซลล์นั้นๆ
รายการไหนที่พื้นสีเหลือง อยู่แล้ว ไม่ว่าตัวหนังสือจะเป้นสีอะไร ก็จะไม่ทำอะไร

ผมคร่าวๆแล้วรันไม่ออกครับ ไม่ทราบว่า Code ผิดตรงไหน

รบกวนขอคำแนะนำด้วยครับ ขอบคุณครับ

[Bo_ry]

Code: Select all

Sub Fillcolor()
Dim Re As Range, t As String

For Each R In Range("D4:S18")
    Debug.Print R.Address & " Font " & R.Font.ColorIndex & " Fill " & R.Interior.ColorIndex
    If R.Font.ColorIndex <> -4105 And R.Interior.ColorIndex = -4142 Then
    R.Interior.ColorIndex = 8
    End If
Next

End Sub

Debug.Print เอาไว้ check ค่าสี
web ดูสี
http://dmcritchie.mvps.org/excel/colors.htm