±ø½X¿é¤J°ÝÃD

baa168

½Ð±Ð¦U¦ì¥ý¶i:
     baa¨Ï¥Îbarcode reader±N±ø½X¸ê®Æ±½¦Üexcel DÄ椺¡A¸ê®Æ¬O±½¶i¥h¤]Åã¥Ü¦bCÄæ¤F..¦ý¬O
        «oµLªk¦bBÄæÅã¥Ü¤µ¤Ñ¤é´Á¡ACÄæÅã¥Ü¿é¤J®É¶¡¡A
        ¨Ï¥ÎÁä½LKEYIN¤è¦¡«h¥i¥H¹F¦¨»Ý¨D....
     ¤£ª¾¬O§_¬°Äæ¦ì®æ¦¡³]©w¦³»~¥ç©Î¬O¨ä¥¦°ÝÃD¡AÁٽЦU¦ì¥ý¶i¨ó§U...

µ{¦¡½X¦p¤U:
Private Sub worksheet_change(ByVal Target As Range)
       On Error GoTo errhander
    If Target.Column <> 4 Then Exit Sub
    If Target.Offset(, 1) <> "" Then
       Target.Offset(, -1) = Time
       Target.Offset(, -2) = Date
       End If
       Exit Sub
errhander:
   End Sub

baa168

µLªk¨Ï¥ÎWorksheet_Calculate
¤£ª¾¬O§_¬°¨Ï¥Î¤èªk¿ù»~

Private Sub Worksheet_Calculate(ByVal Target As Range)

On Error GoTo errhander
    If Target.Column <> 4 Then Exit Sub
    If Target.Offset(, 1) <> "" Then
       Target.Offset(, -1) = Time
       Target.Offset(, -2) = Date
       End If
       Exit Sub
errhander:

End Sub

baa168

Baa ³Ì«á¬O¨Ï¥Î
Private Sub worksheet_change(ByVal Target As Range)
    On Error GoTo errhander
    If Target.Column <> 4 Then Exit Sub
    If Target.Offset(, 0) <> "" Then
       Target.Offset(, -1) = Time
       Target.Offset(, -2) = Date
       End If
       Exit Sub
errhander:
End Sub
¨ä¹ê¤]¤£ª¾¹D¬°¤°»ò¬ðµM¥i¥H¤F»¡....

baa168

¹ï¤º...¯u¬O°ª¤â¨Óªº....·PÁ¸ѵª