エクセルVBA 作動させる度に罫線の種類を変える

質問

エクセル（2007）　VBAで、マクロを作動させる度に選択した範囲の
罫線を変更したく、下記のようなマクロを組みましたが1種類の線しか書けません。。。

どのように修正すればよいか教えて頂きたいです。
何卒宜しくお願い致します。

-----------------------------------
Sub 罫線チェンジ()

Select Case ActiveCell.Borders.LineStyle

Case xlContinuous
Selection.Borders.LineStyle = xlHairline

Case xlHairline
Selection.Borders.LineStyle = xlDot

Case xlDot
Selection.Borders.LineStyle = xlDouble

Case xlDouble
Selection.Borders.LineStyle = xlNone

Case Else
Selection.Borders.LineStyle = xlContinuous

End Select

End Sub
-----------------------------------

回答No.2

keithin · ベストアンサー

オブジェクトブラウザでそれぞれの定数の値を調べて比較してください。

Sub 罫線チェンジ()

Select Case ActiveCell.Borders.LineStyle

Case 1
Selection.Borders.LineStyle = xlDash

Case -4115
Selection.Borders.LineStyle = xlDot

Case -4118
Selection.Borders.LineStyle = xlDouble

Case -4119
Selection.Borders.LineStyle = xlNone

Case Else
Selection.Borders.LineStyle = xlContinuous

End Select

End Sub

＃なお，xlhairlineはラインスタイルじゃありません。

お礼

ご回答ありがとうございます。
また、コードをご丁寧に書いて頂きありがとうございます。

”ラインスタイルの定数を指定する”
大変勉強になりました。やりたかったことができました！！

また、xlhairlineはラインスタイルではないとも教えて頂き
ありがとうございます。大変失礼いたしました。

回答No.1

akina_line

こんにちは。

　上記のマクロで二重線が消えるのは確認できました。
　マクロをステップ実行して、どのケース文に飛ぶか確認してみたらどうでしょう。

では。

お礼

ご回答ありがとうございます。
私の知識が足りなすぎて、ひとつひとつ見てみても、
何が間違っているのかが理解できませんでした。。。。。

勉強になるようにヒントを教えていただきありがとうございます。
マクロのステップ実行という方法を初めて知ることができました。
今まで「End」で区切っていたので、次からは「F8」で確認します！！