1

当我只使用一个用户窗体时，此代码运行良好。

Private Sub CommandButtonSubmitSalesEntry_Click()

Dim nextrow As String
'find next empty row

nextrow = Application.WorksheetFunction.CountA(Range("a:a")) + 1    
Cells(nextrow, 1) = TextBoxDate.Text    
Cells(nextrow, 2) = EmployeeNames.Text    
Cells(nextrow, 3) = ComboBoxStationNames.Text    
Cells(nextrow, 4) = ComboBoxSalesRates.Text  

Unload Me
UserFormSales.Show

现在我已经创建了第二个用户表单，他们已经开始向随机工作表提交数据。如何定义我希望数据转到哪个工作表？

4

1 回答 1

0

只需激活您想要的工作表：

Sheets("Sheet1").Activate
于 2013-03-09T08:33:43.087 回答