coafort

¦^´_  coafort


Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
D ...
Andy2483 µoªí©ó 2024-2-1 19:54

¯u¬O¤Ó·PÁ¤j¤j
¥i¥H¤F
½Ð°Ý¤j¤j
¦pªG§Ú­nºë½T¤@ÂI
µJÂI¦bAR212¦ÜAR219¤ÎAX212¦ÜAZ219
Åܦ⪺¦a¤è¬OAJ212¦ÜAJ219
½Ð°Ý¸Ó«ç»ò°µ©O¡HÁÂÁ¤j¤j

coafort

¦^´_  quickfixer


    ¸Ó¦ì§@ªÌªºµ{¦¡½X¦³2­Ó°ÝÃD

µ{¦¡°õ¦æ¤¤,µLªk­×§ïÃC¦â
µ{¦¡¶}ÀY¥[¤Jif, cc  ...
quickfixer µoªí©ó 2024-2-2 07:54

ÁÂÁ¤j¤j
°õ¦æ«á¥X²{¿ù»~

quickfixer

¦^´_ 12# coafort

Option Explicit ¨º¦æ§R±¼©Î¬O¥[¤W     dim cc as string,nr as integer

Andy2483

¦^´_ 11# coafort
½Ð«e½ú¸Õ¸Õ¬Ý¥H¤U®ÄªG¬O§_¾A¦X
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a As Range, b As Range, c As Range
With Target
   Set b = [AJ212:AJ219]
   Set c = [AR212:AR219,AX212:AZ219]
   For Each a In b
      If a.Interior.ColorIndex = 6 Then a.Interior.ColorIndex = xlNone
   Next
   Set c = Intersect(.Cells, c)
   If Not c Is Nothing Then Intersect(c.EntireRow, b).Interior.ColorIndex = 6
End With
End Sub

coafort

¦^´_  coafort

Option Explicit ¨º¦æ§R±¼©Î¬O¥[¤W     dim cc as string,nr as integer
quickfixer µoªí©ó 2024-2-2 08:16

Åܦ¨ÂI¿ïªºÅܦâ@@
¤£¬O§Ú­nªº
¨ÌµM·PÁ¤j¤j

coafort

¦^´_  coafort
½Ð«e½ú¸Õ¸Õ¬Ý¥H¤U®ÄªG¬O§_¾A¦X
Option Explicit
Private Sub Worksheet_SelectionChange ...
Andy2483 µoªí©ó 2024-2-2 09:05

ǢǢ
·PÁ¤j¤j
¥i¥H¤F­C
ÆgÆgÆg

Andy2483

¦^´_ 16# coafort
ÁÂÁ½׾Â,ÁÂÁ«e½úÅý«á¾Ç¾Ç¨ì«Ü¦hª¾ÃÑ
¥H¤U¬O«á¾Ç°w¹ï[AJ212:AJ219]¦pªG­ì¨Ó¦³©³¦â,¦ý¬O¿ï¨ú[AR212:AR219,AX212:AZ219]¤§«áÅܶÀ¦â,²¾¶}¤§«á¯à«ì´_­ì¨Ó©³¦âªº¤è®×
­ì¨Ó©³¦â:

¤U¸ü (32.42 KB)

2024-2-2 11:19

¿ï¨ú«áÅܶÀ¦â:

¤U¸ü (32.86 KB)

2024-2-2 11:20

²¾¶}«á«ì´_­ì¦â:

¤U¸ü (32.42 KB)

2024-2-2 11:22

Option Explicit
Dim Brr
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim b As Range, c As Range, i&
With Target
   Set b = [AJ212:AJ219]: Set c = [AR212:AR219,AX212:AZ219]
   If Not IsArray(Brr) Then Brr = b: For i = 1 To UBound(Brr): Brr(i, 1) = b(i).Interior.ColorIndex: Next
   Set c = Intersect(.Cells, c)
   If Not c Is Nothing Then
      Intersect(c.EntireRow, b).Interior.ColorIndex = 6
      Else
      For i = 1 To UBound(Brr)
         If b(i).Interior.ColorIndex = 6 Then b(i).Interior.ColorIndex = Brr(i, 1)
      Next
      Brr = Empty
   End If
End With
End Sub

coafort

¦^´_  coafort
ÁÂÁ½׾Â,ÁÂÁ«e½úÅý«á¾Ç¾Ç¨ì«Ü¦hª¾ÃÑ
¥H¤U¬O«á¾Ç°w¹ï[AJ212:AJ219]¦pªG­ì¨Ó¦³©³¦â,¦ý¬O¿ï ...
Andy2483 µoªí©ó 2024-2-2 11:20

³ø§i¤j¤j
¥X²{¿ù»~
²Ó²Ó¤j¤j

Andy2483

¦^´_ 18# coafort

¬O¦â®t?ÁÙ¬O°»¿ù?
¦AÂǦ¹©«¾Ç²ßRGB,¾Ç²ß¤è®×¦p¤U:

Option Explicit
Dim Brr
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim b As Range, c As Range, i&
With Target
   Set b = [AJ212:AJ219]: Set c = [AR212:AR219,AX212:AZ219]
   If Not IsArray(Brr) Then
      ReDim Brr(1 To b.Count, 1 To 3)
      For i = 1 To UBound(Brr)
         Brr(i, 1) = b(i).Interior.Color Mod 256
         Brr(i, 2) = b(i).Interior.Color \ 256 Mod 256
         Brr(i, 3) = b(i).Interior.Color \ 256 ^ 2 Mod 256
      Next
   End If
   Set c = Intersect(.Cells, c)
   If Not c Is Nothing Then
      Intersect(c.EntireRow, b).Interior.Color = RGB(255, 255, 0) '¶À¦â
      Else
      For i = 1 To UBound(Brr)
         If b(i).Interior.Color = RGB(255, 255, 0) Then b(i).Interior.Color = RGB(Brr(i, 1), Brr(i, 2), Brr(i, 3))
      Next
      Brr = Empty
   End If
End With
End Sub

coafort

¤U¸ü (328.09 KB)

2024-2-2 14:01

¦^´_  coafort

¬O¦â®t?ÁÙ¬O°»¿ù?
¦AÂǦ¹©«¾Ç²ßRGB,¾Ç²ß¤è®×¦p¤U:

Option Explicit
Dim Brr
Priv ...
Andy2483 µoªí©ó 2024-2-2 13:37

³ø§i¤j¤j
¬O°»¿ù
ÁÂÁ¤j¤j