[µo°Ý] Ãö©ó¿ï¨úÀx¦s®æ«á¡A¸Ó¦C½d³òÅܦâ¡A¥X²{¦ì²¾¡C

av8d

¦U¦ì«e½ú­Ì¦n¡A
³o­ì¬O¥Ñ¾ã¦CÅܦâ§ï¼g¦Ó¦¨¡A¦ý¨S§ï¦¨¥\¡Aºô¸ô¤WÁÙ¦b§V¤O·j´M¤¤¡A
¿ù»~ªº³¡¤À¬O¡G
·í§Ú¿ï¨úC4®É¡A¸Ó¬OA4:G4Åܦâ
«h¥X²{¦ì²¾¦¨A7:G7

·í§Ú¿ï¨úC5®É¡A¸Ó¬OA5:G5Åܦâ
«h¥X²{¦ì²¾¦¨A9:G9

·í§Ú¿ï¨úC6®É¡A¸Ó¬OA6:G6Åܦâ
«h¥X²{¦ì²¾¦¨A11:G11

¦b¦¹¥ý¨D§U«e½ú­Ì¡A´M¨D¸Ñµª¡I·PÁ¸U¤À¡I½Ð¤U¸üªþ¥ó¡C
°ÝÃD.rar (39.31 KB)

¤U¸ü¦¸¼Æ: 9

2021-9-3 21:11

samwang

¦^´_ 1# av8d

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xA As Range, xR As Range
Cells.Interior.Pattern = 0
If Target.Column = 3 Then
    Set xA = [A4:G1000]
    If Intersect(xA, Target) Is Nothing Then Exit Sub
    For Each xR In xA.Rows
        If Not Intersect(xR, Target) Is Nothing Then xR.Interior.Color = RGB(240, 255, 240)
    Next
End If
End Sub

av8d

¦^´_ 2# samwang

·PÁ«e½ú¤j¤j°²¤é©âªÅ§¹¦¨¤F§Úªº·Ð´o¡A¯uªº¬O«Ü¼F®`¡AÁÂÁ±z¡I

av8d

¦^´_ 2# samwang

¤£¦n·N«ä¡A·Q¦A½Ð±Ð«e½ú¤j¤j¡A
¦pªG¬OªÅ¥Õ¡A§ï¬°³æ¤@Àx¦s®æÅܦâ¡A¸Ó¦p¦ó§ï¼g¡HÁÂÁ¡C

samwang

¦^´_  samwang

¤£¦n·N«ä¡A·Q¦A½Ð±Ð«e½ú¤j¤j¡A
¦pªG¬OªÅ¥Õ¡A§ï¬°³æ¤@Àx¦s®æÅܦâ¡A¸Ó¦p¦ó§ï¼g¡HÁÂÁ¡C
av8d µoªí©ó 2021-9-5 01:22

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xA As Range, xR As Range
Set xA = [A1:XFD65536] '³]©w½d³ò
If Intersect(xA, Target) Is Nothing Then Exit Sub
xA.Interior.ColorIndex = 0
Intersect(Target, xA).Interior.Color = RGB(255, 255, 0)
End Sub

av8d

¦^´_ 5# samwang


ÁÂÁ«e½ú°²¤é©âªÅ¨ó§U¡A§Ú·N«ä¬O¬J¦³ªº±¡ªp(Àx¦s®æ¦³«h½d³ò¦CÅܦâ¡AµL«h³æ¤@Àx¦s®æÅܦâ)
§Ú­×§ï¤F«e½úªºµ{¦¡½X«á¬°
If Intersect(xA, Target) Is Nothing Then
    xA.Interior.ColorIndex = 0
    Intersect(Target, xA).Interior.Color = RGB(240, 255, 240)
Else
    For Each xR In xA.Rows
        If Not Intersect(xR, Target) Is Nothing Then xR.Interior.Color = RGB(240, 255, 240)
    Next
End If
¦ý¬O¥\¯àÁÙ¬O¥u¦³½d³òÅܦâ¡A¨S¦³³æ¤@Àx¦s®æÅܦâ¡A¨ü¯q¨}¦h¡AÁÂÁ«e½ú¡C

quickfixer

¦^´_ 6# av8d


    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xA As Range, xR As Range
Cells.Interior.Pattern = 0
If Target.Column = 3 Then
    Set xA = [A4:G1000]
    If Intersect(xA, Target) Is Nothing Then Exit Sub
    For Each xR In xA.Rows
        If Not Intersect(xR, Target) Is Nothing Then
            If Cells(xR.Row, 3) <> "" Then
                xR.Interior.Color = RGB(240, 255, 240)
            Else
                Cells(xR.Row, 3).Interior.Color = RGB(200, 200, 240)
            End If
        End If
    Next
End If
End Sub

samwang

¦^´_ 6# av8d

¤£¦n·N«ä¡A¥i§_»¡©ú¸Ô²Ó¤@ÂI©Î¹ê»Ú½d¨Ò¡AÁÂÁÂ

av8d

¦^´_ 7# quickfixer
¦^´_ 8# samwang

ÁÂÁ«e½ú­Ì¡A§Ú§â§Ú§ï¼g«áªºÀɮפW¶Ç¡A½Ð¹L¥Ø¡C
°ÝÃD©µ¦ù.rar (36.28 KB)

¤U¸ü¦¸¼Æ: 3

2021-9-6 00:03

§ï¼g«á¾Þ§@¤è¦¡
·íÂIC4®É¡AA4:G4Åܦâ¡A¥¿½T¡C
·íÂIC5®É¡AA5:G5Åܦâ¡A¥¿½T¡C
·íÂIC6®É¡AC6³æ¤@®æÅܦâ¡A¥¿½T¡C
¨ì³o¸Ì­ì¥H¬°§ï¼g§¹¦¨¡A³£¥¿½T¤F¡A¦ý¬O«áÄò¾Þ§@µo²{¡õ

·íÂIC5¨Ã§R°£«á¡AÂIC6«h·|Åܦ¨A6:G6Åܦâ¡A¿ù»~¡AÀ³¬°C6³æ¤@®æÅܦâ¡C
¦AÂI¦^C5¡AA5:G5Åܦâ¡A¿ù»~¡AÀ³¬°C5³æ¤@®æÅܦâ¡C(¦]¬°C5­è¤w§R°£¡A©Ò¥H¬OªÅ¥Õªºª¬ºA)

¥i¯à§Ú§ï¼g¿ù¤F¡AÁٽЫe½ú­Ì§ó¥¿¡A·P¿E¤£ºÉ¡C

quickfixer

¦^´_ 9# av8d


    §Ú¨Ï¥Îsamwangªºµ{¦¡½X,¦b#7§ï¼gªº,¥Î§Aªº»¡©ú¾Þ§@,¨S°ÝÃD

­n§R°£«á¥ß¨èÅܦâ,¦b#7¦h¥[¤J¤U­±3¦æ
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 Then Call Worksheet_SelectionChange(Target)
End Sub