[發問] 輸入順序？

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

12^#

發表於 2018-9-14 14:35 | 只看該作者

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

希望支持!

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-27

11^#

發表於 2018-9-14 12:54 | 只看該作者

回復 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

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

10^#

發表於 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欄位

希望支持!

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 258
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

9^#

發表於 2018-9-14 09:54 | 只看該作者

回復 8# s7659109

Private Sub Worksheet_Change(ByVal Target As Range) '儲存格內容變動
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欄位
.Protect '保護工作表
End With
End If
End Sub
Private Sub Worksheet_Deactivate() '離開工作表
Application.MoveAfterReturnDirection = xlDown '還原輸入方向向下
End Sub

複製代碼

學海無涯_不恥下問

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

8^#

發表於 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)

希望支持!

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-27

7^#

發表於 2018-9-13 15:28 | 只看該作者

一般輸入資料是由左而右, 按ENTER後, 是往右跳的, 在功能表設定即可

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

6^#

發表於 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-13 12:29 | 只看該作者

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

希望支持!

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-27

4^#

發表於 2018-9-13 11:56 | 只看該作者

回復 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