• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:EXCEL VBA4行毎に枠で囲みたい)

EXCEL VBAで4行毎に枠で囲む方法

このQ&Aのポイント
  • Excel VBAを使用して、表の特定の範囲を4行毎に枠で囲む方法について教えてください。
  • 提供されたコードは正しく動作せず、修正方法を教えていただきたいです。
  • 環境はExcel 2003およびWindows XP SP3です。

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

  • ベストアンサー
  • mt2008
  • ベストアンサー率52% (885/1701)
回答No.2

提示された図では3行でまとめられた個所もあるようですが、4行で良いのですよね? For Next のStep処理で4行ごとに処理を行いましょう。 Sub Sample()   Dim i As Long   Dim LastRow As Long      LastRow = Cells(Rows.Count, 1).End(xlUp).Row   For i = 1 To LastRow Step 4     Range("A" & i & ":F" & i + 3).BorderAround Weight:=xlMedium   Next End Sub

yakkun2338
質問者

お礼

mt2008さん、早速のご連絡ありがとうございます! ご教授いただきました方法で出来ました!! 4行毎で間違いありません。(画像の表が間違っていました) この度は本当にありがとうございました!

すると、全ての回答が全文表示されます。

その他の回答 (1)

  • warpspace
  • ベストアンサー率56% (83/147)
回答No.1

カウンタ変数:i を自分で更新しているのが誤りです。 Forループでカウンタ変数の増分を指定する場合は、次のように指定します。  For カウンタ変数 = 初期値 To 繰り返し回数 Step 加算値    繰り返し回数までの処理  Next

すると、全ての回答が全文表示されます。
このQ&Aのポイント
  • 質問者は筆王をインストールしたが起動できず、MSVCR120.dllが見つからないエラーが表示される。
  • 質問者はWindows10を使用しており、筆王の起動エラーについての解決策を求めている。
  • 質問者はソースネクスト株式会社の製品・サービスに関連した質問をしている。
回答を見る

専門家に質問してみよう