Excel - เติมกระดาษหลายแผ่นตามข้อมูลที่ป้อนในแผ่นงานหลัก

ปัญหา
สารละลาย

ปัญหา

ฉันกำลังทำสมุดงานการบัญชีโดยมีเงื่อนไขดังต่อไปนี้:

ในแผ่นงานแรกที่เรียกว่า "บัญชี" ธุรกรรมทั้งหมดจะถูกระบุไว้ในตารางที่เปลี่ยนจาก C6-H6 และลงทุกรายการ หนึ่งในคอลัมน์ในตารางมีป้ายกำกับว่า "ส่วน" และหมายถึงค่าใช้จ่ายหรือแหล่งรายได้ มี 7 ภาคส่วนและแต่ละคนมีแผ่นงานในสมุดงานนี้

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

เคล็ดลับหรือข้อเสนอแนะ?

สารละลาย

หมายเหตุ 1: ป้อนภาคในคอลัมน์ H

หมายเหตุ 2: ป้อนเซกเตอร์เป็นค่าสุดท้ายของแถว

 Worksheet_Change ส่วนบุคคลย่อย (ByVal Target เป็น Range) หาก Intersect (Target, Columns ("H: H")) ไม่ออกจาก Sub Range (Range ("C" & Target.Row), Range ("H" & Target.Row )). คัดลอก _ ชีต (Target.Value) .Range ("C" & Rows.Count) .End (xlUp) .Offset (1, 0) Sub Sub

ในการใช้รหัส: