- ©«¤l
- 122
- ¥DÃD
- 26
- ºëµØ
- 0
- ¿n¤À
- 148
- ÂI¦W
- 0
- §@·~¨t²Î
- windos10
- ³nÅ骩¥»
- office2016
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2021-7-8
- ³Ì«áµn¿ý
- 2023-8-28
|
¦^´_ 17# cowww
§Ú§â»yªk§ï¦¨³o¼Ë
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
Dim xR As Range, xA As Range, xB As Range
If .Columns.Count = Columns.CountLarge Then Exit Sub
If .Count > 1 Or .Column = 1 Or .Row < 5 Then Exit Sub
Set xR = .Cells: Set xA = Range([B1], Cells(1, Columns.Count)).EntireColumn
Set xB = Range([A5], Cells(Rows.Count, 1)).EntireRow
With Intersect(ActiveSheet.UsedRange, xA, xB)
.Interior.ColorIndex = xlNone
If Range("F2") = "N" Then
Intersect(xR.EntireRow, .Cells).Interior.ColorIndex = 0
Intersect(xR.EntireColumn, .Cells).Interior.ColorIndex = 0
.Interior.ColorIndex = 0
Else
Intersect(xR.EntireRow, .Cells).Interior.ColorIndex = 6
Intersect(xR.EntireColumn, .Cells).Interior.ColorIndex = 6
End If
End With
.Interior.ColorIndex = 4
End With
End Sub
Åܦâ¿ï¾Ü"YES"
Åܦâ¿ï¾Ü"NO"
¦³¿ìªk§â"NO"ªº³æ¤¸Ó©³¦âÅܦ¨ µL¦â ¶Ü? |
|