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

จะเปลี่ยนสีแท็บแผ่นงานตามค่าของเซลล์ได้อย่างไร?

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

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

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


ลูกศรสีฟ้าฟองขวา เปลี่ยนสีแท็บแผ่นเดียวตามค่าของเซลล์ด้วยรหัส VBA

ตัวอย่างเช่นฉันต้องการให้สีแท็บแผ่นงานปัจจุบันเป็นสีเขียวหากค่าของเซลล์ใน A1 เป็นข้อความ“ TRUE” สีของแท็บจะเป็นสีแดงหากข้อความใน A1 เป็น“ FALSE” และสีของแท็บจะเป็นสีน้ำเงินหาก ค่าในเซลล์ A1 คือข้อความอื่น ๆ ตามภาพหน้าจอต่อไปนี้:

แผ่นสี doc ตามค่า 1

1. คลิกขวาที่แท็บแผ่นงานที่คุณต้องการเปลี่ยนสีตามข้อมูลในเซลล์ A1 แล้วเลือก ดูรหัส จากเมนูบริบท

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

รหัส VBA: เปลี่ยนสีแท็บแผ่นเดียวตามค่าของเซลล์:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    If Target.Address = "$A$1" Then
        Select Case Target.Value
        Case "False"
            Me.Tab.Color = vbRed
        Case "True"
            Me.Tab.Color = vbGreen
        Case Else
            Me.Tab.Color = vbBlue
        End Select
    End If
End Sub

แผ่นสี doc ตามค่า 2

หมายเหตุ ในโค้ดด้านบน A1 คือการอ้างอิงเซลล์ที่คุณต้องการให้สีของแท็บตาม "จริง","เท็จ” คือข้อความที่คุณต้องการคุณสามารถเปลี่ยนได้ตามความต้องการและคุณสามารถเปลี่ยนสีในรหัสได้ตามต้องการ

3. จากนั้นบันทึกและปิดหน้าต่างรหัสนี้ตอนนี้เมื่อคุณป้อนข้อความ“ จริง” ในเซลล์ A1 สีของแท็บปัจจุบันจะกลายเป็นสีเขียวและเมื่อคุณป้อนข้อความ“ เท็จ” ในเซลล์ A1 สีของแท็บจะกลายเป็นสีแดง และหากป้อนข้อความอื่นในเซลล์ A1 สีของแท็บจะกลายเป็นสีน้ำเงินโดยอัตโนมัติ


ลูกศรสีฟ้าฟองขวา เปลี่ยนแท็บแผ่นงานหลายแผ่นตามค่าของเซลล์ด้วยรหัส VBA

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

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน ในหน้าต่างที่เปิดอยู่ให้ดับเบิลคลิก สมุดงานนี้ ภายใต้ โครงการ VBA จากนั้นคัดลอกและวางโค้ดด้านล่างลงในช่องว่าง โมดูล:

รหัส VBA: เปลี่ยนแท็บแผ่นงานหลายแผ่นตามค่าของเซลล์:

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  'Updateby Extendoffice 20160930
  Select Case Sheets("Master").Range("A1").Value
         Case "KTE"
             Sheets("Sheet1").Tab.Color = vbRed
         Case "KTO"
             Sheets("Sheet2").Tab.Color = vbGreen
         Case "KTW"
             Sheets("Sheet3").Tab.Color = vbBlue
         End Select
End Sub

แผ่นสี doc ตามค่า 3

หมายเหตุ ในโค้ดด้านบน A1 และ Master คือเซลล์และแผ่นงานที่คุณต้องการให้สีของแท็บเป็นไปตาม Sheet1, Sheet2, Sheet3 คือแผ่นงานที่คุณต้องการให้สีของแท็บ KTE, เค.ที.ดับบลิว, องค์การอนามัยโลก คือค่าของเซลล์ใน A1 ที่คุณต้องการเปลี่ยนสีให้กับแท็บคุณสามารถเปลี่ยนการอ้างอิงและสีในโค้ดได้ตามต้องการ

