2562Q.最近VBAを使用して、シート上の数値などを集計したりしているのですが、ブックを閉じる際にブックを保存するか確認する表示がされます。保存する必要はないので、これを表示させないようにすることは可能でしょうか。A.いくつかの方法がありますが、今回はそのうちのひとつをご紹介します。シート上にボタンを配置し、「閉じる」などと表示し、このボタンを押してブックを閉じることとします。この配置したボタン(Button1とします)のクリックイベントを記述するため、VBAの画面を開き、下記のコードを入力します。Subまずこのブックを保存して下さい。(保存せずに閉じるマクロのため)そして、シート上のButton1をクリックすると、何もメッセージが出力されず、閉じられたと思います。これはどういうことかというと、Excelのワークブックは、SavedプロパティがFalseのとき、まだ保存がされていない、という判断がされ、その判断に基づいて、保存を促すメッセージが表示されます。従って、SavedプロパティをTrueに設定してあげれば(コード中★の部分)、実際に保存されていなくても、保存済のように振る舞うことが可能となるのです。この他の方法は、またの機会にでも投稿することにしますね。3246以前投稿した「VBAマクロ開発を効率的に行う方法(イミディエイトウィンドウ編)」の続編です。Cells(1,1).Value」等をを入力し、変数の値やシートの値を表示させることを学びましたが、このイミディエイトウィンドウへの表示は、実はプログラムから出力することが可能となっています。どのようなことなのか、以下のプログラムを見てみてください。あった場合、B列にA列の内容に”御中”を追加し、そうでない場合は”様”を追加します。ここでシートのデータを見るとどうも会社のデータのようだが、B列で”様”が追加されている行があったとしましょう。このような場合は、for文の中のELSEに入った場合のA列の内容がどのようになっているかを見たくなるでしょう。for文のループを100行デバッグで見ていくのは大変です。そのような場合こそイミディエイト・ウィンドウが活用できます。下記のようにプログラムを追加します。4)の部分ですから、これがどのようになっているかを確かめるのです。これでマクロを実行させると、イミディエイトウィンドウには下記のように出力されます。(※テストデータはご自身でA列に作成下さい。・・・これで23行目に、頭に余分な空白の入った”有限会社”があったためとすぐにわかります。このように、プログラム内で「Debug.Print」を実行することで、効率的にデバッグ(バグの修正)を行うことができるようになります。3575以前投稿した「テキストファイルの内容をエクセルシート上に読み込む」の続編です。※以前の記事はこちらhttp://www.office-kaiketsu.com/excel%ef%bc%88%e3%82%a8%e3%82%af%e3%82%bb%e3%83%ab%ef%bc%89/%e3%83%86%e3%82%ad%e3%82%b9%e3%83%88%e3%83%95%e3%82%a1%e3%82%a4%e3%83%ab%e3%81%ae%e5%86%85%e5%ae%b9%e3%82%92%e3%82%a8%e3%82%af%e3%82%bb%e3%83%ab%e3%82%b7%e3%83%bc%e3%83%88%e4%b8%8a%e3%81%ab%e8%aa%ad/さて今回は、逆にエクセルシート上の内容をテキストファイルに書き込んでみましょう。書き込み先のファイルは前回の読み込み元と同じです。フォルダがなければ作成し直してください。ファイルは今回既にあってもなくてもかまいません。(あったら上書きされます。なかったら作成されます。Editorを開き、下記のプログラムを入力します。Runtime」が参照設定されているのを確認しておきましょう。Subプログラムが完成したら、「デバッグ」メニューの「VBAProjectのコンパイル」をして、エラーが出ないことを確認します。シートの画面に戻り、下記のようにシート上に入力します。左上はA1セルになるようにします。入力できたら「開発」リボン※の「マクロ」で、上記のプログラムの名称「WriteTelephoneData」を実行すると、シート上の内容でテキストファイルが作成(上書き)されます。行で、シート上を上から下に辿っていき、データが空白になったら終了するところです。これがないと、延々と空のデータが出力されてしまうのがわかりますか?こちらもとても簡単な作りですが、慣れたExcelでテキストファイルを簡単に作れますから、いろいろ応用ができそうですね。※「開発」リボンが見えない場合は、下記の記事を参考にしてください。3073Q.VBAの開発をしていますが、マクロ実行時のエラーが多くてなかなか開発が手際よく進みません。何か開発に便利なツールはないでしょうか。開発を便利にするツールがもともと入っていますので、まずはそれを活用しましょう。エラーが多いということは、実際にプログラムを書いているときの想定が、実際の実行時と合っていないということでしょう。「表示」メニューの「イミディエイトウィンドウ」を選択すると、プログラムの入力画面の下に「イミディエイト」という画面が開きます。ここに、実行するプログラムのコードの一部を入力すると、実行結果がすぐに表示されるのです。Cells(1,1).Value」と入力してみてください。すると、Excel画面の現在表示しているシートのA1セルの内容が表示されます。このように、プログラムを実行する前提となるシートに対して、試しにコードを書いて、その結果を事前に表示することができるのです。プログラム実行中、ブレークポイントなどプログラムを停止しているときにもイミディエイトウィンドウを使用することができます。しても不具合の原因が分からないときは、このイミディエイトウィンドウにいろいろ入力して値を確認しながら開発を進めると効果的です。使いこなしてみて下さい。5432Q.会社の会計ソフトから出力されるテキストファイルをExcelに自動で取り込みたいのですがVBAで可能なのでしょうか?もちろんVBAを使って可能です。テキストファイルを開いていちいちコピー&ペーストですと手間なケースがありますので是非VBAのやり方を覚えてみましょう。題材として、簡単な電話帳を取り上げてみます。ファイル終わりこのようなカンマ「,」でデータを区切ったファイルの形式を”CSV形式”と呼びます。Editorを開き、下記のプログラムを入力します。Runtime」を参照設定しておきます。Subプログラムが完成したら、「デバッグ」メニューの「VBAProjectのコンパイル」をして、エラーが出ないことを確認します。シートの画面に戻り、「開発」リボン※の「マクロ」で、上記のプログラムの名称「ReadTelephoneData」を実行すると、シート上にテキストファイルの内容が出力されます。簡単な作りですが、テキストファイルの列を増やしてみたり、Excelシート上の出力位置を変えてみたり(Cellsのところ)、いろいろ変えてみることで日常の作業に活かせるものが他にも意外にあるかも知れませんね。※「開発」リボンが見えない場合は、下記の記事を参考にしてください。2017当ブログではビジネスシーンで起こるPCの様々な疑問を記事にし、解決するブログです。個別のご相談も承っておりますので、ご不明な点はお気軽にお問い合わせフォームor下記メールアドレスへお問合せくださいませ。オフィスソフト活用・業務効率化Q&AブログHomeお問合せ。