ali.b
2019/08/14, 10:59
سلام
باکد زیرمیشه همه ایتمهای لیست باکس در یک سلول یا تکستباکس یا کمبو یکجا قرار بگیرن
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
کافیه مقدار 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
کافیه مقدار str رو به محل مدنظرارجاع بدین
البته در این کد ستول دوم رو در داخل پرانتز قرار میده که میشه ویرایش یا حذف کرد