【Excel VBA】フォームコントロールボタンのテキストを取得する

エクセルでフォームコントロールボタンを設置し、クリックしたボタンの名前を取得したいことがあります。

この記事では、フォームコントロールボタンをクリックしたときのテキストを取得する方法をご紹介します。

フォームコントロールボタンのテキストを表示するコード

次のコードは、押されたフォームコントロールボタンのテキストを取得し、メッセージボックスでそのテキストを表示します。

Sub ボタンテキスト取得()
　Dim ButtonText As String

　ButtonText = ActiveSheet.Buttons(Application.Caller).Text
　MsgBox ButtonText
End Sub

フォームコントロールボタンのテキストを取得した後の使用例

私がよく使う使用例になりますが、ボタンのテキストとシート名を同じにし、フォームコントロールボタンのテキストを取得した後、その名前のシートを移動するコードをよく使います。

Sub シート移動()
　Dim SheetName As String

　SheetName = ActiveSheet.Buttons(Application.Caller).Text
　Sheets(SheetName).Activate
End Sub

1つのエクセルに複数のシートを設置している場合、とても便利です。