ラベルをユーザーフォームに設置する

ラベルのコントロールをユーザーフォームに設置します。
プロパティで指定した文字を表示するだけの機能だけでなく、インフォメーションボードのような使い方も可能です。

こんにちは、じゅんぱ店長（@junpa33）です。

今回はユーザーフォームにラベルを設置する方法を説明します。

ユーザーフォームにおいてのラベルの機能は、コントロールの項目や説明、タイトル表示に使われることが多いです。

いろいろなコントロールの中でも、設置方法は一番簡単な部類になります。

ユーザーフォームの設置

コンテンツ

ラベルを設置する

ラベルを設置するには、最初にユーザーフォームが表示されていることが必要です。

ユーザーフォームの表示設定が分からない時は、

ユーザーフォームの挿入と表示は簡単エクセルVBA

で確認しておいてください。

ラベルをツールボックスで選択する

ツールボックスからラベルを選択

カーソルをドラッグしてサイズを決めます。

ラベルが設置されました。

「□マーク」でボタンサイズや設置位置はいつでも変更が可能です。

ラベルのプロパティ

ラベルの機能として、まさにラベルだけの機能であれば、フォントとフォントカラー、Captionのプロパティ項目を触るだけで大丈夫です。

このラベルを指定してコード上で呼び出すためにオブジェクト名を分かり易い別名にしました。

ラベルにその都度変化する値を表示する

ラベルは、「Captionプロパティ」で指定した文字を表示するだけではなく、変数を利用してその都度の変数値を表示させることが出来ます。インフォメーションボード的な使い方をすることも出来ます。

ラベルに文字を表示させるときは、以下の記述で可能です。

「ユーザーフォーム名＋ラベルの名前（オブジェクト名）＋Caption」

（Module1に記述）

VBA

Sub ラベル表示()
    Dim 都道府県 As Variant
    Dim i As Long
        都道府県 = Array("北海道", "青森県", "岩手県", "秋田県", "宮城県", "山形県")
        i = Int(Rnd * 4 + 0)
        ユーザーフォーム例.都道府県ラベル.Caption = 都道府県(i)
End Sub

変数を使っているので少しコードが難しくなっていますが、「都道府県」という6つの要素の配列を設定しています。

乱数を発生させるRnd関数で「０から５」までの番号をランダムに発生させ、その番号に合った配列の要素をラベルに表示させるというVBAコードです。