エクセルのVBAについて教えてください！

質問

VBAの初心者です。
罫線に関するマクロで、以下のようなマクロを作りました。
このマクロを改造して、外枠全体に関して同じことができるように
したくていろいろ試してみたのですが、どうしてもできません。
非常に初歩的な質問で申し訳ありませんが、よろしくお願い致します。

Sub 罫線右()
With Selection
If .Borders(xlEdgeRight).LineStyle = xlNone Then
.Borders(xlEdgeRight).LineStyle = xlContinuous
Exit Sub
End If
If .Borders(xlEdgeRight).LineStyle = xlContinuous And .Borders(xlEdgeRight).Weight = xlThin Then
.Borders(xlEdgeRight).Weight = xlHairline
Exit Sub
Else
.Borders(xlEdgeRight).LineStyle = xlNone
End If
End With
End Sub

回答No.4

TON-KATSU

ANo.3 です。
私が一部理解していない部分があったので、
記述してみたらそれほど簡単には済まなくなってしまいましたが…以下に書いてみます。

==============================================

'(1)選んだセルの外枠に罫線が引かれていなければ、細線を引く。
'(2)選んだセルの外枠に細線が引かれていれば、極細線を引く。
'(3)それ以外であれば、セルの罫線を削除する。

Sub subA()

With Selection

'(1)選んだセルの外枠に罫線が引かれていなければ、細線を引く。
If .Borders(xlEdgeLeft).LineStyle = xlNone _
And .Borders(xlEdgeLeft).weight = xlThin _
And .Borders(xlEdgeTop).LineStyle = xlNone _
And .Borders(xlEdgeBottom).LineStyle = xlNone _
And .Borders(xlEdgeRight).LineStyle = xlNone Then

Call funcA(xlContinuous) ' ---- Ｘ
Call funcB(xlThin)

'(2)選んだセルの外枠に罫線が引かれていて、かつ細線であれば、極細線を引く。
ElseIf .Borders(xlEdgeLeft).weight = xlThin _
And .Borders(xlEdgeTop).weight = xlThin _
And .Borders(xlEdgeBottom).weight = xlThin _
And .Borders(xlEdgeRight).weight = xlThin Then

Call funcA(xlContinuous)
Call funcB(xlHairline)

'(3)それ以外であれば、セルの罫線を削除する。
Else

Call funcA(xlNone)

End If

End With
End Sub

'こちらは罫線を引くだけの処理
'罫線の種類は SubA の方から引き継ぐ。
Private Function funcA(vLine As Variant)
With Selection
.Borders(xlEdgeLeft).LineStyle = vLine
.Borders(xlEdgeTop).LineStyle = vLine
.Borders(xlEdgeBottom).LineStyle = vLine
.Borders(xlEdgeRight).LineStyle = vLine
End With
End Function

'こちらは罫線の太さを設定するだけの処理
'罫線の太さは SubA の方から引き継ぐ。
Private Function funcB(vWeight As Variant)
With Selection
.Borders(xlEdgeLeft).weight = vWeight
.Borders(xlEdgeTop).weight = vWeight
.Borders(xlEdgeBottom).weight = vWeight
.Borders(xlEdgeRight).weight = vWeight
End With
End Function

==============================================

これを、コピペしても動きます。
「Function Aを呼び出す」というのは要するにマクロを2つ作って
「マクロ1の中でマクロ2を呼び出す」という動きをさせます。
ここでは条件分岐のSubAの中で、罫線を引くFuncAと罫線の太さを決めるFuncBを使っています。
こういう書き方をすると応用や修正が楽で便利です。
たとえば条件(1)について、罫線はxlContinuousではなくxlDashにしようとした時、
途中のＸ部分の行を「Call funcA(xlDash)」に書き換えるだけで済むからです。
また、セルの左側だけに罫線を引くようにしたい時は
FuncAとFuncBの中を「.Borders(xlEdgeLeft).LineStyle = vLine」のみにすれば済みます。

特に分岐条件をたくさん増やそうと思った時には
こういう記述をしないと、ものすごい行数になってしまうので。。。

回答No.3

TON-KATSU

ANo.1 です。

補足で記述していただいた構文ですが
◎If ～ Then の間に「And」あるいは「Or」がないですよ？
◎また、変な所に「Exit Sub」が入っています。通常Exit Subは一番最後に１つあるべきです。
◎さらに途中の「End If」は「ElseIf」ではないかと思います。

以上を修正してもダメでしょうか？お試しください。

