Auto Format Cell ที่มึค่าเหมือนกัน

[วังวู ช่ง]

เรียนท่าน อาจารย์ และสมาชิกทุกๆท่านครับ ผมต้องการอยากให้ cell ที่มีข้อมูณเหมือนกันให้ออกสีเดียวกันแบบ Auto ทำอย่างไลครับ

ขอบคุณล่วงหน้าครับ

[bank9597]

เรียนท่าน อาจารย์ และสมาชิกทุกๆท่านครับ ผมต้องการอยากให้ cell ที่มีข้อมูณเหมือนกันให้ออกสีเดียวกันแบบ Auto ทำอย่าง

โอ๊ว..ขอโทษด้วยครับ ผมลืมว่าเป็นนักศึกษาจากเพื่อนบ้านเรา

[วังวู ช่ง]

โอ๊ว..ขอโทษด้วยครับ ผมลืมว่าเป็นนักศึกษาจากเพื่อนบ้านเรา

ไม่เป็นไล จิงๆแล้วผมต้องเป็นผู้ขอโทษครับ ความต้องกานเป็นอย่างนี้ครับ

Code: Select all

Sub Macro1()
    Range("A10,A12").Select
    Range("A12").Activate
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("A11,A14").Select
    Range("A14").Activate
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 49407
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("A13,A15").Select
    Range("A15").Activate
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("A1").Select
End Sub

[snasui]

ไม่ทราบว่าได้คำตอบสำหรับค่าเดียวกันได้สีเดียวกันเรียบร้อยแล้วยังครับ

[วังวู ช่ง]

ไม่ทราบว่าได้คำตอบสำหรับค่าเดียวกันได้สีเดียวกันเรียบร้อยแล้วยังครับ

ยังครับ ท่าน อาจารย์ ผมมีปัญหามากเกี่ยวกับการกวดกาบันชีลัดถะกอนสึกสาทั่วแขวงครับ ชึ่งมันช้ำกันมากๆครับผมจำต้องหาความช่วยเหลือ เพราะผมกวดสอบมาแต่ 23/07/2012 แล้วยังไม่ไดคำตอบที่ถูกต้อง

[snasui]

ลองตามภาพด้านล่างครับ

[วังวู ช่ง]

ขอบคุณท่าน อาจาน ครับ ได้แล้วครับ ได้คำตอบดั่งความต้องกานจิงๆครับ ขอบคุณท่านมากๆครับ