سلام
باکد زیرمیشه همه ایتمهای لیست باکس در یک سلول یا تکستباکس یا کمبو یکجا قرار بگیرن
کافیه مقدار str رو به محل مدنظرارجاع بدین
البته در این کد ستول دوم رو در داخل پرانتز قرار میده که میشه ویرایش یا حذف کرد
باکد زیرمیشه همه ایتمهای لیست باکس در یک سلول یا تکستباکس یا کمبو یکجا قرار بگیرن
کد:
im str As String
Dim k As Long
For k = 0 To ListBox3.ListCount - 1
If str <> vbNullString Then str = str & "-"
str = str & ListBox3.list(k, 0) & "(" & ListBox3.list(k, 1) & ")"
Next
البته در این کد ستول دوم رو در داخل پرانتز قرار میده که میشه ویرایش یا حذف کرد