「マクロの実行ボタン」を消そう！

こんにちわ！VBAびよりの、春っちです！

今回は、「マクロの実行ボタン」を消してみようと思います！

例えば、「マクロの実行ボタン」があるシートをコピーした場合、、、

コピーしたシートにも、「マクロの実行ボタン」は付いてきてしまいますよね。汗汗

そのような時のために、シートから「ボタン」を消す方法をご紹介します。

【シート上の全ての「フォームボタン」を削除】

-------------------------------------

Sub 全てのボタンを削除()

    ActiveSheet.Buttons.Delete  

End Sub

-------------------------------------

とてもシンプルなコードです。

以前作成した「変数」を使って自動入力するマクロを使用して実践してみます！

『【最終回】part 6・自動入力するマクロを作ろう（最後まで動かしてマクロを終了する）』

赤字箇所を追記しました！！

（↓長いので文字サイズXSにしています）

--------------------------------------

Sub 注文書作成()
Dim ws1, ws2, ws3 As Worksheet
Dim a, b, LastRow As Long
Set ws1 = ActiveWorkbook.Sheets("リスト")
Set ws2 = ActiveWorkbook.Sheets("注文書")
'リストを並び替える
ws1.Range("A1").CurrentRegion.Sort key1:=ws1.Range("A1"), key2:=ws1.Range("B1"), Header:=xlYes, SortMethod:=xlStroke
'リストの最終行を見つける
LastRow = ws1.Cells(1, 1).End(xlDown).Row
ws2.Copy after:=Worksheets(Sheets.Count) 'シートをコピーし右側に置く
Set ws3 = ActiveSheet 'コピーしたシートをアクティブにする
ActiveSheet.Name = ws3.Cells(1, 1) 'シートに名前をつける
ActiveSheet.Buttons.Delete 'ボタンを消す 
b = 4
For a = 2 To LastRow
ws3.Cells(b, 1) = ws1.Cells(a, 1)
ws3.Cells(b, 2) = ws1.Cells(a, 3)
ws3.Cells(b, 3) = ws1.Cells(a, 2)
ws3.Cells(b, 4) = ws1.Cells(a, 4)
b = b + 1
Next a
End Sub
--------------------------------------

前回作成した「マクロの実行ボタン」と「使用上の注意」を記載したフォームも、一気にまとめて消せちゃいます☆

今日も一日お疲れ様でした。

最後までご覧いただきありがとうございました★☆★

【今日のpickup】～買ってよかった！春っちのお気に入り商品～

レンジでゆで野菜 丸大

（長年愛用していますが、耐久性あります。）

1記事目はコチラからどうぞ↓

『春っちと、[Excel VBA]の画面を開いてみよう！』