Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


56055 / 76735 ←次へ | 前へ→

【25445】Re:For文の中にIf文を入れる方法
質問    - 05/6/1(水) 8:48 -

引用なし
パスワード
   初めの問題は解決出来たのですが、また別の問題が出てきてしまいました。

したいことは、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

0 hits

【25437】For文の中にIf文を入れる方法 05/5/31(火) 22:40 質問
【25438】Re:For文の中にIf文を入れる方法 ichinose 05/5/31(火) 23:17 発言
【25440】Re:For文の中にIf文を入れる方法 05/5/31(火) 23:27 お礼
【25445】Re:For文の中にIf文を入れる方法 05/6/1(水) 8:48 質問
【25452】Re:For文の中にIf文を入れる方法 つん 05/6/1(水) 10:27 回答
【25486】Re:For文の中にIf文を入れる方法 05/6/2(木) 0:21 お礼

56055 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free