GBKEE

¦^´_ 5# Apple007

¤â°Ê¿é¤J>100®É¬O¥¿±`ªº
·|IJ°Ê Worksheet_change(ByVal Target As Range) ¤u§@ªí¦³­×§ï¨Æ¥óµ{¦¡

½L¤¤³z¹LDDEªº¸ê®Æ¸õ°ÊÅܰʶq(>100®É),Àx¦s®æ¤¤¤½¦¡­ÈªºÅÜ°Ê   
·|IJ°Ê Sub Worksheet_Calculate()    ¤u§@ªí¦³­«ºâ¨Æ¥óµ{¦¡
¸Õ¸Õ¬Ý

1. Dim AR
   
2. Private Sub Worksheet_Calculate()
   
3.     Dim i As Integer
   
4.     i = 2
   
5.     Do While i <= Cells(2, "C").End(xlDown).Row
   
6.         If Not IsError(Cells(i, "C")) Then
   
7.            If Cells(i, "C") > 100 Then
   
8.                 With Sheets("sheet2").[C65535].End(xlUp).Offset(1).Resize(, 3)
   
9.                     If IsEmpty(AR) Then
   
10.                         .Value = Cells(i, "A").Resize(, 3).Value
    
11.                     ElseIf Cells(i, "C") <> AR(i - 1, 1) Then
    
12.                         .Value = Cells(i, "A").Resize(, 3).Value
    
13.                     End If
    
14.                 End With
    
15.             End If
    
16.         End If
    
17.         i = i + 1
    
18.     Loop
    
19.     AR = Range(Cells(2, "C"), Cells(2, "C").End(xlDown))
    
20. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# Apple007
¸Õ¸Õ¬Ý

1. Private Sub Worksheet_Calculate()
   
2.     Dim i As Integer
   
3.     For i = 2 To [C65535].End(xlUp).Row
   
4.         If IsNumeric(Cells(i, "C")) Then
   
5.             If Cells(i, "C") > 100 Then
   
6.                 Sheets("sheet2").[C65535].End(xlUp).Offset(1).Resize(, 3) = Cells(i, "A").Resize(, 3).Value
   
7.             End If
   
8.         End If
   
9.     Next
   
10. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 9# Apple007
¦A¸Õ¸Õ¬Ý

1. Private Sub Worksheet_Calculate()
   
2.     Dim i As Integer
   
3.     For i = 2 To [C65535].End(xlUp).Row
   
4.         If IsNumeric(Cells(i, "C")) Then
   
5.             'CÄ欰¦¨¥æ¶q>100 ,DÄ欰¦¨¥æÁ`¶q > F»²§UÄæ°O¿ý¦¨¥æÁ`¶q(**->¦¨¥æ¶q¦³ÅÜ°Ê**)
   
6.             If Cells(i, "C") > 100 And Cells(i, "D") > Cells(i, "F") Then
   
7.                 Cells(i, "F") = Cells(i, "D")  'F»²§UÄæ°O¿ý¦¨¥æÁ`¶q
   
8.                 Sheets("sheet2").[C65535].End(xlUp).Offset(1).Resize(, 3) = Cells(i, "A").Resize(, 3).Value
   
9.             End If
   
10.         Else  '¬°¶}½L«e²M²zF»²§UÄæ
    
11.             Cells(i, "F") = ""  'F»²§UÄæ°O¿ý¦¨¥æÁ`¶q
    
12.         End If
    
13.     Next
    
14. End Sub

½Æ»s¥N½X