エクセルの練習になるかな?との思いでアフタヌーン・イブニングの連載ページ順をエクセルに記録してだいぶ経つ。
目次からページ番号を記録しておいて、掲載順の自動計算、過去の掲載順・ページの推移をグラフ化、その他メモ情報をコメント化、等をちまちま記入していた作業の自動化に一段落がついた。最初はセルに直接入力していた作業を、入力補助用Formをつくり、ある程度自動化できていたんだけど、どうしてもやり方がわからない処理(コメントの動的追加&追加コメントの自動サイズ設定:ON)が残っていた。
けど、やっと出来た~~~!そうよ、エクセルなんだから、マクロで自分の操作を記録させ、そのマクロを起点にして調べればいいんだよな。コメントの動的追加は、range.addComment でいいとして、コメントの自動サイズ設定は
.Comment.Visible = True 'コメントをSelectするために一時的にVisible
.Comment.Shape.Select
Selection.AutoSize = True
.Comment.Visible = False 'Visible解除
これで、できた!そうか、コメントを一時的に表示させればいいんだ。
やれやれ
目次からページ番号を記録しておいて、掲載順の自動計算、過去の掲載順・ページの推移をグラフ化、その他メモ情報をコメント化、等をちまちま記入していた作業の自動化に一段落がついた。最初はセルに直接入力していた作業を、入力補助用Formをつくり、ある程度自動化できていたんだけど、どうしてもやり方がわからない処理(コメントの動的追加&追加コメントの自動サイズ設定:ON)が残っていた。
けど、やっと出来た~~~!そうよ、エクセルなんだから、マクロで自分の操作を記録させ、そのマクロを起点にして調べればいいんだよな。コメントの動的追加は、range.addComment でいいとして、コメントの自動サイズ設定は
.Comment.Visible = True 'コメントをSelectするために一時的にVisible
.Comment.Shape.Select
Selection.AutoSize = True
.Comment.Visible = False 'Visible解除
これで、できた!そうか、コメントを一時的に表示させればいいんだ。
やれやれ