ثبت چند گزینه در تکست باکس

[aminnajmi66]

با سلام خدمت اساتید گرام
یکی از فایل هایی رو که روش کار میکنم انتخاب چند گزینه از لیست باکس و ثبت در تکست باکس هست ولی متاسفانه با هر فرمولی کار میکنم نمی شه!!!
لطفا کمک کمک
فایل رو پیوست کردم.
ممنون بابت لطفتون.
select.rar

[Amir Ghasemiyan]

سلام دوست عزيز
از اين كد استفاده كنيد

Private Sub CommandButton1_Click()
For i = 0 To ListBox1.ListCount - 1
   If ListBox1.Selected(i) Then TextBox1.Value = TextBox1.Value & vbNewLine & ListBox1.List(i)
Next
End Sub

درضمن در properties تكست باكس 1 عبارت multiline رو بر روي true قرار بديد

[ali.b]

با سلام خدمت اساتید گرام
یکی از فایل هایی رو که روش کار میکنم انتخاب چند گزینه از لیست باکس و ثبت در تکست باکس هست ولی متاسفانه با هر فرمولی کار میکنم نمی شه!!!
لطفا کمک کمک
فایل رو پیوست کردم.
ممنون بابت لطفتون.
[ATTACH]16769[/ATTACH]

سلام به جای textbox لیست باکس گذاشتم