【ExcelVBA フォーム＆コントロール】フォームのタイトルを設定するにはどうすればいいの？教えて！

構文

構文は以下の通りです。

UserForm1.Caption = "タイトル文字列"

解説

フォームのタイトルを設定するには、FormオブジェクトのCaptionプロパティを操作します。Captionプロパティは、フォームのタイトル文字列を取得または設定するためのものです。上記のUserForm1はフォームの名前です。UserForm1の部分は、実際に作成したフォームの名前に置き換えてください。また、"タイトル文字列"は、設定したいフォームのタイトルを表す文字列です。この部分を適切なタイトルに変更してください。

使い方

具体的な使い方を紹介します。

Sub SetFormTitle()
    UserForm1.Caption = "新しいタイトル"
End Sub

このコードを実行すると、UserForm1のタイトルが"新しいタイトル"に変更されます。

プログラミング例

以下に、プログラミング例を紹介します。

Private Sub CommandButton1_Click()
    Dim newTitle As String
    newTitle = InputBox("新しいタイトルを入力してください:", "フォームのタイトル変更")
    If newTitle <> "" Then
        UserForm1.Caption = newTitle
    Else
        MsgBox "タイトルが入力されていません。", vbExclamation, "エラー"
    End If
End Sub

これは、フォームに追加したボタンをクリックすると、入力ボックスが表示され、新しいタイトルを入力するように促されます。新しいタイトルを入力すると、フォームのタイトルが変更されます。もしタイトルを空のまま入力ボックスを閉じた場合は、エラーメッセージが表示されます。

まとめ

フォームのタイトルを設定する方法について解説しました。具体的な構文として、UserForm1.Caption = "タイトル文字列"という形式でタイトルを設定することができます。是非活用してください。