タイトルの件、質問します。

下記の条件で、エクセルを開き、下記の3つの書面を
印刷する、マクロはできますか??

●エクセルブック【Sheet1】【Sheet2】
●ワード【文書1】
※ワードは開いていません。閉じたまま。
※ワードとエクセルブックは同じフォルダ内にあります。

ご存知の方、いらっしゃいましたら、宜しくお願いいたします!!

このQ&Aに関連する最新のQ&A

A 回答 (1件)

マクロはエクセル側に書くんですね?


エクセルから開いていないワードを開き、印刷してワードは終了させればいいのですね?
エクセルのSheet1、Sheet2もPrintするんですね?

一例です。

Sub Word_Print()
  Dim wd As Object
  Set wd = CreateObject("Word.application")
  wd.Visible = True
  wd.documents.Open Filename:=ThisWorkbook.Path & "\文書1.doc"
  wd.ActiveDocument.PrintOut Background:=False
  wd.Quit
  Set wd = Nothing
  Sheets(Array("Sheet1", "Sheet2")).PrintOut
End Sub
    • good
    • 2

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QLサイズで撮影したものをL判で印刷できるか?

私が使っているデジタルカメラ。

デジカメ本体:Canon IXY DIGITAL 800IS
メモリー:1.0GB(ProMaxATP)

私のデジタルカメラの仕様。

撮影サイズ(記録画素数)→ 説明書に書いてある用途

L(2816×2112)→A3サイズに印刷するとき。
M1(2272×1704)→A4サイズに印刷するとき。
M2(1600×1200)→L判やハガキサイズに印刷するとき。
S(640×480)→電子メールで画像を送るとき。

さらに詳しい私のデジカメの仕様(CANONホームページより)

http://www.canon-sales.co.jp/camera/ixyd/800is/spec.html

質問

 【撮影サイズL】で撮影してもメモリーが1Gなので360枚程度撮ることが可能です。そこで、その設定で撮った写真を【L判】に印刷することができますか?

 また、【撮影サイズM1】で撮ったものも【L判】で印刷することは可能ですか?

 要するに、メモリーが1GBと余裕があり、被写体によって1枚ずつ撮影サイズを変更する必要は特にありません。そこで、全て【撮影サイズL】で撮り、ほとんど【L判】で印刷して、必要に応じてさらに大きなサイズで印刷しようと思っています。これは可能ですか?

私が使っているデジタルカメラ。

デジカメ本体:Canon IXY DIGITAL 800IS
メモリー:1.0GB(ProMaxATP)

私のデジタルカメラの仕様。

撮影サイズ(記録画素数)→ 説明書に書いてある用途

L(2816×2112)→A3サイズに印刷するとき。
M1(2272×1704)→A4サイズに印刷するとき。
M2(1600×1200)→L判やハガキサイズに印刷するとき。
S(640×480)→電子メールで画像を送るとき。

さらに詳しい私のデジカメの仕様(CANONホームページより)

http://www.canon-sales.co.jp/camera/ixyd/800is/spec.html

...続きを読む

Aベストアンサー

>【撮影サイズL】で撮影してもメモリーが1Gなので360枚程度撮ることが可能です。そこで、その設定で撮った写真を【L判】に印刷することができますか?

常に最高画質(サイズL、ファイン)で撮影して下さい。(後でファイルサイズを変更する事は可能です。)
大は小を兼ねても、小は大を兼ねる事は出来ないからです。

>【撮影サイズM1】で撮ったものも【L判】で印刷することは可能ですか?

可能です。

Qエクセルから、ワードを印刷する【マクロ】について

タイトルの件、下記のとおり質問いたします。

【前提】
●エクセルに、Sheet1、Sheet2がある
●ワードの文書1がある
●上記2つのファイルは同じフォルダにある。
●エクセルのSheet1の情報は、ワード文書へリンクされている。
 例:エクセルのSheet1のA1セルに、「あいうえお」と入力すると、ワード文書1の任意の部分に
 「あいうえお」と反映される「ワードを開かなくても」

【質問】
エクセルにて、下記の印刷できるマクロがほしいです。
●エクセル、Sheet1、Sheet2、ワード文書1を印刷できるマクロを、エクセル側にほしい。
●エクセルは開くが、ワードは閉じたまま、印刷したい。
●印刷するときに、ワードにて、「文書は変更されています。保存しますか?」というメッセージが
 出ないようにして、印刷をしたい。

ご存知の方、いらっしゃいましたら、宜しくお願いします。

Aベストアンサー

aoyama-reikoさん、おはようございます。
印刷枚数は
Copies:=2
のように指定します。3枚なら Copies:=3 になります。

また、ワードの印刷で、ほんとに文書1~文書2 と連番になっているのならもっと簡単に書けるのですが、多分これは例で書いた文書名で実際は違うのでしょうから、Sub 変更後2 のようにそれぞれ明示しました。

