|
▼氷 さん:
こんばんは。
よく動いてますね!!下のコードで・・・。
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
こんな感じでしょうか?
でも、もっと違う方法もあると思いますよ!!
|
|