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

[µo°Ý] ¦p¦óÅý¥¨¶°¤£­nÅܰʧڥ¿¦b¤u§@ªº¤u§@ªíµøµ¡ ??

[µo°Ý] ¦p¦óÅý¥¨¶°¤£­nÅܰʧڥ¿¦b¤u§@ªº¤u§@ªíµøµ¡ ??

¥»©«³Ì«á¥Ñ t8899 ©ó 2013-8-6 06:14 ½s¿è

§Ú¤j³¡¥÷°±¦bSHEET1 ©Î SHEET2¤u§@ªí¤u§@

¤U­±ªº¥¨¶°°õ¦æ§¹·|°±¯d¦bSHEET3,¦p¦ó¸Ñ¨M??
§Ú¥Î Application.ScreenUpdating = False ¨S¦³¿ìªk¸Ñ¨M (°õ¦æ³t«×ÅܧÖ)

Private Sub Worksheet_Calculate()
    If Range("Q10").Value = 1 And flag = True Then
    Range("Q10").Value = 2
    Application.OnTime Now + TimeValue("00:00:15"), "FFF"
    End If
END SUB
'--------------------------------------------------
Sub FFF()
Application.ScreenUpdating = False
Sheets("Sheet3").Select      
    Range("C2:C111").Select
    Selection.Copy
    Range("AC2").Select
'¶K¤W­È»P¼Æ¦r®æ¦¡
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
                     Application.CutCopyMode = False
Sheet4.Range("Q10").Value = 1
                    End Sub

¦^´_ 1# t8899

¤£¥Îselect sheet3,¦ÛµM·|°±¯d¦b­ì³B,¸Õ¸Õ¥H¤U FFF
Sub FFF()
    With Sheets("sheet3")
       .Range("C2:C111").Copy
       .Range("AC2").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
           xlNone, SkipBlanks:=False, Transpose:=False
          Application.CutCopyMode = False
    End With
    Sheet4.Range("Q10").Value = 1
End Sub
lmh

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD