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

or

Bagaimana untuk menetapkan nilai lalai dalam senarai drop-down validasi data dalam Excel?

Menetapkan nilai lalai dalam senarai drop-down pengesahihan data membantu orang lain mengenal pasti sel-sel senarai drop-down dengan mudah sepintas lalu dalam lembaran kerja. Artikel ini menyediakan kaedah VBA untuk menetapkan nilai lalai dalam senarai drop-down validasi data secara terperinci.

Tetapkan nilai lalai dalam senarai drop-down validasi data dengan kod VBA


Anda mungkin berminat dalam:

Menggabungkan berbilang lembaran kerja / buku kerja ke dalam satu lembaran kerja / buku kerja:

Menggabungkan pelbagai lembaran kerja atau buku kerja ke dalam satu lembaran kerja atau buku kerja mungkin menjadi tugas yang besar dalam kerja harian anda. Tetapi, jika anda ada Kutools untuk Excel, utiliti yang berkuasa - Gabungkan boleh membantu anda dengan cepat menggabungkan pelbagai lembaran kerja, buku kerja ke dalam satu lembaran kerja atau buku kerja.

Kutools untuk Excel termasuk lebih banyak alat 300 alat Excel. Percuma untuk mencuba tanpa had pada hari 60. Lebih Lanjut Muat turun percubaan percuma sekarang


Tetapkan nilai lalai dalam senarai drop-down validasi data dengan kod VBA


Seperti screenshot di bawah, andaikan semua sel dalam lingkungan B2: C7 mengandungi senarai juntai bawah, dan anda mahu menetapkan nilai lalai (kata - Pilih dari senarai -) dalam senarai drop-down ini sebelum memilih nilai dari mereka. Anda boleh mencuba kod VBA berikut.

1. Klik kanan tab helaian dengan senarai lungsur turun yang anda perlukan untuk menetapkan nilai lalai, kemudian klik Lihat Kod daripada menu.

2. Di dalam Microsoft Visual Basic untuk Aplikasi tetingkap, salin dan tampal kod VBA berikut ke tetingkap Kod.

Kod VBA: tetapkan nilai lalai dalam senarai drop-down validasi data

Sub DropDownListToDefault()
    Dim xCell As Range
    Dim xRg As Range
    Dim xAcCell As Range
    Dim xScreen As Boolean
    On Error Resume Next
    Set xAcCell = Application.ActiveCell
    Set xRg = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllValidation)
    If xRg Is Nothing Then
        MsgBox "No data validation drop-down lists in current worksheet", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In xRg
        If xCell.Validation.Type = 3 Then
            If xCell.Value = "" Then xCell.Value = "'- Choose from the list -"
        End If
    Next
    xAcCell.Select
    Application.ScreenUpdating = xScreen
End Sub

Nota: anda boleh menukar nilai lalai dalam kod VBA kepada yang anda perlukan.

6. Tekan butang F5 kunci untuk menjalankan kod. Anda dapat melihat nilai lalai ditambah ke semua sel turun senarai bawah seperti screenshot yang ditunjukkan di bawah.

Nota:

1. Nilai lalai akan hilang selepas memilih nilai dalam senarai juntai bawah.

2. Sekiranya tiada senarai juntai pengesahan data dalam lembaran kerja semasa, anda akan mendapat kotak petak di bawah.


Related articles:



Cadangan Alat Produktiviti untuk Excel

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.
  • To post as a guest, your comment is unpublished.
    Martin Goodwin · 6 months ago
    Love the code about 'VBA code: set a default value in data validation drop-down list', how do I use the same code for just one column with one dropdown?