ユーザーフォームに配置したラベル(Label)を使う時は、テキストボックスなどと一緒に説明書きやタイトルに使う事が多いですが、ラベル名(キャプション)を検索結果やセルの値を取得して書き換えたいと思ったことありませんか?
そして2つの別々のセルの値を1つのラベルにまとめて表示させることもできたら便利だと思いませんか?
この方法は意外と簡単でセル番地の間に「&」を入力するだけでできるようになるので、VBAコードをご紹介します。
セル番地や”名前”を「&」で結合
ここでは、ラベル(label)のプロパティにあるキャプションを「登録者数」とすることで、ユーザーフォームが開くとラベル名が「登録者数」と当然表示されます。
そして、新規追加登録をする(コマンドボタンを押す)と自動的にラベル名が「登録者数+セルの値+名」で表示させるようにします。
これにより、今何名登録されているのかが分かるようになりますが、ここではラベルのキャプション取得に絞って記載します。
VBAコード
Private Sub CommandButton1_Click()
Label1.Caption = “登録者数 ” & Range(“A2”).Value & “ 名”
End Sub
解説
- コマンドボタン1がクリックされたら
- ラベル1の文字を「登録者数 セルA2の値 名」と書き換える
- マクロ記録終了
波乗りアヒル
全角スペースを入れておくと上記のように見やすくなりますよ!
また、2つのセルの値を結合するならば(セルA2とセルB2の場合)下記のように「セル番地 & セル番地」にするだけですよ!
VBAコード
Private Sub CommandButton1_Click()
Label1.Caption = Range(“A2”).Value & Range(“B2”).Value
End Sub
関連記事
-
ラベル
2つ別々のセルの値を1つのラベルに結合して表示するVBA
ユーザーフォームに配置したラベル(Label)を使う時は、テキストボックスなどと一緒に説明書きやタイトルに使う事が多いですが、ラベル名(キャプション)を検索結果や… -
ラベル
ユーザーフォームを開く時にラベルの名前を書き換えて表示する方法
ユーザーフォームに配置したラベル名「Label1」が、フォーム表示と同時に名前や日付などに自動的に表示を変えることができるのをご存知ですか? 方法は簡単で指定したセ… -
ラベル
VLOOKUPをVBAラベルを活用してデータ検索・修正をする方法
【ラベル(Label)にVBAコードを記述する】 ボウリング成績表でも使っているユーザーフォームに配置した文字を表示するための「ラベル(Label)」にも、実はVBAコードを… -
ラベル
複数のラベル名を一括で複数のセルの値に書き換える方法
【ラベルキャプションをセルの値から一括取得】 ボウリングの大会や予約でASで名前登録作業を行っていて、一人目の名前を入れると、空欄の部分に登録した名前が表示され…
紅葉スポット
-
白馬岩岳の絶景「三段紅葉」へ長野駅からバスで滞在時間140分
10月下旬ごろ~11月上旬になるとテレビなどでよく話題になる絶景のビューポイントで、北アルプスの山頂が雪化粧をして赤く色づいた山麓、そして山のふもとはまだ緑色が… -
2023年茨城紅葉スポットへ魅力度再び最下位!空いている穴場へ
紅葉と言えば日光や箱根が有名ですが、あえて茨城県を探すのは混雑や密を避けたいと思ったからですよね。 実は知られていないだけで探してみるとたくさん茨城紅葉スポッ… -
9月中旬から始まる尾瀬ヶ原の草紅葉へ日光駅や沼田駅からバスで行く
まだまだ残暑厳しい夏日が続く東京ですが、ひと足早く奥日光の更に山奥の尾瀬ヶ原では、9月中旬ごろから湿原の草がオレンジ色・黄金色・赤色と移り変わる姿を見ることが… -
花貫渓谷の汐見滝吊り橋は茨城県人気紅葉スポットでライトアップは幻想的
花貫川沿いに遊歩道が整備されていて、途中に汐見滝吊り橋があり紅葉と一緒ミニられる事で撮影スポットになっていて、茨城県の人気紅葉スポットとして有名です。 紅葉の… -
けさかけ橋と小中大橋の狭い山道でバスも行けない秘境の紅葉名所へ
小さいの?大きいの?中くらいなの?って一瞬思ってしまう小中大滝(こなかおおたき)。 落差100mほどある滝で紅葉シーズンには鮮やかな絶景の中に水が落ちる景色を見る… -
那須塩原駅からバスで紅葉名所のもみじ谷大吊橋へ滞在時間60分
【紅葉見頃】10月下旬~11月中旬 塩原ダムに架かる大吊橋の周辺にもみじが植えられていて紅葉の季節になると真っ赤に染まるので、もみじ谷大吊橋という名で那須塩原市…