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

½Ð°Ý¦p¦ó¦sÀÉ

½Ð°Ý¦p¦ó¦sÀÉ

³Ìªñ¦³¶K§O¤H¼gªºexcel ¸Ì­±¼gªºvbaªºµ{¦¡
¦ý¬O«Ü©Çªº¬O¶K¤F¤§«á
³£¥i¥H¶]
¦ý¬O¦s§¹Àɤ§«á
¤U¦¸¦b¶}ªº®É­Ôµo²{µ{¦¡½X¤S¤£¨£¤F
¤j¤j§iª¾¤@¤U¬°¤°»ò³£¦s¤£°_¨Ó
·PÁÂ

§Úªº¦sÀÉÃþ«¬¦p¤U
Microsoft Office Excel ¤u§@ªí

TOP

¦^´_ 5# GBKEE

ªO¥D§A¦n
³o¬O§Ú­n¶Kªºµ{¦¡½X

    Sub SyncData()

    On Error GoTo ErrorHandler
   
    Dim i As Integer
    Dim j As Integer
   
    If Not ((Sheet1.Cells(10, 3) = "13:44:59") Or (Sheet1.Cells(10, 3) = "13:45:00")) Then
   
        i = Round(DateDiff("s", TimeValue("09:00:00"), TimeValue(Sheet1.Cells(3, 3))) / 60 / 5, 0) + 1
        Do While (Sheet3.Cells(i, 1) <> "")
        
            If (Sheet3.Cells(i, 1) = Mid(Sheet1.Cells(3, 3), 1, 5)) Then
                Sheet3.Cells(i, 2) = Sheet1.Cells(20, 3)
                Sheet3.Cells(i, 3) = Sheet1.Cells(7, 3)
                Exit Do
            End If
            
            i = i + 1
        Loop
        
        i = Round(DateDiff("s", TimeValue("09:00:00"), TimeValue(Sheet1.Cells(3, 3))) / 60, 0) + 1
        j = i
        Do While (Sheet3.Cells(i, 6) <> "")
        
            If (Sheet3.Cells(i, 6) = Mid(Sheet1.Cells(3, 3), 1, 5)) Then
                Sheet3.Cells(i, 7) = Sheet1.Cells(4, 3)
                Sheet3.Cells(i, 8) = Sheet1.Cells(11, 3)
                Exit Do
            End If
            
            i = i + 1
        Loop
        
        If (InStr(5, Sheet1.Cells(10, 3), ":30") > 0) Then
            ActiveWorkbook.Save
        End If
   
    End If
   
    Exit Sub
   
ErrorHandler:
   
    'MsgBox "eMail to E.Y. ~ " + Err.Description
   
End Sub


Sub EraseData()
   
    Sheet3.Activate
   
    Sheet3.Range("B2:C55").Select
    Selection.ClearContents
   
    Sheet3.Range("G2:H271").Select
    Selection.ClearContents
   
    Sheet1.Activate

    ActiveWorkbook.Save

End Sub

TOP

¦^´_ 6# mark15jill


   ·PÁÂ
  ¤w¦sÀɦ¨¥\
  ­ì¨Ó­n¦s¦¨ Microsoft Office Excel ±Ò¥Î¥¨¶°ªº¤u§@ªí
  ¤~¯à¦sÀÉ

TOP

¦^´_ 9# mark15jill


    ·PÁ¤À¨É
   ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD