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

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

samwang

¦^´_ 6# av8d

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

samwang

¦^´_ 12# av8d


¦pªþ¥ó½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁ¡C

samwang

¦^´_ 14# av8d

¤£¦n·N«ä¡A§ó·s¤@¤U±z­ì¨Óªºµ{¦¡½Xªº¤@¨Ç¦a¤è¦p¤U¬õ¦r¡A¤£ª¾¬O§_§ó²Å¦X±z»Ý¨D? ½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Public Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xA As Range, xR As Range
Call ÃC¦â
Set xA = [A4:G1000]
If Target.Column = 3 Then
    'Set xA = [A4:G1000]
    xA.Interior.Pattern = 0
    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 = GBY
            Else
                Cells(xR.Row, 3).Interior.Color = GBY
            End If
        End If
    Next
Else
    xA.Interior.Pattern = 0
End If
End Sub

samwang

¦^´_ 17# av8d


¥\¯à¥¿±`¡A¤£ª¾¹D±zªº°ÝÃD¦b­þ¸Ì? ÁÂÁÂ

samwang

¦^´_ 17# av8d


½Ð°Ý¯à§_¦b²K¥[¤å¦r®É¡A¤]¸Ó®æ²K¥[ÃC¦â¡H
>> ¸Ó®æ²K¥[ÃC¦â³o­Ó¦b13#À³¸Ó´N¬O§A­nªº¡A¥t¥~¥Î§A´£¨ÑªºÀɮפw­×§ï§¹¦¨¦pªþ¥ó¡A½Ð½T»{¬O§_±zªº»Ý¨D¡AÁÂÁÂ

samwang

¦^´_ 21# av8d


    ¤£¯àºô©³Åܦâ¡A³æ¤@¤å¦rÅܦâ¤]¬O§Úªº¥Ø¼Ð¡A
>> ±zªº»Ý¨D¬O¦rÅé§ïÃC¦â¡A¤£¬OÀx¦s®æ¥[ÃC¦â(©³¦â)¡A¤£ª¾§Úªº²z¸Ñ¬O§_¥¿½T¡AÁÂÁ¡C

samwang

¦^´_ 24# av8d


If Intersect(xA, Target) Is Nothing Then Exit Sub
³o¬qªº·N«ä¬O¡H
>> ¥i¥H§Q¥ÎF1¬d¸ß¡AIntersect: ·|¶Ç¦^¥Nªí¨â­Ó©Î¦h­Ó½d³òªº¯x§Î¥æ¶°ªº Range ª«¥ó¡C ¦pªG«ü©wªº¤@­Ó©Î¦h­Ó½d³ò¨Ó¦Û¤£¦Pªº¤u§@ªí¡A«h·|¶Ç¦^¿ù»~¡C
©Ò¥H¦p¹L¿ï¾Ü¬OTarget:3 col¦ý¨S¦³¦bxA½d³ò´NÂ÷¶}   

samwang

¦^´_ 28# av8d

¬O§_§ó¦nªº¼gªkÅý¦bComboBox1ÅܰʮɡA­ìÅܦ⪺Àx¦s®æ©Î¦CÅܦâ©O¡H
>>¤£¦n·N«ä¡A²×©ó¤F¸Ñ±zªº»Ý¨D¡A¦pªþ¥ó½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