จะป้องกันหรือล็อคค่าเซลล์ตามสีพื้นหลังได้อย่างไร?
สมมติว่าฉันมีแผ่นงานขนาดใหญ่และเซลล์หลายเซลล์เต็มไปด้วยสีพื้นหลังที่แตกต่างกันตอนนี้ฉันต้องการล็อคหรือป้องกันเซลล์ตามสีที่เติมบางอย่างเช่นการล็อกหรือป้องกันเซลล์ทั้งหมดด้วยสีแดง มีวิธีการใดที่ดีในการจัดการกับงานนี้ใน Excel หรือไม่?
ป้องกันหรือล็อคค่าเซลล์ตามสีพื้นหลังด้วยรหัส VBA
ป้องกันหรือล็อคค่าเซลล์ตามสีพื้นหลังด้วยรหัส VBA
ตัวอย่างเช่นฉันต้องการล็อคและป้องกันเซลล์สีแดงทั้งหมดเพื่อป้องกันไม่ให้ผู้ใช้รายอื่นแก้ไขค่าของเซลล์เหล่านี้รหัส VBA ต่อไปนี้สามารถแก้ปัญหานี้ให้คุณได้โปรดทำตามนี้:
1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.
รหัส VBA: ป้องกันหรือล็อคค่าเซลล์ตามสี:
Sub lockcellsbycolor()
'Updateby Extendoffice
Dim colorIndex As Integer
colorIndex = 3
Dim xRg As Range
Application.ScreenUpdating = False
For Each xRg In ActiveSheet.UsedRange.Cells
Dim color As Long
color = xRg.Interior.colorIndex
If (color = colorIndex) Then
xRg.Locked = True
Else
xRg.Locked = False
End If
Next xRg
Application.ScreenUpdating = True
MsgBox "All specified color cells have been locked!", vbInformation, "Kutools for Excel"
End Sub
หมายเหตุ: ในรหัสด้านบนหมายเลข 3 ภายใน ดัชนีสี = 3 สคริปต์ระบุเซลล์สีแดงที่ฉันต้องการล็อคคุณสามารถเปลี่ยนเป็นดัชนีสีอื่นที่คุณต้องการล็อคได้
3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และมีเพียงเซลล์สีแดงเท่านั้นที่ถูกล็อคเซลล์อื่น ๆ จะถูกปลดล็อกในช่วงที่ใช้งานของแผ่นงานดูภาพหน้าจอ:
4. หากคุณต้องการป้องกันไม่ให้ถูกแก้ไขโดยผู้ใช้รายอื่นคุณเพียงแค่ใช้ไฟล์ ป้องกันแผ่นงาน คุณสมบัติในการปกป้องแผ่นงานนี้
เคล็ดลับ: ในการรับหมายเลขดัชนีสีคุณสามารถใช้ฟังก์ชันที่กำหนดโดยผู้ใช้ดังต่อไปนี้:
Function GetColor(x As Range) As Integer
GetColor = x.Interior.ColorIndex
End Function
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เสริมทักษะ Excel ของคุณด้วย Kutools for Excelและสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools for Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
Office Tab นำอินเทอร์เฟซแบบแท็บมาสู่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
