Bagaimana Cara Memindahkan Data dari Master ke Sub Sheets dalam Excel

Sekiranya anda menggunakan Excel dan ingin secara automatik memindahkan data dari kunci induk ke helaian tertentu apabila keadaan tertentu dipenuhi, artikel ini akan menerangkan cara menggunakan VBA ( Visual Basic for Applications ) untuk berbuat demikian. Contoh ini akan menunjukkan cara memindahkan secara automatik beberapa lajur dalam satu helaian ke satu sama lain apabila nilai dalam salah satu medan adalah " Ya ". Nilai medan bersyarat boleh diubah seperti yang diperlukan.

Autotransfer Data dari Master ke Sub Sheets dalam Excel

Untuk memulakan, buka dokumen Excel anda dan buka tetingkap Microsoft Visual Basic untuk Aplikasi dengan memukul [Alt] + [F11].

Seterusnya, cari helaian anda di lajur kiri dan klik dua kali pada Master . Nama helaian akan bergantung kepada apa yang telah anda namakannya dalam Excel. Lembaran induk adalah lembaran utama di mana data dimasukkan pertama, dan Lembaran sub adalah lokasi di mana data akan dihuni. Seterusnya, tampal kod berikut dalam medan putih yang besar:

 Sub Swasta Works_Change (ByVal Target As Range) Jika Intersect (Sasaran, Kolum ("G")) Tidak Ada Kemudian Keluar Sub 'Apabila tidak ada perubahan dalam' kolum G maka tidak melakukan apa-apa. 'Nilai sel yang telah diubah dalam lajur G kini akan dirujuk sebagai Target. Jika Target.Value = "Ya" Kemudian 'Apabila keadaan dipenuhi ("Ya" dalam lajur G) maka Julat (Sel (Target.Row, "A"), Sel (Target.Row, "G" Lembaran (Target.Offset (0, -1) .Value) .Range ("A" & Rows.Count) .End (xlUp) .Offset (1, 0) 'Salin baris di mana perubahan dibuat dari lajur A lajur G. 'Tampalkan ke helaian yang disebut dalam lajur F dan baris pertama yang tersedia. Akhir Jika Akhir Sub 

Sekarang, anda boleh menutup tetingkap Microsoft Visual Basic untuk Aplikasi dan fail anda kini bersedia untuk memindahkan data secara automatik yang dimasukkan pada helaian induk ke helaian terpilih. Ingat bahawa Makro hanya akan berjalan apabila perubahan dibuat dalam lajur G.

Terima kasih kepada TrowaD untuk tip ini.

Imej: © Microsoft.