![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
EXCELのマクロである処理をするプログラムを作っています。
その中でVBAでListBoxに項目を動的に追加しています。
ListBoxに項目を追加すると終了時、
「ListBox.xlsへの変更を保存しますか?」の確認ダイアログが出ています。
このメッセージを出したくないのですがどうしたらよいですか?
以下がそのソースです。
'------------------------------------------------------
Option Explicit
'ListBox1に項目を追加
Private Sub CommandButton1_Click()
ListBox1.AddItem ("りんご")
ListBox1.AddItem ("みかん")
ThisWorkbook.Saved = True
End Sub
'保存済みの確認
Private Sub CommandButton2_Click()
MsgBox ThisWorkbook.Saved
End Sub
'セルを変更しても保存済みにする
Private Sub Worksheet_Change(ByVal Target As Range)
ThisWorkbook.Saved = True
End Sub
'---------------------------------------------------------
セルの変更はWorksheet_Changeイベントで
ThisWorkbook.Saved = True
で確認ダイアログが出ないようにしています。
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
こんばんは
ThisWorkbookに
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
を設置してみてください。
ただし、未保存のデータのチェックが効かなくなりますので、
保存が必要な変更があった場合には
ThisWorkbook.Save
で、保存するようにしておくことをおすすめします。
この回答への補足
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
を追加したところ。
うまくいきませんでした。
ListBox1にAddItemしたときは別のフラグがたつようです?
ただ、この方法を追加すれば
セルの値の変更の対応を各シートに書かなくてよいので
利用させてもらいます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA初心者です。次のVBAコード...
-
VBA コードどこがおかしいですか?
-
VBA 別ブックからコピペしたい...
-
VBA 別ブックから条件に合うも...
-
配列のペースト出力結果の書式...
-
vbaにてseleniumを使用したedge...
-
VB.net(VB)で、フォームにExcel...
-
IEを使わないでhtmlテキストを...
-
Outlookの「受信日時」「件名」...
-
VBA 円グラフ 特定条件に一致し...
-
時間短縮のために、テキストフ...
-
VBAなくなるの?
-
VBAの質問になります メッセー...
-
pdfファイルの複数添付 引数の型
-
VBAコードについて教えてくださ...
-
ExcelVBA シート名を複数セルか...
-
【ExcelVBA】インデックスが有...
-
Excel VBA 定義されたプロージ...
-
VBAで特定のシート以外のシート...
-
Excel VBAで値を変えながら、pd...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
高速メモ帳に保存してあるファ...
-
MEGAというアプリで共有しても...
-
携帯過去メール 復元は何年前...
-
スマホでのダウンロード、保存...
-
Avidemuxで部分消去時の不具合...
-
ジャニーズのFC動画の保存方法...
-
エバーノートのファイルの保存場所
-
EXCELで保存済みにしたい
-
Androidのスマホを使っているの...
-
gom playerの連続キャプチャー...
-
スカイプで送られてきた動画フ...
-
auデータお預かりの復元について
-
大至急!PhotoshopやIllustrato...
-
マイナポータルでe-tax確定申告...
-
amazon musicをSDカードに移動...
-
筆ぐるめのはがきの件
-
Huawei p20 liteを使用していま...
-
データ専用SIMのデータ削除?
-
スマホの動画保存
-
エクセルVBAのイベント処理のタ...
おすすめ情報