Excelで自動的に罫線を引く

質問

任意の4つのセルを選択状態にして実行すると、左上と右下のセルが罫線で囲まれるようにしたいのですが。

□
　□

どのようなマクロになるでしょうか？　おわかりの方がいましたら教えて下さい。
尚、4つのセルは常に一つの四角形を形成し、かつ2つの列を使用します。

回答No.3

taocat · ベストアンサー

こんばんは。

下記コードでは選択範囲により罫線が引かれるセルは以下のようになります。

ひとつ選択（Ｂ５）なら、Ｂ５
複数行１列選択（Ｂ５：Ｂ９）なら、Ｂ５とＢ９
１行複数列選択（Ｂ５：Ｆ５）なら、Ｂ５とＦ５
複数行複数列選択（Ｂ５：Ｃ６）なら、Ｂ５とＣ６

----------------------------------------------
Sub Test()
　With Selection
　　　.Cells(1).Borders.LineStyle = xlContinuous
　　　.Cells(.Cells.Count).Borders.LineStyle = xlContinuous
　End With
End Sub
-----------------------------------------------

それからちょと一言。
こういった場合には、No2さんの回答にあるActiveCellを使うと拙い場合があります。
それは範囲選択の仕方によりActiveCellが必ず左上にくるとは限らないからです。

以上です。

お礼

ありがとうございました。

回答No.2

zap35

質問の意味が、例えばａ１：ｂ２を選択したときに、ａ１とｂ２の二つのセルに枠線を描画するということであれば

Sub Wakusen()
Dim RnA As Range
Set RnA = ActiveCell

RnA.Borders(xlEdgeLeft).Weight = xlThin
RnA.Borders(xlEdgeTop).Weight = xlThin
RnA.Borders(xlEdgeRight).Weight = xlThin
RnA.Borders(xlEdgeBottom).Weight = xlThin

RnA.Offset(rowOffset:=1, columnOffset:=1).Borders(xlEdgeLeft).Weight = xlThin
RnA.Offset(rowOffset:=1, columnOffset:=1).Borders(xlEdgeTop).Weight = xlThin
RnA.Offset(rowOffset:=1, columnOffset:=1).Borders(xlEdgeRight).Weight = xlThin
RnA.Offset(rowOffset:=1, columnOffset:=1).Borders(xlEdgeBottom).Weight = xlThin
End Sub

ではどうですか。

お礼

ありがとうございました。

回答No.1

papayuka

セルを選択した状態から、その動作をマクロ記録して出来ませんか？