個人的には条件分岐のサブルーチン（Sub A）と
罫線を引くファンクション（Function A）とに処理を分け、
Sub Aの中でFunction Aを呼び出す形にしたいところです。
必要であれば記述しますが…

補足

返信が遅くなってしまい申し訳ありません。
ご回答をもとに下記の通り手直しをしたところ、無事動きました！！
ありがとうございます！！

なお、「Function Aを呼び出す形」というのが知識不足でよくわから
なかったため、よろしければ記述をお願いできますでしょうか？

Sub 罫線外枠()
With Selection
If .Borders(xlEdgeLeft).LineStyle = xlNone And _
.Borders(xlEdgeTop).LineStyle = xlNone And _
.Borders(xlEdgeBottom).LineStyle = xlNone And _
.Borders(xlEdgeRight).LineStyle = xlNone Then
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
ElseIf .Borders(xlEdgeLeft).Weight = xlThin And _
.Borders(xlEdgeTop).Weight = xlThin And _
.Borders(xlEdgeBottom).Weight = xlThin And _
.Borders(xlEdgeRight).Weight = xlThin Then
.Borders(xlEdgeLeft).Weight = xlHairline
.Borders(xlEdgeTop).Weight = xlHairline
.Borders(xlEdgeBottom).Weight = xlHairline
.Borders(xlEdgeRight).Weight = xlHairline
Else
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
End If
End With
End Sub

回答No.2

don9don9

例えばですが、選択したセルが
・上は細線
・右は極細線
・左と下は罫線なし
のような場合は、どのような結果にしたいのですか？
・上を極細線にし、右の極細線を消し、左と下は細線を引く
・全てを細線で囲む
・全てを極細線で囲む
・全ての罫線を消す
などが考えられますが。

補足

返信が遅くなってしまい申し訳ありませんでした。
ご回答の件に関しまして、実はあまり深く考えておりませんでした。
考えた末、

・上は細線
・右は極細線
・左と下は罫線なし

の場合は

・全ての罫線を消す

にしようと考えています。ご指摘ありがとうございました。

回答No.1

TON-KATSU

マクロの記録ボタンは使ってみたんでしょうか？

エクセルメニューで
表示＞ツールバー＞VisualBasic
を選択するとマクロ関連のバーが表示されます。
赤丸のボタン（マクロの記録）を押してOKとすると、マクロ記録状態になります。
ここで１セルを選択して外枠を囲む罫線を引きます。
そしてさっきのボタン部分が四角（記録終了）になっていますので
それを押すとそこまでの動作をすべて記録します。
【注意】あらゆる動作がすべて記録されるので、余計なクリックなどは控えましょう。

これでVBエディタを見てみるとさっきの動作が
マクロとして記述されているはずです。

キレイな構文ではないですが、参考になると思います。

補足

ご回答ありがとうございます。
マクロの記録ボタンについては一応存じておりまして、マクロを作成
する際には必ず自動記録を実行してからそれを細工しております。

ただ、今回のマクロはセルの状態を判別して、状態によって異なる結果を
返すマクロにしたいと考えておりますので、自動記録だけでは限界がある
のかなと考えております。

ちなみに「質問」にあるマクロは、下記のような処理をしております。

　　もし選んだセルの右側に罫線が引かれていなければ、細線を引く。
　　もし選んだセルの右側に極細線が引かれていれば、極細線を引く。
　　それ以外であれば、セルの右側の罫線を削除する。

この内容の「右側」を「外枠」に変えたく、まさに自動記録を参考にして
初めは下記のようなマクロを作ったのですが構文エラーが出てしまい、
自分自身では解決できずに質問させていただいた次第です。

Sub 罫線右()
With Selection
If .Borders(xlEdgeLeft).LineStyle = xlNone
　　.Borders(xlEdgeTop).LineStyle = xlNone
　　.Borders(xlEdgeBottom).LineStyle = xlNone
　　.Borders(xlEdgeRight).LineStyle = xlNone　Then
　　　.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
　Exit Sub
End If　.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeLeft).Weight = xlThin
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeBottom).Weight = xlThin
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlEdgeRight).Weight = xlThin　Then
　 　　　.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeLeft).Weight = xlHairline
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeTop).Weight = xlHairline
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeBottom).Weight = xlHairline
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlEdgeRight).Weight = xlHairline
　Exit Sub
Else
　　.Borders(xlEdgeLeft).LineStyle = xlNone
　　.Borders(xlEdgeTop).LineStyle = xlNone
　　.Borders(xlEdgeBottom).LineStyle = xlNone
　　.Borders(xlEdgeRight).LineStyle = xlNone
End If
End With
End Sub