Andy2483

¦^´_ 20# coafort

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

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

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

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

¦^´_ 24# coafort

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

coafort

¦^´_  coafort

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

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

Andy2483

¦^´_ 26# coafort

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

­ì¨Ó´N¬OAJÄæÅܦâ,¦³·|¿ù·N¶Ü?

coafort

¦^´_ 27# Andy2483

§Ú»¡¿ù¤F
À³¸Ó¬O»¡
¶À©³·|²Ö­p¤£·|®ø¥¢
°£«DÂ÷¶}´å¼ÐÀx¦s®æ
ÁÂÁ¤j¤j

­ã´£³¡ªL

§Q¥Î®æ¦¡±ø¥óÅܦâ//«O¯d­ì¦³®æ¦¡

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xA As Range, xB As Range, X As Range, R&
Set xA = [AR212:AR219,AX212:AZ219]
Set xB = [AJ212:AJ219]
With Target
     If xB.FormatConditions.Count Then xB.FormatConditions.Delete
     If .Count > 1 Then Exit Sub
     Set X = Intersect(.Cells, xA)
     If X Is Nothing Then Exit Sub
     R = X.Row - xA.Item(1).Row + 1
     With xB.Item(R).FormatConditions
          .Add Type:=xlCellValue, Operator:=xlNotEqual, Formula1:="=""^_^"""
          .Item(1).Interior.ColorIndex = 6
     End With
End With
End Sub

­ã´£³¡ªL

¦^´_ 1# coafort


µo°Ý®É, ½Ð¤W¶ÇÀɮרüÒÀÀµ²ªG, ­YµLªk¤W¶ÇÀÉ®×, ¤]¥i¶K¹Ï¤W¨Ó!!!
°ÝÃD´y­z¤@©w­n§¹¾ã¥B¨ì¦ì, ¤£­nÅý¸ÑµªªÌ¤@§ï¦A§ï, ªá¶O¤Ó¦h®É¶¡~~