|
▼初心者 さん:
こんにちは。クウガと申します。
こういう場合、色々な方法があると思いますが、
初心者さんのコードを用いれば、
exit for を忘れていませんか?
それと、3桁の数値ということですので、
cint で変換しちゃうとか、
Label8に、captionもつけちゃいましょう。
こんな感じだと思いますよ。
Private Sub TextBox1_Change()
Dim R As Range
Dim MyR As Range
Set MyR = Range("B5", Range("B65536").End(xlUp))
For Each R In MyR
If cint(R.Value) = cint(TextBox1.Value) Then
Label8.caption = "既に設定されています。"
exit for
Else
Label8.caption = " "
End If
Next
End Sub
>こんにちわ。お世話になります。
>皆様、教えて下さい。
>
>セルB5からB1100まで3桁の数値(000,056,159など)を入力しています。
>テキストボックスに3桁の数値を入れたとき、すでに入力されている数値だとラベルに「既に設定されています。」と表示し、入力されていない数値は空白を表示したいのですが、下記のコードだと表示されません。
>どこが間違っているのかわからないので、ご教授頂きたいです。
>
>宜しくお願いします。
>
>−−−−−−−−−−−−−−−−
>
>Private Sub TextBox1_Change()
> Dim R As Range
> Dim MyR As Range
>
> Set MyR = Range("B5", Range("B65536").End(xlUp))
> For Each R In MyR
> If R.Value = TextBox1.Value Then
> Label8 = "既に設定されています。"
> Else
> Label8 = " "
> End If
> Next
>End Sub
|
|