始终将用户表单数据保存在Excel中的特定工作表上

我是新的vba，目前我正在尝试在excel中为用户表单编写一个vba代码，将自动保存在特定工作表（fao）上的数据。 本工作手册中还有两个工作表（数据和报表）。 但无论哪张表是打开的，当我尝试通过用户表单input数据时，它必须将数据存储在名为（fao）的第三个工作表上。 这里是我的代码：

Private Sub CommandButton1_Click() Dim ws As Worksheet Dim RowCount As Long Dim ctl As Control Set ws = Worksheets("fao") RowCount = Worksheets("fao").Range("A2").CurrentRegion.Rows.Count With Range("A2") .Offset(RowCount, 0).Value = Me.TextBox24.Value .Offset(RowCount, 1).Value = Me.TextBox23.Value .Offset(RowCount, 2).Value = Me.TextBox22.Value .Offset(RowCount, 3).Value = Me.TextBox21.Value .Offset(RowCount, 4).Value = Me.TextBox20.Value .Offset(RowCount, 5).Value = Me.TextBox19.Value .Offset(RowCount, 6).Value = Me.TextBox17.Value .Offset(RowCount, 8).Value = DateValue(Me.TextBox25.Value) .Offset(RowCount, 9).Value = DateValue(Me.TextBox14.Value) .Offset(RowCount, 10).Value = Me.TextBox15.Value If Me.OptionButton1.Value = True Then .Offset(RowCount, 7).Value = "Yds" Else .Offset(RowCount, 7).Value = "Mtr" End If End With End Sub 

Answer 1

我认为这是你的“问题”的答案。

 With ws.Range("A2")