Excel VBA質問箱 IV

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

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


5830 / 13646 ツリー ←次へ | 前へ→

【48648】ラベルに文字を表示させるには? 初心者 07/4/28(土) 13:49 質問[未読]
【48649】Re:ラベルに文字を表示させるには? クウガ 07/4/28(土) 14:29 回答[未読]
【48650】Re:ラベルに文字を表示させるには? 初心者 07/4/28(土) 14:59 お礼[未読]

【48648】ラベルに文字を表示させるには?
質問  初心者  - 07/4/28(土) 13:49 -

引用なし
パスワード
   こんにちわ。お世話になります。
皆様、教えて下さい。

セル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

【48649】Re:ラベルに文字を表示させるには?
回答  クウガ E-MAIL  - 07/4/28(土) 14:29 -

引用なし
パスワード
   ▼初心者 さん:
こんにちは。クウガと申します。
こういう場合、色々な方法があると思いますが、
初心者さんのコードを用いれば、
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

【48650】Re:ラベルに文字を表示させるには?
お礼  初心者  - 07/4/28(土) 14:59 -

引用なし
パスワード
   ▼クウガ さん:
こんにちわ。はじめましてです。
ありがとうございます。おかげで、思い通りになりました。

文章がキチンと出来てなかったから、動かなかったんですね・・・(恥)

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