[發問] 該如何輸入完資料後,自動往下一儲存格繼續輸入資料

帖子: 45
主題: 19
精華: 0
積分: 84
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-9
最後登錄: 2015-4-14

11^#

發表於 2011-7-20 10:53 | 只看該作者

版主,謝謝
程式碼我試修改看看,若有問題在請教

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

10^#

發表於 2011-7-19 19:34 | 只看該作者

回復 7# yueh0720

這樣的問題，如果自己不去了解程式碼,沒人可以一再的幫你更改

你1樓的表單開頭在B2 -> Set Rng = Range("B2").CurrentRegion 'CurrentRegion以任意空白列及空白欄的組合為邊界的連續範圍
那你想資料表格,多一個座位號碼在A欄這程式碼要改哪裡?

Hsieh

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

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

9^#

發表於 2011-7-19 19:05 | 只看該作者

這樣的問題，如果自己不去了解程式碼
沒人可以一再的幫你更改

學海無涯_不恥下問

av8d

大學生 Rank: 4

帖子: 703
主題: 276
精華: 0
積分: 1005
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-5-29

8^#

發表於 2011-7-19 18:31 | 只看該作者

本帖最後由 av8d 於 2011-7-19 19:19 編輯

回復 1# yueh0720

假設你的最後一欄資料是英文好了，如果是要從英文D3跳到B4，然後輸入到D4直接跳到B5，我倒是有一個方法。

工具→巨集→錄至新巨集→快速鍵Ctrl+?(自行設定)(我是設定Q)→停止錄製→
Alt+F11→打開Macro1→Range("A" & ActiveCell.Row + 1).Select 將這段放入巨集內(如下圖)

Sub Macro1()
'
' Macro1 Macro
' Allen 在 2011/7/19 錄製的巨集
'
Range("A" & ActiveCell.Row + 1).Select
'
End Sub

複製代碼

只要您每次輸入到最後一欄，按下Ctrl+?(自行設定)(我是設定Q)，即可跳到下一列的B欄。
如果還有不懂在發問囉！祝您早日完成成績表。

帖子: 45
主題: 19
精華: 0
積分: 84
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-9
最後登錄: 2015-4-14

7^#

發表於 2011-7-19 17:52 | 只看該作者

沒有檔案,只是製作一個資料表格,多一個座位號碼在A欄
其它不會再更改新增了,

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2011-7-19 17:40 | 只看該作者

回復 5# yueh0720
你不附上檔案,我會一直在瞎子摸象的

帖子: 45
主題: 19
精華: 0
積分: 84
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-9
最後登錄: 2015-4-14

5^#

發表於 2011-7-19 17:30 | 只看該作者

版主,我將A欄設定為座號後,輸入完英文分數,即跳至座號欄位去
無法跳至姓名欄位

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2011-7-19 16:32 | 只看該作者

回復 3# yueh0720
試試看

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, R1%, R2%
Set Rng = Range("B2").CurrentRegion
'CurrentRegion以任意空白列及空白欄的組合為邊界的連續範圍
If Not Application.Intersect(Target(1), Rng) Is Nothing Then 'Rng的範圍包含Target(1)的位址
'Target(1) ->工作表所選擇範圍的第一個儲存格
If Target(1).Row = Rng.Row Then Exit Sub ' 在第一列
R1 = Rng.Column '第一欄的欄數
R2 = Rng(1, Rng.Columns.Count).Column '最後一欄的欄數
If Application.CountA(Range(Cells(Target(1).Row, R1), Cells(Target(1).Row, R2))) = Rng.Columns.Count Then
'有資料數的儲存格=Rng的總欄數
Cells(Target(1).Row + 1, R1).Select '選擇下一列的第1欄
Else '有資料數的儲存格<>Rng的總欄數
If Target(1) <> "" Then
R2 = IIf(Target(1).Column = R2, R1, Target(1).Column + 1)
'如為最後一欄的返回第1欄否往右一欄
Cells(Target(1).Row, R2).Select '往右一欄
End If
End If
End If
End Sub

複製代碼

帖子: 45
主題: 19
精華: 0
積分: 84
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-9
最後登錄: 2015-4-14

3^#

發表於 2011-7-19 13:52 | 只看該作者

忘了需要增加輸入姓名後,自動往國文分數儲存格移動