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

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

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

½Ð±Ð¦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

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

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2011-11-6 21:30 ½s¿è

¦^´_ 7# baa168
³o½gµ{¦¡¤º®e»P­º½g¤ñ¸û«áµo²{¥u®t¤@¦æ¦r :
If Target.Offset(, 1) <> "" Then
Åܦ¨
If Target.Offset(, 0) <> "" Then
§Ú¬O§_¥i¥H²z¸Ñ¦¨°ÝÃDÄpµ²¦b©ó§A­º½g¤¤µ{¦¡ªºÄ²µo±ø¥ó®t¤F¤@­ÓÀx¦s®æªº¦ì²¾,
¾É­P©ó¨S¯à¥¿½Tªº³QIJµo...

TOP

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»¡....

TOP

·PÁ¦U¦ì¥ý¶i¤À¨É..¾Ç²ß¤¤...

TOP

ByVal Target As Range~§R±¼
©³¤UªºTarget³£´«¦¨activecell

TOP

µ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

TOP

¿é¤J±ø½X¦]¨S¦³enterªº°Ê§@¡Aworksheet_change¨Æ¥óµLªkÅTÀ³¡C
§ä­Ó°¾»÷ªºÀx¦s®æ¿é¤J¤½¦¡:=counta(a:e)
³o¼Ë¥u¦³a:eªºÀx¦s®æ¤º®e¦³¼W´î³£·|IJµoWorksheet_Calculate¨Æ¥ó¡C
¥ÎWorksheet_Calculate¨Æ¥ó´N¥i±o¨ìÅTÀ³¤F¡C

TOP

¦^´_ 1# baa168


    §ï¥ÎWorksheet_Calculate¨Æ¥ó¸Õ¸Õ¬Ý
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD