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

yueh0720

下載 (17.5 KB)

2011-7-19 12:50

  有筆資料輸入,該如何簡化按鍵使用
  輸入姓名,國文分數,英文分數,自動跳至下一個姓名輸入位置("B4")
  數量500名學生,

GBKEE

回復 1# yueh0720
該工作表儲存格有輸入時的預設事件

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim Rng As Range, R1%, R2%
   
3.     Set Rng = Range("B2").CurrentRegion
   
4.     'CurrentRegion以任意空白列及空白欄的組合為邊界的連續範圍
   
5.     If Not Application.Intersect(Target(1), Rng) Is Nothing Then   'Rng的範圍包含Target(1)的位址
   
6.     'Target(1) ->工作表所選擇範圍的第一個儲存格
   
7.         If Target(1).Row = Rng.Row Then Exit Sub    ' 在第一列
   
8.         R1 = Rng.Column                             '第一欄的   欄數
   
9.         R2 = Rng(1, Rng.Columns.Count).Column       '最後一欄的 欄數
   
10.         If Application.CountA(Range(Cells(Target(1).Row, R1), Cells(Target(1).Row, R2))) = Rng.Columns.Count Then
    
11.             '有資料數的儲存格=Rng的總欄數
    
12.             Cells(Target(1).Row + 1, R1).Select  '選擇下一列的第1欄
    
13.         End If
    
14.        End If
    
15. End Sub

複製代碼

yueh0720

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

GBKEE

回復 3# yueh0720
試試看

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

複製代碼

yueh0720

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

GBKEE

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

yueh0720

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

av8d

回復 1# yueh0720

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

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

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

複製代碼

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

Hsieh

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

GBKEE

回復 7# yueh0720

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

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