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

≪