Excelが大好きだ!スマートフォン用の表示で見るExcelが大好きだ!Excel大好き経理マンがExcelの事を書き綴っていきます。ワークシート前回はコメントを全て別ブックに退避させてから、全て削除するところまでを実現させました。今回は退避させたコメントを元のブックに復元させるところまでを検証してみます。'ダイアログでキャンセルをした場合に処理を中止する。'それ以外は選択したExcelファイルを開いて処理を続行。Sub処理の流れは1コメントを保存したブックをGetOpenFilenameを利用して開く2退避用ブックのコメントをコピーして、復元用情報を参照して元のブックにコピーのみを貼り付ける。3退避用ブックを閉じる1GetOpenFileNameはファイルを選択した場合はフルパスを、キャンセルをした場合はFalse型を返す。Flaseが返ってきた場合は以降の処理が継続できないので返り値がBoolean型がどうかを判定して処理を中断している。2退避用ブックに貼り付けてあるコメントを順番にコピーして、復元情報(シート名・セルアドレス)を元にマクロ実行時のアクティブブックにコメントを貼り付けていく。この時アクティブブックの貼り付けセルにコメントがある場合は上書きされるので要注意。※例のごとくこの処理でコメントが失われても責任は持てませんあと、残念ながらコメント退避に使用したブック以外を開いた場合・退避させた時とシート名が異なっている場合等の処理はしておりませんので、その場合はエラーで止まります。3退避用ブックでコピーモードのままなので念の為、CutCopyModeをFalseにしてから退避用ブックを閉じるまとめ無事に当初想定していた、コメントの退避からの復元まで無事に実現させることが出来ました。コメント退避の機能についてはコメントを一覧で管理することが出来るという副産物が生み出されましたので、コメントの削除のするしないのフラグを立てれるようにするつもりです。後は実践使用してブラッシュアップ及びアドバイス頂いた内容を反映した改良版をその内に発表したいと思います。API(FindFirstFile)を利用したファイル検索(ファ...前回までにDir関数とFilesystemObjectを利用したファイル検索を...2019-02-28サブフォルダ内を含むFileSystemObjectを利用したファイル検索(ファイル検索比較4)前回はFileSystemObjectを利用して1つのフォルダ内のファイル...2019-02-24FileSystemObjectを利用したファイル検索(ファイル検索比較3)前々回・前回とDir関数を使用したファイル検索について検証して...2019-02-23サブフォル内を含むDirを利用したファイル検索(ファイル検索比較2_修正)今回は前回記事の一部修正です。(1)月別アーカイブはてなブログをはじめよう!ExcelLoverさんは、はてなブログを使っています。ブログを報告するスターをつけました引用をストックしましたストック一覧を見る閉じる引用するにはまずログインしてくださいログイン閉じる引用をストックできませんでした。再度お試しください閉じる限定公開記事のため引用できません。