Note: The other languages of the website are Google-translated. Back to English

จะใช้การไล่ระดับสีในหลายเซลล์ได้อย่างไร?

ใน Excel เราสามารถเติมสีพื้นหลังให้กับเซลล์หรือหลาย ๆ เซลล์ได้อย่างง่ายดาย แต่บางครั้งเราจำเป็นต้องเติมสีไล่ระดับตามภาพหน้าจอต่อไปนี้จะทำให้การไล่ระดับสีในเซลล์หรือในหลายเซลล์ใน Excel ได้อย่างไร

ไล่ระดับสีไปยังเซลล์เดียว ไล่ระดับสีไปยังหลายเซลล์
การไล่ระดับสี doc 1 การไล่ระดับสี doc 2

ใช้สีไล่ระดับกับเซลล์เดียวด้วยคุณสมบัติ Format Cells

ใช้สีไล่ระดับในหลายเซลล์ด้วยรหัส VBA


ลูกศรสีฟ้าฟองขวา ใช้สีไล่ระดับกับเซลล์เดียวด้วยคุณสมบัติ Format Cells

ใน Excel คุณลักษณะ Format Cells สามารถช่วยคุณเติมการไล่ระดับสีในเซลล์เดียวได้โปรดทำดังนี้:

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

การไล่ระดับสี doc 3

2. ใน เติมเอฟเฟกต์ ให้เลือกสองสีที่คุณต้องการใช้จากรายการดรอปดาวน์สองรายการ สี จากนั้นเลือกรูปแบบการแรเงาตามที่คุณต้องการเช่นแนวนอนแนวตั้งและอื่น ๆ ดูภาพหน้าจอ:

การไล่ระดับสี doc 4

3. จากนั้นคลิก OK > OK เพื่อปิดกล่องโต้ตอบและเติมสีไล่ระดับสำหรับแต่ละเซลล์ตามภาพหน้าจอต่อไปนี้:

การไล่ระดับสี doc 5


ลูกศรสีฟ้าฟองขวา ใช้สีไล่ระดับในหลายเซลล์ด้วยรหัส VBA

วิธีการข้างต้นสามารถช่วยเราในการไล่ระดับสีภายในเซลล์แต่ละเซลล์หากคุณต้องการแรเงาไล่ระดับสีในหลายเซลล์คุณต้องใช้รหัส VBA เพื่อแก้ปัญหา

1. ขั้นแรกให้เติมสีพื้นหลังที่ต้องการลงในช่วงของเซลล์

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

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

รหัส VBA: ใช้สีไล่ระดับในหลายเซลล์:

Sub colorgradientmultiplecells()
'Updateby Extendoffcie 
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xColor As Long
    Dim I As Long
    Dim K As Long
    Dim xCount As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
