Bagaimana cara menyinkronkan daftar drop-down di beberapa lembar kerja di Excel?
Misalkan Anda memiliki daftar drop-down pada beberapa lembar kerja dalam buku kerja yang berisi item drop-down yang sama persis. Sekarang Anda ingin menyinkronkan daftar drop-down di seluruh lembar kerja sehingga setelah Anda memilih item dari daftar drop-down di satu lembar kerja, daftar drop-down di lembar kerja lain secara otomatis disinkronkan dengan pilihan yang sama. Artikel ini menyediakan kode VBA untuk membantu Anda memecahkan masalah ini.
Sinkronkan daftar drop-down di beberapa lembar kerja dengan kode VBA
Sinkronkan daftar drop-down di beberapa lembar kerja dengan kode VBA
Misalnya, daftar drop-down ada di lima lembar kerja bernama Lembar1, Lembar2, ... lembar5, untuk menyinkronkan daftar drop-down di lembar kerja lain sesuai dengan pilihan drop-down di Sheet1, silakan terapkan kode VBA berikut untuk menyelesaikannya.
1. Buka Sheet1, klik kanan tab sheet dan pilih Lihat kode dari menu klik kanan.
2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, rekatkan kode VBA berikut ke dalam Lembar1 (Kode) jendela.
Kode VBA: Sinkronkan daftar drop-down di beberapa lembar kerja
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220815
Dim tSheet1 As Worksheet
Dim tRange As Range
Dim xRangeStr As String
On Error Resume Next
If Target.Count > 1 Then Exit Sub
xRangeStr = "A2:A11"
Set tRange = Intersect(Target, Range(xRangeStr))
If Not tRange Is Nothing Then
xRangeStr = tRange.Address
Application.EnableEvents = False
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet2")
tSheet1.Range(xRangeStr).Value = Target.Value
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet3")
tSheet1.Range(xRangeStr).Value = Target.Value
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet4")
tSheet1.Range(xRangeStr).Value = Target.Value
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet5")
tSheet1.Range(xRangeStr).Value = Target.Value
Application.EnableEvents = True
End If
End Sub
Catatan:
3. tekan lain + Q kunci untuk menutup Microsoft Visual Basic untuk Aplikasi jendela.
Mulai sekarang, ketika Anda memilih item dari daftar drop-down di lembar1, daftar drop-down di lembar kerja yang ditentukan akan disinkronkan secara otomatis untuk memiliki pilihan yang sama. Lihat demo di bawah ini.
Demo: Sinkronkan Daftar Drop-Down Di Beberapa Lembar Kerja Di Excel
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!