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

[µo°Ý] ¿é¤J¶¶§Ç¡H

[µo°Ý] ¿é¤J¶¶§Ç¡H

¥»©«³Ì«á¥Ñ s7659109 ©ó 2018-9-12 15:21 ½s¿è

°ÝÃD¡Gkey§¹bÄæ¡AAÄæ¦Û°Ê±a¨t²Î¤é´Á
»Ý¨D¡G¥H²Ä3¦C¬°¨Ò¡A·íkey §¹1-4ªº¶¶§Ç«á¡]­­¨î¿é¤J½d³ò¡^¡A¦Û°Ê¸õ¨ì¤U¤@¦CbÄæ,¥H¦¹´`Àô

¿é¤J¶¶§Ç1070912.zip (14.4 KB)

§Æ±æ¤ä«ù!

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
     If .Count > 1 Or .Row = 1 Then Exit Sub
     If .Column = 2 Then
        If .Value = "" Then .Cells(1, 0).Resize(1, 6).ClearContents: Exit Sub
        .Cells(1, 0) = Format(Date, "emmdd")
     ElseIf .Column = 6 Then
        If .Value <> "" Then Range("B" & .Row + 1).Select
     End If
End With
End Sub

TOP

¥»©«³Ì«á¥Ñ s7659109 ©ó 2018-9-13 10:52 ½s¿è

­ã¤j¡G¥i¯à¨S»¡²M·¡¡A»Ý¨D¬O

¨C¿é¤J§¹¤@­ÓÀx¦s®æ¡A¾Þ§@ªÌ¡A·|«öenterÁä
¿é¤J¶¶§Ç
¥H²Ä4¦C¬°¨Ò¡Gb4 key§¹enter¡Aa4±a¤J¨t²Î¤é´Á¾a¥k¡Aºò±µµÛ¸õ¨ìc4,c4key§¹enter,¸õ¨ìe4,key§¹enter¸õ¨ìf4,key§¹¸õ¤U¤@¦Cb5¦ì¸m¡A¥H¦¹´`Àô

¿é¤J¶¶§Ç1070913.zip (13.75 KB)

§Æ±æ¤ä«ù!

TOP

¦^´_ 3# s7659109


Private Sub Worksheet_Change(ByVal Target As Range)
With Target
     If .Count > 1 Or .Row = 1 Then Exit Sub
     If .Column = 2 Then
        If .Value = "" Then .Cells(1, 0).Resize(1, 6).ClearContents: Exit Sub
        .Cells(1, 0) = Format(Date, "emmdd")
     ElseIf .Column = 3 Then
        If .Value <> "" Then .Cells(1, 3).Select
     ElseIf .Column = 6 Then
        If .Value <> "" Then Range("B" & .Row + 1).Select
     End If
End With
End Sub

TOP

­ã¤j¡G
b»PeÄækey§¹ enter«á¡A·|¸õ¨ì¤U¤@¦C¡A¤£¬O­ì»Ý¨D
§Æ±æ¤ä«ù!

TOP

³o¼Ë§ï¡A¥i¥H¥Î¤F¡AÁÂÁ­ã¤j¡C
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
     If .Count > 1 Or .Row = 1 Then Exit Sub
     If .Column = 2 Then
        If .Value = "" Then .Cells(1, 0).Resize(1, 6).ClearContents: Exit Sub
        .Cells(1, 0) = Format(Date, "emmdd")
        .Cells(1, 2).Select
     ElseIf .Column = 3 Then
        If .Value <> "" Then .Cells(1, 3).Select
     ElseIf .Column = 5 Then
        If .Value <> "" Then .Cells(1, 2).Select
     ElseIf .Column = 6 Then
        If .Value <> "" Then Range("B" & .Row + 1).Select
     End If
End With
End Sub
§Æ±æ¤ä«ù!

TOP

¤@¯ë¿é¤J¸ê®Æ¬O¥Ñ¥ª¦Ó¥k, «öENTER«á, ¬O©¹¥k¸õªº, ¦b¥\¯àªí³]©w§Y¥i

TOP

­ã¤jÁÙ¦³¥t°ÝÃD½Ð±Ð¡G
¥H²Ä4¦C¬°¨Ò¡GbÄæ»PcÄæ©T©w¸ü¤J123 345¡A©Ò¥H¿é¤JÄæ¦ì¥u¦³eÄæ»PfÄæ¡A·íeÄækey§¹¡A¦Û°Ê±a¥Xa b cÄæ¡A¸õ¨ìfÄæ¡A·ífÄækey§¹,¸õ¨ì¤U¤@¦CeÄæ¡A¥H¦¹´`Àô

¿é¤J¶¶§Ç1070914.zip (15.89 KB)

§Æ±æ¤ä«ù!

TOP

¦^´_ 8# s7659109
  1. Private Sub Worksheet_Change(ByVal Target As Range) 'Àx¦s®æ¤º®eÅÜ°Ê
  2. If Target.Address Like "$E$*" Then
  3. Application.MoveAfterReturnDirection = xlToRight '³]©w¿é¤J¤è¦V¦V¥k
  4. With Me
  5. .Unprotect '¨ú®ø«OÅ@¤u§@ªí
  6. .Range("E:F").Locked = False '¨ú®ø¿é¤J½d³òªºÂê©w
  7. .EnableSelection = xlUnlockedCells '³]©w«OÅ@ª¬ºA¤U¤£¯à¿ï¨úÂê©wÀx¦s®æ
  8. .Cells(Target.Row, 1).Resize(, 3) = Array(Format(Date, "emmdd"), 123, 345) '¿é¤JA:CÄæ¦ì
  9. .Protect '«OÅ@¤u§@ªí
  10. End With
  11. End If
  12. End Sub

  13. Private Sub Worksheet_Deactivate() 'Â÷¶}¤u§@ªí
  14. Application.MoveAfterReturnDirection = xlDown 'ÁÙ­ì¿é¤J¤è¦V¦V¤U
  15. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁÂHsieh¡A¦ýÁÙ¦³­Ó°ÝÃD½Ð±Ð¡A­Y­­©w¿é¤JÄæ¦ìb c e f ,dÄæ¦ì¸õ¹L¡Aa Äæ¦ì±a¤J¨t²Î¤é´Á¡A½Ð°Ý¥H¤U³o¬q¦p¦ó§ï¡H
If Target.Address Like "$E$*" Then
Application.MoveAfterReturnDirection = xlToRight '³]©w¿é¤J¤è¦V¦V¥k
With Me
.Unprotect '¨ú®ø«OÅ@¤u§@ªí
.Range("E:F").Locked = False '¨ú®ø¿é¤J½d³òªºÂê©w
.EnableSelection = xlUnlockedCells '³]©w«OÅ@ª¬ºA¤U¤£¯à¿ï¨úÂê©wÀx¦s®æ
.Cells(Target.Row, 1).Resize(, 3) = Array(Format(Date, "emmdd"), 123, 345) '¿é¤JA:CÄæ¦ì
§Æ±æ¤ä«ù!

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD