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用户表单

回答

相关问题