Sub 変更後1()
  Dim wd As Object
  On Error GoTo line
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  Set wd = CreateObject("Word.Application")
  With wd
    .documents.Open Filename:=ThisWorkbook.Path & "\文書1.doc"
    .ActiveDocument.PrintOut Copies:=1, Background:=False
    .ActiveDocument.Close False
    .Quit
  End With
  Set wd = Nothing
  Sheets(Array("Sheet1", "Sheet2")).PrintOut Copies:=2
line:
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True
End Sub

Sub 変更後2()
  Dim wd As Object
  On Error GoTo line
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  Set wd = CreateObject("Word.Application")
  With wd
    .documents.Open Filename:=ThisWorkbook.Path & "\文書1.doc"
    .ActiveDocument.PrintOut Copies:=1, Background:=False
    .ActiveDocument.Close False
    .documents.Open Filename:=ThisWorkbook.Path & "\文書2.doc"
    .ActiveDocument.PrintOut Copies:=1, Background:=False
    .ActiveDocument.Close False
    .Quit
  End With
  Set wd = Nothing
  Sheets(Array("Sheet1", "Sheet2", "Sheet3")).PrintOut Copies:=2
line:
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True
End Sub

aoyama-reikoさん、おはようございます。
印刷枚数は
Copies:=2
のように指定します。3枚なら Copies:=3 になります。

また、ワードの印刷で、ほんとに文書1~文書2 と連番になっているのならもっと簡単に書けるのですが、多分これは例で書いた文書名で実際は違うのでしょうから、Sub 変更後2 のようにそれぞれ明示しました。

