Question

我的工作簿有两张，一张包含数据和计算，这些数据都是使用名称编辑功能命名的。第二个工作表有一个图形和一个框，其中包含一组使用VBA控件Active X选项创建的文本框，这组文本框将被先前命名为abbove的值所覆盖，下面是我使用的代码的版本，其中label和TextBox是文本框的名称，另一个名称是已定义单元格的名称。此代码报告438消息错误，并且不会在所需位置的框中输入标记数据。我怎么能让它工作，以便文本框也显示它们链接的命名单元格？：

Private Sub Worksheet_Activate()
Dim sType As String
Dim sUnit As String
Dim sWellname As String
Dim sDate As String
Dim sMD As String
Dim sTVD As String
Dim sMud As String
Dim sPressure As String
Dim sEMW As String

    sType = ThisWorkbook.Worksheets("sheet1").cbztest.Value
    sUnit = ThisWorkbook.Worksheets("sheet1").cbzPressure.Value
    sWname = ThisWorkbook.Worksheets("sheet1").Range("Wname").Value
    sDate = ThisWorkbook.Worksheets("sheet1").Range("date").Value
    sMD = Format(ThisWorkbook.Worksheets("sheet1").Range("MD").Value, "Standard")
    sTVD = Format(ThisWorkbook.Worksheets("sheet1").Range("TVD").Value, "Standard")
    sMW = ThisWorkbook.Worksheets("sheet1").Range("M_W").Value
    sPressure = Round(ThisWorkbook.Worksheets("sheet1").Range("P_bar").Value, 1)
    sEMW = Format(ThisWorkbook.Worksheets("sheet1").Range("EMW").Value, "Standard")

    sType = ThisWorkbook.Worksheets("sheet1").cbztest.Value
    ActiveSheet("Label").Caption = sType
    ActiveSheet("TextBox1").Text = sWname
    ActiveSheet("TextBox2").Text = sDate
    ActiveSheet("TextBox5").Text = sMD
    ActiveSheet("TextBox6").Text = sTVD
    ActiveSheet("TextBox7").Text = sMW
    ActiveSheet("TextBox8").Text = sPressure
    ActiveSheet("TextBox9").Text = sEMW
    ActiveSheet("Label8").Caption = sType & " EMW :"
    ActiveSheet("Label13").Caption = sUnit

End Sub

Answer 1

尝试ActiveSheet.TextBox1.Text = sWname等等

VBA中的动态文本框输入

1 个答案: