ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¿é¤JªÑ¼Æ¦Û°ÊÂà¦s

[µo°Ý] ¿é¤JªÑ¼Æ¦Û°ÊÂà¦s

¥»©«³Ì«á¥Ñ owen9399 ©ó 2012-3-6 17:19 ½s¿è

dear ¦U¦ì¤j¤j:

·í ¿é¤JªÑ¼Æ ¤p©ó 5000ªÑ®É ,¦Û°ÊÂà¦s©ó sheet3
¦Ó¥B ¥÷¼Æ¬°0 ,±i¼Æªº­È ¤£·|©ó ¥÷¼Æ¬Û¦P


·í ¿é¤JªÑ¼Æ ¤j©ó©Îµ¥©ó5000ªÑ®É ,¦Û°ÊÂà¦s©ó sheet2
±i¼Æªº­È µ¥©ó ¥÷¼Æªº­È


ÁÂÁÂ

¿é¤JªÑ¼Æ¦Û°ÊÂà¦s.rar (2.57 KB)

owen

¦^´_ 1# owen9399
  1. Sub ¿é¤J()
  2. If [D2] >= 5000 Then
  3.    With Sheets("Sheet2")
  4.      LR2 = .[A65536].End(xlUp).Row + 1
  5.      Sheets("Sheet1").[A2:F2].Copy .Cells(LR2, "A")
  6.      .Cells(LR2, "E") = .Cells(LR2, "C")
  7.    End With
  8. Else
  9.    With Sheets("Sheet3")
  10.      LR3 = .[A65536].End(xlUp).Row + 1
  11.      Sheets("Sheet1").[A2:F2].Copy .Cells(LR3, "A")
  12.      .Cells(LR3, "E") = 0
  13.    End With
  14. End If
  15. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# register313


    ÁÂÁ¤j¤j

   ½Ð°Ý ¿é¤J«á¦p¦ó ¦p¦ó¦Û°Ê²M°£ sheet1 ªº¤º®e
owen

TOP

¦^´_ 3# owen9399
  1. Sub ¿é¤J()
  2. If [D2] >= 5000 Then
  3.    With Sheets("Sheet2")
  4.      LR2 = .[A65536].End(xlUp).Row + 1
  5.      Sheets("Sheet1").[A2:F2].Copy .Cells(LR2, "A")
  6.      .Cells(LR2, "E") = .Cells(LR2, "C")
  7.    End With
  8. Else
  9.    With Sheets("Sheet3")
  10.      LR3 = .[A65536].End(xlUp).Row + 1
  11.      Sheets("Sheet1").[A2:F2].Copy .Cells(LR3, "A")
  12.      .Cells(LR3, "E") = 0
  13.    End With
  14. End If
  15. Sheets("Sheet1").[A2:F2] = ""
  16. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# register313


    ·PÁ¤j¤jªº«ü¾É :)
owen

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD