| |
▼氷 さん：
こんばんは。
よく動いてますね！！下のコードで・・・。
nameという名前ではエラーになりますけどね。
numを----txtnum
nameを---txtname にしてみましょう。
それから、プロパティは付けるようにして下さい。
>numというテキストボックスが空っぽなら、nameというテキストボックスに 0 を、
>numに文字が入っていて、その文字がA1〜A5の中に入っていれば、
>nameというテキストボックスに 10 を、
>入っていなければnameテキストボックスに 1000 を入れたいのですが、
>A5の時にしか反応しません。
>ソースは以下なのですが、どこがおかしくて、どう改善したら良いのでしょうか？
>どなたか教えてください＞＜
これだとせっかくＡ１で見つかってもループを抜けてないですからね！！
これを基に修正するなら
>
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
こんな感じでしょうか？
でも、もっと違う方法もあると思いますよ！！
|
|
ichinose
- 05/5/31(火) 23:17 -
