- 締切済み
シートに張り付けたボタンがシートのコピーで消える。
DreamyCatの回答
- DreamyCat
- ベストアンサー率56% (295/524)
１２月の更新ファイルによる不具合の対処をしてあれば大丈夫だとおもいますが 対処済みでもそうなるのですか？ そうであれば、２０１０版などの新しいBookにVBAコードをコピーして使えるようにするだけで済むはずです。
関連するQ&A
- マクロ実行ボタンがコピー出来ない
Ｅｘｃｅｌ２０１３を使っています。ＯＳはＷＩＮ７です。 とあるマクロを実行する為のボタンが組み込まれているシートがあり、 月が変わるごとに、（そのマクロボタン付きの）「テンプレート」と名前を付けているシートを「移動またはコピー」からコピーして、同じファイルないに新しくシートを付け足していく方法でシートを増やしていっていました。 先月までは上記の方法でまったく問題なく、「テンプレート」というシートと同じ内容のシートがマクロボタン付きでコピー（同じファイル内に新しく作成）出来ていたのですが、急に出来なくなりました。 とても困っています。 どうしたらいいのでしょうか？
- ベストアンサー
- Excel（エクセル）
- マクロのシートでのコピーができません。
ビスタ エクセル 2007を使用しています。B２～E１２まで簡単な表を作り E列で昇り順に並べ替えしました。そして並べ替えからこの表を印刷するまでマクロで完成しました。 ところが、別のシートにコピーすると印刷はされますが、並べ替えがされずに印刷だけされます。同じ表を３０枚作成し、それぞれ同じ操作と印刷のマクロを組みたいのですが・・・・どなたか助けてください。 Sub ボタン5_Click() ' ' ボタン5_Click Macro ' ' Columns("E:E").Select ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("E1"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Sheet1").Sort .SetRange Range("B2:E12") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With ActiveWindow.SelectedSheets.PrintOut Copies:=1 End Sub
- ベストアンサー
- Windows Vista
- excelでボタン一つでシートからシートへのコピーの方法。
例） シート１に日付と商品名と単価と個数、それに特別の項目があります。 下図のような表。 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 日付 商品 単価 個数 4/1 A 100 1 特別 4/1 D 0 3 ←１行空いてます。 4/2 B 120 2 4/2 C 130 1 ←１行空いてます。 4/3 A 120 1 4/3 C 130 3 特別 4/3 D 0 5 ←１行空いてます。 4/4 定休日 ： ： 4/30 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ このような表があるとします。 これをボタン一つでシート２にコピーしたいのです。 （簡単に言えばシート１がデータ。シート２が印刷用です。） ＜条件＞ シート２のセルの大きさは変えられませんが、それ以外はOK シート２にコピーする際に日付指定が出来ること。（１日から５日までのデータを印刷するなど。） 長々とした文になりましたが、よろしくお願いします。 また、わからないことがあれば補足いたします。
- 締切済み
- オフィス系ソフト
- Excel コマンドボタンにマクロ設定！
皆さんに色々教えて頂き、「コマンドボタンにマクロを設定→実行」まではなんとか出来るようになりました。^^ しかし。。。 （Windows XP） 「Sheet1」でコマンドボタンを作成し、マクロを設定 マクロ内容：「Sheet1」のコピー（「Sheet1」に作成した表の雛形を繰り返し使いたい為） マクロの設定を終え、ボタンを押すと「Sheet1」のコピーは作成されるのですが、 コピーされた全てのSheetに、コマンドボタンも一緒にコピーされてきます。(T_T) １．マクロを設定したコマンドボタンは、最初のSheetにだけあればいいような気がするのですが、どうなのでしょうか？ ２．どうすればコマンドボタンは張り付いてこなくなるのでしょうか？ 宜しくお願いします。 P.S マクロ・コマンドボタンについてもあまり詳しくない為、質問の内容が分かりづらくてすみません。m(__)m
- 締切済み
- その他（ビジネス・キャリア）
- Excel2010のシートコピーでボタンがなくなる
Excelシートをコピーして、別シートを作成します。 元のシート上にあったボタン等、Objectが別シート上にコピーされません。 また、デザインモードにしてボタンを作製しようとしても、”オブジェクトを挿入できません”とのメッセージがでます。 この現象は、ExcelBookを新規作成しても同様に、デザインモードにしてボタンを作製しようとしても、”オブジェクトを挿入できません”とのメッセージがでます。 原因と対策を教えてください。
- 締切済み
- SE・インフラ・Webエンジニア
- シート１にある印刷ボタンを押してシート２とシート３を印刷するには？
シート１にある印刷ボタンを押して シート２とシート３を印刷するには どのようなマクロにすればよいですか？
- ベストアンサー
- オフィス系ソフト
- 【Excel】シートのコピー
Excel2003を使用しています。 Sheet1をSheet1のA1セルに入力されている数字の枚数分、自動でコピーできないでしょうか？ 例えば、Sheet1のA1セルに『10』と入力されていたら、Sheet1を10枚作成(コピー)したいのですが、どのようにすればいいでしょうか？ また、このシートのコピーを複数のブックで一度にできないでしょうか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- マクロボタンのシートをコピーしたいのですが。。。
こんにちは。 たくさんあるファイルを一つのファイルにシート別にまとめるマクロを作成しました。 毎月同じことをするので、マクロボタンを作成したところ、作成したつきのボタンは正常に作動しますが、このシートを新しいBOOKにコピーして翌月分を作成したところ、マクロが消えてしまい、実行されません。 毎月のことなので、いちいち『前月のマクロをコピーして実行』などしないで、このボタンをコピーすればあとは押すだけ♪なんていう風にうまくいかないものでしょうか？ かなり初心者な者で、上手な説明が出来ず申し訳ございません。 Sub 精算用5月() Dim fs As Variant Dim s As Variant Dim w As Workbook fs = Application.GetOpenFilename(Title:="select xls(s)", MultiSelect:=True) If Not IsArray(fs) Then Exit Sub For Each s In fs Set w = Workbooks.Open(Filename:=s) w.Worksheets(1).Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count) ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count).Name = Application.Substitute(w.Name, ".xls", "") w.Close savechanges:=False Next Worksheets(1).Range("A1").Formula = "=SUM(" & Worksheets(2).Name & ":" & Worksheets(Worksheets.Count).Name & "!A1)" End Sub 上記のマクロでボタンを作成しました。 よろしくお願いいたします。
- ベストアンサー
- 財務・会計・経理
- エクセルでシートコピーするマクロについて
マクロ初心者です。宜しくお願いします。 エクセルで一つのSheet1があります。そのSheet1には、一覧表があります。マクロを実行することで、Sheet1の後ろにSheet2を作成して、Sheet1と同じ一覧表をコピーして表示できるようにし、それを、マクロを実行すれば、ワークシートが一枚追加され、Sheet2のシート名になり、シートを追加する度にシート名が、Sheet3、Sheet4、Sheet5となるようにしたいです。 分かりづらい説明ですが、宜しくお願いします。
- ベストアンサー
- オフィス系ソフト