[µo°Ý] °Ý¤@¤U¦p¦ó°µ§Y®É¸ê®Æ §Ú³o­Ó¥u¯à1¬í¶]1¦¸ µLªk1¬í¤º¦hµ§

h713107

°Ý¤@¤U¦p¦ó°µ§Y®É¸ê®Æ §Ú³o­Ó¥u¯à1¬í¶]1¦¸ µLªk1¬í¤º¦hµ§
¼Æ¾Ú¤@ÅÜ°Ê´N°O¿ý Ä´¦p1¬í¤º°Ê¤F3¦¸´N°O¿ý3¦¸ ¸÷¨D¤j¤j
[sourcecode language=¡¨csharp¡¨]
Sub Atimer()
    Dim T As Date

    If uMode = "Start" Then
        T = Now  '¨ú±o²{¦b®É¶¡
        If clsPrice <> Cells(2, 15).Select Then
            clsPrice = Cells(2, 15).Select
            Sheets(1).[A65536].End(xlUp).Offset(1).Resize(, 32) = Sheets(1).[A2:AF2].Value
        End If
        Application.OnTime T + TimeValue("00:00:01"), "Atimer"  '³o¬O¥H1¬í´ú¸Õ
End If
End Sub
[/sourcecode]