Excel VBA質問箱 IV

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

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


33308 / 76734 ←次へ | 前へ→

【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

3 hits

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

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