![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
Windows10 Excel2016
入力シートにデータを入力し、
ボタンクリックでマクロ実行
・実行内容(ざっくり)
1.画面更新、再計算、イベント、アラーム無効
2.Workbooks(別ファイル)を開く
3.Workbooks(別ファイル).sheet1の表にデータを転記
4.Workbooks(別ファイル).sheet1の表を、実行ファイルのsheet2の表にコピペ
5.Workbooks(別ファイル)を保存して閉じる
6.印刷プロシージャ呼び出し
6-1.印刷シート1にデータを転記して印刷
6-2.印刷シート2にデータを転記して印刷
6-3.印刷シート3にデータを転記して印刷
7.入力シートに戻り、A1を選択
8.画面更新、再計算、イベント、アラーム有効
9.msgbox 完了しました
・不具合点
マクロ終了後の入力シートの1~3行目のセルに、印刷シート1のセルが写ってます。
写っているだけで、そのセルを選択すると数式バーには入力シートの値が出ています。
ボタンも映らなくなっていますが、マウスを合わせるとカーソルが変わり、クリック出来ます。
入力シートのChangeEventが発動すると、セルの表示は元に戻るが、ボタンは見えないままです。
※ChangeEventには、
1.画面更新など無効
2.入力データをクリア(白紙に戻す)
3.画面更新など有効
手動で他のシートへ移動して、入力シートに戻ると正しく表示されます。
画面停止でセルが崩れた?のかと思いますが、
どこを直せば直るのかが分かりません。
何かわかる方いましたら宜しくお願いします。
No.2ベストアンサー
- 回答日時:
こんばんは、
事象を再現する事が出来ないので、すべて想像の範疇で
参考になるか分かりませんが、、
VBAコード的には
ScreenUpdatingは正しくTRUEされているとして、
9.msgbox 完了しました の後に明示的にSheetObject、RangeObjectを
Activateするとどうでしょう?
また、ScreenUpdatingではなくApplication.Visible = Falseで実行は・・・
印刷プロシージャがあるとの事で、難しいですかね。
印刷での不具合でイメージが残っているのなら、
プリンタードライバーとの不具合も想像できます。
仮想プリンターで実行した場合、どのようになるか検証する事も考えられます。同様の事象が発生しない場合は、プリンタードライバーを最新のものにアップデートしてみてください。
さらに、オプションの詳細設定、ハードウエア グラフィック アクセラレータの設定が無効になっていないか確認してみてください。(他の不具合解消の為、無効になっている場合は、現状維持で)
私に起こった時には、取り敢えず、この辺を確認、検証してみます。
お返事ありがとうございます。
画面更新など有効にした後に、入力シートをActiveにしましたが、解決はしませんでした。
ですが、VisibleをApplicationではなく、各印刷シートにかけてみましたら上手く行きました。
Sub 印刷プロシージャ
各印刷シートに対して
Visible=True→印刷→Visible=False
ScreenUpdating=True
End sub
実行マクロに戻って
ScreenUpdating=True
入力シート.Active
Msgbox完了
助かりました。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【お題】甲子園での思い出の残し方
「球場の砂を持って帰る」はもう古いと思った高校球児が、甲子園で負けた際に、思い出に残そうと思って行ったこと
-
excelでVBA実行後に画面に残るゴミを無くしたい。
Excel(エクセル)
-
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
VBA Excel セル残像が残る
Excel(エクセル)
-
-
4
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
5
マクロ実行後、表示がおかしくなる
Excel(エクセル)
-
6
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
7
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
8
Refreshメソッドの使い方
Visual Basic(VBA)
-
9
エクセルでファイルを閉じても空ウィンドウが残ります
Excel(エクセル)
-
10
screenupdatingが機能しなくて困ってます
Visual Basic(VBA)
-
11
VBA コードを実行すると画面が真っ白になる
Visual Basic(VBA)
-
12
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
13
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
14
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
-
15
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
16
《エクセルVBA》「他の人が該当ファイルを使用中の場合」の処理
Excel(エクセル)
-
17
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
18
エクセルのマクロ機能で前のシートに返るVBAはどうかくか
Excel(エクセル)
-
19
【Excel VBA】CSV取込時、数字の先頭の0を消えないようにするには?
Excel(エクセル)
-
20
ブック名、シート名を他のモジュールからも参照可能にする方法
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELのSheet番号って変更でき...
-
マクロ実行後に別シートの残像...
-
VBA 空白行に転記する
-
マクロの「SaveAs」でエラーが...
-
VBA 実行時エラー1004 rangeメ...
-
アクセスからエクセルへ出力時...
-
Changeイベントで複数セルへの...
-
祝日を除いた月曜から土曜まで...
-
FindNextがうまくいかない
-
Excel VBAで、散布図のデータ範...
-
VBA 別ブックからの転記の高速...
-
VBAで変数の数/変数名を動的に...
-
エクセルVBAについて教えて...
-
ExcelのVBマクロを、バックグラ...
-
複数シートの複数列に入力され...
-
VBA Userformで一部別シートに...
-
100万件越えCSVから条件を満た...
-
Count Ifのセルの範囲指定に変...
-
VBA別シートの最終行の次行へ転...
-
検索して修正したデータの上書転記
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マクロの「SaveAs」でエラーが...
-
EXCELのSheet番号って変更でき...
-
VBA 空白行に転記する
-
マクロ実行後に別シートの残像...
-
VBA別シートの最終行の次行へ転...
-
Count Ifのセルの範囲指定に変...
-
VBA 別ブックからの転記の高速...
-
Changeイベントで複数セルへの...
-
VBA 実行時エラー1004 rangeメ...
-
【VBA】特定の条件でセルをコピー
-
100万件越えCSVから条件を満た...
-
楽天RSSからエクセルVBAを使用...
-
VBAで変数の数/変数名を動的に...
-
Unionでの他のシートの参照につ...
-
ExcelのVBマクロを、バックグラ...
-
複数シートの複数列に入力され...
-
Excel VBA オートフィルターで...
-
Excel2013で切り取り禁止
-
VBA Userformで一部別シートに...
-
グラフマクロで系列を変数にす...
おすすめ情報
お返事ありがとうございます。
マクロの最初に、画面更新~無効(Application.ScreenUpdating=False)しているので、画面は入力シートまま動きません。
ただしファイルを開く閉じるの際にちらつきはあります。
マクロ終了時に、画面更新~有効にして終わらせてます。