Excelデータに罫線格子を付け保存したい

[s_143ki]

添付の通り、データのあるところのみ、罫線格子を付けたいです。
こちらどのようなアクティビティを使用すれば実現可能でしょうか？

[AshwinS2 (Ashwin S)]

Hi @s_143ki

Use Invoke vba script

and give the code as

Sub RedOutlineCells()
    Dim rng As Range

    Set rng = Range("A1:C3")

    With rng.Borders
        .LineStyle = xlContinuous
        .Color = vbRed
        .Weight = xlThin
    End With
End Sub

Thanks
Ashwin S

[s_143ki]

AshwinS2さん

回答ありがとうございます。
Invoke vbaを使用したことがなく、具体的にどのように実装すればよいか
教えて頂けないでしょうか？

よろしくお願いします。

[Natapong (Natapong Raojutitam)]

@s_143ki さん、

InvokeVBAの使う時は、Excel Application Scopeの中に「Invoke VBA」で作ったVBAファイルを読み込んで、実行します。

InvokeVBA使えるため、Trust Center設定が必要です。

添付ファイルをご参考ください。
SampleInvokeVBA.zip (18.9 KB)

[s_143ki]

@Natapong さん
分かりやすいご説明ありがとうございました！
こちらで一旦試してみます！

[s_143ki]

@Natapong さん

無事解決できました！
ありがとうございました。

[Natapong (Natapong Raojutitam)]

@s_143ki さん、

お役に立てて嬉しいです。