|
今晩は。
いつもお世話になります。
以前このサイトで複数行をUserFormのComboBoxに取り込むのに、Rowsourceを使わないコードを見させていただきそれを活用させていただいていました。
ここで質問が生まれてきました。
このコードを活用して、非表示又は、オートフィルターで非表示の状態になって
いるデータを拾わせる方法は有るでしょうか?
specialcells(xltypeVisible)を使おうとしましたが、ComboBoxにデータが全く入らなくなります。
何か良い方法がありましたら、アドバイスお願いします。
Private Sub userform_initialize()
Dim myVal As Variant
myVal = Range(Cells(6, 1), Cells(Rows.Count, 1).End(xlUp)).Resize(, 3).Value
With UserForm3
.ComboBox1.ColumnCount = 3
.ComboBox1.ColumnWidths = "20;20;30"
.ComboBox1.List = myVal
End With
End Sub
|
|