2. จากนั้นบันทึกและปิดหน้าต่างรหัสนี้ตอนนี้เมื่อคุณป้อนข้อความ KTE ในเซลล์ A1 ของแผ่นงานหลักแท็บ Sheet1 จะเป็นสีแดงเมื่อคุณป้อน KTO ในเซลล์ A1 Sheet2 จะเป็นสีเขียวและเมื่อ คุณป้อน KTW ในเซลล์ A1 แล้ว Sheet3 จะเป็นสีฟ้าดูภาพหน้าจอ:

แผ่นสี doc ตามค่า 4


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

Kutools สำหรับ 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
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (23)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เรียน ท่าน.
โปรดช่วยฉันในการเปลี่ยนสีแท็บแผ่นงานตามวันที่/วัน

สำหรับเช่น:-
ถ้าแผ่นที่ 1 เป็นวันอาทิตย์ - แท็บแผ่น 'สีแดง'
ถ้าแผ่นที่ 2 เป็นวันจันทร์ - แท็บแผ่น 'สีเขียว'
ถ้าแผ่นที่ 3 เป็นวันอังคาร - แท็บแผ่น 'สีเขียว'
ถ้าแผ่นที่ 4 คือวันพุธ - แท็บแผ่น 'สีเขียว'
ถ้าแผ่นที่ 5 คือวันพฤหัสบดี - แท็บแผ่นงาน 'สีเขียว'
ถ้าแผ่นที่ 6 เป็นวันศุกร์ - แท็บแผ่น 'สีเขียว'
ถ้าแผ่นที่ 7 คือวันเสาร์ - แท็บแผ่น 'สีเขียว'

กรุณาช่วยฉันสำหรับปัญหา excel ข้างต้น

ขอขอบคุณและขอแสดงความนับถือ
Faiz Ibn Uvaiz P.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คำอธิบายของคุณค่อนข้างคลุมเครือเล็กน้อยเกี่ยวกับสิ่งที่คุณพยายามจะทำจริงๆ หากสมุดงานมีระยะเวลาเพียงสัปดาห์เดียว ให้ระบายสีแท็บ หากระยะเวลานานกว่าหนึ่งสัปดาห์ วิธีแก้ปัญหาก็ซับซ้อนกว่าเล็กน้อย มีวิธีแก้ปัญหาหลายอย่างที่พร้อมใช้งานจนกว่าคุณจะให้รายละเอียดเกี่ยวกับปัญหา ฉันและอีกหลายๆ คนจะไม่ใช้เวลาของเราในการเขียนโค้ด 2,000 โซลูชันให้คุณฟรีๆ แต่คุณให้รายละเอียดปัญหาที่เราอาจมีให้ 1 วิธี
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันจะเปลี่ยนสีแท็บตามสภาพอากาศได้อย่างไรในช่วงของเซลล์ที่มีข้อความอยู่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สูตรนี้ใช้ได้สำหรับ 'จริง' - แท็บแผ่นงานเป็นสีแดง ถือว่าดีมาก แต่ถ้าฉันเปลี่ยนจาก 'จริง' เป็น 'เท็จ' ฉันต้องการให้แท็บแผ่นงานมี 'ไม่มีสี' สูตรไม่มีสีบนแท็บแผ่นงานคืออะไรถ้าไม่ได้เลือก 'True' นอกจากนี้ ถ้าต้องการสูตรสำหรับกลุ่มเซลล์เช่น A1:A30 ฉันใช้รหัสอะไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี,แชนนอน:
รหัส VBA ต่อไปนี้อาจช่วยคุณได้ โปรดลองใช้:

Worksheet_Change ย่อยส่วนตัว (เป้าหมายเป็นช่วง ByVal)
Dim xRg เป็นช่วง
ตั้งค่า xRg = อินเตอร์เซก(เป้าหมาย, พิสัย("A1:A30"))
ถ้า xRg ไม่มีอะไร ให้ออกจาก Sub
เลือก Case Target.Value
กรณี "จริง"
Me.Tab.Color = vbRed
กรณี "เท็จ"
Me.Tab.Color = เท็จ
สิ้นสุดการเลือก
ย่อยสิ้นสุด

