Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

56045 / 76732

←次へ　｜　前へ→


	【25452】Re:For文の中にIf文を入れる方法

つん

- 05/6/1(水) 10:27 -


	引用なし

	パスワード

おはようございます＾＾
横から失礼します。

>　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

とりあえず、一番最初に、txtNumの初期化しちゃうとか・・・

　Dim i As Long
　　
　txtNum.Text = ""

　For i = 1 To 5
　　If txtName.Text = "" Then
　　　txtNum.Text = ""
　　　Exit For
　　ElseIf txtName.Text = Cells(i, 1).Value Then
　　　txtNum.Text = "登録済みです"
　　　Exit For
　　End If
　Next

こんな風に。
いかがでしょう？
安易かな？（＾＾;

テキストボックスの名前はichinoseさんがおっしゃってるように変更されたんですよね？

0 hits

▼

【25437】For文の中にIf文を入れる方法 氷 05/5/31(火) 22:40