Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10966 / 76735

←次へ　｜　前へ→


	【71311】Re:ユーザーフォームのラベルキャプションの表示切替

HoMa - 12/2/21(火) 9:16 -


	引用なし

	パスワード

▼UO3 さん：
コメント有難うございます。
返信が遅くなってすいません。

>>うまく動作しませんでした。

説明不足ですいません。

ラベルの値を"cap"に置き換えているのですが、if文でテキストボックスに値があるうちは"cap"に"Initialize"で設定した値が入っているのですが、if文でテキストボックスに値が無くなった時に、"cap"が""に置き換えられてしまうので、以降cap=""という状態になってしまうのです。
if文のelseの後の
UserForm1.Controls("Label" & i).Caption = Clear
を"Crear"じゃなくて何とかInitializeで設定した値に戻したいのですが、その方法がわからなくて困っています。

>>リストボックスを選択するとその値によってテキストボックスに文字が出るようにし
>
>これは、具体的にはどこで処理していますか？
>アップされたコードの範囲では、この処理がありませんね。

これはこの文の前に
　　TextBox1.Text = Application.WorksheetFunction.VLookup("aaa", .Range("A2:AI3000"), 2, False)
　　TextBox3.Text = Application.WorksheetFunction.VLookup("bbb", .Range("A2:AI3000"), 2, False)
　　TextBox5.Text = Application.WorksheetFunction.VLookup("ccc", .Range("A2:AI3000"), 2, False)
と言った感じで取得しています。

ご教示どうぞよろしくお願いします。

4 hits

▼

【71302】ユーザーフォームのラベルキャプションの表示切替 HoMa 12/2/20(月) 11:36