Infoment https://blog.hatena.ne.jp/Infoment/ Infomentのブログ ～Excel VBA奮闘記～ https://infoment.hatenablog.com/ Excel VBA ユーザー定義関数 ふとした偶然から、私が１５年ほど前に書いたマクロが目に留まった。 恐ろしいことに、今も使われているらしい。恥を忍んで、ここに再現しよう。 Sub 全角文字変換() Dim 全角文字 As String Do Until ActiveCell.Value = "" 全角文字 = ActiveCell.Value 全角文字 = StrConv(全角文字, vbWide) ActiveCell.Value = 全角文字 ActiveCell.Offset(1, 0).Activate Loop End Sub ちなみに、「半角文字変換」も存在する。字下げも何もしていない。アクティブなセルから、わき目… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Finfoment.hatenablog.com%2Fentry%2F2019%2F06%2F13%2F214343" title="15年前に書いたマクロ - Infomentのブログ ～Excel VBA奮闘記～" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> https://cdn.blog.st-hatena.com/images/theme/og-image-1500.png Hatena Blog https://hatena.blog 2019-06-13 21:43:43 rich https://infoment.hatenablog.com/entry/2019/06/13/214343 1.0 100%