ワードにて、エクセルの値を利用して差し込みをしています。ワード文章内にグラフをオブジェクトで作成しておりますが、そのグラフではワークシートが独立しているため、毎回数字を入力しないといけません。こちらとしては、ワードに差し込まれたデータをそのままグラフが反映してくれるとありがたいんですが・・・エクセルなら簡単にでき、問題もないのですが、何せ文章が中心となるため、ワードでの操作が作業効率が良いです。オブジェクトのグラフの数値も差し込みってできないものでしょうか？

以下の方法は如何でしょう。１．エクセルで、データ（表）とグラフを作成する。２．データとグラフをそれぞれワードにコピーする。貼り付け時、右下のアイコン「貼り付けオプション」で表は「貼り付け先の表のスタイルに合わせてExcelにリンク」を、グラフは、「Excelグラフへリンク」をそれぞれ選択する。アイコン「貼り付けオプション」が表示されない場合メニューバー「ツール」の「オプション」からタグ「編集と日本語入力」で「切り取り／貼り付けのオプション」の「［貼り付けオプション］を表示する」にチェックを入れる。以上、バージョン2003で出来ました。

ワードの差し込みにて、値をグラフにも反映できますか？ -ワードにて、- Word（ワード）

Qexcelからexcelへの差し込み印刷

お世話になります。

excelでwordへの差し込み印刷をよく利用するのですが、
同様に、
excelのデータをexcelに流し込んで印刷する方法はありますでしょうか。

excelの名簿のデータを
excelの表のフォーマットに流し込んで
1人づつ印刷したいのですが。

お分かりの方いらっしゃいました教えてください。
どうぞ宜しくお願い致します。

Aベストアンサー

イメージはわかるが、エクセルに差込印刷の機能はありません。
ワードなどと違ってA.X氏１人分書類シート作成、B印刷、Aのシートををｙ氏分のデータでシート内容（セル）を置き換え、印刷、の繰り返しをします。
ーー
例データ　Sheet1　A1;D3
連番氏名住所品物
1山田　三郎東京都江東区かばん
2植田　健横浜市港北区帽子
A列はこのたび連番を振りました。
Sheet2　　　に送り状の書式を体裁よく作ります。
H1セル（どこでも良いが、下記のVLOOKUPの式は変わる）

送り状

住所X
氏名Y

品物Z

...続きを読む

他の回答も見る

QExcel2000でレーダーチャートの自動作成・Wordへの自動挿入は可能か

Excel2000、Word2000を使っています。
Excelで１行が１名のデータとなっています。列になっている10項目に対してレーダーチャートを作り、Wordに貼り付け、１人ごとに結果票を配りたいと思っています。
ただ、人数がおおいため、一人分ずつ（1行ずつ）レーダーチャートをつくり、貼り付けするのは避けたいと思っています。

Wordにテンプレートを作り、数値については差込しています。
レーダーチャートについてはリンクをかけるなど、差込印刷と同じようなニュアンスで作成することは出来ないのでしょうか。

Aベストアンサー

具体的になってきました。
Excelファイルのデータベース範囲はA～Wの23列で、1行目がヘッダ、2行目以下が1行ごとに1名のデータ、そして、その中のL～Uの10列がグラフチャートの範囲ということですね。
Word側に13列のテーブルがあるとします。行数は2で1行目はヘッダとし、Excelデータベースのヘッダとあわせます（A～K,V,W列）。
マクロは、A～K列がループでもいいのですが、Word側の12,13列目とExcel側のV,W列を対応させなければなりませんので、この部分はループからはずして、個別に記入します。また、Wordでのグラフの表示位置はShapesオブジェクトのTop,leftプロパティで操作します。
総合的に、次のようなマクロ例になります。

Sub Macro1()
Dim id As Integer
Set wkbObj = CreateObject("C:\My Documents\Book1.xls")
Set MySheet = wkbObj.Worksheets("Sheet1")
Set MyGpObj = MySheet.ChartObjects(1).Chart.SeriesCollection(1)
'On Error GoTo ERRHAND

