- ©«¤l
- 522
- ¥DÃD
- 36
- ºëµØ
- 1
- ¿n¤À
- 603
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp sp3
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-12-13
- ³Ì«áµn¿ý
- 2021-7-11
|
¦^´_ 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
¸Õ¸Õ¬Ý! |
|