Filter（Array（Range））がPopulatin User_Formコンボボックスで機能しない

Question

VB userformでワイルドカード検索型コンボボックスを作りたいと思います。 検索対象がExcelの列にあります。

私は実行することができます：

Private Sub Combobox1_Populate(Optional fltr As String) 
    ComboBox1.List = Filter(Array("a", "ab", "abc", "abcd"), fltr) 
End Sub 

---

が、使用する際に失敗しました：

Sub Combobox1_Populate(Optional fltr As String) 
    ComboBox1.List = Filter(Array(Range("A1:A9")), fltr)** 
End Sub 

実行時エラー '13' を

種類の不一致

を

Filter(Array(Rangeが動作しないのはなぜですか？それを修正するのを助けてください。

---

これは以下の問題もありません。ただArray(Rangeない仕事フィルターとの合併

Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 
    Call Combobox1_Populate(ComboBox1.Text) 
End Sub 

Private Sub UserForm_Initialize() 
    Call Combobox1_Populate 
End Sub 

Answer 1

は、以下のコードを試してみてください。

Sub Combobox1_Populate(Optional fltr As String) 

    ComboBox1.List = Filter(Application.Transpose(Range("A1:A9")), fltr) 

End Sub 

'============================================================== 

Private Sub UserForm_Initialize() 

Call Combobox1_Populate("shai") '<-- add the filter string in brackets, I've tested with "shai" 

End Sub