Sub 変更後1()
  Dim wd As Object
  On Error GoTo line
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  Set wd = CreateObject("Word.Ap...続きを読む

Q2Lサイズの写真のトリミングの取り方を教えて

デジカメの写真を、Lサイズだけでなく、2Lサイズにプリント出来る機械があったので、写真(JPEGファイル)を2Lサイズにプリントしたところ、出来上がった紙の写真のトリミングが適切でなく、写真の端のほうの写っていて欲しい部分がプリントからはみ出して印刷されませんでした。
どうすればこの機械で2Lサイズの写真で、好みのトリミングが出来るのでしょうか。

Aベストアンサー

デジカメ画像のアスペクト比は普通、2:3か3:4。
2Lサイズは、5:7
端が写っていないなら、画像のアスペクト比は、2:3。
通分すると、10:15の画像を10:14にプリントするので左右が切り取られるのです。
ですから、左右がトリミングされないようにプリントすれば良いのです。
その場合、当然、上下に余白ができます。

どんなプリンタをお使いか書いていないので、具体な設定は回答出来ません。
必要なら、使用カメラ、プリンタの機種を補足して下さい。

Q【エクセル】表から条件にあったデータを別のシートに抽出する関数

エクセルの表である条件にあてはまる行(複数の列を指定したい)を、
別シートに順番に抽出されるような関数を教えてください。
元の表を編集するので、自動的に反映されるように関数で作成したいと思っています。できれば、抽出後のソートやフィルタオプションは避けたいです。

シート1のコード(A列)が100番台のもの、200番台のもの、300番台のものの、それぞれ食品名(B列)と総量(D列)を、シート2~シート4に別表として抽出したいです。
食材の注文をするのに、業者別にしなければいけませんが、量が多くて毎回大変なんです。お助けください。

【シート1】 元データ
   A     B        C       D
1 コード  食品名    一人分分量   総量
2 101    牛肉      30      150
3 201    じゃが芋    80      400
4 202    玉葱      40      200
5 203    人参      20      100
6 301    しょうゆ    6       30
7 302    砂糖      4       20

【シート2】 コード100番台
  A     B  
1 牛肉   150

【シート3】 コード200番台
  A     B      
1 じゃが芋 400
2 玉葱   200
3 人参   100

【シート4】 コード300番台
  A     B 
1 しょうゆ 30
2 砂糖   20

無謀な事をやろうとしているのかもしれませんが、どなたかアドバイスをください。
よろしくお願い致します。

エクセルの表である条件にあてはまる行(複数の列を指定したい)を、
別シートに順番に抽出されるような関数を教えてください。
元の表を編集するので、自動的に反映されるように関数で作成したいと思っています。できれば、抽出後のソートやフィルタオプションは避けたいです。

シート1のコード(A列)が100番台のもの、200番台のもの、300番台のものの、それぞれ食品名(B列)と総量(D列)を、シート2~シート4に別表として抽出したいです。
食材の注文をするのに、業者別にしなければいけませんが、量が多くて毎...続きを読む

Aベストアンサー

>恥ずかしながら、ピボットテーブルを初めて知りました。
とても面白くて便利ですね。すぐにできました。
関数とどちらが自分の仕事に合うのかやってみます。

ピボットテーブルはうまく使いこなすと非常に便利な機能です。

今回の回答では、簡潔に回答するため、操作上の細かい注意点やノウハウなどを書きませんでしたが、今回のケースでピボットテーブルを利用されるなら、たとえばグループ化したコードのフィールドをページフィールド(A1セルの部分)にドラッグすれば、その部分のドロップダウンリストから該当データだけを表示させることができます。
また、予備のデータ範囲を広くとるため、ピボットテーブルのA列に「0」のダミーデータを入れる方法を提示しましたが、名前定義を利用して範囲に名前をつけ、データ数に応じて自動的にピボットテーブルの範囲を広げる設定にするほうがお勧めです。

http://www.officetanaka.net/excel/function/function/offset.htm
http://www.becoolusers.com/excel/pivottable-table.html

>恥ずかしながら、ピボットテーブルを初めて知りました。
とても面白くて便利ですね。すぐにできました。
関数とどちらが自分の仕事に合うのかやってみます。

ピボットテーブルはうまく使いこなすと非常に便利な機能です。

今回の回答では、簡潔に回答するため、操作上の細かい注意点やノウハウなどを書きませんでしたが、今回のケースでピボットテーブルを利用されるなら、たとえばグループ化したコードのフィールドをページフィールド(A1セルの部分)にドラッグすれば、その部分のドロップダウンリスト...続きを読む

Q卵のMとLサイズについて

ケーキを作ろうと思ってLサイズの卵を
買ったつもりがMサイズでした><
レシピはLサイズ3個分なんです・・・(T。T)
Mサイズの卵を計ってLサイズ分に
して作りたいのでLサイズの
卵白と卵黄の教えてください。

Aベストアンサー

MもLも気にする事無く、そのままレシピでMサイズの3個使って作って下さい。
これがSとLだったらかなりの差になるけど、MとLなら気にする必要は皆無です。
基本的には黄身はほとんど変わらずに、大きくなるにつれて白身の割り合いが増えていきます。

Mサイズ:58~64g未満
Lサイズ:64~70g未満
で殻も全部ひっくるめて重さです。
MとLの差は平均6g、黄身の量にいたっては1gくらい、つまり白身だと5gくらい違うか違わないかです。

0.1gでも気になる超神経質な方なら、白身を15gだけ足して下さい。

よく作るけど、卵3個程度のケーキのレシピなら卵のMとLの違いで失敗する事はないですね。
牛乳大さじ1入れて調整する程度です。
失敗するのは他の要因(粉を混ぜ過ぎとか)です。

Qエクセル印刷のマクロでで”部単位で印刷”をしないようにできるでしょうか?

エクセルの印刷で
Selection.PrintOut Copies: = Range("D5").Value
のマクロで印刷していますが、
部単位で印刷(o)にチェックが入っているので
一枚ずつのジョブになってしまいます。
マクロでページごとに印刷することは
できるのでしょうか?

Aベストアンサー

PrintOutメソッドのヘルプを見てください。
引数 Collate を False にすれば良いです。
Selection.PrintOut Copies:=Range("D5").Value, Collate:=False

Q携帯でLサイズ写真

「携帯で撮影したLサイズ以上の写真」

というのは、100万画素を超えるもの(640×480以上)のことでしょうか?

でもそれより小さいものでもLサイズにのばせるしなあ、と考えると
「」内の言葉の意味がよくわからなくて・・・・(^^;)

この言葉の意味は「Lサイズにのばしたときに画像としてきちんと見られるもの」
ということでしょうか?

Aベストアンサー

Lサイズの定義がなんとも曖昧なので断言はできませんが、私の推測は、例えば今時の携帯内蔵カメラは200万画素クラスを備えており、撮影した画像をそのままメールに添付しようとした場合は、携帯キャリアごとに定められている添付容量制限のためにリサイズせねばなりません。(200万画素のフォトサイズは1600×1200でおよそ700KB前後)
リサイズして640×480に変換したものは100KB前後でなんとかギリギリで添付できるかなというところです。(auの場合)

Lサイズ以上がダメということならば、Lサイズ=640×480の予測どおりに違いないと思います。
Lサイズ以上が欲しいということであれば何の問題もないわけですし…。

Qエクセルの条件付き書式で、下記のような事をしたいです。

エクセルの条件付き書式で、下記のような事をしたいです。

B1に、0以上の数値が入力されていない状態の場合、A1は薄い緑色の状態
B1に、0以上の数値が入力されている状態の場合、A1は塗りつぶし無し
としたいです。
エクセル初心者なもので、、、すみませんが回答のほうお待ちしております。

Aベストアンサー

A1セルを選択してからエクセル2002でしたら「書式」から「条件付き書式」を選択します。
表示される画面の左は時の窓では▼をクリックして「数式が」を選びます。
右側の窓には=B1<0と入力して同じ画面にある「書式」をクリックします。
「パターン」タブから薄い緑色を選択してOKします。
これでB1セルにー1と入力すればA1には色がつきます。
B1セルが空の場合には色がつきません。
なお、空の場合にも色を付けるのでしたら=OR(B1="",B1<0)とすればよいでしょう。
エクセル2007でしたら「ホーム」タブの「条件付き書式」から「新しいルール」で「数式を使用して・・・・」を選びます。その後の数式や書式の設定はエクセル2003の場合と同じです。

QLサイズ以上のミニバンを購入する理由って何ですか?

Lサイズ以上のミニバンを購入する理由って何ですか?

できれば、実際にLサイズミニバンを所有されている方にお聞きしたいです。
Lサイズミニバンを購入した理由は何ですか?

※ここで言う「Lサイズミニバン」とは、
(1)アルファード(ヴェルファイア)
(2)エスティマ
(3)エルグランド
(4)エリシオン
(5)他(ラグレイト、プレサージュ、マークXジオなどの3500cc搭載車)
を指します。

Aベストアンサー

必要だからです。

ACR40W エスティマ2.4 4WD所有です。

家族が自分を含め6人、さらに自分の親を加えると8人。
全員で移動する場合も考えての理由です。

また、自営で商売をしてますので配達にも使います。

都市部であれば、公共交通機関が発達してますので移動手段が選択できますがこちらは北海道の片田舎。
マイカーが主たる移動手段です。

家族で長距離移動もしますので、Lサイズミニバンを選択というか、それしか選択肢がありません。

Qエクセル初心者ですが、下記内容の作業をしたくマクロを組もうとしています

エクセル初心者ですが、下記内容の作業をしたくマクロを組もうとしています。どなたかやり方を教えていただけますと助かります。
[やりたい事]
ブック(シート1)の中に(支店名)と(各支店別コード/4~8ケタ)2列の表があります。
同じブック(シート2)には、各支店別の発注データ(月単位/毎月新シート)があります。
この発注データには、支店名はあるのですがコードが入ってない為、毎月各支店名の横へ
新しい列を作り、支店コードをアナログで貼付しています。
この(シート1)から(シート2)へコードをマクロのボタン1回で反映させたい事が質問となります。

尚、支店別発注データは毎月発注回数や支店(有無)が異なる為、命令文としては、仮に
(シート1)で東京支店・コード0001している場合、(シート2)の東京支店の横にある列全てに
0001が記入されるようにしたいです。同様に300近い支店があります。(発注件数はバラバラ)

お手数ですが、宜しくお願いいたします。

Aベストアンサー

sheet1のB2~B302に支店名、C2~C302に支店コードが入力されているものとします。
Sheet2のB2~Bxxxに支店名が入力されているものとします。

新しいsheet2が追加されたとき支店名の左(A列)に支店コードを追加するマクロです。
まず、全部マクロでやると面倒なので、Sheet1のC1につぎの式を打ち込んでおきます。
=OFFSET($C$2,MATCH(B1,$B2:$B302,0)-1,0)
これは、A1に支店名を入力すると、支店コードを返してくれる式です。

マクロは次の通りです。
Sub ShitenCode()
CC = 2
For RR = 2 To 1000
Shitenmei = Worksheets("Sheet2").Cells(RR, CC).Value
If Shitenmei = "" Then Exit For
Worksheets("Sheet1").Cells(1, 2) = Shitenmei
CCode = Worksheets("Sheet1").Cells(1, 3)
Worksheets("Sheet2").Cells(RR, CC - 1) = CCode
Next
End Sub

sheet2の支店名を読み、それをsheet1のB1に送ります。
すると、その支店に対する支店コードが計算されてC1に表示されます。
つぎにC1の値をsheet2の支店名の右(A列)に送ります。

sheet2の支店名の列に空白行があると誤動作します。
sheet1に存在しない支店名がsheet2にあるとコードがエラーになります。
エラー処理をしていませんので、実情に合わせて考えてください。

sheet1のB2~B302に支店名、C2~C302に支店コードが入力されているものとします。
Sheet2のB2~Bxxxに支店名が入力されているものとします。

新しいsheet2が追加されたとき支店名の左(A列)に支店コードを追加するマクロです。
まず、全部マクロでやると面倒なので、Sheet1のC1につぎの式を打ち込んでおきます。
=OFFSET($C$2,MATCH(B1,$B2:$B302,0)-1,0)
これは、A1に支店名を入力すると、支店コードを返してくれる式です。

マクロは次の通りです。
Sub ShitenCode()
CC = 2
For RR = 2 To 1000
Sh...続きを読む


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報