Infoment https://blog.hatena.ne.jp/Infoment/ Infomentのブログ ～Excel VBA奮闘記～ https://infoment.hatenablog.com/ Excel VBA 特定名簿からのトーナメント作成ツールを、少しずつ紹介中。 本日も、昨日の続きから。 今日は、三つに分けたサブプロシージャの最後。 Dim Sh As Worksheet Set Sh = ActiveSheet ' トーナメント作成用シートを変数にセットしてリネーム。 Sh.Name = SheetName ' 各選手の「番号」を、辞書を利用して「人名」に置換。 For Each r In Sh.UsedRange.Columns(1).Cells If r <> vbNullString Then r = PDict(r.Value) End If Next ' 配列内で、選手名が空欄であれ… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Finfoment.hatenablog.com%2Fentry%2F2023%2F05%2F08%2F233705" title="再びトーナメント表作成 ➈-6 特定名簿からの作成 - 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-ak.f.st-hatena.com/images/fotolife/I/Infoment/20230508/20230508232237.jpg Hatena Blog https://hatena.blog 2023-05-08 23:37:05 rich https://infoment.hatenablog.com/entry/2023/05/08/233705 1.0 100%