【先着1,000名様!】1,000円分をプレゼント!

エクセルのワードへの差し込み印刷について

これまで問題なく差し込み印刷が出来ていたのですが、ある日急に差し込もうとするとワードが動作を停止してしまうようになりました。
再起動してもだめです。

エクセルもワードも、2013です。
最近、アクセスを2016にバージョンアップしました。
アクセスの入っていないパソコンで試すと問題なく差し込むことが出来たので、アクセスが原因でないかと思います。
仕事で差し込み印刷をする必要があり、自分のパソコンで作業が出来ず非常に困っているのですが、解決策はありませんでしょうか、、。

A 回答 (1件)

Access2013があるのでしたら、Access2016をアンインストールして


Access2013をインストールしなおしてください。
差し込み印刷に使われるデータファイル関連のレジストリの整合性が、
おそらく一致していないための不具合だと思います。

Access2016が必要なら、不具合の解消ができる保証は少ないですが、
Office2013の修復をしてみるか、またはAccess2013を残したままで
Access2016をインストールしてみるなどがあります。
https://support.office.com/ja-jp/article/%e7%95% …
これらができないのなら、一時的にAccess2016だけを削除してから
差し込み印刷をして、作成後に再インストールをするなどで対応する
しかないと思います。
    • good
    • 0

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

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

Qエクセルで、西暦 1900年以前の年月日も含めて、年月日で並べ替えしたいのですが、いい方法は

エクセルで、西暦 1900年以降は年月日で並べ替えができるのですが、1900年以前の年月日も含めると、文字になっているので、並べ替えができなくなります。いい方法はありませんか。
宜しくお願い致します。

Aベストアンサー

>「セルの書式設定F]- 「表示形式」 - 「文字列」

この操作ではデータ自体は文字列にはなりません。
大体、日付データがシリアル値になると思うんですけどね。

作業列を作ってTEXT関数で日付データは文字列になるようにしておけば並べ替えできますよ。

Q色フィルターをかけた状態で、数値を条件抽出はできないのでしょうか?

エクセルのフィルター機能について、質問させてください。

シートの各セルに数値を入力した表があります。
一部のセルが赤色に塗り潰しされています。

例えば、ある列(例:A列)のセルに入力された数値が3以上かつ、そのセルが赤色に塗り潰しされたセルの行だけを抽出したいのですが、

色フィルターで赤色に塗り潰しされたセルの行だけは条件抽出できますが、
かつ、各セルに入力された数値データ(3以上)を同時に条件抽出ができません。

色フィルターをかけた状態で、さらにそのセルのデータを(数字データ)を条件抽出って、できないのでしょうか?

エクセルのバージョンは2016です。

Aベストアンサー

こんばんは!

確かに色フィルタと数値フィルタの併用はできないようですね。
苦肉の策ですが、最終列の右となりの列にオートフィルタ用の列を設け、
VBAで条件に一致する行にフラグを立て、その列をキーにフィルタをかける方法はどうでしょうか?

Sub Sample1()
Dim i As Long, lastCol As Long
lastCol = Cells(1, Columns.Count).End(xlToLeft).Column + 1
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, "A").DisplayFormat.Interior.ColorIndex = 3 And Cells(i, "A") >= 3 Then
Cells(i, lastCol) = 1
End If
Next i
Columns(lastCol).AutoFilter field:=1, Criteria1:=1
End Sub

以上のマクロを実行するとA列の塗りつぶしが「赤」で「3以上」のセルだけが表示されます。m(_ _)m

こんばんは!

確かに色フィルタと数値フィルタの併用はできないようですね。
苦肉の策ですが、最終列の右となりの列にオートフィルタ用の列を設け、
VBAで条件に一致する行にフラグを立て、その列をキーにフィルタをかける方法はどうでしょうか?

Sub Sample1()
Dim i As Long, lastCol As Long
lastCol = Cells(1, Columns.Count).End(xlToLeft).Column + 1
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, "A").DisplayFormat.Interior.ColorIndex = 3 And Cells...続きを読む

QExcelのMOS検定のスペシャリストを持っていたら凄いなってなりますか? あと、日商PC検定とどっ

ExcelのMOS検定のスペシャリストを持っていたら凄いなってなりますか?
あと、日商PC検定とどっちが難しいですか?

Aベストアンサー

とても、良い質問です!(いわば人生訓として)

「1円をバカにして、1円に泣く」というようなことわざがあったと思います。
あまりプライベートのことまではお話できませんが、私は、取れるのは分かっていながら、お金惜しさに、取りませんでした。実際、求職中の試験料金としては、ちょっと高すぎます。

しかし、誰が、その人のPCの使いこなしの実力の証明をしてくれるのでしょうか。
メジャーなMOSの資格を持っていれば、この人は、Excel・Word・PowerPoint はできると思ってくれます。

