こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

テキストボックスを配置したいのですが

以下のコードですと、失敗します。
Private Sub CommandButton3_Click()
Dim nu7 As MSForms.TextBox

Set nu7 = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox1", True)

With nu7
.Left = 20
.Top = 50
End With
End Sub

間違いをご指摘頂けると、助かります。
どうぞ、宜しくお願い致します。

投稿日時 - 2018-06-06 17:39:33

QNo.9505723

暇なときに回答ください

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

作成するだけなら
Private Sub CommandButton3_Click()
  With Me.Controls.Add("Forms.TextBox.1")
    .Left = 20
    .Top = 50
  End With
End Sub

投稿日時 - 2018-06-07 16:03:29

お礼

お礼が遅れて、申し訳ございません
有難うございました

投稿日時 - 2018-09-02 18:25:32

あなたにオススメの質問