2

私のワークブックには 2 つのシートがあり、1 つはデータと計算を含み、これらのデータは名前エディター機能を使用して名前が付けられています。2 番目のワークシートにはグラフと、VBA コントロールの Active X オプションを使用して作成されたテキスト ボックスのグループで構成されるボックスがあります。このテキスト ボックスのグループには、以前に上で名前を付けた値が代入されます。以下は、私が使用したコードのバージョンです。 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
4

1 に答える 1