dポイントプレゼントキャンペーン実施中！

【VBA】結合セルの罫線処理について

解決済

  • 質問者：SSCA
  • 質問日時：
  • 回答数：2件

VBAの罫線処理についての質問です。
下のgif画像のような表で特定範囲のセルが空白以外のところに実線、中太線の罫線を引きたいと思い、次のようなコードを作成しましたが、結合セルの部分だけうまくいきません。

※ボタン1を押すと実行します。
Sub 外枠()
For Each c In Range("D4:J67")
If c.Value <> "" Then
With c.Borders
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
End If
Next
End Sub

結合セルの存在する表でこの操作を実現させることができないでしょうか。
ご回答のほどよろしくお願いします。

「【VBA】結合セルの罫線処理について」の質問画像

質問者からの補足コメント

  • 実行結果は補足画像の通りです。

    「【VBA】結合セルの罫線処理について」の補足画像1
      補足日時：2021/01/15 09:58
    通報する

  • 回答ありがとうございます。結合セルの部分だけ上手くいきません。
    結合されていない部分は思ったように動いています。

    No.1の回答に寄せられた補足コメントです。 補足日時：2021/01/15 10:00
    通報する
通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (2件)

No.2ベストアンサー

  • 回答者： fujillin
  • 回答日時：

こんにちは



＞With c.Borders
を
　With c.MergeArea.Borders
にしてみたら？
    • good
    • 1
    • 件
通報する
この回答へのお礼

上手く動作しました。ご回答ありがとうございました。

通報する
お礼日時：2021/01/15 10:44

No.1

結合セルだけの場合、上手くいくの？

この回答への補足あり
    • good
    • 0
    • 件
通報する

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

ページトップページトップ

Q質問する（無料）

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報