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

[µo°Ý] ¨D±ÐExcel ¦Û°Ê°O¿ý

¦^´_ 1# solitary16


    Sub test()

If (Cells(1, 3) = "") Then
    Cells(1, 3) = Cells(1, 1)
ElseIf (Cells(2, 3) = "") Then
    Cells(2, 3) = Cells(1, 1)
Else
    startrow = Range("c1").End(xlDown).Row + 1
    Cells(startrow, 3) = Cells(1, 1)
End If

Application.OnTime Now + TimeValue("00:01:00"), "test"

End Sub

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD