1. Home » 
2. Excel講座の総目次 » 
3. Excel VBA入門：目次 » 
4. ラベルの使い方

ラベルの使い方:Excel VBA入門

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

• ツールボックスで「レベル」を選択し、ユーザーフォームへ配置します。
  • 下図のようにLabel1とLabel2の2個設置しています。　コマンドボタンも1個設置しています。
    

ラベルの表示を変更する例　　topへ

• コマンドボタンをクリックするごとにLabel1とLabel2の表示を変える例です。
• 標準モジュール

  • Sub myform6() 　　UserForm6.Show End Sub

• ユーザーフォーム

  • Private Sub UserForm_Initialize() 　　Label1.Caption = 0 　　Label2.Caption = "-" End Sub

  • Private Sub CommandButton1_Click() 　　Dim myName 　　Dim cnt As Integer 　　　　myName = Array("-", "みかん", "りんご", "バナナ", "パイナップル", "桃") 　　　　cnt = Label1.Caption + 1 　　　　If cnt > 5 Then cnt = 0 　　　　Label1.Caption = cnt 　　　　Label2.Caption = myName(cnt) End Sub

• 実行後の状態
  • コマンドボタンを押すごとに、Label1は0,1,23,4,5　と変化し、Label2は"-", "みかん", "りんご", "バナナ", "パイナップル", "桃"と変化します。
    

    ユーザーフォームを開いたとき	コマンドボタンを1回押したとき		コマンドボタンを4回押したとき	コマンドボタンを5回押したとき
    		→

ラベルのプロパティ　　　topへ

• 沢山のプロパティがありますが、その一部を紹介します。
  • Caption：表示する文字列を設定します。
    • Label2.Caption = "みかん"
  • BackColor：背景色を設定します。
    • Label2.BackColor = RGB(0, 255, 0)
  • ForeColor：前景色を設定します。
    • Label2.ForeColor = RGB(255, 0, 0)
  • Font.Name：フォントの書体を設定します。
    • Label2.Font.Name = "HG行書体"
  • Font.Size：フォントのサイズを設定します。
    • Label2.Font.Size = 14
  • Font.Underline = True：フォントにアンダーラインを引きます。
    • Label2.Font.Underline = True
  • Font.Bold = True：フォントを太字にします。
    • Label2.Font.Bold = True
  • Font.Italic = True：フォントを斜体にします。
    • Label2.Font.Italic = True
  • 以上の設定をした時のコードと表示例
    • コードの例
      

      Private Sub UserForm_Initialize() 　　Label1.Caption = 0 　　With Label2 　　　　.Caption = "みかん" 　　　　.BackColor = RGB(0, 255, 0) 　　　　.ForeColor = RGB(255, 0, 0) 　　　　.Font.Size = 14 　　　　.Font.Name = "HG行書体" 　　　　.Font.Underline = True 　　　　.Font.Bold = True 　　　　.Font.Italic = True 　　End With End Sub

    • 実行例
      
  • AutoSize：コントロールのサイズを自動で調整するかを設定します。

    • 値	内容
      TRUE	コントロールのサイズを表示内容の大きさに合わせて、自動的に調整します。
      FALSE	(既定値)コントロールのサイズを固定します。 コントロールのサイズからはみ出した部分は、画面に表示されません。

    • コード例
      Label2.AutoSize = True
  • BackStyle：背景を透明、不透明に設定します。

    • 定数	値	内容
      fmBackStyleTransparent	0	背景を透明にします。
      FmBackStyleOpaque	1	(既定値)背景を不透明にします。

    • コードの例
      Label2.BackStyle = fmBackStyleTransparent　上記コードに追加すると、背景が透明になります。
      
  • Height、Width ：高さまたは幅をポイント単位で指定します。
    • 構文：object.Width [= Single]
  • Left、Top ：コントロールの位置を、フォームの左端または上端からの距離を基準にして設定します。
    • 構文：object.Left [= Single]
  • TextAlign：コントロールの中で文字列をどのように配置するかを設定します。

    • 定数	値	内容
      fmTextAlignLeft	1	(既定値)左端に合わせて、文字列を表示します。
      fmTextAlignCenter	2	中央揃えで文字列を表示します。
      fmTextAlignRight	3	右端に合わせて、文字列を表示します。

  • Visible ：オブジェクトを表示するか非表示にするかを設定します。
    • 構文：object.Visible [= Boolean]
      

      値	内容
      TRUE	(既定値)表示します。
      FALSE	非表示にします。

スポンサードリンク

PageViewCounter
　
　Since2006/2/27