ユーザーフォームに配置したラベル(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
関連記事
-
ラベル
複数のラベル名を一括で複数のセルの値に書き換える方法
【ラベルキャプションをセルの値から一括取得】 ボウリングの大会や予約でASで名前登録作業を行っていて、一人目の名前を入れると、空欄の部分に登録した名前が表示され… -
ラベル
ユーザーフォームを開く時にラベルの名前を書き換えて表示する方法
ユーザーフォームに配置したラベル名「Label1」が、フォーム表示と同時に名前や日付などに自動的に表示を変えることができるのをご存知ですか? 方法は簡単で指定したセ… -
ラベル
VLOOKUPをVBAラベルを活用してデータ検索・修正をする方法
【ラベル(Label)にVBAコードを記述する】 ボウリング成績表でも使っているユーザーフォームに配置した文字を表示するための「ラベル(Label)」にも、実はVBAコードを… -
ラベル
2つ別々のセルの値を1つのラベルに結合して表示するVBA
ユーザーフォームに配置したラベル(Label)を使う時は、テキストボックスなどと一緒に説明書きやタイトルに使う事が多いですが、ラベル名(キャプション)を検索結果や…
紅葉スポット
-
竜頭の滝の紅葉へ日光駅からバスで日光三名瀑を見に滞在時間60分
【紅葉見頃】 10月中旬~10月下旬 竜頭の滝といえば、奥日光の紅葉スポットとして大人気なので、コロナ前は訪日外国人と日本人で大混雑して、茶屋の中から見る竜頭の滝… -
無料で色づいたの紅葉トンネルを散策できる清水公園の紅葉絶景へ
自然公園内に春・夏・秋と季節ごとに楽しめる約500種類以上の花々やがある「花ファンタジア」「アスレチック」「バーベキュー」「キャンプ場」と様々な施設が整った公園… -
茨城県内の11月に見頃を迎えるおススメ紅葉スポット11選
【茨城県内の人気紅葉スポット】 関東地方で紅葉名所といえばなんといっても日光ですが、紅葉シーズンになると平日でもいろは坂は大渋滞なのに休日ともなると日光駅周辺… -
ムーミンをイメージしたトーベ・ヤンソンあけぼの子どもの森公園の紅葉
入間市と飯能市の境界にある自然公園で、ムーミンの世界をイメージして作られてライトアップも盛んに行われて、幻想的な世界を体験することができます。 また、秋の紅葉… -
フリーきっぷで行く日光や栃木県内の紅葉名所や穴場スポット22選
関東地方で紅葉名所といえばなんといっても日光ですが、紅葉シーズンになると平日でもいろは坂は大渋滞なのに休日ともなると日光駅周辺から渋滞して全く動かない状態に… -
城峯公園で十月桜ともみじの紅葉のピンクと赤のコラボの絶景へ
群馬県との県境で標高500mにある高台に位置し、下久保ダム(神流湖)を眺めることができる城峯公園には、なんと晩秋から初冬にかけて開花し、別名十月桜とも呼ばれてい…