coafort

¦^´_  coafort

Â÷¶}[AR212:AR219,AX212:AZ219] ³o¨Ç½d³ò¤~·|«ì´_­ì©³¦â
Andy2483 µoªí©ó 2024-2-2 16:05

©³¦â¶]¥hAJ¨ºÃä¥h¤F
ÁÂÁ¤j¤j

Andy2483

¦^´_ 24# coafort

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

coafort

¦^´_  coafort

Option Explicit '¡ö³o¬O°»´ú©Ò¨Ï¥ÎªºÅܼƦ³¨S¦³°µ«Å§i,­n©ñ³Ì¤W­±
Dim Brr '¡ö³o¬O¦P¼Ò ...
Andy2483 µoªí©ó 2024-2-2 15:52

³ø§i¤j¤j¡AÂ÷¶}«á¶À¦â©³¤£·|®ø¥¢
ÁÂÁ¤j¤j

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

coafort

¦^´_  coafort

·s¼Wµ{¦¡½X¨ì­ì¦³µ{¦¡½X¸Ì»Ý­n¾ã²z¤@¤U,½Ð§â¾ã­Ó¤u§@ªí¼Ò²Õ¸Ìªºµ{¦¡½X¶K¤W¨Ó
Andy2483 µoªí©ó 2024-2-2 14:17

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
'¡ô¥H¤U¬OÃö©óÀx¦s®æ½s¿èIJµoªºµ{§Ç
     If .Count > 1 Or .Item(1) = "" Then Exit Sub
     '¡ô¦pªGIJµo®æ¼Æ¶q¤j©ó 1 ©ÎIJµo®æªº¤U¤è®æ¬OªÅ¥Õ!´Nµ²§ôµ{¦¡°õ¦æ
     If Not Intersect([AR212:AR219,AX212:AX219,AD222,AF222], .Cells) Is Nothing Then
     '¡ô¦pªGIJµo®æ¬O¦b[A2:A2]Àx¦s®æ¸Ì??
        .Cells(1, 2) = Val(.Cells(1, 2)) + Val(.Value)
       '¡ô¥OIJµo®æªº¥kÃ䨺1®æªº­È + (IJµo®æ­È¥HVal ¨ç¼ÆÂà¤Æ¦^¶Çªº¼Æ­È)
        
        'IJµo®æ¥»¨­¬O.Cells(1,1), ¥k°¼1®æ¬O.Cells(1,2), ¥ª°¼1®æ¬O.Cells(1,0),
        '¤W¤è1®æ¬O.Cells(0,1), ¤U¤è1®æ¬O.Cells(2,1)
        
        .ClearContents
        '¡ô²M°£Ä²µo®æªº¤º®e
        '¦¹²M°£ªºµ{§Ç¦A¦¸ªºÄ²µo¤F,¦ý¬O .Item(1) = "" ©Ò¥Hµ²§ôµ{¦¡°õ¦æ
     End If
End With
End Sub

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a As Range, b As Range, c As Range
With Target
   Set b = [AG212:AG219,AF212:AF219]
   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

ÁÂÁ¤j¤j
:D

Andy2483

¦^´_ 20# coafort

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

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

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

¦^´_  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

¦^´_ 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