With ActiveDocument
　　id = .ScrollBar1.Value
　　Application.ScreenUpdating = False
　　For x = 1 To 11
　　　.Tables(1).Cell(2, x).Select
　　　　Selection.TypeText Text:=MySheet.Cells(id, x).Value
　　Next x
　　.Tables(1).Cell(2, 12).Select
　　　Selection.TypeText Text:=MySheet.Cells(id, 22).Value
　　.Tables(1).Cell(2, 13).Select
　　　Selection.TypeText Text:=MySheet.Cells(id, 23).Value
　　.Shapes(2).Delete
MyGpObj.Values = "=Sheet1!R" & id & "C12:R" & id & "C21"
MySheet.ChartObjects(1).Copy
Selection.Paste
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.WrapFormat.AllowOverlap = True
　　With .Shapes(2)
　　　　.WrapFormat.Side = wdWrapBoth
　　　　.WrapFormat.Type = 3
　　　　.ZOrder 5
　　　　.Top = 50
　　　　.Left = -180
　　End With
Application.ScreenUpdating = True
Selection.MoveDown Unit:=wdLine, Count:=1
ERRHAND:
Set wkbObj = Nothing
Set MySheet = Nothing
Set MyGpObj = Nothing
End Sub

具体的になってきました。
Excelファイルのデータベース範囲はA～Wの23列で、1行目がヘッダ、2行目以下が1行ごとに1名のデータ、そして、その中のL～Uの10列がグラフチャートの範囲ということですね。
Word側に13列のテーブルがあるとします。行数は2で1行目はヘッダとし、Excelデータベースのヘッダとあわせます（A～K,V,W列）。
マクロは、A～K列がループでもいいのですが、Word側の12,13列目とExcel側のV,W列を対応させなければなりませんので、この部分はループからはずして、個別に記入します。また、Word...続きを読む

他の回答も見る

Qエクセルから帳票形式に差込印刷したいのですが

皆さん初めまして！

エクセルで１万件に近いデータがあります。

これらを帳票形式に差込印刷したいと思えば、ワードの「差込印刷」機能以外に、エクセル自体で行なうことは不可能でしょうか？

（例：請求データを請求書フォームに印刷）

ワードの差込印刷は便利ですが、エクセルデータ形式（特に金額のカンマ区切り表示が必要なため）を参照する際は、フィールド設定の数の制限が２２列まで？で・・・行き詰っています（私は約４０列あります）。

エクセル・ワードの操作は上級手前の操作まではいけますが、
エクセルでＶＢＡ、差込印刷マクロを作るとまではいけないもので・・・何か妙案がありましたらご教示願います・・・

Aベストアンサー