LInput:
    Set xRg = Application.InputBox("please select the cells range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    On Error Resume Next
    Application.ScreenUpdating = False
    xCount = xRg.Rows.Count
    For K = 1 To xRg.Columns.Count
        xColor = xRg.Cells(1, K).Interior.Color
        For I = xCount To 1 Step -1
            xRg.Cells(I, K).Interior.Color = xColor
            xRg.Cells(I, K).Interior.TintAndShade = (xCount - (I - 1)) / xCount
        Next
    Next
End Sub

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

 

การไล่ระดับสี doc 6

5. จากนั้นคลิก OK ปุ่มสีภายในหลายเซลล์แสดงเป็นสีไล่ระดับดูภาพหน้าจอ:

 

การไล่ระดับสี doc 7


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools for Excel แก้ปัญหาส่วนใหญ่ของคุณ และเพิ่มประสิทธิภาพการทำงานของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office/Excel 2007-2021 และ 365 รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ คุณสมบัติเต็มรูปแบบ ทดลองใช้ฟรี 30 วัน รับประกันคืนเงินภายใน 60 วัน
kte แท็บ 201905

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (22)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันจะทำให้การไล่ระดับสีไปทางซ้ายไปขวาได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฌอน
หากต้องการใช้การไล่ระดับสีจากซ้ายไปขวา โปรดใช้รหัส VBA ต่อไปนี้:

การไล่ระดับสีย่อยหลายเซลล์ ()
Dim xRg เป็นช่วง
Dim xTxt เป็นสตริง
Dim xCell เป็นช่วง
Dim xColor ตราบเท่าที่
หรี่ฉันนาน
หรี่ K ตราบ
Dim xCount ตราบใด
เกี่ยวกับข้อผิดพลาดต่อไป
ถ้า ActiveWindow.RangeSelection.Count > 1 แล้ว
xTxt = ActiveWindow.RangeSelection.AddressLocal
อื่น
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
อินพุต:
Set xRg = Application.InputBox("กรุณาเลือกช่วงเซลล์:", "Kutools for Excel", xTxt, , , , , 8)
ถ้า xRg ไม่มีอะไร ให้ออกจาก Sub
ถ้า xRg.Areas.Count > 1 แล้ว
MsgBox "ไม่รองรับการเลือกหลายรายการ", vbInformation, "Kutools for Excel"
ไปที่ LInput
End If
เกี่ยวกับข้อผิดพลาดต่อไป
Application.ScreenUpdating = เท็จ
xCount = xRg.Columns.Count
สำหรับ K = 1 ถึง xRg.Rows.Count
xColor = xRg.Cells(K, 1).Interior.Color
สำหรับฉัน = xCount To 1 ขั้นตอน -1
xRg.Cells(K, I).Interior.Color = xColor
xRg.Cells(K, I).Interior.TintAndShade = (xCount - (I - 1)) / xCount
ถัดไป
ถัดไป
ย่อยสิ้นสุด

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

การไล่ระดับสีย่อยหลายเซลล์ ()

'Updateโดย Extendoffcie

Dim xRg เป็นช่วง

Dim xTxt เป็นสตริง

Dim xCell เป็นช่วง

Dim xColor ตราบเท่าที่

หรี่ฉันนาน

หรี่ K ตราบ

Dim xCount ตราบใด

เกี่ยวกับข้อผิดพลาดต่อไป

ถ้า ActiveWindow.RangeSelection.Count > 1 แล้ว

xTxt = ActiveWindow.RangeSelection.AddressLocal

อื่น

xTxt = ActiveSheet.UsedRange.AddressLocal

End If

อินพุต:

Set xRg = Application.InputBox("กรุณาเลือกช่วงเซลล์:", "Kutools for Excel", xTxt, , , , , 8)

ถ้า xRg ไม่มีอะไร ให้ออกจาก Sub

ถ้า xRg.Areas.Count > 1 แล้ว

MsgBox "ไม่รองรับการเลือกหลายรายการ", vbInformation, "Kutools for Excel"

ไปที่ LInput

End If

เกี่ยวกับข้อผิดพลาดต่อไป

Application.ScreenUpdating = เท็จ

xCount = xRg.Rows.Count

สำหรับ K = 1 ถึง xRg.Columns.Count

xColor = xRg.Cells(1, K).Interior.Color

สำหรับฉัน = xCount To 1 ขั้นตอน -1

xRg.Cells(I, K).Interior.Color = xColor

xRg.Cells(I, K).Interior.TintAndShade = I / xCount

ถัดไป

ถัดไป

ย่อยสิ้นสุด

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

การไล่ระดับสีย่อยหลายเซลล์ ()
Dim xRg เป็นช่วง
Dim xTxt เป็นสตริง
Dim xCell เป็นช่วง
Dim xColor ตราบเท่าที่
หรี่ฉันนาน
หรี่ K ตราบ
Dim xCount ตราบใด
เกี่ยวกับข้อผิดพลาดต่อไป
ถ้า ActiveWindow.RangeSelection.Count > 1 แล้ว
xTxt = ActiveWindow.RangeSelection.AddressLocal
อื่น
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
อินพุต:
Set xRg = Application.InputBox("กรุณาเลือกช่วงเซลล์:", "Kutools for Excel", xTxt, , , , , 8)
ถ้า xRg ไม่มีอะไร ให้ออกจาก Sub
ถ้า xRg.Areas.Count > 1 แล้ว
MsgBox "ไม่รองรับการเลือกหลายรายการ", vbInformation, "Kutools for Excel"
ไปที่ LInput
End If
เกี่ยวกับข้อผิดพลาดต่อไป
Application.ScreenUpdating = เท็จ
xCount = xRg.Columns.Count
สำหรับ K = 1 ถึง xRg.Rows.Count
xColor = xRg.Cells(K, 1).Interior.Color
สำหรับฉัน = xCount To 1 ขั้นตอน -1
xRg.Cells(K, I).Interior.Color = xColor
xRg.Cells(K, I).Interior.TintAndShade = I / xCount
ถัดไป
ถัดไป
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เป็นไปได้ไหมที่จะทำการไล่ระดับนี้แต่จากล่างซ้ายไปขวาบน?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันไม่คุ้นเคยกับรหัส VBA ฉันจะตั้งค่าสีอื่นในรหัสได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี พอล
หากคุณต้องการตั้งค่าสีอื่น คุณเพียงแค่เติมสีที่คุณต้องการลงในเซลล์ จากนั้นใช้โค้ดด้านบนนี้ในบทความนี้
โปรดลอง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบใจ! มันได้ผล :)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ทำไมฉันได้สีดำ-ขาวมาแทนที่การไล่ระดับสีของฉัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีค่ะ คุณปิยะพันธ์
โค้ดด้านบนทำงานได้ดีในเวิร์กชีตของฉัน คุณใช้ Excel เวอร์ชันใด
หรือคุณสามารถให้ปัญหาของคุณมีรายละเอียดมากขึ้น
ขอขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี! ฉันมีปัญหาเดียวกัน ฉันเลือกสีสำหรับการไล่ระดับสีของฉัน แต่เมื่อใช้โค้ด มันจะกลายเป็นการไล่ระดับสีดำเป็นสีขาว ช่วยอะไร?? ขอบใจ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันจะเปลี่ยนจากสีเหลืองเป็นสีแดงได้อย่างไร (ตัวอย่าง) ใช้งานได้เฉพาะจากสีขาวเป็นสีอื่น ฉันทำงานกับรหัสจากซ้ายไปขวา
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีจัสมิน
ขออภัย รหัสนี้ใช้กับสีเดียวเท่านั้น และถ้าคุณต้องการเติมการไล่ระดับสีจากซ้ายไปแน่น ความคิดเห็นด้านล่างมีวิธีแก้ปัญหา โปรดตรวจสอบ
ขอขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี คุณสามารถใช้สิ่งนี้กับช่วงเช่น 1 ถึง 5 เซลล์ที่มีตัวเลขอยู่ โดยให้ 5 เป็นส่วนที่มืดที่สุดได้ไหม

