Excel VBA質問箱 IV

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

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


56059 / 76732 ←次へ | 前へ→

【25438】Re:For文の中にIf文を入れる方法
発言  ichinose  - 05/5/31(火) 23:17 -

引用なし
パスワード
   ▼氷 さん:
こんばんは。
よく動いてますね!!下のコードで・・・。

nameという名前ではエラーになりますけどね。
numを----txtnum
nameを---txtname にしてみましょう。
それから、プロパティは付けるようにして下さい。


>numというテキストボックスが空っぽなら、nameというテキストボックスに 0 を、
>numに文字が入っていて、その文字がA1〜A5の中に入っていれば、
>nameというテキストボックスに 10 を、
>入っていなければnameテキストボックスに 1000 を入れたいのですが、
>A5の時にしか反応しません。
>ソースは以下なのですが、どこがおかしくて、どう改善したら良いのでしょうか?
>どなたか教えてください><
これだとせっかくA1で見つかってもループを抜けてないですからね!!
これを基に修正するなら
>
  Dim ans As String
  ans = 1000
  For i = 1 To 5
   If txtnum.Text = "" Then
     ans = 0
     Exit For
   ElseIf txtnum.Text = Cells(i, 1).Value Then
     ans = 10
     Exit For
    End If
   Next
  txtname.Text = ans

こんな感じでしょうか?
でも、もっと違う方法もあると思いますよ!!

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 お礼

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