Excel - Pembuatan dropdown dari daftar dinamis di VBA

Isu

Saya telah mencoba membuat Makro yang dapat membuat daftar dropdown dari daftar dinamis di kolom A. Sejauh ini saya telah menemukan kode berikut:

 Sub Tes () Rentang ("A1", Rentang ("A65536"). Akhir (xlUp)). Nama = "Sel MyList" (1, 3) .Pilih Dengan Seleksi.Validasi .Hapus .Tambahkan Tipe: Tambah xlValidateList, AlertStyle : = xlValidAlertStop, Operator: = _ xlBetween, Formula1: = "= & MyList" .IgnoreBlank = Salah .InCellDropdown = Benar .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .Eputroressage = "" .ShowInput = True .ShowError = Akhir Benar Dengan Sub Akhir

Namun memanggil MyList tidak berfungsi.

Larutan

Coba ini:

Buka validasi data, pilih daftar dan ketik = MyList
Sekarang klik kanan pada tab sheet dan pilih kode tampilan dan tempel kode berikut:

 Private Sub Worksheet_Change (ByVal Target As Range) If Intersect (Target, Columns ("A: A")) Tidak Apa-apa Maka Keluar Sub Dim lRow Sebagai Integer lRow = Range ("A" & Rows.Count) .End (xlUp). Rentang Baris ("A1: A" & lRow) .Name = "MyList" End Sub