หวังว่านี่จะช่วยคุณได้!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีวิธีทำให้สีของแท็บเปลี่ยนไปตามสิ่งต่อไปนี้หรือไม่: ฉันมีแท็บต้นแบบที่แถว 3-7 เป็นสีน้ำเงินและจะสอดคล้องกับแท็บที่เกี่ยวข้อง 3-7 (ซึ่งตั้งชื่อตามค่าของเซลล์ในต้นแบบใน แถวนั้น) ว่าอยากได้สีน้ำเงิน จากนั้นแถวที่ 8-12 จะเป็นสีเขียวและยังสอดคล้องกับแท็บ 8-12 เป็นต้น
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
นั่นเป็นเคล็ดลับที่ยอดเยี่ยมอย่างหนึ่ง
ฉันเชื่อมโยงสีแท็บตามค่าของเซลล์ A1 (<>0 RED และ =0 Green) อย่างไรก็ตามมาโครจะทำงานก็ต่อเมื่อฉันเลือก A1 กด F2 แล้วกด Enter โดยไม่ทำเช่นนี้แม้ว่าสีของแท็บ (ตามค่าของมัน) ควรเป็น สีแดง แต่ยังคงเป็นสีเขียว
ฉันใช้ excel 2007
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เป็นไปได้ไหมที่จะทำงานนี้เมื่อเซลล์ A1 สามารถมีคำตอบทั้ง 3 ข้อในบรรทัดแยกกันภายในเซลล์ นั่นคือ KTE, KTO และ KTW ทั้งหมดอยู่ในเซลล์เนื่องจากอนุญาตให้เลือกได้หลายรายการจากรายการแบบหล่นลง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันกำลังพยายามใช้รหัสนั้นและนำไปใช้กับกล่องกาเครื่องหมาย ดังนั้นเมื่อฉันทำเครื่องหมายที่ช่องนั้น สีจะเปลี่ยนไป ถ้าฉันยกเลิกการเลือก มันจะเปลี่ยนกลับ (ฉันได้ true=green, false=red ,else=red) . แต่เมื่อฉันตรวจสอบและยกเลิกการเลือกจะมีข้อผิดพลาด 'วัตถุที่จำเป็น'


ช่องทำเครื่องหมายย่อยส่วนตัว1_Click()
_____If Target.Address = "$e$5" แล้ว 'ข้อผิดพลาดที่นี่
__________เลือก Case Target.Value
__________กรณี "เท็จ"
_______________Me.Tab.Color = vbRed
__________กรณี "จริง"
_______________Me.Tab.Color = vbGreen
__________กรณีอื่น
_______________Me.Tab.Color = vbRed
__________สิ้นสุดการเลือก
_____สิ้นสุดถ้า
ย่อยสิ้นสุด

ฉันคัดลอกและวางเพื่อดูว่ามันทำงานแล้วปรับให้เข้ากับความต้องการของฉัน แต่ไม่พบวิธีที่จะทำให้มันทำงาน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เรียนเพื่อนร่วมงาน
กรุณาขอความช่วยเหลือ ฉันต้องการเปลี่ยนสีแท็บแผ่นงานตามค่าในรูปแบบ [h]:mm. ตัวอย่างเช่น ถ้าค่าต่ำกว่า 20:00 - สีแดง >20:00 สีเขียว
ขอบคุณและขอแสดงความนับถือ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เรียนเพื่อนร่วมงาน
กรุณาขอความช่วยเหลือ ฉันต้องการเปลี่ยนสีแท็บแผ่นงานตามค่าในรูปแบบ [h]:mm. ตัวอย่างเช่น ถ้าค่าต่ำกว่า 20:00 - สีแดง >20:00 สีเขียว
ขอบคุณและขอแสดงความนับถือ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีวิคเตอร์
รหัส VBA ด้านล่างสามารถแก้ปัญหาของคุณได้ โปรดลอง หวังว่าจะช่วยคุณได้!

