register313

¦^´_ 1# leefing

1. Sub RR()
   
2. Range(Cells(2, "T"), Cells([A65536].End(xlUp).Row, "U")) = ""
   
3. For X = 2 To [A65536].End(xlUp).Row
   
4.   If Cells(X, "J") >= 10 Then
   
5.      If (Cells(X, "F") = Cells(X, "D")) Then
   
6.        Cells(X, "U") = "ªÅ"
   
7.      End If
   
8.      If (Cells(X, "F") = Cells(X, "E")) Then
   
9.        Cells(X, "T") = "¦h"
   
10.      End If
    
11.      If (Cells(X, "F") > Cells(X, "D")) And (Cells(X, "F") > Cells(X, "E")) Then
    
12.        Cells(X, "T") = Cells(X, "T") & "¦h"
    
13.      End If
    
14.      If (Cells(X, "F") < Cells(X, "D")) And (Cells(X, "F") < Cells(X, "E")) Then
    
15.        Cells(X, "U") = Cells(X, "U") & "ªÅ"
    
16.      End If
    
17.    End If
    
18. Next X

½Æ»s¥N½X

¬O³o¼Ë¶Ü?
¤£¤F¸Ñ ¨C¦¸¥X²{  ´N²Ö¥[¤W¦¸¡A¦Ó¤£·|¨ú¥N±¼?

register313

¦^´_ 3# leefing

¤u§@ªí¼Ò²Õ

1. Private Sub WORKSHEET_CHANGE(ByVal TARGET As Range)
   
2. If TARGET.Address = "$J$2" And Cells(2, "J") >= 10 Then
   
3. X = Cells(2, "U")
   
4. Y = Cells(2, "T")
   
5.   If Cells(2, "J") >= 10 Then
   
6.      If (Cells(2, "F") = Cells(2, "D")) Then
   
7.        Cells(2, "U") = Cells(2, "J") + X
   
8.      End If
   
9.      If (Cells(2, "F") = Cells(2, "E")) Then
   
10.        Cells(2, "T") = Cells(2, "J") + Y
    
11.      End If
    
12.      If (Cells(2, "F") > Cells(2, "D")) And (Cells(2, "F") > Cells(2, "E")) Then
    
13.        Cells(2, "T") = Cells(2, "J") + Y
    
14.      End If
    
15.      If (Cells(2, "F") < Cells(2, "D")) And (Cells(2, "F") < Cells(2, "E")) Then
    
16.        Cells(2, "U") = Cells(2, "J") + X
    
17.      End If
    
18.    End If
    
19. End If
    
20. End Sub

½Æ»s¥N½X

register313

¦^´_ 5# leefing

¤u§@ªí¼Ò²Õ
µ{¦¡¥u·|§@¥Î¦b¸Ó¤u§@ªí
­Y¥t¤@¤u§@ªí¤]¶·¬Û¦P¤§¥\¯à,«h¸Ó¤u§@ªí¼Ò²Õ¤]­n¦³¬Û¦P¤§µ{¦¡

¨Ò
sheet1¤u§@ªí¼Ò²Õ©ñ¤W­z¤§µ{¦¡
sheet2¤u§@ªí¼Ò²Õ©ñ¤W­z¤§µ{¦¡

register313

¦^´_ 7# leefing

¦U¤u§@ªí¼Ò²Õ¤§µ{¦¡¬O¤¬¤£¬Û¤zªº(¿W¥ßªº)
­n¥Î¬Û¦PªºÅܼƦWºÙ¤]¨SÃö«Y

register313

¦^´_ 23# appr

¤U¸ü (132.39 KB)

2012-2-19 23:42

¤u§@ªí¼Ò²Õ

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address = "$A$2" And [A2] <> "" Then
   
3.    [C2] = [C2] + [A2]
   
4.    [A2] = ""
   
5. End If
   
6. If Target.Address = "$B$2" And [B2] <> "" Then
   
7.    [C2] = [C2] - [B2]
   
8.    [B2] = ""
   
9. End If
   
10. End Sub

½Æ»s¥N½X

register313

¦^´_ 26# appr

¤u§@ªí¼Ò²Õ

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Set RngA = Range("A2:A4")
   
3. Set RngB = Range("B2:B4")
   
4. Set RngCA = Intersect(Target, RngA)
   
5. Set RngCS = Intersect(Target, RngB)
   
6. If Not RngCA Is Nothing Then
   
7.    RngCA.Offset(0, 2) = RngCA.Offset(0, 2) + RngCA.Value
   
8.    RngCA.Value = ""
   
9. End If
   
10. If Not RngCS Is Nothing Then
    
11.    RngCS.Offset(0, 1) = RngCS.Offset(0, 1) - RngCS.Value
    
12.    RngCS.Value = ""
    
13. End If
    
14. End Sub

½Æ»s¥N½X

register313

¦^´_ 28# appr

¥u©ñ27#ªºµ{¦¡½X
©ñ¦b¤u§@ªí¼Ò²Õ,¦p¤U¹Ï

¤U¸ü (86.48 KB)

2012-2-21 10:20

ÁÙ¦³°ÝÃDªº¸Ü,½Ð¤W¶ÇÀÉ®×