ไปยังเนื้อหาหลัก

วิธีการสร้างแผนภูมิสีตามสีของเซลล์ใน Excel

โดยปกติเมื่อคุณสร้างแผนภูมิสีของแถบคอลัมน์จะเป็นค่าเริ่มต้น หากคุณต้องการจัดรูปแบบสีที่เติมในแต่ละแถบตามสีของเซลล์ตามภาพหน้าจอต่อไปนี้คุณจะแก้ปัญหาใน Excel ได้อย่างไร?

ระบายสีแผนภูมิด้วยชุดข้อมูลหนึ่งชุดหรือหลายชุดตามสีของเซลล์ด้วยรหัส VBA

ระบายสีแผนภูมิด้วยชุดข้อมูลหนึ่งชุดหรือหลายชุดตามสีของเซลล์ด้วยคุณสมบัติที่น่าทึ่ง


ระบายสีแผนภูมิด้วยชุดข้อมูลหนึ่งชุดหรือหลายชุดตามสีของเซลล์ด้วยรหัส VBA

ระบายสีแผนภูมิด้วยชุดข้อมูลหนึ่งชุดตามสีของเซลล์

ด้วยรหัส VBA ต่อไปนี้คุณสามารถเปลี่ยนสีของแผนภูมิซึ่งมีชุดข้อมูลหนึ่งชุดตามสีของค่าเซลล์เดิมได้อย่างรวดเร็วโปรดดำเนินการดังนี้:

1. ขั้นแรกสร้างแผนภูมิแท่งหรือคอลัมน์ตามภาพหน้าจอต่อไปนี้ (เลือกข้อมูลแล้วคลิก สิ่งที่ใส่เข้าไป > แทรกคอลัมน์หรือแผนภูมิแท่ง):

2. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

3. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในหน้าต่างโมดูล

รหัส VBA: แถบแผนภูมิสีที่มีชุดข้อมูลหนึ่งชุดตามสีของเซลล์:

Sub ColorChartColumnsbyCellColor()
'Updateby Extendoffice
    Dim xChart As Chart
    Dim I As Long, xRows As Long
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
    If xChart Is Nothing Then Exit Sub
    With xChart.SeriesCollection(1)
        Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1))
        xRows = xRg.Rows.Count
        Set xRg = xRg(1)
        For I = 1 To xRows
            .Points(I).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xRg.Offset(I - 1, 0).Interior.ColorIndex)
        Next
    End With
End Sub

หมายเหตุ: ในโค้ดด้านบน 1 แผนภูมิ คือชื่อแผนภูมิที่คุณต้องการใช้โปรดเปลี่ยนเป็นชื่อของคุณเอง

4. หลังจากวางรหัสด้านบนแล้วกรุณากด F5 คีย์เพื่อเรียกใช้รหัสนี้และสีของแถบแผนภูมิมีการเปลี่ยนแปลงตามสีของเซลล์เดิมดูภาพหน้าจอ:


ระบายสีแผนภูมิด้วยชุดข้อมูลหลายชุดตามสีของเซลล์

หากแผนภูมิของคุณมีชุดข้อมูลหลายชุดโปรดใช้รหัส VBA ต่อไปนี้:

1. โปรดสร้างแผนภูมิแท่งหรือคอลัมน์ที่มีชุดข้อมูลหลายชุดดังภาพต่อไปนี้:

2. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

3. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในหน้าต่างโมดูล

รหัส VBA: แถบแผนภูมิสีที่มีชุดข้อมูลหลายชุดตามสีของเซลล์:

Sub CellColorsToChart()
'Updateby Extendoffice
    Dim xChart As Chart
    Dim I As Long, J As Long
    Dim xRowsOrCols As Long, xSCount As Long
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
    If xChart Is Nothing Then Exit Sub
    xSCount = xChart.SeriesCollection.Count
    For I = 1 To xSCount
        J = 1
        With xChart.SeriesCollection(I)
            Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(2), "!")(1))
            If xSCount > 4 Then
                xRowsOrCols = xRg.Columns.Count
            Else
                xRowsOrCols = xRg.Rows.Count
            End If
            For Each xCell In xRg
                .Points(J).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
                .Points(J).Format.Line.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
                J = J + 1
            Next
        End With
    Next
End Sub

4. จากนั้นกด F5 กุญแจสำคัญในการเรียกใช้รหัสนี้แถบแผนภูมิจะเต็มไปด้วยสีของเซลล์เดิมในครั้งเดียวดูภาพหน้าจอ:

