ユーザーフォームに配置したラベル(Label)を使う時は、テキストボックスなどと一緒に説明書きやタイトルに使う事が多いですが、ラベル名(キャプション)を検索結果やセルの値を取得して書き換えたいと思ったことありませんか?
そして2つの別々のセルの値を1つのラベルにまとめて表示させることもできたら便利だと思いませんか?
この方法は意外と簡単でセル番地の間に「&」を入力するだけでできるようになるので、VBAコードをご紹介します。
セル番地や”名前”を「&」で結合
ここでは、ラベル(label)のプロパティにあるキャプションを「登録者数」とすることで、ユーザーフォームが開くとラベル名が「登録者数」と当然表示されます。
そして、新規追加登録をする(コマンドボタンを押す)と自動的にラベル名が「登録者数+セルの値+名」で表示させるようにします。
これにより、今何名登録されているのかが分かるようになりますが、ここではラベルのキャプション取得に絞って記載します。
Private Sub CommandButton1_Click()
Label1.Caption = “登録者数 ” & Range(“A2”).Value & “ 名”
End Sub
- コマンドボタン1がクリックされたら
- ラベル1の文字を「登録者数 セルA2の値 名」と書き換える
- マクロ記録終了
全角スペースを入れておくと上記のように見やすくなりますよ!
また、2つのセルの値を結合するならば(セルA2とセルB2の場合)下記のように「セル番地 & セル番地」にするだけですよ!
Private Sub CommandButton1_Click()
Label1.Caption = Range(“A2”).Value & Range(“B2”).Value
End Sub
関連記事
-
ラベル
VLOOKUPをVBAラベルを活用してデータ検索・修正をする方法
ラベル(Label)にVBAコードを記述する ボウリング成績表でも使っているユーザーフォームに配置した文字を表示するための「ラベル(Label)」にも、実はVBAコードを記述… -
ラベル
ユーザーフォームを開く時にラベルの名前を書き換えて表示する方法
ユーザーフォームに配置したラベル名「Label1」が、フォーム表示と同時に名前や日付などに自動的に表示を変えることができるのをご存知ですか? 方法は簡単で指定したセ… -
ラベル
複数のラベル名を一括で複数のセルの値に書き換える方法
ラベルキャプションをセルの値から一括取得 ボウリングの大会や予約でASで名前登録作業を行っていて、一人目の名前を入れると、空欄の部分に登録した名前が表示され、二… -
ラベル
2つ別々のセルの値を1つのラベルに結合して表示するVBA
ユーザーフォームに配置したラベル(Label)を使う時は、テキストボックスなどと一緒に説明書きやタイトルに使う事が多いですが、ラベル名(キャプション)を検索結果や…
紅葉スポット
-
妙義山パノラマパーク紅葉へバスで上州富岡駅から滞在時間35分
山が多い群馬県の中でも、赤城山・榛名山とともに妙義山を合わせて上毛三山と呼ばれる群馬県代表の山で、日本三大奇勝でもあり、岩肌が切り立った景観が特徴でもありま… -
秩父のパワースポット三峯神社の金蔵落としへ大血川渓谷紅葉へ
秩父市大滝にある大血川渓谷は「金蔵落し」の周りを中心にかえでやもみじが真っ赤に染まり、バス停から近い事もあり多くの観光客が訪れます。 そして金蔵落しは紅葉絶景… -
雲場池へバスで軽井沢駅から紅葉絶景観光スポットへ滞在時間50分
【紅葉見頃】10月中旬~11月中旬 避暑地軽井沢は実は紅葉も綺麗に見られる観光スポットでも知られ、紅葉名所の雲場池は軽井沢駅から1.3㎞程なので徒歩でも行けますし… -
十勝岳望岳台へ活火山の溶岩と山頂部の雪化粧と紅葉の三段紅葉絶景
北海道のほぼ真ん中に位置して旭岳・美瑛藤・上富良野岳などが一望でき、さらに旭川市街や富良野市街までも見ることができる絶景スポットです。 標高930mの十勝岳は9月… -
土合駅から谷川岳ロープウェイで天神平スキー場からの天空紅葉絶景へ
谷川岳ロープウェイに乗って谷川岳天神平スキー場として冬は多くのスキーヤーに楽しまれていますが、夏は避暑地スポットとして気温22℃の涼しさを体感でき、さらに秋は一… -
花園渓谷の花園神社紅葉ライトアップへ磯原駅から観光周遊バスで行く
茨城県の最北端にある北茨城市でもう少し北上すれば福島県という位置なので、東京からだとかなり遠いですが、山間部の花園花貫県立自然公園という名の通り大自然の中を…