HOME > 即効テクニック > Excel VBA > メニューバー・ツールバー関連のテクニック > ワークシート上に配置した複数のコマンドボタンの表題を変更する

即効テクニック
メニューバー・ツールバー関連のテクニック

ワークシート上に配置した複数のコマンドボタンの表題を変更する

(Excel 97/2000)
サンプルマクロは、１枚目のシートに配置した５つのコマンドボタンの表題を変更します。

Public myFlag As Boolean

Sub Sample()

    Dim i As Byte, myCap As String
    
    For i = 1 To 5
        If myFlag Then myCap = "ON" & i _
            Else myCap = "OFF" & i
        Sheets(1).OLEObjects("CommandButton" & i) _
            .Object.Caption = myCap
    Next
    
    myFlag = Not myFlag

End Sub





	






ビジネス統計スペシャリスト







VBAエキスパート