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

วิธีเปลี่ยนค่าตามสีของเซลล์ใน Excel

บทความนี้พูดถึงการเปลี่ยนค่าของเซลล์โดยอัตโนมัติตามสีพื้นหลังใน Excel ตัวอย่างเช่นหากเซลล์เติมสีพื้นหลังสีแดงในส่วนที่เลือกจากนั้นเติมข้อมูลในเซลล์เหล่านี้ด้วยหมายเลข 1 และสำหรับเซลล์สีพื้นหลังสีน้ำเงินให้กรอกหมายเลข 0

เปลี่ยนค่าตามสีของเซลล์ด้วยรหัส VBA


เปลี่ยนค่าตามสีของเซลล์ด้วยรหัส VBA


คุณสามารถเรียกใช้โค้ด VBA ด้านล่างเพื่อเปลี่ยนค่าตามสีของเซลล์ใน Excel กรุณาดำเนินการดังนี้

1. เลือกช่วงที่คุณต้องการเปลี่ยนค่าตามสีพื้นหลังจากนั้นกด อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล

รหัส VBA: เปลี่ยนค่าตามสีของเซลล์ใน Excel

Sub ChangeValueBasedOnCellColor()
    Dim rg As Range
    Dim xRg As Range
    Set xRg = Selection.Cells
    Application.DisplayAlerts = False
    For Each rg In xRg
        With rg
            Select Case .Interior.Color
                Case Is = 255 'Red
                    .Value = 1
                Case Is = 15773696 'Blue
                    .Value = 0
            End Select
        End With
    Next
    Application.DisplayAlerts = False
End Sub

3 กด F5 คีย์เพื่อเรียกใช้รหัสจากนั้นคุณจะเห็นเซลล์สีแดงทั้งหมดในช่วงที่เลือกเต็มไปด้วยหมายเลข 1 และเซลล์สีน้ำเงินจะเต็มไปด้วยหมายเลข 0 ตามภาพด้านล่างที่แสดง

 

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

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

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

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

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



รหัสใดที่จะต้องเปลี่ยนเพื่อให้มีช่วงเป็นทั้งแผ่นงาน/แท็บและชื่อแทนที่จะเป็นค่า
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ดูเหมือนว่า Excel จะขัดข้องทุกครั้งที่ฉันพยายามเรียกใช้โค้ด VBA เหมือนจะอกหัก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วันดี,
รหัสทำงานได้ดีในกรณีของฉัน คุณช่วยบอกฉันเวอร์ชัน Excel ของคุณได้ไหม ขอบคุณสำหรับความคิดเห็นของคุณ.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันอยู่ในเรือลำเดียวกัน กำลังพยายามเรียกใช้สิ่งนี้ แต่ดูเหมือนว่ารหัสจะค้าง เอ็กเซล 2016
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เป็นไปได้ไหมที่จะปรับโค้ดนี้ตามกฎการจัดรูปแบบตามเงื่อนไขของเซลล์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัสทำงานได้ดีสำหรับฉัน แต่ฉันจะต้องเขียนรหัสใหม่เพื่อให้พอดีกับสีเฉพาะสำหรับเอกสารของฉัน แต่ฉันไม่รู้ว่ารหัส "สีของฉัน" มีรหัสอะไร ใครรู้บ้างที่สามารถหารหัสสำหรับสีอื่นๆ ได้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วิ่งยังไง วิ่งแต่เหมือนไม่มีอะไรเกิดขึ้น
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณสามารถเปลี่ยนสีเป็นค่าได้โดยใช้ฟังก์ชันค้นหาและแทนที่ ไปที่ฟังก์ชันการจัดรูปแบบทางด้านขวาของกล่องโต้ตอบค้นหาและแทนที่ จากนั้นภายใต้ "เติม" คุณสามารถเลือกสีที่คุณมีได้ จากนั้นใน "แทนที่ด้วย" เพียงแค่เขียนค่าที่คุณต้องการ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันเจอการประท้วงที่โชคดีซึ่งเป็นประโยชน์ แต่ไม่รู้ว่าจะหาไดเร็กทอรีแบบเต็มได้ที่ไหน!
http://cdn-0.access-excel.tips/wp-content/uploads/2015/08/excel_vbcolor_10.png 
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีวิธีการทำเช่นนี้ แต่ให้ผ่านหลายไฟล์โดยอัตโนมัติหรือไม่?
สำหรับบริบท แบบสอบถามถูกส่งไปยังสถานประกอบการสองร้อยแห่ง คำตอบ MC ของพวกเขาที่เลือกสอดคล้องกับสีที่ระบุคะแนน (เช่น สีเขียว คือ ดี สีแดง คือ แย่) และเปลี่ยนเนื้อหาของเซลล์ (ด้วยกระบวนการเหมือนในกระทู้นี้) เป็น สิ่งที่ R หรือซอฟต์แวร์อื่นสามารถอ่านได้ แล้วใช้สิ่งนั้นเพื่อสร้างรายงานอัตโนมัติ ฉันสามารถตรวจดูแต่ละไฟล์เหล่านี้ด้วยมาโครนี้ (หรือแนวคิดที่ต่างไปจากเดิมอย่างสิ้นเชิง) แต่จะใช้เวลานาน
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