Excel VBA用戶表單

Question

我創建了一個用戶表單，其中包含多個不同月份的工作表。 我只能使該表格在“ Sheet7（7月）”中正常工作。 如何使表格在工作簿中的所有工作表上工作？ 下面是我的表格代碼。 謝謝

Private Sub CommandButton1_Click()

'Range("A").Value = tbdaterec
'Range("B").Value = tbdateres
'Range("C").Value = cmblist.Value
'Range("D").Value = tbstudent
'Range("E").Value = tbdatesch
'Range("F").Value = tbrequest
'Range("G").Value = cmbsitelist.Value

erow = Sheet7.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row


Cells(erow, 1).Value = tbdaterec.Text
Cells(erow, 2).Value = tbdateres.Text
Cells(erow, 3).Value = cmblist.Value
Cells(erow, 4).Value = tbstudent.Text
Cells(erow, 5).Value = tbdatesch.Text
Cells(erow, 6).Value = tbrequest.Text
Cells(erow, 7).Value = cmbsitelist.Value

Answer 1

在您的代碼中執行以下操作：

erow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

這將讓erow取決於你是哪個表。

有幫助嗎？