- ベストアンサー
マクロの実行ボタンを削除したい
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
ボタンには、フォームツールバーのボタンと コントロールツールバーのボタンの２つありますが ボタン１、とあることからフォームツールバーのボタンと判断しての回答です。 シートは、Sheet1、Sheet２，Sheet３ ボタンは、Sheet1上に、ボタン１、ボタン２ そして、Sheet１をSheet３の後にコピーして コピーしたシートのボタン２を削除する場合。 '-------------------------------- Sub Test() Sheets("Sheet1").Copy After:=Sheets(Sheets.Count) ActiveSheet.Shapes("Button 2").Delete End Sub '---------------------------------
関連するQ&A
- マクロ実行ボタンを自動削除したい
エクセル２００７をしています マクロで次のような設定をしました 取り込んだデーターを別のエクセルファイルへコピー 数式が入っているので全体を値コピー マクロボタンを削除 終了 ですがマクロボタンが消えません 元ファイルには必要ですがコピーしたものには必要ありません マクロボタン削除を実行させるためにはどうすればいいですか
- ベストアンサー
- オフィス系ソフト
- 記録したマクロを実行するボタン
シート１にマクロを実行するボタンを 作成したいと思います。 マクロは、シートに２にアクセスdbのクエリデータを 外部データの取り込み実行でインポートする よう記録しています。 シート１のボタンに記録したマクロを 貼り付けると、エラーメッセージで 「とりこみ先の範囲は、クエリテーブルが 作成された同じワークシートにありません」 と出ました。 同じワークシートでないとクエリ実行ボタンは 作れないのでしょうか？？ よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- マクロ実行ボタンがコピー出来ない
Ｅｘｃｅｌ２０１３を使っています。ＯＳはＷＩＮ７です。 とあるマクロを実行する為のボタンが組み込まれているシートがあり、 月が変わるごとに、（そのマクロボタン付きの）「テンプレート」と名前を付けているシートを「移動またはコピー」からコピーして、同じファイルないに新しくシートを付け足していく方法でシートを増やしていっていました。 先月までは上記の方法でまったく問題なく、「テンプレート」というシートと同じ内容のシートがマクロボタン付きでコピー（同じファイル内に新しく作成）出来ていたのですが、急に出来なくなりました。 とても困っています。 どうしたらいいのでしょうか？
- ベストアンサー
- Excel（エクセル）
- マクロボタンの設定
複数のシートをまたいで処理するマクロを作成しました。 「sheet1」「sheet2]「sheet3」を使用するとします。 マクロの記録は「sheet1」から開始したので、通常のマクロ実行は「sheet1」から行なわないとエラーが出ます。 このマクロにボタンを作るのは「sheet1」にしないと当然エラーなのですが、それ以外の「sheet2」にボタンを作って実行する方法はありますか？
- ベストアンサー
- その他MS Office製品
- マクロを使ってコマンドボタンを実行するには
お世話になります。 ＯＳは、Windows 98 Second Edition アプリケーションは、Access 2000 です 下記作業の一連を簡素化したいのですが マクロを使うのが良いかと考えています。 1.データをインポート 2.レポート印刷 3.追加クエリ実行 4.削除クエリ実行 インポートはフォームのコマンドボタンから 実行できるようにして有ります。 追加、削除クエリも別のフォームのコマンドボタンから 実行できるようにして有ります。 マクロでフォームを開く、閉じるはできるのですが コマンドボタンの実行方法がわかりません。 どのアクションを選べばよろしいのでしょうか？ よろしくお願い致します。
- 締切済み
- オフィス系ソフト
- 【Excel365】マクロを削除するマクロ
特定のシート(仮にAとします)に添付画像のマクロ(別のマクロを実行するマクロ)を組み込んであります。 シートAをコピーしてシートBを作成し、値コピー・行削除などいろいろ編集した後にxlsxとして保存するという作業をしています。 しかし、シートBにも画像のマクロが組み込まれたままなので、1行目を削除するとマクロ「更新」が実行されてしまいます。 シートをコピーした後、画像のマクロを削除する方法はありませんか？ 各Q&Aサイトをググるといろいろ出てきますが、理解できませんでした。 もしくは、シートAとそっくりなシート(ページレイアウトや書式もそのままでデータのみ値コピー)を作成するマクロの提示でも構いません。
- ベストアンサー
- Excel（エクセル）
- エクセルマクロで（セルの削除、相対パス、ボタンで実行）
エクセルのマクロ（VBでしょうか？初心者で分かりません）でセルの削除、相対パス表記、ボタンでマクロを実行、と3つをやりたいと思っています。聞ける人や本もなく困っていました。 デスクトップにフォルダを置いて、その中にマクロを実行するエクセルファイル、データが入ったエクセルファイルを入れています。マクロを実行すると、新しいエクセルファイルに必要なデータが入ってくるという事をやっています。 あるシートのあるセルの中身とその周りの罫線を削除する。 どのPCでも動くように相対パス表記にする。 コントロールツールボックスからボタンをつけたのですが、これを押すことでマクロを実行させる。 以上のような3つをやりたいと思っています。初心者で上手く説明ができていない、変なマクロかも知れませんが、是非教えて下さい。よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- マクロ ブックをマクロなしでコピー
いつもお世話になっております。 マクロのことで 2つ教えて頂きたく書き込みをさせて いただきまいした。 よろしくお願いいたします。 ブックに何枚かシートがあり、 そのシートには全て同じマクロが入ってます。 このブックのシート全てを マクロを削除し新しいブックにコピーをしたいです。 また、コピーをする際に マクロがついているオブジェクト（ボタン） もとってコピーをしたいです。 自力で調べたのですが うまくわからずまた、こちらで質問 させていただきました。 よろしくお願いいたします
- ベストアンサー
- オフィス系ソフト
- エクセルでマクロボタンを押す前に、実行するかどうか再確認させたいのですが・・・。
いつもこちらで大変お世話になっています。 エクセルでマクロを組み、ボタンを作成しました。 ボタンをクリックすると、組んだマクロが開始されるのですが その前に一度、「実行しますか？はい（実行）・いいえ（キャンセル）」といったような確認をさせたいのです。 このようなことは可能でしょうか？ 可能ならば方法を教えてください。 どうぞよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- マクロの実行ボタンを削除するマクロ
以下のようなコードを書いたのですが シート内にボタンができてそのボタンを最終的には削除したいです 資料作成のテンプレートとして下記コードを書いたのですが 資料ができた時にボタンがあるままだと見栄えがいまいちなのでマクロ実行ボタンを削除したくなりました。 シート数は30枚くらいあるので1シートずつマクロ実行ボタンを削除するのは正直しんどいです 一度にシートを全部選択してマクロ実行ボタンを削除したいです マクロ実行ボタンの箇所は全シート同じ箇所にあります Sub ボタン() Selection.Borders(xlEdgeBottom).LineStyle = xlNone Selection.Borders(xlEdgeRight).LineStyle = xlNone Selection.Borders(xlInsideVertical).LineStyle = xlNone Selection.Borders(xlInsideHorizontal).LineStyle = xlNone ActiveSheet.Buttons.Add(108, 40, 55, 15).Select Selection.OnAction = "図形挿入等倍" Selection.Characters.Text = "図形挿入" With Selection.Characters(Start:=1, Length:=4).Font .Name = "ＭＳ Ｐゴシック" .FontStyle = "標準" .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 1 End With Range("E4").Select ActiveSheet.Buttons.Add(215, 40, 55, 15).Select Selection.OnAction = "赤枠" Selection.Characters.Text = "赤枠" With Selection.Characters(Start:=1, Length:=2).Font .Name = "ＭＳ Ｐゴシック" .FontStyle = "標準" .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 1 End With Range("G4").Select ActiveSheet.Buttons.Add(323, 40, 55, 15).Select Selection.OnAction = "テキスト入り赤四角" Selection.Characters.Text = "テキスト" With Selection.Characters(Start:=1, Length:=4).Font .Name = "ＭＳ Ｐゴシック" .FontStyle = "標準" .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 1 End With Rows("12:12").Select ActiveWindow.FreezePanes = True End Sub
- ベストアンサー
- その他MS Office製品
お礼
早速の回答ありがとうございます。 うまくいきました。 又、何かありましたらよろしくお願いします