EXCELの罫線一発での引き方について。

質問

EXCELの罫線一発での引き方について。

例えば、Ａ１、Ｂ１、Ｃ１、Ｂ２の外側に罫線を引きたい時、Ｂ１の内側の罫線を引かずに、
外側にだけ罫線を一発で引きたいです。
例えば、Ａ１、Ａ２、Ａ３、Ｂ２の外側に罫線を引きたい時、Ａ２の内側の罫線を引かずに、
外側にだけ罫線を一発で引きたいです。
例えば、Ｂ１、Ｂ２、Ｂ３、Ａ２の外側に罫線を引きたい時、Ｂ２の内側の罫線を引かずに、
外側にだけ罫線を一発で引きたいです。
上記のように連続して並んでいないセルに対して、このような事は可能でしょうか？。
初歩的な質問で申し訳ありません。
どなたかご教示下さい。
よろしくお願いします。

回答No.6

mt35610 · ベストアンサー

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Selection
'ここにマクロの自動記録で得られたコードを記述
End With
End Sub

お礼

ありがとうございました。
お手数をおかけしました。
超初心者で申し訳ありません。

補足

ありがとうございます。
THISWORKBOOKに下記コピーしてみましたが、ダブルクリックしても動きませんでした。
どこが悪いのでしょうか？。
セル位置は例えです。
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Selection
Range("B2:D2,D3:E3").Select
Range("D3").Activate
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Range("D3").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
End With
End Sub

回答No.5

mt35610

そうなると　ダブルクリックイベントに
Activecellに対する処理としてコードを書き直すか
ユーザーフォームを出現させて処理をそこからできるようにするとか・・

お礼

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

補足

ありがとうございます。
もし、よろしければ、参考など記述頂けるとありがたいのですが・・・。
当方、コード記述などした事が無いものですから。
出来れば、よろしくお願いします。

回答No.4

mt35610

マクロの自動記録を試してみましょう
そうするとコードが自動作成されます
そこにセルの番地が書かれています
この番地を任意の番地に書き換えればいいのです

お礼

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

補足

ありがとうございます。
マクロの記録は出来ました。
但し、常に同じセルを見ている訳ではないので、想定されそうなセル位置のマクロを、
複数作るしか方法が無いのでしょうか？。

回答No.3

arukie

お使いのEXCELのバージョンが判らないので、
出来るかどうか判りませんが。

EXCEL2007ですが、
Ctrlキーを押下しながら、該当セルをクリック。
飛び飛びにセルを指定できます。

最後に指定したセルを右クリックし、
セルの書式設定で罫線タブの外枠をクリックすれば飛び飛びに指定できます。

Shiftキーを押下しながら、広範囲を指定することも可能です。

CtrlキーとShiftキーを使い分けてある程度の範囲指定は可能です。

お礼

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

補足

OFFICE2000を使用しています。
ご教示して頂いた通り出来ましたが、最後の対象セルも外枠が引かれてしまいます。
最後の対象セルの外枠を引かないようには出来ないのでしょうか？。

回答No.2

yamady

対象になるセルをクリックしたあと、Ctrlを押しながらその他のセルをクリック。
で、罫線を引きたいセルを選択して、右クリックから罫線設定・・・でどうでしょう？

お礼

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

補足

Office2000を使用しておりまして、罫線設定が出ないのですが・・・。

「対象になるセルをクリックしたあと、Ctrlを押しながらその他のセルをクリック。
で、罫線を引きたいセルを選択して、」

これは、例えば、Ａ２を選択しておいて、Ａ１、Ｃ１、Ｂ２を選択し、再度Ａ２を選択して、
罫線設定をしなさいと言う意味ですよね？。

回答No.1

mt35610

VBAで対象セルを指定すれば可能です

お礼

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

補足

ありがとうございます。
どのようにすれば良いでしょうか？。
ＶＢＡ超初心者なものですから。