Worksheet_Change ย่อยส่วนตัว (เป้าหมายเป็นช่วง ByVal)
Dim xStr เป็นสตริง
Dim xSN เป็นสตริง
Dim xDate เป็นสตริง
Dim xAddress เป็นสตริง
Dim xArr() เป็นสตริง
Dim xI1 เป็นจำนวนเต็ม
Dim xSM เป็นสตริง
xDate = "20:00"
xAddress = "$A$1"
ถ้า Target.Address <> xAddress แล้วออกจาก Sub
xStr = เป้าหมาย ข้อความ
xArr = แยก (xStr, ":")
ถ้า (UBound(xArr) - LBound(xArr) + 1) > 2 จากนั้นออกจาก Sub
xI1 = Int(xArr(0))
ถ้า (Len(xArr(0)) - 2) < 1 แล้ว
ถ้า xI1 > 23 แล้วออก Sub
อื่น
ออกจาก Sub
End If
xSM = xArr(1)
เกิดข้อผิดพลาด GoTo Err01
ถ้า (Len(xSM) - 2) <> 0 แล้วออกจาก Sub
ถ้า Int(Left(xSM, 1)) > 5 จากนั้นออกจาก Sub
ถ้า Int(Right(xSM, 1)) > 10 จากนั้นออกจาก Sub
ถ้า xI1 >= 20 แล้ว
Me.Tab.Color = vbGreen
อื่น
Me.Tab.Color = vbRed
End If
ข้อผิดพลาด 01:
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เรียน สกายหยาง
ขออภัยสำหรับการตอบรับสายเกินไป สูตรนี้ใช้ได้เมื่อฉันเปลี่ยนค่าในเซลล์ด้วยตนเอง แต่นั่นไม่ใช่สิ่งที่ฉันต้องการ
ค่าของเซลล์เป็นผลมาจากสูตรจากแผ่นงานที่แตกต่างกัน ตัวอย่างเช่น นี่คือสูตรในเซลล์ "O13-'520'!AD3" ซึ่งหมายความว่าค่าในเซลล์นี้กำลังเปลี่ยนแปลงโดยขึ้นอยู่กับค่าที่เซลล์ที่เลื่อนออกไปในชีตที่เลื่อนออกไป สิ่งที่ฉันต้องการคือสีแผ่นงานที่จะเปลี่ยนโดยอัตโนมัติเมื่อค่าในเซลล์ "O13-'520'!AD3" เปลี่ยนไป เมื่อค่าในเซลล์ "O13-'520'!AD3" ต่ำกว่า 05:00 - สีแดง , >20:00 สีเขียว ระหว่าง 05:00 ถึง 20:00 สีน้ำตาล
ขอขอบคุณล่วงหน้าและขอแสดงความนับถือ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีทุกคน ฉันจะเปลี่ยนสีแท็บตามค่าที่แน่นอนในคอลัมน์ของแผ่นงานหลายแผ่นได้อย่างไร ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณจะเชื่อมโยงแท็บกับค่าในแท็บอื่นได้อย่างไร ในตัวอย่างของฉัน ฉันมีแท็บเดียวที่มีข้อมูลทั้งหมดที่กรองออกไปยังแท็บต่างๆ โดยอัตโนมัติ อย่างไรก็ตาม แต่ละแท็บจะอ่านเป็นสีเขียวหรือสีแดง ขึ้นอยู่กับว่ามียอดคงเหลือค้างอยู่ในแท็บต้นแบบหรือไม่ สามารถทำได้โดยใช้รหัสนี้ และถ้าเป็นเช่นนั้น ฉันจะเขียนลิงก์ไปยังแผ่นงานหลักภายในรหัสนี้ได้ที่ไหน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี,

ไม่เคยทำโค้ดใน excel มาก่อน ฉันต้องการรหัสที่ทำหน้าที่เหมือนรหัสนี้ แต่ฉันต้องการพารามิเตอร์อื่น

สิ่งที่ฉันต้องการคือ:

ถ้าค่าของเซลล์ไม่ใช่ 0 และ/หรือถ้าเซลล์อื่นมีตัวเลขอยู่ ให้ใช้การนับ ให้เปลี่ยนสีเป็นสีแดง

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