ただ、エキスパートとスペシャリストの違いというものの、社会的認識は低いのではないかと思います。それ加わるのが、「オフィスマスター」がありますが、パソコン教室の講師として仕事をする人たちは、常に、バージョンごとに、それを維持していかなくてはならないそうです。

しかし、それを持っていない人が、目の前で、データから表をつくって、パーセンテージをつけて、印刷までの過程をスムーズにやってみせたところで、相手側は信用してくれないのです。我ながら、よく出来たと思ってはいても、それではダメだということです。
(世の中が悪い、相手が悪い、といったところでしょうがないのです。どこでも、そういうケースにぶつかります。そういう世の中なのです。)

#1さんの言うようなことは、内心、私個人として理解はしても、現実の社会で見聞きしたものは、そうした矛盾だらけなのです。毒を食らわば皿までなのです。

お金を惜しんで、資格を取らないなんていうことは、もし若い人なら、日本や韓国のような社会では生活しないほうがよいのかもしれません。韓国のように、英語試験で、組織的な不正行為をしてしまう、あってはならないことではあるけれども、彼らは彼らなりに必至です。

ところで、インストラクターの業界の中では、日商PCを高く評価されています。メジャーではありませんが、データ活用と文書作成の2級を持っていれば、価値を知っている人なら、社内のPCの教育係に抜擢もされるぐらい、価値があります。余裕があれば、両方が良いのかもしれません。さしずめ、英検とTOEICのようなものです。

>日商PC検定とどっちが難しいですか?
仕事で経験してきた人には何でもないのですが、より実践的です。

とても、良い質問です!(いわば人生訓として)

「1円をバカにして、1円に泣く」というようなことわざがあったと思います。
あまりプライベートのことまではお話できませんが、私は、取れるのは分かっていながら、お金惜しさに、取りませんでした。実際、求職中の試験料金としては、ちょっと高すぎます。

しかし、誰が、その人のPCの使いこなしの実力の証明をしてくれるのでしょうか。
メジャーなMOSの資格を持っていれば、この人は、Excel・Word・PowerPoint はできると思ってくれます。

ただ、エキスパートと...続きを読む

Qエクセルで文字を入力すると罫線が消えてしまいます。対処法を教えて下さい。

エクセルで文字を入力すると罫線が消えてしまいます。対処法を教えて下さい。

Aベストアンサー

普通はそんなことにはなりません。

条件付き書式で空白の時に罫線をつける設定になってませんか?

Qエクセルのコマンドボタンの使い方について質問です。

エクセルのコマンドボタンの使い方について質問です。

選択している画像のサイズを大きくするマクロを作りました(※1)。
これをボタン(フォームコントロール)で実行すると、キチンと作動します。

しかし、これを、コマンドボタン(ActiveXコントロール)で実行すると
「実行時エラー’438’
オブジェクトは、このプロパティまたはメソッドをサポートしていません」
とエラーが出てしまいます(※2)。

基本的な質問で申し訳ないのですが、コマンドボタンで実行した際に
エラーがでる理由と解決方法について、ご教授頂けないでしょうか??


↓(※1)
Sub Macro8()
'
' Macro8 Macro
'
Selection.ShapeRange.ScaleHeight 1.75, msoFalse, msoScaleFromMiddle
Selection.ShapeRange.ScaleWidth 1.75, msoFalse, msoScaleFromMiddle
'
End Sub




↓(※2)
Private Sub CommandButton1_Click()

Macro8

End Sub

エクセルのコマンドボタンの使い方について質問です。

選択している画像のサイズを大きくするマクロを作りました(※1)。
これをボタン(フォームコントロール)で実行すると、キチンと作動します。

しかし、これを、コマンドボタン(ActiveXコントロール)で実行すると
「実行時エラー’438’
オブジェクトは、このプロパティまたはメソッドをサポートしていません」
とエラーが出てしまいます(※2)。

基本的な質問で申し訳ないのですが、コマンドボタンで実行した際に
エラーがでる理由と解決方...続きを読む

Aベストアンサー

>コマンドボタンで実行した際に
>エラーがでる理由と解決方法について、ご教授頂けないでしょうか??

Selection という意味は、今、選んでいるものということなのですが、
画像のShape オブジェクトの場合は、フォームコントロールのボタンを押しても、Selection を移動することはありませんが、
ActiveX コントロールの場合は、そのSelection が移動してしまいます。

ですから、Selection を使用して、画像の大きさを変えようとして、ボタンの自分自身を選択していますから、通常の方法ではコマンドは無理だということです。

あえて、ActiveX コントロールのボタンを用いるのでしたら、画像のShape オブジェクトを指定してあげることが前提になります。Selection が使えません。
動的なもの(その都度変わるもの)では、設定が極めて難しくなってしまいます。

Private Sub CommandButton1_Click()
Dim MyShape As Shape
 Set MyShape = Shapes("図 1") '<- 固定したもの
  MyShape.ScaleHeight 1.75, msoFalse, msoScaleFromMiddle
  MyShape.ScaleWidth 1.75, msoTrue, msoScaleFromMiddle
