[發問] 儲存格內容變更後自動移到下一格

owen06

請教各位大大，我這個檔案在按下『MADE』後，會產生一個範圍，範圍名稱叫『mysize』
右手邊有一堆按鈕，按下去後，activecell會等於按鈕的名字，
請問該如何設定，才能讓他在按下右邊按鈕後，mysize的第一格會產生資料，然後儲存格會依照順序往下一格移動，
例：本來在mysize.cells(1),按下按鈕輸入資料後，旗標就跳到mysize.cells(2)，再按一次按鈕，旗標就跳到mysize.cells(3)

煩請大大不吝指教，謝謝~~~

yen956

回復 1# owen06
試試看:
    ActiveCell.Offset(1, 0).Select           '活動單元格下移一格
    ActiveCell.Offset(-1, 0).Select          '活動單元格上移一格
    ActiveCell.Offset(0, 1).Select           '活動單元格右移一格
    ActiveCell.Offset(0, -1).Select          '活動單元格左移一格

GBKEE

回復 1# owen06
使用物件類別

1. 'ThisWorkbook模組
   
2. Dim Ar() As New Class1 '物件類別模組 [名稱: Class1]
   
3. Private Sub Workbook_Open()  
   
4.     Dim E As OLEObject, i As Integer
   
5.     With Sheet1
   
6.         For Each E In .OLEObjects
   
7.             If E.progID = "Forms.CommandButton.1" Then
   
8.                 If UCase(E.Object.Caption) <> "CLEAR" And UCase(E.Object.Caption) <> "MADE" Then
   
9.                     ReDim Preserve Ar(0 To i)
   
10.                     Set Ar(i).Class_CommandButton = E.Object
    
11.                     i = i + 1
    
12.                 End If
    
13.             End If
    
14.         Next
    
15.        Run "Sheet1.CommandButton2_Click"
    
16.     End With
    
17. End Sub

複製代碼

1. Public mysize As Range    'Sheet1模組
   
2. Private Sub CommandButton1_Click()
   
3. k1 = [I2].Value
   
4. k2 = [i3].Value
   
5. Set mysize = [B2].Resize(k1, k2)
   
6. mysize.clear
   
7. End Sub
   
8. Private Sub CommandButton2_Click()
   
9. 'Dim mysize As Range
   
10. k1 = [I2].Value
    
11. k2 = [i3].Value
    
12. Set mysize = [B2].Resize(k1, k2)
    
13. With mysize
    
14. .Borders.LineStyle = xlContinuous
    
15. .Interior.ColorIndex = 37
    
16. .VerticalAlignment = xlCenter
    
17. .HorizontalAlignment = xlCenter
    
18. End With
    
19. mysize.Cells(1).Select
    
20. End Sub

複製代碼

1. Option Explicit  '新增物件類別模組 [自動命名: Class1]
   
2. Public WithEvents Class_CommandButton As MSForms.CommandButton
   
3. Private Sub Class_CommandButton_Click()
   
4.     Dim i As Integer
   
5.     With Class_CommandButton.Parent.mysize
   
6.         .Cells(Application.CountA(.Cells) + 1) = Class_CommandButton.Caption
   
7.     End With
   
8. End Sub

複製代碼

owen06

回復 3# GBKEE


    謝謝版主的回覆，我照你的方法設定完後，按下右邊任一按鈕，出現
    執行階段錯誤：438。物件不支援此屬性或方法。
    按下偵錯標示的內容為：With Class_CommandButton.Parent.mysize
    麻煩你抽空再幫我看一下是哪邊設定不對，謝謝你了~

owen06

回復 3# GBKEE


    哦，版主你好，看了你的公式之後，我想了另一個方法，輸入在sheet1裡面就成功了，謝謝你的啟發

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim mysize As Range
   
3. k1 = [I2].Value
   
4. k2 = [i3].Value
   
5. Set mysize = [B2].Resize(k1, k2)
   
6. If mysize.Cells(1) <> "" Then mysize.Cells(Application.CountA(mysize) + 1).Select
   
7. End Sub

複製代碼

GBKEE

回復 4# owen06

1. Public mysize As Range   '模組頂端制定為此模組的公用變數,其他模組的程序可使用此變數
   
2. 'Dim mysize As Range   '模組頂端制定為此模組的私用變數,僅此模組的程序可使用此變數,其他模組的程序不可使用此變數
   
3. Private Sub CommandButton1_Click()
   
4. 'Dim mysize As Range  '此程序的私用變數,僅此程序中可用  
   
5. k1 = [I2].Value
   
6. k2 = [i3].Value
   
7. Set mysize = [B2].Resize(k1, k2)
   
8. mysize.clear
   
9. End Sub
   
10. Private Sub CommandButton2_Click()
    
11. 'Dim mysize As Range
    
12. k1 = [I2].Value
    
13. k2 = [i3].Value
    
14. Set mysize = [B2].Resize(k1, k2)
    
15. With mysize
    
16. .Borders.LineStyle = xlContinuous
    
17. .Interior.ColorIndex = 37
    
18. .VerticalAlignment = xlCenter
    
19. .HorizontalAlignment = xlCenter
    
20. End With
    
21. mysize.Cells(1).Select
    
22. End Sub
    
23. '後面的CommandButton??_Click 不在需要了
    
24. Private Sub CommandButton10_Click()
    
25. ActiveCell = CommandButton10.Caption
    
26. End Sub

複製代碼