Worksheet_Change ย่อยส่วนตัว (เป้าหมายเป็นช่วง ByVal)

'Updateby Extendoffice 20160930

ถ้า Target.Address = "กำลังติดตาม!$C$2" แล้ว

เลือก Case Target.Value

กรณี "ไอพี"

Me.Tab.Color = vbRed

กรณี "w"

Me.Tab.Color = vbYellow

กรณี "ค"

Me.Tab.Color = vbGreen

กรณีอื่น

Me.Tab.Color = vbBlue

สิ้นสุดการเลือก

End If

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

Worksheet_Change ย่อยส่วนตัว (เป้าหมายเป็นช่วง ByVal)

'Updateby Extendoffice 20160930

ถ้า Target.Address = "$C$2" แล้ว

เลือก Case Target.Value

กรณี "ไอพี"

Me.Tab.Color = vbRed

กรณี "w"

Me.Tab.Color = vbYellow

กรณี "ค"

Me.Tab.Color = vbGreen

กรณีอื่น

Me.Tab.Color = vbBlue

สิ้นสุดการเลือก

End If

ย่อยสิ้นสุด

โปรดลอง หวังว่าจะช่วยคุณได้!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันต้องการเปลี่ยนสีของแท็บตามหนึ่งใน 2 ผลลัพธ์ของสูตร ฉันมีสูตรของ=IF((AND(AA1="Occupied",AA2="Occupied",AA3="Occupied",AA4=" ครอบครอง")),"ครอบครอง","ว่าง")
ฉันต้องการแท็บให้เป็นสีแดงหาก "ครอบครอง" และสีเขียวหาก "ว่าง" อย่างไรก็ตามโค้ดด้านบนในโพสต์หลักไม่รู้จักผลลัพธ์ของ If Than
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ,
ฉันต้องการความช่วยเหลือ
ฉันต้องการเปลี่ยนสีแท็บแผ่นงานก็ต่อเมื่ออยู่ในช่วงของเซลล์บางช่วง มีวันที่ของวันนี้
พูดตัวอย่างเช่น
คอลัมน์ L มีบางวันที่ในรูปแบบ (13-พฤษภาคม-22)
ค่าหนึ่งในเซลล์คือวันที่ของวันนี้ จากนั้นสีของแผ่นแท็บควรเปลี่ยนเป็นสีแดง
กรุณาช่วย
ขอขอบคุณล่วงหน้า
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันต้องการให้แท็บของฉันเปลี่ยนสีหากเซลล์ใดๆ ในคอลัมน์ O หรือคอลัมน์ P มีค่าอยู่ในนั้น เป็นไปได้ไหม

ขอขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันต้องการตั้งค่าสีแท็บแผ่นงานตามสีของเซลล์ j4 ในแต่ละแผ่น มี 18+ แท็บและต้องการอัปเดตสีของแท็บเมื่อเปิดเวิร์กบุ๊ก หากฉันไม่สามารถอัปเดตเมื่อเปิด ฉันสามารถเรียกใช้แมโครหลังจากที่ทีมอัปเดตชีต
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีคุณไม้
เพื่อแก้ปัญหาของคุณ โปรดใช้รหัสด้านล่าง: (หมายเหตุ: คัดลอกและวางรหัสด้านล่างลงใน สมุดงานนี้ โหมดรหัส)
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Call SetSheetColor
End Sub

Private Sub Workbook_Open()
Call SetSheetColor
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Call SetSheetColor
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Call SetSheetColor
End Sub

Sub SetSheetColor()
Dim xWShs As Sheets
Dim xRg As Range
Dim xFNum As Integer
Dim xSh As Worksheet
On Error Resume Next
Set xWShs = Application.ActiveWorkbook.Sheets
For xFNum = 1 To xWShs.Count
    Set xSh = xWShs.Item(xFNum)
    Set xRg = xSh.Range("J4")
    xSh.Tab.Color = xRg.Interior.Color
Next
End Sub


https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-color-sheet.png

โปรดลอง หวังว่าจะช่วยคุณได้!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

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

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