VBA RGB | ตั้งค่าสีของเซลล์ภายในโดยใช้ฟังก์ชัน RGB

สี Excel VBA RGB

RGBสามารถเรียกได้ว่าเป็นสีเขียวสีแดงและสีน้ำเงินฟังก์ชันนี้ใช้เพื่อรับค่าตัวเลขของค่าสีฟังก์ชันนี้มีองค์ประกอบสามส่วนเป็นช่วงที่ตั้งชื่อและมีสีแดงสีน้ำเงินและสีเขียวส่วนสีอื่น ๆ ถือเป็นส่วนประกอบ ของทั้งสามสีที่แตกต่างกันใน VBA

ใน VBA ทุกอย่างจะขึ้นอยู่กับการเข้ารหัสของแต่ละชิ้นและทุกชิ้นตัวอย่างเช่นหากคุณต้องการอ้างอิงบางส่วนของแผ่นงานเราสามารถใช้วัตถุ RANGE ได้หากคุณต้องการเปลี่ยนสีตัวอักษรเราสามารถใช้คุณสมบัติ NAME ได้ จากนั้นเขียนชื่อฟอนต์ที่เราต้องการ แต่ลองนึกภาพสถานการณ์ของการเปลี่ยนสีของฟอนต์หรือสีพื้นหลังของเซลล์สำหรับสิ่งนี้เราสามารถใช้สี VB ในตัวเช่น vbGreen, vbBlue, vbRed ฯลฯ ... แต่ เรามีฟังก์ชั่นเฉพาะสำหรับเล่นกับสีต่างๆเช่นฟังก์ชัน RGB

ด้านล่างนี้คือไวยากรณ์ของฟังก์ชันสี RGB

ดังที่คุณเห็นด้านบนเราสามารถจัดหาอาร์กิวเมนต์ได้สามข้อคือแดงเขียวและน้ำเงิน พารามิเตอร์ทั้งสามนี้สามารถยอมรับตัวเลขจำนวนเต็มตั้งแต่ 0 ถึง 255 เท่านั้นและผลลัพธ์ของฟังก์ชันนี้จะเป็นประเภทข้อมูล "Long"

เปลี่ยนสีของเซลล์โดยใช้ฟังก์ชัน VBA RGB

คุณสามารถดาวน์โหลด VBA RGB Excel Template ได้ที่นี่ - VBA RGB Excel Template

ตัวอย่าง # 1

ตัวอย่างเช่นเรามีตัวเลขตั้งแต่เซลล์ A1 ถึง A8 ดังแสดงในภาพด้านล่าง

สำหรับช่วงของเซลล์นี้เราจะพยายามเปลี่ยนสีฟอนต์เป็นสีสุ่มโดยใช้ฟังก์ชัน RGB

เริ่มขั้นตอนมาโครก่อน

รหัส:

 ย่อย RGB_Example1 () End Sub 

ขั้นแรกเราต้องอ้างอิงช่วงของเซลล์ของแบบอักษรที่เราต้องการเปลี่ยนสีในกรณีนี้ช่วงของเซลล์ของเราคือ A1 ถึง A8 ดังนั้นให้จัดหาสิ่งเดียวกันโดยใช้วัตถุRANGE

รหัส:

 Sub RGB_Example1 () Range ("A1: A8") End Sub 

ใส่จุดเพื่อดูรายการ IntelliSense ของวัตถุ RANGE จากรายการ IntelliSense เรากำลังพยายามเปลี่ยนสีของแบบอักษรและเลือกคุณสมบัติFONTจากรายการ

รหัส:

 Sub RGB_Example1 () ช่วง ("A1: A8") Font End Sub 

เมื่อคุณสมบัติ FONT ถูกเลือกในคุณสมบัตินี้เรากำลังพยายามเปลี่ยนสีดังนั้นให้เลือกคุณสมบัติสีของ FONT