＃０１です。出血大サービスです(^^;
ただし不具合以外の修正はご自身でお願いします。
２行目～４行目と項目の定義の箇所は再度設定し直してください。

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub InsPrint()
Const org As String = "Sheet1" '元データのシート名
Const prs As String = "Sheet2" '印刷するシート名
Const strt As Integer = 2 '元データの実データ開始行
Dim idx, fromL, toL As Long
Dim oSht, pSht As Worksheet
Dim res, res2
　Set oSht = Worksheets(org)
　Set pSht = Worksheets(prs)
　res = MsgBox("印刷行範囲を指定しますか？" & Chr(13) & _
　　"はい：指定する、いいえ：指定しないで全件印刷、CANCEL：印刷しない", vbYesNoCancel)
　Select Case res
　　Case Is = vbCancel
　　　Exit Sub
　　Case Is = vbYes
　　　res2 = Application.InputBox("印刷開始行を半角数字で入力して下さい", Type:=1)
　　　If TypeName(res2) = "Boolean" Then
　　　　MsgBox "印刷を中止しました", vbOKOnly
　　　　Exit Sub
　　　Else
　　　　If res2 >= strt And res2 <= oSht.Range("A65536").End(xlUp).Row Then
　　　　　fromL = res2
　　　　Else
　　　　　MsgBox "開始行が不適切です。印刷を中止しました", vbOKOnly
　　　　　Exit Sub
　　　　End If
　　　End If
　　　res2 = Application.InputBox("印刷する最終行を入力して下さい" & Chr(13) & _
　　　　　"99999を入力すると最終行まで印刷します", Type:=1)
　　　If TypeName(res2) = "Boolean" Then
　　　　MsgBox "印刷を中止しました", vbOKOnly
　　　　Exit Sub
　　　Else
　　　　If res2 = 99999 Then
　　　　　toL = oSht.Range("A65536").End(xlUp).Row
　　　　Else
　　　　　If res2 >= fromL And res2 <= oSht.Range("A65536").End(xlUp).Row Then
　　　　　　toL = res2
　　　　　Else
　　　　　　MsgBox "最終行が不適切です。印刷を中止しました", vbOKOnly
　　　　　　Exit Sub
　　　　　End If
　　　　End If
　　　End If
　　Case Else
　　　fromL = strt
　　　toL = oSht.Range("A65536").End(xlUp).Row
　End Select

　For idx = fromL To toL
'以下の行を項目数だけコピーして定義する
　　pSht.Range("A1").Value = oSht.Cells(idx, "A").Value
'
　　pSht.PrintOut '印刷
'５頁につき８秒休止する
　　If (idx Mod 5) = 0 Then
　　　DoEvents
　　　Sleep 8000
　　End If
　Next idx
End Sub

＃０１です。出血大サービスです(^^;
ただし不具合以外の修正はご自身でお願いします。
２行目～４行目と項目の定義の箇所は再度設定し直してください。

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub InsPrint()
Const org As String = "Sheet1" '元データのシート名
Const prs As String = "Sheet2" '印刷するシート名
Const strt As Integer = 2 '元データの実データ開始行
Dim idx, fromL, toL As Long
Dim oSht, pSht As Worksheet
Dim res, res2
　Set oSht = Works...続きを読む

他の回答も見る

Q成績管理(個人カルテ)をエクセルで

学校に勤務しています。
タイトルは成績管理となっていますが、テストの結果等の数字の処理はなんとかできています。
ところが、個人懇談などに使う資料づくりをエクセルでしたいのです。

まず、クラスの名簿があります。
出席番号順に縦に名前が並びます。
横には項目が並びます。
たとえば、担当している係、また所属するクラブ活動などです。
こういう一覧は、普通に作成していますが、それをそのまま懇談などで使うと、本人の情報ばかりでなく、クラスの他の生徒の情報も見えてしまいます。
そこで...続きを読む

Aベストアンサー

訂正です。もっといいやり方がありました。

１
B2に出席番号を入力すれば、データが自動的に変わりますので、シートを人数分用意する必要はありません。
元データのsheet1と個人データのsheet2だけで十分です。

２．
sheet2で
A1 =INDIRECT("Sheet1!R1C"&ROW(),FALSE)
以下項目の数と同じだけの行にオートフィル
B2 =INDIRECT("Sheet1!R"&$B$1+1&"C"&ROW(),0)
以下A列の最後と同じ行までオートフィル
とすればsheet2の２つのセルに関数を入力するだけで、後はオートフィルでできます。

もっとも、sheet2のA列は
１．sheet1のタイトルが入っている範囲をコピー
２．sheet2のA1を選択
３．「編集」－「形式を指定して貼り付け」で「行列を入れ替える」にレ点を入れて、ＯＫを押す
の方が手っ取り早いです。

他の回答も見る

Qエクセルの表をワードで作成した文章に挿入するには

エクセルで作った表をワードで作成した文章に挿入、また、逆にワードで作成した文章や図をエクセルに挿入するにはどうすればよいでしょうか？

Aベストアンサー

エクセルで作った表をワードに挿入するには

１、エクセルを開き、表をコピー
２、ワードを開き、編集メニュー→形式を選択して貼り付け
３、貼りつける形式を「Microsoft Excelワークシート」にしてOK

ワードで作成した文書をエクセルに挿入するには
１、挿入→オブジェクト→ファイルから→ファイルを選択

でうまく行きませんか?

また、ワードの文書全部を選択してコピーして、エクセルに貼り付けではどうですか？

他の回答も見る

Qエクセル　0や空白のセルをグラフに反映させない方法

以下の点でどなたかお教えください。

H18.1～H20.12までの毎月の売上高を表に記載し、その表を元にグラフを作成しています。グラフに反映させる表の範囲はH18.1～H20.12の全てです。
そのためまだ経過していない期間のセルが空白になり、そこがグラフに反映され見づらくなります。
データを入力する都度グラフの範囲を変更すればいいのですが、うまく算式や設定等で空白や０円となっているセルをグラフに反映させない方法はありますか？

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

Aベストアンサー

売上高のセルは数式で求められているのですよね？
それなら
=IF(現在の数式=0,NA(),現在の数式)
としてみてください。
つまり、0の場合はN/Aエラーにしてしまうんです。N/Aエラーはグラフに反映されません。

他の回答も見る

Qエクセルの名簿一覧表からすでにエクセルで作られている一人づつのシートに差込印刷

エクセルでできている名簿リストから、すでにエクセルでできている個人別のシートに差込印刷したいのです。一人ずつセル参照で作ることはできるのですが、全部で３００人分くらいあるのでワードの差込印刷のように一度にできる方法が知りたいのです。本日中にやらねばならないので手作業では、間に合いそうにありませんしＶＢＡの勉強をしている余裕もありません。

Aベストアンサー

VBAでもない解答をします。ただファイル－印刷の操作を
３００回すること。最終部のようにすれば、VBAで自動化も出来ます。
（１）Sheet2のA1:E3に住所録が
氏名郵便番号住所１住所２
山田　和郎１１１－１１１１東京都小平市新町２－１－２光マンション２２２
木之下　重雄２２２－２２２２東京都三鷹市本町４－３－２三国荘２０１
あるとします。本番ではA1:E300とかに住所録があります。
（２）Sheet1は印刷する画面シートです。
F1セルに２、
F2に="Sheet2!A"&F1
F3に="Sheet2!B"&F1
F4に="Sheet2!C"&F1
F5に="Sheet2!D"&F1
F6に="Sheet2!E"&F1
郵便番号を置くセルをB3として式=INDIRECT(F3)
府県市を入れるセルをB5として式=INDIRECT(F4)
町番地を入れるセルをB6として式=INDIRECT(F5)
気付を入れるセルをC6として式=INDIRECT(F6)
名前を入れるセルをB8として式=INDIRECT(F2)
C8に「様」を入れる。
（３）F1セルが２の時は
１１１－１１１１

東京都小平市
新町２－１－２光マンション２２２

山田　和郎様
となりますが、このA1:C8を印刷する。
（４）F1セルの値を３に変える（３を入力する）と
２２２－２２２２

東京都三鷹市
本町４－３－２三国荘２０１

木之下　重雄様
と瞬時に変るが、これを印刷する。
（５）F1を４、５、６、・・・と変えて印刷、変えて印刷すれば良い。
この（５）の部分だけをマクロの記録やVBAにすれば、
同じVBAでも既解答よりずっと易しいと思いますがいかがででしょうか。
Sub test01()
Worksheets("sheet1").Activate
For i = 2 To 3 '300
Cells(1, "F") = i
Range("a1:c8").PrintOut
Next i
End Sub
行高、セル幅、フォントサイズなどは手動で設定。
氏名、郵便番号、住所を置くセルは自由に出来ます。
上記でF1:F6も自由に別列に設定できます。

VBAでもない解答をします。ただファイル－印刷の操作を
３００回すること。最終部のようにすれば、VBAで自動化も出来ます。
（１）Sheet2のA1:E3に住所録が
氏名郵便番号住所１住所２
山田　和郎１１１－１１１１東京都小平市新町２－１－２光マンション２２２
木之下　重雄２２２－２２２２東京都三鷹市本町４－３－２三国荘２０１
あるとします。本番ではA1:E300とかに住所録があります。
（２）Sheet1は印刷する画面シートです。
F1セルに２、
F2に="Sheet2!A"&F1
F3に="Sheet2!B"&F1
F4に="Sheet2!...続きを読む

他の回答も見る

Qパワーポイントでの差し込み印刷

パワーポイントに差込印刷をしたいのですが、可能でしょうか?
表彰状に、エクセルのリスト（部署、名前などのリスト）から、大量数の表彰状を作成したいのですが、どなたか方法を教えていただけないでしょうか?
台紙の雛形データはパワーポイントです。

よろしくお願いいたします。

Aベストアンサー

ANo.2 です。

偶然表彰状のテンプレート＋文例集のページを見付けましたので、下記しておきます。

「表彰状　フレームテンプレートファクトリー」
http://www.printout.jp/factory/shoujou/

他の回答も見る

Qエクセルで自動でグラフを生成する方法について。

エクセルで自動でグラフを生成する方法について。
エクセルで自動でグラフを生成する方法を探しています。
例えば以下のようなデータがあったときに
4 3 6 1
この4つのデータを、例えばあるセルをクリックすると自動でこの4つのデータの円グラフがでるような機能を作りたいと考えています。
おそらくマクロを使えばすぐにできるのかと思いますが、
マクロはまったく使ったことがないので分かりません。
こちらのグラフ生成方法、もしくはマクロの使い方に関して分かりやすいサイトを知っている方いらっしゃいましたら、教えていただけると幸いです。

Aベストアンサー

そのマクロは削除して作り直した方が早いです。
何回でも作れますから。不要なマクロは削除しておいて下さい。

次に作る時は、以下のサイトを参考にして、VBエディターを開き、
ある1行を削除してみて下さい。下の方にあります。

http://www.interq.or.jp/neptune/pctec/rakrak/dai4/top.html

こうすると、違うセル範囲を選択して、ボタンを押すだけでグラフが
できます。登録ボタンは「オートシェイプ」でもいいのですが、
「フォーム」の「ボタン」にしてみて下さい。

ところで、グラフの自動生成なら、マクロを使わなくてもできます。

1つは、
完成したグラフを選択し、右クリック。「グラフの種類」→「ユーザー設定」
タブの下にある「選択元」で「ユーザー定義」を選択。「追加」をクリック。
「任意のグラフ名」と「説明」を入力し、OK。

次回から、任意のセル範囲を選択し、通常通り作る際「グラフの種類」の中で
「ユーザー設定」→「ユーザー定義」をクリックすると、このグラフが登録
されているので、クリックして選択。　しかし、きれいなグラフになりませんが。

もう1つの、お勧めの方法は、
既存のグラフをCtrlを押しながらドラッグして、コピーし、右クリック→
「元のデータ」で範囲を選択し直せば、目的の範囲のグラフが即座にできます。

最速なのが、任意の範囲を選択し、F11キーを押すだけで「棒グラフ」
がグラフ専用シート」に一瞬で作成されます。棒グラフですが、
これを変更すればいいのです。右クリックし「場所」を「オブジェクト」
にすれば、思ったシートに移せます。

グラフでしたら、マクロを使うより、以上の方法の何れかの方法がエラーが出ずに
使いやすいです。

全部試してみて、使いやすい方法をお選び下さい。

そのマクロは削除して作り直した方が早いです。
何回でも作れますから。不要なマクロは削除しておいて下さい。

次に作る時は、以下のサイトを参考にして、VBエディターを開き、
ある1行を削除してみて下さい。下の方にあります。

http://www.interq.or.jp/neptune/pctec/rakrak/dai4/top.html

こうすると、違うセル範囲を選択して、ボタンを押すだけでグラフが
できます。登録ボタンは「オートシェイプ」でもいいのですが、
「フォーム」の「ボタン」にしてみて下さい。

ところで、グラフの自動生成なら、マ...続きを読む

他の回答も見る

Qwordでの自動計算（パーセント表示）について

ワードで書類のテンプレートを作成しております。
その中で簡単な表があり、フォームを使って自動計算をさせたのですが、なぜかパーセント表示がうまく出ません。
小数点第２位まで表示させたいのですが、番号書式を0.00%に設定しても、小数点以下が、すべて.00%で出てしまいます。（整数にされてしまってます）

小数点第２位まできちんと表示させたいのですが、どのようにしたらよいのでしょうか。

Aベストアンサー

その例の場合は
番号書式は何も選択しないで(Deleteなどで消す)、計算式で式のところに
「=C2/B2*100 \# 0.00%」を入力すれば表示されると思います。

他の回答も見る