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

[µo°Ý] ½Ð±Ð¤@¤U¶]°j°é¦p¦ó¨Ï¥Î¨ä¥LXLS

[µo°Ý] ½Ð±Ð¤@¤U¶]°j°é¦p¦ó¨Ï¥Î¨ä¥LXLS

¦pÃD¡G§Ú¼g¤F¤@­Ó²³æªºVBA¦ý¬Oµo²{¥u­n¶}©l¶]°j°é®É¡A´N¤£¯à¶}¨ä¥LXLSÀÉ»P¦Û¤vÀɪº¨ä¥Lsheets
Private Sub CommandButton1_Click()
Do While Range("B2") = 1
Range("A1") = Range("A2")
DoEvents
Loop
End Sub

½Ð±Ð¦U¦ì¥ý¶i¦p¦ó¦b¶]°j°é®ÉÁÙ¥i¥H¥Î¨ä¥LªºEXCELÀÉ»P½s¿è¦Û¤v¨ä¥Lªº¬¡­¶
YOYO

¥i¥H§r¡A¥u¬O§@¨ä¥L¾Þ§@®Éµ{¦¡·|°±¤î¹B§@¡C¦^¨Ó¥²¶·¦A«ö¤@¦¸¡C

TOP

¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁª©¥D´£¨Ñªº³sµ²,¦ý§ÚÁÙ¬O­è¨Óªº"¤p¾Ç¥Í"©Ò¥Hªþ¥ó¤£¯à¤U¸ü
YOYO

TOP

¦^´_ 1# yanto913
«ü©ú¬O­þ¤@­ÓWorkBooks("xxx.xls").Sheets("xxx") ¸Õ¸Õ¬Ý
Private Sub CommandButton1_Click()
Do While WorkBooks("xxx.xls").Sheets("xxx").Range("B2") = 1
WorkBooks("xxx.xls").Sheets("xxx").Range("A1") = WorkBooks("xxx.xls").Sheets("xxx").Range("A2")
DoEvents
Loop
End Sub

TOP

GBKEEª©¤j
§Ú¸Õ¹L¤F¡A¥i¬O¤´µM¤£¯à¶}±Ò¨ä¥LEXCELÀÉ­C¡I
YOYO

TOP

§Ú¸Õ¹L¥i¥Hªº¡C
¶}¥»¬¡­¶Ã¯ªº a.gif ¨ä¥L¤u§@ªí©Î¥t¶}·sÀɳ£¨S°ÝÃD¡C

TOP

§Ú±Nµ{¦¡­×§ï¦¨¦p¤U¡Aµ²ªGµ{¦¡Åܦ¨¤£¯à¶]¤F¡A¦Ó¥B¦b¥¼­×§ï«e¥i¥H¶]¨â­Óµ{¦¡¡A¦ý¶}±Ò¨ä¥LEXCELÀÉ«áµ{¦¡·|Åܦ¨¶]¨ì¥t¤@­Ó·sEXCEL°µ¹Bºâ(ex,¶]¨ìbook2.xls¤¤°µ­p¼Æ)
Option Explicit
Declare Function SetTimer _
    Lib "user32" ( _
        ByVal hWnd As Long, _
        ByVal nIDEvent As Long, _
        ByVal uElapse As Long, _
        ByVal lpTimerFunc As Long) _
As Long
Declare Function KillTimer _
    Lib "user32" ( _
        ByVal hWnd As Long, _
        ByVal nIDEvent As Long) _
As Long
'EXCELµøµ¡ªºhandle, id³]¬°1, ¨C 0.2¬í°õ¦æ1¦¸Asubµ{§Ç
Sub StartAsub()
    SetTimer Application.hWnd, 1, 200, AddressOf Asub
End Sub
Sub StopAsub()
    KillTimer Application.hWnd, 1
End Sub
Sub StartBsub()
    SetTimer Application.hWnd, 2, 500, AddressOf Bsub
End Sub
Sub StopBsub()
    KillTimer Application.hWnd, 2
End Sub
Sub Asub()
With ActiveSheet.Workbooks("book1.xls").Sheets("sheet1").Range("a1")
    .Value = .Value + 1
End With
End Sub
Sub Bsub()
With ActiveSheet.Workbooks("book1.xls").Sheets("sheet1").Range("b1")
    .Value = .Value + 1
End With
End Sub
YOYO

TOP

¦^´_ 8# yanto913
With ActiveSheet.Workbooks("book1.xls").Sheets("sheet1").Range("b1")
»yªk¿ù»~  ½Ð¥h±¼ ActiveSheet.

TOP

ª©¤j­Ì¡A¥h±¼ ActiveSheet.¡A¥i¥H¶}¦ý¬O·|µo¥Í
1.·íSheet1¸õ¨ìSheet2¨S°ÝÃD¡ASheet2¦A¸õ¨ìSheet3´N·|¿ù»~¤F
2.·í­n½s¿èÀx¦s®æ®É¤]·|µo¥Í¿ù»~(A1¤´¦b­p¼Æ¤¤)
YOYO

TOP

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD