مشکل مرتب سازی با کد زیر حل شد :
خدمت دوستان عزیز
کد PHP:
For Each cell In ThisWorkbook.Sheets("NameManager").Range("NameNameManagerList")
Me.ComboBox1.AddItem cell
Next cell
On Error Resume Next
With Me.ComboBox1
For X = LBound(.List) To UBound(.List)
For Y = X To UBound(.List)
If .List(Y, 0) < .List(X, 0) Then
blah = .List(Y, 0)
.List(Y, 0) = .List(X, 0)
.List(X, 0) = blah
End If
Next Y
Next X
End With
که باید در UserForm_Initialize قرار بگیره تا هنگام باز شدن userform خودش مرتب کنه
کد بالا برای حروف فارسی و انگلیسی هم کار میکنه
اگر کسی برای بزرگ به کوچک اعداد خواست از کد زیر میتونه استفاده کنه:
کد PHP:
With Me.cmbList
For x = LBound(.List) To UBound(.List)
For y = x To UBound(.List)
If .List(y, 0) + 0 < .List(x, 0) + 0 Then
blah = .List(y, 0)
.List(y, 0) = .List(x, 0)
.List(x, 0) = blah
End If
Next y
Next x
End With
علاقه مندی ها (Bookmarks)