Kutools สามารถทำคล้ายกับ above เล็กน้อยหรือไม่ แต่จากนั้นจัดเรียงแถวของตัวเลขให้เป็นมาตราส่วน - อธิบายได้ไม่ดี บอกว่าตอบแบบสำรวจในระดับ 1 ถึง 5 จากนั้นให้แสดงกราฟหนึ่งแท่งต่อคำถาม โดยแสดงเปอร์เซ็นต์ของคำตอบเป็น 1, 2 ,3 ,4; 5% 5, 1% 10, 2% 15 และ 3% 50, 4% 20 แต่แสดงการไล่ระดับสีในแถบแนวนอน (ดีกว่าถ้ามี 5 สี)

ขอบคุณ Gord
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันได้ลองคัดลอกโค้ด VBA แล้ว แต่เมื่อฉันพยายามเรียกใช้ ฉันได้รับข้อความแจ้งว่า 'ข้อผิดพลาดในการคอมไพล์: Invalid Outside Procedure'....


ฉันจะแก้ไขสิ่งนี้ได้อย่างไร ??


ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี คุณสามารถใช้สิ่งนี้กับช่วงเช่น 1 ถึง 5 เซลล์ที่มีตัวเลขอยู่ โดยให้ 5 เป็นส่วนที่มืดที่สุดได้ไหม
Kutools สามารถทำคล้ายกับ above เล็กน้อยหรือไม่ แต่จากนั้นจัดเรียงแถวของตัวเลขให้เป็นมาตราส่วน - อธิบายได้ไม่ดี บอกว่าตอบแบบสำรวจในระดับ 1 ถึง 5 จากนั้นให้แสดงกราฟหนึ่งแท่งต่อคำถาม โดยแสดงเปอร์เซ็นต์ของคำตอบเป็น 1, 2 ,3 ,4; 5% 5, 1% 10, 2% 15 และ 3% 50, 4% 20 แต่แสดงการไล่ระดับสีในแถบแนวนอน (ดีกว่าถ้ามี 5 สี)
ขอบคุณ Gord
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันจะใช้สูตรนี้สำหรับสองสีได้อย่างไร ด้านบนฉันไม่สามารถดูโซลูชันได้ โปรด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี

Ich habe zu erst den ersten code verwendet, das funktioniert aber leider nicht. der färbt nur einzelne Zellen und die in komplett anderen Farben. Der Code für dunkel oben nach hell unten funktioniert gar nicht bei mir. ข้อผิดพลาดทางไวยากรณ์ Gibt es noch andere möglichkeiten einen Farbverlauf über mehrere Zellen zu erschaffen oder gibt es da eine andere Lösung für mich?

Vielen โกหก Dank vorab schon mal.
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL