[發問] 輸入順序？

帖子: 248
主題: 76
精華: 0
積分: 331
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 男
來自: kaohsiung
註冊時間: 2013-6-10
最後登錄: 2020-7-3

2^#

發表於 2018-9-13 10:50 | 顯示全部帖子

本帖最後由 s7659109 於 2018-9-13 10:52 編輯

准大：可能沒說清楚，需求是

每輸入完一個儲存格，操作者，會按enter鍵
輸入順序
以第4列為例：b4 key完enter，a4帶入系統日期靠右，緊接著跳到c4,c4key完enter,跳到e4,key完enter跳到f4,key完跳下一列b5位置，以此循環

輸入順序1070913.zip (13.75 KB)

希望支持!

帖子: 248
主題: 76
精華: 0
積分: 331
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 男
來自: kaohsiung
註冊時間: 2013-6-10
最後登錄: 2020-7-3

3^#

發表於 2018-9-13 12:29 | 顯示全部帖子

准大：
b與e欄key完 enter後，會跳到下一列，不是原需求

希望支持!

帖子: 248
主題: 76
精華: 0
積分: 331
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 男
來自: kaohsiung
註冊時間: 2013-6-10
最後登錄: 2020-7-3

4^#

發表於 2018-9-13 14:25 | 顯示全部帖子

這樣改，可以用了，謝謝准大。
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

希望支持!

帖子: 248
主題: 76
精華: 0
積分: 331
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 男
來自: kaohsiung
註冊時間: 2013-6-10
最後登錄: 2020-7-3

5^#

發表於 2018-9-14 09:00 | 顯示全部帖子

准大還有另問題請教：
以第4列為例：b欄與c欄固定載入123 345，所以輸入欄位只有e欄與f欄，當e欄key完，自動帶出a b c欄，跳到f欄，當f欄key完,跳到下一列e欄，以此循環

輸入順序1070914.zip (15.89 KB)

希望支持!

帖子: 248
主題: 76
精華: 0
積分: 331
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 男
來自: kaohsiung
註冊時間: 2013-6-10
最後登錄: 2020-7-3

6^#

發表於 2018-9-14 11:40 | 顯示全部帖子

謝謝Hsieh，但還有個問題請教，若限定輸入欄位b c e f ,d欄位跳過，a 欄位帶入系統日期，請問以下這段如何改？
If Target.Address Like "$E$*" Then
Application.MoveAfterReturnDirection = xlToRight '設定輸入方向向右
With Me
.Unprotect '取消保護工作表
.Range("E:F").Locked = False '取消輸入範圍的鎖定
.EnableSelection = xlUnlockedCells '設定保護狀態下不能選取鎖定儲存格
.Cells(Target.Row, 1).Resize(, 3) = Array(Format(Date, "emmdd"), 123, 345) '輸入A:C欄位

希望支持!

帖子: 248
主題: 76
精華: 0
積分: 331
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 男
來自: kaohsiung
註冊時間: 2013-6-10
最後登錄: 2020-7-3

7^#

發表於 2018-9-14 14:35 | 顯示全部帖子

謝謝准大，提供另一個思路！

希望支持!