รหัส:

 Sub RGB_Example1 () ช่วง ("A1: A8") Font.Color End Sub 

ใส่เครื่องหมายเท่ากับและเปิดฟังก์ชัน RGB

รหัส:

 Sub RGB_Example1 () ช่วง ("A1: A8") Font.Color = RGB (End Sub 

ให้ตัวเลขจำนวนเต็มแบบสุ่มตั้งแต่ 0 ถึง 255 สำหรับอาร์กิวเมนต์ทั้งสามของฟังก์ชัน RGB

รหัส:

 Sub RGB_Example1 () ช่วง ("A1: A8") Font.Color = RGB (300, 300, 300) End Sub 

ตกลงตอนนี้เรียกใช้โค้ดและดูผลลัพธ์ของสีแบบอักษรของเซลล์จาก A1 ถึง A8

เอาท์พุต:

ดังนั้นสีของแบบอักษรจึงเปลี่ยนจากสีดำเป็นสีอื่น ๆ สีขึ้นอยู่กับตัวเลขที่เราให้กับฟังก์ชัน RGB

ด้านล่างนี้คือรหัสสี RGB เพื่อรับสีทั่วไป

คุณสามารถเปลี่ยนการผสมตัวเลขจำนวนเต็มจาก 0 ถึง 255 เพื่อให้ได้สีประเภทต่างๆ

ตัวอย่าง # 2

สำหรับช่วงเซลล์เดียวกันเรามาดูวิธีเปลี่ยนสีพื้นหลังของเซลล์เหล่านี้

ขั้นแรกให้ระบุช่วงของเซลล์โดยใช้วัตถุRANGE

รหัส:

ช่วง RGB_Example2 () ย่อย ("A1: A8") End Sub

คราวนี้เรากำลังเปลี่ยนสีพื้นหลังของเซลล์ที่กล่าวถึงดังนั้นเราจึงไม่มีอะไรเกี่ยวข้องกับคุณสมบัติ FONT ในตอนนี้เพื่อเปลี่ยนสีพื้นหลังให้เลือกคุณสมบัติ " ภายใน " ของวัตถุ RANGE

รหัส:

 Sub RGB_Example2 () Range ("A1: A8"). Interior End Sub 

เมื่อเลือกคุณสมบัติ "Interior" แล้วให้ใส่จุดเพื่อดูคุณสมบัติและวิธีการของคุณสมบัติ "Interior" นี้

รหัส:

ย่อย RGB_Example2 () ช่วง ("A1: A8") ภายใน End Sub

เนื่องจากเรากำลังเปลี่ยนสีภายในของเซลล์ที่กล่าวถึงจึงเลือกคุณสมบัติ " สี "

รหัส:

 Sub RGB_Example2 () ช่วง ("A1: A8"). Interior.Color End Sub 

ในการตั้งค่าคุณสมบัติสีภายในของช่วงของเซลล์ (A1 ถึง A8) โดยใช้เครื่องหมายเท่ากับและเปิดฟังก์ชัน RGB

รหัส:

 Sub RGB_Example2 () ช่วง ("A1: A8") Interior.Color = RGB (End Sub 

ป้อนหมายเลขสุ่มตามที่คุณต้องการ

รหัส:

 Sub RGB_Example2 () ช่วง ("A1: A8") Interior.Color = RGB (0, 255, 255) End Sub 

รันโค้ดและดูสีพื้นหลัง

เอาท์พุต:

เปลี่ยนสีพื้นหลังแล้ว

สิ่งที่ต้องจำที่นี่

• RGB ย่อมาจาก Red, Green และ Blue
• การรวมกันของสามสีนี้จะให้สีที่แตกต่างกัน
• พารามิเตอร์ทั้งสามนี้สามารถยอมรับค่าจำนวนเต็มระหว่าง 0 ถึง 255 เท่านั้น ตัวเลขใด ๆ ที่สูงกว่านี้จะถูกรีเซ็ตเป็น 255