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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2018-9-12 15:20 | 只看該作者

[發問] 輸入順序？

本帖最後由 s7659109 於 2018-9-12 15:21 編輯

問題：key完b欄，A欄自動帶系統日期
需求：以第3列為例，當key 完1-4的順序後（限制輸入範圍），自動跳到下一列b欄,以此循環

輸入順序1070912.zip (14.4 KB)

樓主熱帖

希望支持!

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

2^#

發表於 2018-9-13 10:09 | 只看該作者

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

中學生 Rank: 2

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

3^#

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

希望支持!

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

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

TOP

s7659109

中學生 Rank: 2

帖子: 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後，會跳到下一列，不是原需求

希望支持!

TOP

s7659109

中學生 Rank: 2

帖子: 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

希望支持!

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

7^#

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

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

TOP

s7659109

中學生 Rank: 2

帖子: 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)

希望支持!

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

複製代碼

學海無涯_不恥下問

TOP

s7659109

中學生 Rank: 2

帖子: 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欄位

希望支持!

TOP