Infoment https://blog.hatena.ne.jp/Infoment/ Infomentのブログ ～Excel VBA奮闘記～ https://infoment.hatenablog.com/ Excel VBA 作ってみた 昨日は参加人数に合わせて、一回戦から優勝までの人名記入用セルを配置した。 infoment.hatenablog.com今日は、この箱を罫線で縦横つなぐことに挑戦する。 さて、まず横の線だが、これは名前のセルを結合する前に引いておくことにした。 次いで、昨日のコードに「縦線」描画のループを追加する。 Sub Sample() Cells.Clear ' トーナメント参加者リスト。 ' ※シート１のなんちゃって個人情報を参照。 ' ※この時点では、50人決め打ち。 Dim arr() As Variant arr = Sheet1.Range("B2:B51").Value ' 参加者人数から、… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Finfoment.hatenablog.com%2Fentry%2F2019%2F10%2F15%2F213044" title="トーナメント作成　③ 箱を罫線で繋ぐ - 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/20191015/20191015184418.png Hatena Blog https://hatena.blog 2019-10-15 21:30:44 rich https://infoment.hatenablog.com/entry/2019/10/15/213044 1.0 100%