|
初めの問題は解決出来たのですが、また別の問題が出てきてしまいました。
したいことは、num.Textとname.Textの両方が、今あるデータと重複していなければ、
新たに追加する、ということをしたいのですが、
num.Textというテキストボックスが空っぽなら、name.Textというテキストボックスに 0 を、num.Textに文字が入っていて、その文字がA1〜A5の中に入っていれば、
name.Textというテキストボックスに 10 を、入っていなければname.Textテキストボックスには後で文字を入れるために空けておく、
というようにしたいです。
A1〜A5に、「あ」「い」「う」「え」「お」と一文字ずつ入れて、
txtnameに「あ」と打つと、txtnumに「登録済みです」と表示されるのですが、
「あ」と打って、登録済みと表示された後に、「あ」の後ろに「か」と打ち、
txtnameの中身を「あか」にしたときには、A1〜A5には該当しないので、
txtnumには何も表示しないようにしたいのですが、出来ませんでした。
txtボックスの中身が変更されたら、実行するというような命令か何かが
あるのでしょうか?
どなたか解決策をご存知でしたら教えてください><
For i = 1 To 5
If name.Text = "" Then
num.Text = ""
Exit For
ElseIf name.Text = Cells(i, 1).Value Then
num.Text = "登録済みです"
Exit For
End If
Next
|
|