エクセル VBA テキストBoxが複数の場合！

質問

エクセル　VBA　テキストBoxが複数の場合！　

K1＝テキストボックスでそこにIDを入力
K1n=そのIDの人の名前が出ます。
１つなら下記の場合でいいのですが
これがK1～K20のテキストBoxがある場合は
どのようにすれば良いのですか？？

複数の場合の記述を教えて下さい
ちなみにこのDATAは他のBooKにあり
それをオープンにして格納しています。

SS = SH1.Range("A65536").End(xlUp).Row
For lng = 2 To SS
'テキストボックスと同じ値があればを表示する。
If k1.Text = SH1.Cells(lng, 1) Then
k1n.Text = SH1.Cells(lng, 2)
Exit For

'同じ値がない場合はメッセージとする。
Else
k1n.Text = "ID確認！"
End If
Next lng

回答No.2

Wendy02 · ベストアンサー

>ユーザーフォーム上と同じですか？？

違います。でも、テキストボックスって、Excelには、他にも3種類ありますが、そのどれなのでしょうね。その質問だけでは分かりませんね。コントロールツール、フォームツール、オートシェイプの三つがあります。それに、コードのロジックは間違いではありませんが、SS = SH1.Range("A65536").End(xlUp).Row　がどのぐらいになりかは分かりませんが、数が多くなると、あまり効率が良くないようです。

お礼

確かに効率が良くないですね！
色々教えていただきありがとうございました。

回答No.1

kybo

コントロールを配置しているのは、ユーザーフォームですよね。
複数の場合は、Controls("k" & I).Textのようにします。

SS = SH1.Range("A65536").End(xlUp).Row
For lng = 2 To SS
'テキストボックスと同じ値があればを表示する。
For I = 1 To 20
If Controls("k" & I).Text = SH1.Cells(lng, 1).Text Then
Controls("k" & I & "n").Text = SH1.Cells(lng, 2)
Exit For
'同じ値がない場合はメッセージとする。
Else
Controls("k" & I & "n").Text = "ID確認！"
End If
Next I
Next lng

補足

早速の回答ありがとうございます。
使用している場所は、Sheet上にTextBoxです！
ユーザーフォーム上と同じですか？？