2017-05-31 9 views
2

ユーザーフォームに配置されたテキストボックスに動的に値を書き込もうとしています。これは私のコードであり、最後の行でエラーが発生しています。それは必要な物を言う。あなたは完全に修飾する必要がある -Userform - VBAのテキストボックスに値を書き込む

Sub Userform1_Display() 

TotalSelected = 0 

With Sheets("Main").Ent_ListBox 

    For i = 0 To .ListCount - 1 
     If .Selected(i) = True Then 
      Count = 1 
      TotalSelected = TotalSelected + Count 
     End If 
    Next i 

End With 

'Useform' 
Questionaire.Show 

'TextBox placed in Userform' 
N_Ent_TextBox.Value = TotalSelected 


End Sub 

親切に自分の考えを共有

答えて

2

を使用するようにしてくださいオブジェクト:

Questionaire.N_Ent_TextBox.Value = TotalSelected 
+0

はい。できます。今あなたのポイントを得ました。ありがとう:) – Sid29

+0

心配しないで、あなたの問題を解決した場合は、答えを受け入れることを忘れないでください。 –

+1

それを受け入れます。それは私がそれを受け入れるために6分待たなければならないと言う – Sid29

0

N_Ent_TextBox.Text = TotalSelected あなたのコードは、ユーザーフォームのクラスモジュール内で、実際にはないように見えます。この

+0

いいえ、それでもオブジェクトが必要です! – Sid29

関連する問題