Question

我是vba的新手，目前我正在尝试为excel中的用户表单编写一个vba代码，该代码将自动保存在特定工作表（fao）上。我在这个工作簿中还有两个工作表（数据和报告）。但无论哪个工作表打开，当我尝试按用户表单输入数据时，它必须将数据存储在名为（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")

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

1 个答案: