Andy2483

¦^´_ 1# coafort
¤u§@ªí¼Ò²Õ¤U´Ó¤J:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
   If Replace(Split(.Address, "$")(1), ":", "") = "AR" Then
      Me.UsedRange.EntireColumn.Interior.ColorIndex = xlNone
      '¡ô¥O¥»ªí¨Ï¥Î®æªº¾ãÄ橳¦â¬°µL¦â
      .Offset(, -11).Interior.ColorIndex = 6
      '¡ô¥O¤@¶}©l¿ï¨ú®æ¬OARÄæÀx¦s®æ½d³òªº¥ª°¼11ÄæÀx¦s®æ©³¦â¬O¶À¦â
   End If
End With
End Sub

Andy2483

¦^´_ 3# coafort

¤u§@ªí¼Ò²Õ¤U´Ó¤J:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
   If Replace(Split(.Address, "$")(1), ":", "") = "AR" Then
      .Offset(, -11).EntireColumn.Interior.ColorIndex = xlNone
      '¡ô¥OAGÄæ¾ãÄ橳¦â¬°µL¦â
      .Offset(, -11).Interior.ColorIndex = 6
      '¡ô¥O¤@¶}©l¿ï¨ú®æ¬OARÄæÀx¦s®æ½d³òªº¥ª°¼11ÄæÀx¦s®æ©³¦â¬O¶À¦â
   End If
End With
End Sub

Andy2483

¦^´_ 5# coafort

¤u§@ªí¼Ò²Õ¤U´Ó¤J:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
   If Replace(Split(.Address, "$")(1), ":", "") = "AR" Then
      .Offset(, -11).Interior.ColorIndex = 6
      '¡ô¥O¤@¶}©l¿ï¨ú®æ¬OARÄæÀx¦s®æ½d³òªº¥ª°¼11ÄæÀx¦s®æ©³¦â¬O¶À¦â
   End If
End With
End Sub

Andy2483

¦^´_ 7# coafort


Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a as Range
With Target
   For Each a in Intersect([AG:AG],Me.UsedRange)
      If a.interior.Colorindex=6 Then a.interior.colorindex=xlnone
   Next
   If Replace(Split(.Address, "$")(1), ":", "") = "AR" Then
      .Offset(, -11).Interior.ColorIndex = 6
      '¡ô¥O¤@¶}©l¿ï¨ú®æ¬OARÄæÀx¦s®æ½d³òªº¥ª°¼11ÄæÀx¦s®æ©³¦â¬O¶À¦â
   End If
End With
End Sub

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

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

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

Andy2483

¦^´_ 20# coafort

·s¼Wµ{¦¡½X¨ì­ì¦³µ{¦¡½X¸Ì»Ý­n¾ã²z¤@¤U,½Ð§â¾ã­Ó¤u§@ªí¼Ò²Õ¸Ìªºµ{¦¡½X¶K¤W¨Ó

Andy2483

¦^´_ 22# coafort

Option Explicit '¡ö³o¬O°»´ú©Ò¨Ï¥ÎªºÅܼƦ³¨S¦³°µ«Å§i,­n©ñ³Ì¤W­±
Dim Brr '¡ö³o¬O¦P¼Ò²Õ¦@¥ÎÅܼƭn©ñ²Ä2¦æ
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
     If .Count > 1 Or .Item(1) = "" Then Exit Sub
     If Not Intersect([AR212:AR219,AX212:AX219,AD222,AF222], .Cells) Is Nothing Then
        .Cells(1, 2) = Val(.Cells(1, 2)) + Val(.Value)
        .ClearContents
     End If
End With
End Sub

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

Andy2483

¦^´_ 24# coafort

Â÷¶}[AR212:AR219,AX212:AZ219] ³o¨Ç½d³ò¤~·|«ì´_­ì©³¦â