End Sub

>コマンドボタンで実行した際に
>エラーがでる理由と解決方法について、ご教授頂けないでしょうか??

Selection という意味は、今、選んでいるものということなのですが、
画像のShape オブジェクトの場合は、フォームコントロールのボタンを押しても、Selection を移動することはありませんが、
ActiveX コントロールの場合は、そのSelection が移動してしまいます。

ですから、Selection を使用して、画像の大きさを変えようとして、ボタンの自分自身を選択していますから、通常の方法ではコマンドは無理だ...続きを読む

Qエクセルで図形を、均等に並べるにはどうすればできますか?

図のように、縦線6本を並べて描くとき、この幅を例えば均等に20mmにしたい場合どのようにすればできますでしょうか?

何か簡単にできる方法はありませんでしょうか?

手動だと少しずれてしまいます。

Aベストアンサー

均等に並んだ6本の線をグループ化して、その幅を10㎝に設定してみては。

QEXCELで複数の表からの集計

ある製品αは複数のUNIT(A~C)で構成され、各UNITは複数の部品(あ~お)で構成されるとします。
添付画像のような製品、UNIT構成の場合に製品αを構成する部品数はどのように集計すればよいのでしょうか。

Aベストアンサー

No.8です。

>表に空欄があっても問題ないのでしょうか?

もちろん空白があっても問題ないはずです。
前回の画像の配置で、行方向・列方向にはいくらデータがあっても対応できます。
ただ投稿後思ったのですが、
D列「PART」のデータが各「UNIT」にすべて存在すれば問題ないのですが、
D列データが「UNIT」の中に存在しない!というコトはないですよね?
そうであれば前回のコードで大丈夫なのですが、万一「UNIT」にない場合のエラー処理のために
↓のコードに変更してみてください。

Sub Sample2() '//この行から//
Dim i As Long, k As Long, lastRow As Long
Dim c As Range, r As Range
lastRow = Cells(Rows.Count, "D").End(xlUp).Row
If lastRow > 2 Then
Range(Cells(3, "E"), Cells(lastRow, "E")).ClearContents
End If
For i = 3 To Cells(Rows.Count, "A").End(xlUp).Row
Set c = Rows(2).Find(what:=Cells(i, "A"), LookIn:=xlValues, lookat:=xlWhole)
For k = 3 To Cells(Rows.Count, "D").End(xlUp).Row
Set r = Columns(c.Column).Find(what:=Cells(k, "D"), LookIn:=xlValues, lookat:=xlWhole)
If Not r Is Nothing Then '//←追加★//
With Cells(k, "E")
.Value = .Value + r.Offset(, 1) * Cells(i, "B")
End With
End If '//←追加★//
Next k
Next i
End Sub '//この行まで//

※ 「★」の行を追加しただけです。
「UNIT」にD列データがない場合の処理を追加しました。m(_ _)m

No.8です。

>表に空欄があっても問題ないのでしょうか?

もちろん空白があっても問題ないはずです。
前回の画像の配置で、行方向・列方向にはいくらデータがあっても対応できます。
ただ投稿後思ったのですが、
D列「PART」のデータが各「UNIT」にすべて存在すれば問題ないのですが、
D列データが「UNIT」の中に存在しない!というコトはないですよね?
そうであれば前回のコードで大丈夫なのですが、万一「UNIT」にない場合のエラー処理のために
↓のコードに変更してみてください。

Sub Sample2() '//この行...続きを読む

Q【Excel】右上がりの罫線を引く

セル「M10」に”無”と入力されると、セル「M11」のセルに右上がりの罫線を引きたいです。
どうぞよろしくお願いいたします。

Aベストアンサー

こんにちは!

VBAになりますが、一例です。
シートモジュールにしてください。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$M$10" Then
With Range("M11").Borders(xlDiagonalUp)
If Target = "無" Then
.LineStyle = xlContinuous
Else
.LineStyle = xlNone
End If
End With
End If
End Sub

※ 対象セルはM10だけでよいのですよね?m(_ _)m

Qセルの書式設定

セルの書式設定

Aベストアンサー

追記、
キーボードのキーではなくて、
エクセルの表で セルの行が123456とあり、セルの列はABCDEFとありますよね
セルの行の1の上に、△と記載されている部分はありませんでしょうか?
それを押して、全範囲を指定してみてください。

その状態で右クリック セルの書式設定を行うと、
シートの全範囲にそれが採用されます

Qエクセルで自動で同じ文字と数字をセルに貼り付ける事は出来るでしょうか? 例えば A1○ B1□ C1

エクセルで自動で同じ文字と数字をセルに貼り付ける事は出来るでしょうか?

例えば
A1○ B1□ C1 20枚 と入力したら
○□が一つのセルに20枚自動入力出来るようにしたいです。

数量がかなりあるため出来るだけ自動にしたいので、お手数ですが教えて頂けませんか。

Aベストアンサー

添付図参照


人気Q&Aランキング