yen956

¦^´_ 5# peter95
¸Õ¸Õ¬Ý!
±N
     [A17].Resize(1, 4).Copy sh3.Cells(LastR, 1)
§ï¦¨      
     [A17].Resize(1, 4).Copy
        sh3.Cells(LastR, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False

©Î
±N¾ã­ÓWorksheet_Change()§R°£
§ï¦¨
Private Sub Worksheet_Calculate()
    Dim Rng As Range, LastR As Integer, sh3 As Object
    Set sh3 = Sheets("Sheet3")
    LastR = sh3.[A65536].End(xlUp).Row + 1       '¨ú±o "Sheet3" ÄæA³Ì¤U­±«DªÅ¥Õ®æªº¤U¤@®æ ªº¦C¸¹
    If [C13] > 50 Then
        [A17].Resize(1, 4).Copy
        sh3.Cells(LastR, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    End If
End Sub
¸Õ¸Õ¬Ý!

peter95

¸Õ¸Õ¬Ý!
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rng As Range, LastR As Integer, sh3 As Object
    Set sh3 = Sheets("Sheet3")
    Set Rng = [C13]       '³]©w [C13] ¬° Worksheet_ChangeIJ°Ê½d³ò
    LastR = sh3.[A65536].End(xlUp).Row + 1       '¨ú±o ÄæA³Ì¤U­±«DªÅ¥Õ®æªº¤U¤@®æ ªº¦C¸¹
    If Not Intersect(Target, Rng) Is Nothing And Rng.Value > 50 Then
        [A17].Resize(1, 4).Select
        [A17].Resize(1, 4).Copy sh3.Cells(LastR, 1)
    End If
End Sub
yen956 µoªí©ó 2017-2-18 12:33

~~~~~~~~~~~~~~~~~~~~~~~
·PÁ  yen956 ¤j¤jªº¼ö±¡¦^ÂÐ

§Ú¬O·Q­n ±NA17:19 ½Æ»s¨ìSHEET3

¦]¬°§Ú°õ¦æ¤j¤jVBA «á
¥L·|±NA17:19  ¥Î¤½¦¡ªº¤è¦¡ COPY ¨ì SHEET3 ¥h

¥i¥H±NCOPY §e²{¥X §Ú­nªº¤è¦¡¶Ü??

¦A¦¸·PÁ yen956 ¤j¤j¼ö±¡ªºÀ°¦£
ÁÂÁ§A

¤U¸ü (161.38 KB)

2017-2-19 20:03

¤U¸ü (238.18 KB)

2017-2-19 20:03

¤U¸ü (205.08 KB)

2017-2-19 20:03

¤p§Ì ±N§Úªº Àɮתþ¤W ½Ð¤j¤j ¦bÀ°§Ú¬Ý¬Ý
Book2----.rar (8.07 KB)

¤U¸ü¦¸¼Æ: 4

2017-2-19 20:04

yen956

Private Sub Worksheet_Change(ByVal Target As Range)
    '°²©w "C13" ªº¤½¦¡¬° =[A1]+[B1]+[E1]
    '«h Change ªº Target ¬° [A1] or [B1] or [E1]
    Dim Rng As Range, LastR As Integer, sh3 As Object
    Set sh3 = Sheets("Sheet3")
    Set Rng = Union([A1:B1], [E1])      '³]©w Worksheet_ChangeIJ°Ê½d³ò(»P¤½¦¡¦³ÃöªºRange­n¥þ³¡©ñ¶i¥h)
    LastR = sh3.[A65536].End(xlUp).Row + 1       '¨ú±o "Sheet3" ÄæA³Ì¤U­±«DªÅ¥Õ®æªº¤U¤@®æ ªº¦C¸¹
    If Not Intersect(Target, Rng) Is Nothing Then
        If [C13] > 50 Then
            [A17].Resize(1, 4).Select
            [A17].Resize(1, 4).Copy sh3.Cells(LastR, 1)
        End If
    End If
End Sub

peter95

¸Õ¸Õ¬Ý!
¤U¦CVBA©ñ¨ìSheet1("Sheet2")ªºvba¤¤,
¤£­n©ñModule1¤¤
yen956 µoªí©ó 2017-2-18 12:33

·PÁ¤j¤j
¥Ø«ecopy¹L¨Óªº¬O¤½¦¡
¦Ó¤£¬O­È

¥i¥Hcopy­È¹L¨Ó¶Ü

·PÁ¦A·PÁÂ

yen956

¸Õ¸Õ¬Ý!
¤U¦CVBA©ñ¨ìSheet1("Sheet2")ªºvba¤¤,
¤£­n©ñModule1¤¤

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim Rng As Range, LastR As Integer, sh3 As Object
   
3.     Set sh3 = Sheets("Sheet3")
   
4.     Set Rng = [C13]       '³]©w [C13] ¬° Worksheet_ChangeIJ°Ê½d³ò
   
5.     LastR = sh3.[A65536].End(xlUp).Row + 1       '¨ú±o ÄæA³Ì¤U­±«DªÅ¥Õ®æªº¤U¤@®æ ªº¦C¸¹
   
6.     If Not Intersect(Target, Rng) Is Nothing And Rng.Value > 50 Then
   
7.         [A17].Resize(1, 4).Select
   
8.         [A17].Resize(1, 4).Copy sh3.Cells(LastR, 1)
   
9.     End If
   
10. End Sub

½Æ»s¥N½X