หมายเหตุ:

1. ในโค้ดด้านบน 1 แผนภูมิ คือชื่อแผนภูมิที่คุณต้องการใช้โปรดเปลี่ยนเป็นชื่อของคุณเอง

2. รหัสนี้สามารถนำไปใช้กับแผนภูมิเส้นได้


ระบายสีแผนภูมิด้วยชุดข้อมูลหนึ่งชุดหรือหลายชุดตามสีของเซลล์ด้วยคุณสมบัติที่น่าทึ่ง

ด้วยการใช้รหัสข้างต้นสีของแผนภูมิจะไม่ตรงกับสีของเซลล์เสมอไปเพื่อแก้ปัญหานี้ที่นี่ฉันจะแนะนำเครื่องมือที่มีประโยชน์ - เปลี่ยนสีแผนภูมิตามสีของเซลล์ of Kutools สำหรับ Excelด้วยคุณสมบัติที่มีประโยชน์นี้คุณสามารถระบายสีแผนภูมิตามสีของเซลล์ได้อย่างรวดเร็วและง่ายดาย

หมายเหตุ ที่จะใช้สิ่งนี้ เปลี่ยนสีแผนภูมิตามสีของเซลล์ประการแรกคุณควรดาวน์โหลดไฟล์ Kutools สำหรับ Excelแล้วใช้คุณสมบัตินี้อย่างรวดเร็วและง่ายดาย

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดทำตามนี้:

1. ขั้นแรกโปรดแทรกแผนภูมิที่คุณต้องการใช้จากนั้นเลือกแผนภูมิจากนั้นคลิก Kutools > ชาร์ต > เครื่องมือแผนภูมิ > เปลี่ยนสีแผนภูมิตามสีของเซลล์ดูภาพหน้าจอ:

2. จากนั้นกล่องข้อความแจ้งจะปรากฏขึ้นโปรดคลิก OK ปุ่ม

3. ตอนนี้แผนภูมิที่คุณเลือกมีสีตามสีของเซลล์ตามภาพหน้าจอด้านล่างที่แสดง:

ระบายสีแผนภูมิด้วยชุดข้อมูลหนึ่งชุดตามสีของเซลล์

ระบายสีแผนภูมิด้วยชุดข้อมูลหลายชุดตามสีของเซลล์

ดาวน์โหลดและทดลองใช้ Kutools for Excel ฟรีทันที!


บทความแผนภูมิญาติเพิ่มเติม:

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

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
For more than 1 Chart:



Sub CellColorsToChart()'Updateby Extendoffice
Dim xChart As Chart
Dim I As Long, J As Long, Y As Long
Dim xRowsOrCols As Long, xSCount As Long Dim xRg As Range, xCell As Range
On Error Resume Next

For Y = 1 To 100Set xChart = ActiveSheet.ChartObjects("Chart "&Y).Chart If xChart Is Nothing Then Exit Sub
xSCount = xChart.SeriesCollection.Count
For I = 1 To xSCount
J = 1
With xChart.SeriesCollection(I)
Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(2), "!")(1))
If xSCount > 4 Then
xRowsOrCols = xRg.Columns.Count
Else
xRowsOrCols = xRg.Rows.Count
End If
For Each xCell In xRg
.Points(J).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
.Points(J).Format.Line.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
J = J + 1
Next
End WithNext
Next
End Sub

This comment was minimized by the moderator on the site
If i have more charts in my sheet? do you have another code?
This comment was minimized by the moderator on the site
It is ok. But... why simply not going to "Format Legend Entry" option in every data series in the chart, and go "Fill" and make it the color you want. I mean... all is ok, but a VBA code for this simple task is kinda overkill. But thanks. Appreciate you share it.
This comment was minimized by the moderator on the site
i cant make it work :( is this supposed to work on a stacked bar chart? Thanks
This comment was minimized by the moderator on the site
This was an awesome start, but the colors of the chart and the cells don't always match. Any idea why?
This comment was minimized by the moderator on the site
Thank you for the codes! How would you add a conditional format when the format is already established?
This comment was minimized by the moderator on the site
Thank you for these codes! This was exactly what I've been looking for with one detail not quite fitting. When I ran the code, the bar graphs colored in correctly but not legend which stayed unchanged. Is there a variation to the code that would include the legend? Or is there a way to match the Legend to the changes in the chart without a code?
This comment was minimized by the moderator on the site
If i have more charts in my sheet? do you have another code?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations