ＶＢＡでの計算後のセルに２重線で囲む

質問

まだＰＣ・ＶＢＡ不慣れな為、実行できないので、教えてください。
ｃ１６セルに休日を入力すると無理つぶしは成功しましたが、ｃ１６セルに祭日を入力すると赤の２重線で囲みたいのですが、できませんので、方法をお願いします。
もう１点がＣＥＬＬＳ・ＲＡＮＧＥを使った２種類の方法をお願いします。
よろしくお願いします。

Sub 練習44()
Dim kyuyo As Currency
If Range("ｃ16").Value = "祭日" Then
Worksheets("練習1If～Then").Cells(16, 3).xlDouble.ColorIndex = 3
ElseIf Range("ｃ16").Value = "休日" Then
Worksheets("練習1If～Then").Cells(16, 3).Interior.ColorIndex = 5
Else
Worksheets("練習1If～Then").Cells(16, 3).Interior.ColorIndex = 10
End If
End Sub

回答No.2

imogasi · ベストアンサー

下記を参考に
Sub 練習44()
Dim kyuyo As Currency
With Worksheets("Sheet1")
If .Range("C16").Value = "祭日" Then
.Cells(16, 3).Interior.ColorIndex = 7
.Cells(16, 3).BorderAround xlDouble, xlThick
ElseIf .Range("ｃ16").Value = "休日" Then
.Cells(16, 3).Interior.ColorIndex = 6
.Cells(16, 3).Borders.LineStyle = xlLineStyleNone
Else
.Cells(16, 3).Borders.LineStyle = xlLineStyleNone
.Cells(16, 3).Interior.ColorIndex = 8 'Blue
End If
End With
End Sub
ーー
VBAの本を勉強し始めてすぐという感じ。
（１）Sheet1にしたのは普通の回答者がすぐテストしやすいように。
練習1If～Thenのような奇異な名前は、質問するときに変えるように。
（２）色を変えたのは、質問のままだと、セルの値が見えなくなるから。
（３）Withを使って、セルの表現の短縮化と明確化
Range("ｃ16").は練習1If～Thenシートのセルかな。
（４）２重罫線消しは、必要な気がして入れた。次ぎの月などに
使うとき？
（５）").Cells(16, 3).xlDouble.ColorIndex = 3
は全く予想外。２重罫線の解説にそんなコードは載って無いでしょう。

お礼

遅くなりました。
まだまだ勉強不足ですが、またよろしくお願いします。

回答No.1

olive_surf

こんにちは。

やり方はいくつかありますが、下記は1例です。

If Range("c16").Value = "祭日" Then
　　Range("c16").Borders.LineStyle = xlDouble
　　Range("c16").Borders.ColorIndex = 3
End If

cellsを使いたい場合は、2,3行目を下記に変えてください。

Cells(16, 3).Borders.LineStyle = xlDouble
Cells(16, 3).Borders.ColorIndex = 3

ではでは。