[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『保存しますか?ノメッセージが 何故に?』(シジマ)
いつも 勉強させて頂いています。
早速ですが 教えて下さい。
下記 マクロを実行し
ブック名 = CStr(年) & "_" & Format(月, "00") & "印刷用.xlsx" Workbooks.Add With ActiveWorkbook .SaveAs Filename:=パス & ブック名, FileFormat:=xlOpenXMLWorkbook Set シート = .Worksheets("Sheet1") With シート Application.Goto Reference:=.Cells(2, 1) ActiveWindow.FreezePanes = True End With End With
他のブックを開いて シートにデータを順次転記
シートにオートフィルターを掛けて
1か所だけサブトータル関数を設定して
Set シート = Nothing
Workbooks(ブック名).Close SaveChanges:=True
で 終了
その後 ブック名を 保存場所から 開き 何もせずに閉じようとすると
{変更を 保存しますか」のメッセージが 必ずでます。
「はい」として再度 開き 何もせずに閉じようとすると
上記メッセージはでません。
関数は上記サブトータル関数を1か所だけですし 再度開いた時に
メッセージが でないのは 前回の「はい」の結果としても
保存直後に開くと メッセージがでるのは なぜでしょうか?
こんなことは 私だけ?
< 使用 Excel:unknown、使用 OS:unknown >
どういうときに EXCEL がファイルに変更があったかと認識するかは今一つクリアでは ありませんが、ファイルに TODAY や NOW などの関数がないでしょうか。
その場合は、計算の手動・自動で挙動が変わるような気がします。 そういった関数がない場合は、うーん、わからないですね。
http://soft1.jp/trouble/o/o023.html
(Mook) 2014/09/24(水) 23:09
Mookさん ありがとうございます。
その後 削除したり 並べ替えたり 印刷設定したりしている部分
が 何か原因になっているのかなと コメントアウトしてそれぞれ
見てみたのですが印刷設定の下記を コメントアウトしてみた所
通常の挙動でした。
印刷設定を 元にもどしてみると 上記の現象となりました。
Application.PrintCommunication = False With .PageSetup .PrintTitleRows = "$1:$1" .CenterFooter = "&P/&N" .LeftMargin = Application.InchesToPoints(0) .RightMargin = Application.InchesToPoints(0) .PrintGridlines = True .Orientation = xlLandscape .PaperSize = xlPaperA4 .Zoom = 100 End With Application.PrintCommunication = True
印刷設定って・・・・
(シジマ) 2014/09/25(木) 13:14
引き続き ご連絡
「.PageSetup」の「.PrintTitleRows = "$1:$1"」をコメントアウト
すると上記現象は でませんでした。
取りあえず 保存後 もう一度開いて もう一度
Workbooks(ブック名).Close SaveChanges:=True
をして対処しましたが
これでいいのかな?
(シジマ) 2014/09/26(金) 09:09
セルの編集以外にも、EXCEL にとってはいろいろと「変更があった」という認識になる ようですね。
他にもユーザプロパティの更新も対象になる、といった情報も見かけましたし(真偽は定か ではありませんが)、MS から公式な情報が出ているといいのですけれど、なかなか見当たり ませんでした。 (Mook) 2014/09/26(金) 09:27
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.