Excelで自動的に罫線を引く

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

□
　□

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

No.3 ベストアンサー 回答者： taocat 回答日時： 2006/04/23 01:30

こんばんは。

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

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

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

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

以上です。

この回答へのお礼

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

お礼日時：2006/04/23 04:28

No.2 回答者： zap35 回答日時： 2006/04/22 23:34

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

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

ではどうですか。

この回答へのお礼

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

お礼日時：2006/04/23 04:29

No.1 回答者： papayuka 回答日時： 2006/04/22 22:18

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