□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| 条件で罫線色を変える | |
|---|---|
[194931] 条件で罫線色を変える- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ ハープーン -(2022/05/25(21:19)) □U R L/ 条件付きで罫線種を変えずに色だけを変える方法がありますか。 どなたか教えて下さい。 例）A1セルにA社、B社、C社･･･と文字がVLOOKUP関数で変わる。 B3からE6の外枠が黒の太線 B3からE6の内線が黒の細線 通常上記の罫線が引かれており、例えばD社になった時だけ線種を変えずに白色に 変え、次のE社になればまた元の黒色に変わるようなことを教えて下さい。 お願いいたします。 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ | |
[194933] Re[1]: 条件で罫線色を変える- ■記事引用/メール受信=OFF■ □投稿者/ kazuo -(2022/05/26(15:50)) □U R L/ Private Sub Macro1()
Dim color As Long
color = IIf(CStr(Range("A1").Value) = "D社", vbWhite, vbBlack)
With Range("B3:E6")
.Borders(xlInsideVertical).color = color
.Borders(xlInsideHorizontal).color = color
.Borders(xlEdgeBottom).color = color
.Borders(xlEdgeRight).color = color
.Borders(xlEdgeTop).color = color
.Borders(xlEdgeLeft).color = color
End With
End Sub
Private Sub Worksheet_Calculate()
Static s As String
Dim ss As String
ss = CStr(Range("A1").Value)
If ss <> s Then
s = ss
Macro1
End If
End Sub
excel2016この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |