Excel VBA用戶表單

我已經創建了具有不同月份的多個工作表的用戶表單。我只能讓表格才能正確運行「Sheet7（July）」。我如何使工作簿中的所有工作表都可以工作？以下是我的表單代碼。謝謝Excel VBA用戶表單

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

來源

2017-06-15 user1610965

當你說每個工作表的工作是什麼意思*完全*？將來自用戶表單的相同信息放入工作簿中的每個工作表中？ –

當我切換到其他工作表並嘗試使用該工作表上的表單時，它無法正常工作，例如，如果我選擇「August」，它將無法像「Sheet7」那樣正常工作。所以我想知道如何將表格合併到所有工作表中。@ Alex P – user1610965

在代碼中做到這一點：

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

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

這有幫助嗎？

來源

2017-06-15 17:44:02

是的！謝謝你，先生！@Alex P – user1610965

Excel VBA用戶表單

回答

相關問題