ªð¦^¦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ÁÂ

ÆF²§¨Æ¥ó¡H
¤]³\¶Kªº¦ì¸m¤£¹ï§a¡C

TOP

¦^´_ 1# kimo5566

·Ó¬Ý«Ü¦³¥i¯à¬O¦sÀÉÃþ«¬¤£¹ï,
¸Õ¸Õ¥Î ¥t¦s·sÀÉ
¦sÀÉÃþ«¬¿ï : Microsoft Excel ¬¡­¶Ã¯ (*.xls)
¤£­n¦s¨ä¥L¤£¯àªþ±a¤½¦¡ªºÀÉ®×Ãþ«¬.

TOP

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

TOP

¦^´_ 4# kimo5566
¥i¥H¬Ý¬Ý §AªºVBAµ{¦¡¶Ü?

TOP

¼Ó¥D §A¦sªº¬¡­¶Ã¯Ãþ«¬ ­n ±Ò¥Î¥¨¶°ªº¬¡­¶Ã¯ ³oºØÃþ«¬  0.0
¤£µM¥L¤@·§·|§â¥¨¶°§R°£...
©ÎªÌ¬O  ¥i¥H§â¸Óvbaµ{¦¡ ¶×¥X(µ{¦¡½X¨ºÃä ¿ï¸Óµ{¦¡ ¥kÁä ¶×¥X)

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

¥»©«³Ì«á¥Ñ mark15jill ©ó 2011-5-2 12:08 ½s¿è

¦pªG©È§Ñ°O¦s ©ÎªÌ¬O³QÂл\ªº¸Ü
¤]¬O¥i¥H±N¸Óµ{¦¡ ¿W¥ß¥X¨Ó
³o¼Ë¥H«á¥i¥H²Î¦X...
PS.§Ú´N¬O¨º¼Ë¤l... ³o¼Ë¦pªG­n½Æ¦X¦¡ªº¸Ü ´N¥i¥H§âµ{¦¡ ªF´ê¦è´ê¤F...
     ¦p µ{¦¡1 ¦Û°Ê ¬¡­¶Ã¯¦s¦b»P§_ªº§PÂ_ (§R°£»P§_)
            µ{¦¡2 ¦Û°Ê ¬¡­¶Ã¯¤ºÃöÁä¦r·j´M
            µ{¦¡3 ¦Û°Ê ¬¡­¶Ã¯¤ºÃöÁä¦r´À´«
            µ{¦¡4 ¦Û°Ê ¬¡­¶Ã¯¤ºÄæ¡B¦C®æ¦¡½Õ¾ã
            µ{¦¡5 ¦Û°Ê ¬¡­¶Ã¯¤º¹ï·Ó¦ì¸m
            µ{¦¡6 ¦Û°Ê ¦Û°ÊÀx¦s
³o¼Ë§â¤£¦P¥\¯àªº³æ¤@µ{¦¡¡A ²Î¦Xªº¸Ü¡A¥H«á¦pªG¦³»Ý­n¤W­z6ºØ¥\¯à¡A¥u­n§ï´X­ÓÃöÁ䪺¦a¤è¡A´N¥i¥H«Ü§Ö³t§@·~¡A¤£¥Î¦A¥´¤@¦¸µ{¦¡¤F+.+

TOP

¦^´_ 9# mark15jill


    ·PÁ¤À¨É
   ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD