คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://snasui.com/
เรียนท่าน อาจารย์ และสมาชิกทุกๆท่านครับ ผมต้องการอยากให้ 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
ไม่ทราบว่าได้คำตอบสำหรับค่าเดียวกันได้สีเดียวกันเรียบร้อยแล้วยังครับ 
ยังครับ ท่าน อาจารย์ ผมมีปัญหามากเกี่ยวกับการกวดกาบันชีลัดถะกอนสึกสาทั่วแขวงครับ ชึ่งมันช้ำกันมากๆครับผมจำต้องหาความช่วยเหลือ เพราะผมกวดสอบมาแต่ 23/07/2012 แล้วยังไม่ไดคำตอบที่ถูกต้อง
ลองตามภาพด้านล่างครับ