Excel - ใช้โค้ด VBA กับหลาย ๆ แผ่น

ปัญหา

ฉันมีไฟล์เงินเดือนของ Excel ไฟล์นี้มี 200 แผ่นสำหรับพนักงานแต่ละคน

ฉันมีรหัส VBA ต่อไปนี้

 Worksheet_Change ส่วนบุคคลย่อย (ByVal Target เป็น Range) หาก Target.Address "$ C $ 9" จากนั้นออกจาก Sub หาก Target = "seconded" แล้ว Range ("a12") EntireRow.Hidden = True Range ("a14") EntireRow.Hidden = True Else Range ("a12"). EntireRow.Hidden = ช่วง False ("a14") EntireRow.Hidden = สิ้นสุดเท็จหาก End Sub 

ฉันต้องใส่ / เขียนรหัสนี้เพียงครั้งเดียวเพื่อให้ทำงานได้ทั้งหมด 200 แผ่นไม่เช่นนั้นฉันต้องคัดลอกและวางมันลงในแต่ละแผ่น 200 แผ่น

สารละลาย

ดูเหมือนว่าคุณไม่ต้องการใช้รหัสกับแผ่นงานเดียว แต่ใช้กับทั้งสมุดงาน

ดังนั้นดับเบิลคลิกที่ ThisWorkbook ด้านล่างแผ่นงานใน VB และวางรหัสของคุณเช่น:

 สมุดงานย่อยส่วนตัว _SheetChange (ByVal Sh As Object, ByVal Target เป็น Range) หาก Target.Address "$ C $ 9" จากนั้นออกจาก Sub หาก Target = "seconded" Then Range ("a12") EntireRow.Hidden = True Range ("a14" ) .EntireRow.Hidden = True Else Range ("a12"). EntireRow.Hidden = ช่วง False ("a14"). EntireRow.Hidden = สิ้นสุดถ้า False Sub Sub 

ขอบคุณ TrowaD สำหรับเคล็ดลับนี้