سلام
همانند توضیح این پست
برای کپی ایتم های لیست باکس از کد زیر هم میتوانید استفاده کنید
همانند توضیح این پست
برای کپی ایتم های لیست باکس از کد زیر هم میتوانید استفاده کنید
کد:
Dim i As Long
For i = 0 To ListBox1.ListCount - 1
Cells(i + 1, 1) = ListBox1.List(i)
Next i