売上分析のユーザフォームです。
このコマンドボタンのCaptionを変更します。
先にシート名「メニュー」をつくり、図のように何かを入力します。
セルの配置は上記のコマンドボタンを意識しています。
ユーザーフォームに更新というコマンドボタンを配置して、次のVBAコードを入力します。
Private Sub CommandButton22_Click()
CommandButton2.Caption = Worksheets(“メニュー”).Cells(1, 1).Value
CommandButton7.Caption = Worksheets(“メニュー”).Cells(1, 2).Value
CommandButton15.Caption = Worksheets(“メニュー”).Cells(1, 3).Value
CommandButton3.Caption = Worksheets(“メニュー”).Cells(2, 1).Value
CommandButton12.Caption = Worksheets(“メニュー”).Cells(2, 2).Value
CommandButton18.Caption = Worksheets(“メニュー”).Cells(2, 3).Value
CommandButton19.Caption = Worksheets(“メニュー”).Cells(2, 4).Value
CommandButton4.Caption = Worksheets(“メニュー”).Cells(3, 1).Value
CommandButton13.Caption = Worksheets(“メニュー”).Cells(3, 2).Value
CommandButton5.Caption = Worksheets(“メニュー”).Cells(4, 1).Value
CommandButton6.Caption = Worksheets(“メニュー”).Cells(4, 2).Value
CommandButton9.Caption = Worksheets(“メニュー”).Cells(4, 3).Value
CommandButton11.Caption = Worksheets(“メニュー”).Cells(4, 4).Value
CommandButton16.Caption = Worksheets(“メニュー”).Cells(4, 5).Value
CommandButton17.Caption = Worksheets(“メニュー”).Cells(4, 6).Value
CommandButton10.Caption = Worksheets(“メニュー”).Cells(5, 1).Value
CommandButton20.Caption = Worksheets(“メニュー”).Cells(5, 2).Value
CommandButton8.Caption = Worksheets(“メニュー”).Cells(6, 1).Value
CommandButton14.Caption = Worksheets(“メニュー”).Cells(6, 2).Value
CommandButton21.Caption = Worksheets(“メニュー”).Cells(6, 3).Value
End Sub
コマンドボタンと、セルの指定を間違えないようにして下さい。
実行結果です。
これであれば、だれでも簡単に売上分析のシートを変更できます。
今日は人生2度目のコーチングを受けてきました。
今抱えている問題点がはっきりして、すっきりしました。
本日も最後までお読みいただきありがとうございます。
