excel - 在另一张纸中输入教科书值

Question

我在一个名为“仪表板”的工作表和一个名为“Micrux”的数据表中有一个用户表单。文本框的每个值都假设在“微型”表中上传，问题是它在我的活动表“仪表板”中上传。我的问题是由 WorksheetFunction 引起的吗？因为我也尝试过这样的事情：

emptyRow = WorksheetFunction.CountA(Worksheets("Micrux").Range("C:D"))

而且它仍然在错误的表格中上传。

Private Sub CommandButton1_Enter()

    Dim emptyRow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("Micrux")
    ActiveSheet.Name = "Dashboard"


    If Not IsDate(TextBox3) Then
        MsgBox " Wrong Format (YYYY/MM/DD)"
        TextBox3 = ""
        Exit Sub
    Else

    End If

    emptyRow = WorksheetFunction.CountA(Range("C:D"))

    Cells(emptyRow + 1, 1).Value = TextBox1.Value
    Cells(emptyRow + 1, 2).Value = TextBox2.Value
    Cells(emptyRow + 1, 3).Value = TextBox3.Value


     Unload Me


End Sub

标签： excelvbatextboxworksheet