返回列表 上一主題 發帖

[發問] 輸入5欄後跳下一列

s13030029
　暱稱: 伊恩

中學生Rank: 2

帖子
97 
主題
33 
精華
0 
積分
129 
點名
0  
作業系統
Win 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2019-5-7 
最後登錄
2022-8-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-7-18 13:17 | 只看該作者

[發問] 輸入5欄後跳下一列

VBA有辦法輸入五個欄位後，自動跳下一列嗎?
例如: A1、B1、C1、D1、E1輸入完後跳下一列-->A2、B2、C2、D2、E2
收藏 分享

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-27 
2#
發表於 2019-7-19 10:14 | 只看該作者
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
     If .Count > 1 Or .Column <> 5 Then Exit Sub
     If .Value <> "" Then Cells(.Row + 1, 1).Select
End With
End Sub

TOP

s13030029
　暱稱: 伊恩

中學生Rank: 2

帖子
97 
主題
33 
精華
0 
積分
129 
點名
0  
作業系統
Win 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2019-5-7 
最後登錄
2022-8-25 
3#
發表於 2019-7-19 14:35 | 只看該作者
回復 2# 准提部林
准大我想請問一下
Target . Count > 1
是什麼意思???

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-27 
4#
發表於 2019-7-19 15:17 | 只看該作者
回復 3# s13030029


儲存格的數量, 若用多格貼上, 不作動(單格才有效)~~

TOP

s13030029
　暱稱: 伊恩

中學生Rank: 2

帖子
97 
主題
33 
精華
0 
積分
129 
點名
0  
作業系統
Win 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2019-5-7 
最後登錄
2022-8-25 
5#
發表於 2019-7-19 15:20 | 只看該作者
回復 4# 准提部林

瞭解~瞭解~謝謝~~~

TOP

        靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。
返回列表 上一主題