| |
▼鉄人29号 さん：
おはようございます。
コンボボックスへのメンバー登録の方法も限定しないと下記の方法はうまくゆきませんね。
失礼しました。
例えば、Sheet1のセルA1からA5に「a,b,c,d,e」と入力されていてこれを
コンボボックスのメンバにするとします。
フォームモジュールに
'======================================================
Private Sub TextBox1_AfterUpdate()
Dim in_data As String
in_data = TextBox1.Text
On Error Resume Next
With ComboBox1
.ListIndex = WorksheetFunction.Match(in_data, Sheets("sheet1").Range(.RowSource), 0) - 1
End With
on error goto 0
End Sub
'===========================================================
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "=sheet1!a1:a5"
End Sub
とすると、正常に作動します。
Listプロパティが多元配列になっていると、一度一次元配列に直さないと
Match関数は使えませんね。
コンボボックスのメンバの登録が別の方法なら
また教えてください。
>御回答ありがとうございます。
>教えていただいたコードを参考に動かしてみましたが、
>
>実行時エラー'13':
>型が一致しません。
>
>というエラーがでます。
>解決法をお教えいただければ幸いです。
>私が試したコードは、以下の通りです。
>-------
>Private Sub TextBox3_AfterUpdate()
>
> Dim in_Data As String
>
> in_Data = TextBox3.Text
>
> With ComboBox2
> .ListIndex = WorksheetFunction.Match(in_Data, .List, 0) - 1
> End With
>
>End Sub
>--------
|
|
