• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:マクロでマスを作成)

マクロを使用して指定された数のマスを作成する方法

このQ&Aのポイント
  • マクロを使用して、入力された数のマスを作成する方法について説明します。
  • 具体的には、マクロを使って、指定された数のマスを作成する方法について説明します。最大で20列のマスを作成することができます。
  • また、60個以上のマスの場合は、さらに追加の列も作成することができます。マスの作成には、マクロ内の特定のコードを使用します。

質問者が選んだベストアンサー

  • ベストアンサー
  • watabe007
  • ベストアンサー率62% (476/760)
回答No.1

>(1)A1には作成したいマスの数が入力される >(2)B1~B20に(1)で入力された数の□(しかく)で囲まれたマスが出来る A1に記入された数だけB1~のセルを罫線で囲むのなら Sub Test()   Dim 商 As Long   Dim 余 As Long   商 = (Range("A1").Value - 1) \ 20   余 = (Range("A1").Value - 1) Mod 20 + 1   If 商 = 0 Then     Range("B1").Resize(余).Borders.LineStyle = xlContinuous   Else     Range("B1").Resize(20, 商).Borders.LineStyle = xlContinuous     Range("B1").Offset(, 商).Resize(余).Borders.LineStyle = xlContinuous   End If End Sub

hrgc
質問者

補足

回答ありがとうございます。 訂正があります。 B1~B20ではなく、B2~T2で□(しかく)を囲みたいのですが、 お手数ですが教えていただけますか?

その他の回答 (1)

  • watabe007
  • ベストアンサー率62% (476/760)
回答No.2

>B1~B20ではなく、B2~T2で□(しかく)を囲みたいのですが、 Range("B2").Resize(, 19).Borders.LineStyle = xlContinuous これ、応用できませんか

hrgc
質問者

お礼

ありがとうございました

関連するQ&A

専門家に質問してみよう