Sub sortsheet()
For i = 1 To Sheets.Count
For j = 1 To Sheets.Count - 1
If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then
Sheets(j).Move after:=Sheets(j + 1)
End If
Next j
Next i
End Sub
مرتب کردن کاربرگ ها به ترتیب الفبا
Collapse
X
-
مرتب کردن کاربرگ ها به ترتیب الفبا
با سلام.
کد PHP:[FONT=Tahoma][INDENT][CENTER][SIZE=3][FONT=courier new][B][FONT=comic sans ms][SIZE=3][FONT=arial]دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
بیش از [COLOR=#008000]60[/COLOR] جلسه آموزش ویدئویی رایگان
شرکت در دوره:
[/FONT][/SIZE]
[SIZE=5] [FONT=Tahoma][FONT=courier new][B][URL]https://javidsoft.ir/courses/[/URL][/B][/FONT][/FONT][/SIZE][/FONT]
[/B][/FONT][/SIZE]
[/CENTER]
[/INDENT]
[/FONT]برچسب ها: هیچکدام

