Mengisi Data Pada Beberapa Worksheet Sekaligus
Pada aplikasi excel, kita sanggup mengisi data yang sama ke dalam beberapa worksheet sekaligus dengan cara menggabungkan atau grouping worksheet-worksheet tersebut. Grouping worksheet sanggup dilakukan secara manual maupun secara otomatis memakai instruksi VBA. Dengan memahami tehnik ini diharapkan sanggup membantu kita untuk menghemat waktu ketika harus mengisi data yang sama pada beberapa worksheet.
Grouping worksheet secara manual.
Ikuti langkah-langkah berikut untuk grouping worksheet secara manual, serta untuk mengisi data dan edit format sekaligus pada beberapa worksheet:
- Pada keyboard, tekan tombol Ctrl, lalu dengan memakai mouse, klik tab worksheet yang akan di-group.
- Lakukan isi data pada salah satu sheet yang di-group.
- Silahkan lihat pada worsheet lainnya dalam group.
- Maka kita sanggup melihat semua sheet dalam group sudah terisi data yang sama.
- Silahkan lakukan edit format pada salah satu sheet dalam grup dan lalu lihat alhasil pada masing-masing worksheet.
- Maka semua sheet dalam grup akan mempunyai format yang sama.
- Untuk mengembalikan ke mode ungroup, silahkan klik salah satu tab sheet.
Kelemahan Grouping Worksheet secara manual
- Editing pada sebuah worksheet dalam group akan merubah worksheet lainnya dalam grup, tidak peduli dimana posisi sel yang diisi data atau di-edit. Padahal mungkin kita hanya perlu merubah atau mengisi data yang sama pada range sel tertentu saja.
- Sangat riskan user lupa melaksanakan ungroup sehabis melaksanakan isi data yang diperlukan, sehingga tidak menyadari apa yang diedit pada sebuah worksheet ternyata merubah worksheet lainnya. Padahal belum tentu diperlukan.
Grouping worksheet secara otomatis.
Sebagai solusi untuk meniadakan resiko yang tidak diinginkan atas grouping worksheet secara manual, maka disarankan untuk grouping worksheet secara otomatis. Dengan cara ini kita sanggup menetapkan grouping worksheet ketika hanya perlu mengedit atau mengisi data pada range tertentu saja. Selain itu kita tidak perlu khawatir kelupaan melaksanakan ungroup, alasannya yaitu excel akan mengerjakannya secara otomatis.
Langkah-langkah grouping worksheet secara otomatis.
Anggaplah kita ingin memasukan data yang sama ke dalam sheet1, sheet2 dan sheet 3 pada range B3:E10
- Pastikan setting macro security sudah enable
- Klik kanan pada salah satu worksheet yang akan di-grup, contohnya sheet1, lalu klik View Code.
- Maka kita akan di bawa ke jendela VBA, modul object Sheet1. Selanjutnya copy code berikut ke dala modul VBA.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Range("B3:E10"), Target) Is Nothing Then
Me.Select
Else
Sheets(Array("sheet1", "sheet2", "sheet3")).Select
End If
End Sub
Untuk lebih jelasnya sanggup dilihat pada screenshot di bawah ini.
- Lakukan hal yang sama pada sheet lainnya yang akan di grup (sheet2 dan sheet3) sehingga semua modul object sheet1, sheet2 dan sheet 3 sudah mempunyai instruksi VBA ibarat tumpuan di atas.
- Sekarang saatnya untuk menguji hasilnya:
- Silahkan seleksi salah satu sel dalam range B3:E10 pada salah satu sheet1, sheet2 atau sheet3. Kemudian seleksi sembarang sel lainnya di luar range B3:E10 dan perhatikan perbedaan reaksi excel.
- Ketika kita menyeleksi salah satu sel pada range B3:E10 maka otomatis sheet1, sheet2 dan sheet3 akan di-group. Sebaliknya ketika kita menyeleksi sel di luar range B3:E10 maka sheet1, sheet2 dan sheet3 akan di-ungroup.
- Lakukan isi data atau edit format pada range B3:E10 dan bandingkan alhasil dengan isi data / edit format pada range diluar B3:E10.
- Maka data yang sama atau format yang sama hanya akan berlaku bila kita mengedit sel dalam range B3:B10 saja.
- Hal ini tentu saja sangat berkhasiat untuk memastikan isi data yang sama hanya pada range tertentu saja.
Untuk memilih sheet dan range spesifik mana yang diinginkan biar terisi data yang sama, maka kita sanggup memodifikasi code sesuai tumpuan di atas.
Misalnya:
Code macro berikut sanggup dipakai untuk grouping secara otomatis sheet1, sheet2, sheet3 dan sheet4 bila range kita menyeleksi salah satu sel dalam range A1:B10
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Range("A1:B10"), Target) Is Nothing Then
Me.Select
Else
Sheets(Array("sheet1", "sheet2", "sheet3","sheet4")).Select
End If
End Sub
Silahkan dicoba dengan cara mengcopy instruksi tersebut pada modul VBA object sheet1, sheet2, sheet3 dan sheet4 sesuai langkah-langkah yang sudah dijelaskan sebelumnya. Kemudian perhatikan alhasil ketika kita mengedit data pada sel dalam range A1:B10 dan bandingkan dengan hasil edit data pada range lainnya.
Demikian pembahasan singkat mengenai tips mengisi data sekaligus pada beberapa worksheet dengan cara grouping worksheet, baik secara manual maupun otomatis. Semoga bermanfaat.
Dapatkan tips-tips bermanfaat lainnya dari je-xcel:
0 Response to "Mengisi Data Pada Beberapa Worksheet Sekaligus"
Posting Komentar