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

§Æ±æ¤ä«ù!

ÁÂÁ­ã¤j¡A´£¨Ñ¥t¤@­Ó«ä¸ô¡I
§Æ±æ¤ä«ù!

TOP

¦^´_ 8# s7659109


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

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

¦^´_ 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

­ã¤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

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

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

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

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD