2019-06-13から1日間の記事一覧

15年前に書いたマクロ

ふとした偶然から、私が15年ほど前に書いたマクロが目に留まった。 恐ろしいことに、今も使われているらしい。恥を忍んで、ここに再現しよう。 Sub 全角文字変換() Dim 全角文字 As String Do Until ActiveCell.Value = "" 全角文字 = ActiveCell.Value 全…