エクセルVBA テキストボックス処理?
エクセル2000 VBAにて入力フォームの
テキストボックス1に下記を書き込んだのですが
カーソルがテキストボックス1にあるとき
他の処理(コマンドボタン、マウスにて他のテキストボックスに
カーソルを移すなど)が出来ません。
フォームを閉じるときもメッセージボックスのコメントがでます。
どの処理を行ってもテキストボックス1の処理が終わってからしか
行わないようなのですが???
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer '品番確認用
For i = 3 To 100
If Sheets("品番マスタ").Cells(i, 1) = TextBox1.Text Then
Label1 = Sheets("品番マスタ").Cells(i, 2).Value 'メーカー
Label2 = Sheets("品番マスタ").Cells(i, 3).Value 'タイプ
Label3 = Sheets("品番マスタ").Cells(i, 4).Value '品名
Label4 = Sheets("品番マスタ").Cells(i, 5).Value '内容量
Label6 = Sheets("品番マスタ").Cells(i, 8).Value '背番号
Exit Sub
End If
Next i
MsgBox "品番がありません"
TextBox1 = ""
Cancel = True
End Sub
どのように変更すればいいでしょうか?
お礼
回答ありがとうございました。