- ベストアンサー
エクセルのマクロ
oka-hiroの回答
- oka-hiro
- ベストアンサー率66% (4/6)
下記でいかがですか？ Range("Sheet1!A1:H10").PrintOut Copies:=1, Collate:=True Range("Sheet2!A1:H10").PrintOut Copies:=1, Collate:=True Range("Sheet3!A1:H10").PrintOut Copies:=1,Collate:=True
関連するQ&A
- エクセル2007のマクロについて
実践で学ぶ Office Excel 2007 VBAというマクロの学習サイトで Sub Macro実践1() 'ブック シート セルアドレスを指定すればブック シートをアクティブにする必要はない Workbooks("転記.xlsx").Worksheets("転記シート1").Range("A1").Value = _ Workbooks("データ.xlsx").Worksheets("データ1").Range("A1").Value End Sub と入力すると「インデックスが有効範囲にありません」となってしまいます。なにか間違っているのでしょうか？
- 締切済み
- Visual Basic
- エクセルマクロのことです
通常使っていたマクロを間違えて消してしまい、その上再構築できなくて困っています。 こんなマクロだったですが。 ブック内に複数のシートが入っています。新しくＳheetを追加してＡ2セル（他のセルの時もあります）をアクティブにします。 Alt+F8→実行でＡ２セルから下へ、そのブック内の全ての「シート名」が書き出されるというマクロだったのです。 マクロ初心者です、どなたかアドバイスをお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル・マクロ
（同じフォルダの）複数のブックの中に複数のシートがあり、シートの名前が（一部）共通しています（例：赤組のＡ、赤組のＢ・・・）。別のブックに、同じ名称（例：赤組）を含むシートをコピーしてまとめたい（シート１が赤組のＡ、シート２が赤組のＢ・・・）のですが、どのようなマクロを記すれば良いでしょうか。宜しくお願いいたします。
- ベストアンサー
- その他MS Office製品
- EXCEL マクロで変化する印刷範囲を設定したい
複数年分集計したEXCELの表の中からある年（度)のデータをマクロで印刷範囲を設定したい！です。 ・EXCELのシートはA～AK列までのデータです。 ・A4～AK8までが「タイトル行」です。 ・A1列に「2014/7/1」等といった日付のデータが入っています。 ・上記「タイトル行」とある年(度)のデータをマクロで自動に選択して 印刷範囲を設定したいです。下記は、2014年のデータを印刷範囲とした マクロです。どの部分を修正すればある年のデータを抽出するマクロに できるでしょうか？教えてください。宜しくお願いします。 Sub 印刷範囲() ' ' 印刷範囲 Macro ' 印刷範囲を指定する ' ' Range("A4:AK8").Select ActiveSheet.PageSetup.PrintArea = "$A$4:$AK$8" ActiveWindow.ScrollColumn = 38 ActiveWindow.ScrollColumn = 2 ActiveWindow.SmallScroll Down:=-39 Range("A170:AK220").Select ActiveSheet.PageSetup.PrintArea = "$A$4:$AK$8,$A$170:$AK$220" Range("U208").Select End Sub
- 締切済み
- 財務・会計・経理
- Excelのマクロについて質問です。
ブックAのシートaの印刷に関する設定を、別のブックBのシートbにコピーするマクロを教えていただけませんか？ 印刷に関する設定には、ページ設定で設定されるすべての情報です。
- ベストアンサー
- Excel（エクセル）
- エクセルのマクロについてご教示下さい。
シート１のA1からW47までを同じワークシートのA48にコピーするマクロを作りましたが、 Worksheets("Sheet1").Range("A1:W47").Copy _ Destination:=Worksheets("Sheet1").Range("A48") Range("A48")を変数にし、（2回目は48+47 3回目は48+47+47 4回目は48+47+47+47）というように複数回コピーを繰り返したいのですが、とんと分からなくなりました、ご教示いただけますでしょうか？ 宜しくお願い致します。
- 締切済み
- その他(データベース)
- Excelのマクロ初心者です
Excelのマクロ初心者です 同じBookでセルA1に”1”が入力されているSheetのみ全て印刷する マクロを教えてください！
- ベストアンサー
- その他MS Office製品
- Ｅｘｃｅｌマクロ（Range）について
Sheet1のA1:Q100を"東京"という名前で定義しています。 Sheet2のA1:Q100を"沖縄"という名前で定義しています。 Sheet3のA1:Q100を"北海道"という名前で定義しています。 Sheet4のA1:Q100を"宮崎"という名前で定義しています。 Sheet5は検索シートとしています。 検索のマクロを考えていて、どうしても分からないのが『Range』の使い方です。 検索をする範囲はSheet1～4のA1:Q100です。 Range("東京") として、１つの範囲ならできるのですが、"東京"、"沖縄"、"北海道"、"宮崎"の４つから検索するにはどうしたらよいのでしょうか？ただ単に Range（"東京"、"沖縄"、"北海道"、"宮崎"） ではだめですよね。
- ベストアンサー
- オフィス系ソフト
- マクロの記録というのは
「新しいマクロの記録」といのは、複数のブックにまたがる処理に関しては正確に記録されないのでしょうか。 Book1のA1からA10を、Book2のA1にコピーする処理を行ってマクロ内容を確認してみたら、 Range("A1:A10").Select Selection.copy これだけでした。 ブックが複数になると対応しきれないということでしょうか。
- ベストアンサー
- オフィス系ソフト
- 置換マクロ 続きです…
http://okwave.jp/qa/q8444285.html ↑こちらでご質問をさせていただき、置換シートA列に置換元、B列に置換後データを入れておくことで、置換が一度にできるマクロを作っていただいたのですが、 ブック全体ではなく、現在アクティブなシートだけ、置換をすることは可能でしょうか…？ いま、このマクロを実行すると、ブック全体が置換され、元の置換シートのA列や、置換できればしたくないシートもすべて置換されてしまいます。 回答を閉め切ってしまい、新規でご質問となってしまいました。 すみません、、自分でもいろいろと調べてやってみたのですが、 どうしてもよくわからず… どうぞ、よろしくお願い致します。 ● 作っていただいたマクロ ● sub macro1() dim h as range for each h in worksheets("置換").range("A1:A" & worksheets("置換").range("A65536").end(xlup).row) cells.replace what:=h.value, replacement:=h.offset(0,1).value, lookat:=xlpart next end sub
- ベストアンサー
- Excel（エクセル）
お礼
ありがとうございました。