Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana dengan cepat melompat ke sel bersebelahan berdasarkan pemilihan dalam senarai jatuh turun Excel?

Pernahkah anda mengarahkan untuk melompat ke sel bersebelahan berdasarkan pemilihan dalam senarai drop down dalam Excel? Sebagai contoh, di sini saya mempunyai senarai drop down dalam sel C1 yang merangkumi nama hari kerja, lajur A ialah senarai tarikh, dan lajur B adalah senarai masa. Sekarang apabila saya memilih borang nama hari minggu senarai drop-down, contohnya, hari Khamis, kursor melompat ke B5 yang bersebelahan dengan hari Khamis dalam lajur A. Dalam Excel, tidak ada ciri terbina dalam menyelesaikan tugas ini, tetapi dengan kod VBA yang kuat boleh.
doc melompat oleh nilai sel 1

Lompat ke sel bersebelahan berdasarkan nilai dalam senarai drop down oleh VBA


anak panah gelembung kanan biru Lompat ke sel bersebelahan berdasarkan nilai dalam senarai drop down oleh VBA


1. Pilih hari yang anda mahu gunakan dari senarai drop-down, kemudian tekan Alt + F11 kunci untuk membolehkan Microsoft Visual Basic untuk Aplikasi tingkap.
doc melompat oleh nilai sel 2

2. klik Memasukkan > Modul, tampal di bawah kod ke Modul.

VBA: Lompat ke sel bersebelahan 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

doc melompat oleh nilai sel 3

3. Akhbar F5 kekunci, maka kursor melompat ke sel bersebelahan berdasarkan nilai dalam senarai drop down.
doc melompat oleh nilai sel 4

Catatan:

Dalam kod VBA, A2: A8 adalah senarai yang mengandungi nilai-nilai yang sepadan dengan nilai dalam senarai drop-down, anda boleh menukar rujukan ini seperti yang anda perlukan.


Anda mungkin terperangkap dalam perkara ini:

Pilih Sel Khusus (pilih sel / baris / lajur berdasarkan satu kriteria dua bijih.)

doc pilih sel tertentu

Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.