エクセルの表の外枠を２重線で固定したい。

行を挿入して改ページになっても自動で２重線にしたいのですが
何か方法はありますか？
色々調べたんですが分からず教えてほしいです

No.2 回答者： tom04 回答日時： 2013/02/09 00:47

こんばんは！

ご希望に添えるかどうかわかりませんが・・・

範囲が判らないので、A1セル～A列データが入力された行のF列までを
格子線・外枠二重線になるようにしてみました。
VBAになってしまいますが、
画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてデータを入力・または行挿入してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
Dim i As Long
If Application.Intersect(Target, Range("A:A")) Is Nothing Or Target.Count <> 1 Then Exit Sub
Application.ScreenUpdating = False
ActiveSheet.Cells.Borders.LineStyle = xlNone
i = Cells(Rows.Count, 1).End(xlUp).Row
With Cells(1, 1).Resize(i, 6) '←A1～A列データがあるF列の範囲
.Borders(xlEdgeTop).LineStyle = xlDouble
.Borders(xlBottom).LineStyle = xlDouble
.Borders(xlLeft).LineStyle = xlDouble
.Borders(xlRight).LineStyle = xlDouble
With .Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With .Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
End With
End With
Application.ScreenUpdating = True
End Sub 'この行まで

※　A列データ変更時のみマクロが実行されるようにしています。

ご希望の方法でなかったらごめんなさいね。m(_ _)m

No.1 回答者： keithin 回答日時： 2013/02/08 18:24

いいえ、ありません。

諦めて今出来ているように、ページ設定のシートタブで枠線のチェックを入れて、中太一本線で我慢して使ってください。