Bagaimana cara cepat melompat ke sel yang berdekatan berdasarkan pilihan dalam daftar dropdown Excel?
Pernahkah Anda membayangkan melompat ke sel yang berdekatan berdasarkan pilihan dalam daftar drop-down di Excel? Misalnya, di sini saya memiliki daftar drop-down di sel C1 yang menyertakan nama hari kerja, kolom A adalah daftar tanggal, dan kolom B adalah daftar waktu. Sekarang ketika saya memilih nama hari kerja dari daftar drop-down, misalnya, Kamis, kursor melompat ke B5 yang bersebelahan dengan hari Kamis di kolom A. Di Excel, tidak ada fitur bawaan untuk menyelesaikan tugas ini, tetapi dengan kode VBA yang kuat bisa.
Lompat ke sel yang berdekatan berdasarkan nilai dalam daftar drop-down oleh VBA
Lompat ke sel yang berdekatan berdasarkan nilai dalam daftar drop-down oleh VBA
1. Pilih hari yang ingin Anda gunakan dari daftar drop-down, lalu tekan Alt + F11 kunci untuk mengaktifkan Microsoft Visual Basic untuk Aplikasi jendela.
2. klik Menyisipkan > Modul, tempel kode di bawah ini ke Modul.
VBA: Lompat ke sel yang berdekatan berdasarkan nilai
Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20161221
If Target.Address <> [C1].Address Then
Exit Sub
Else
JumpToCell
End If
End Sub
Sub JumpToCell()
Dim xRg, yRg As Range
Dim strAddress As String
strAddress = ""
Set yRg = Range("A2:A8")
For Each xRg In yRg
'MsgBox Cell.Value
If xRg.Value = ActiveCell.Value Then
strAddress = xRg.Address
End If
Next
If strAddress = "" Then
MsgBox "The Day You Selected in Cell D4 Was Not Found On " & ActiveSheet.Name, _
vbInformation, "Kutools for Excel"
Exit Sub
Else
Range(strAddress).Offset(0, 1).Select
End If
End Sub
3. tekan F5 kunci, lalu kursor melompat ke sel yang berdekatan berdasarkan nilai dalam daftar drop-down.
Dalam kode VBA, A2: A8 adalah daftar yang berisi nilai yang cocok dengan nilai dalam daftar drop-down, Anda dapat mengubah referensi ini sesuai kebutuhan.
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!