Я нахожу этот вопрос, но я не могу найти только часть сортировки по алфавиту.
Как я могу это прояснить?
Я нахожу этот вопрос, но я не могу найти только часть сортировки по алфавиту.
Как я могу это прояснить?
В книге Excel, которую вы хотите организовать, откройте VBA (alt+F11), вставьте новый модуль (insert> module), скопируйте и вставьте следующий код макроса:
Sub Sort_Active_Book()
Dim i As Integer
Dim j As Integer
Dim iAnswer As VbMsgBoxResult
'
'
iAnswer = MsgBox("Sort Sheets in Ascending Order?" & Chr(10) _
& "Clicking No will sort in Descending Order", _
vbYesNoCancel + vbQuestion + vbDefaultButton1, "Sort Worksheets")
For i = 1 To Sheets.Count
For j = 1 To Sheets.Count - 1
'
' If the answer is Yes, then sort in ascending order.
'
If iAnswer = vbYes Then
If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then
Sheets(j).Move After:=Sheets(j + 1)
End If
'
' If the answer is No, then sort in descending order.
'
ElseIf iAnswer = vbNo Then
If UCase$(Sheets(j).Name) < UCase$(Sheets(j + 1).Name) Then
Sheets(j).Move After:=Sheets(j + 1)
End If
End If
Next j
Next i
End Sub
Закройте и вернитесь в Excel, затем запустите макрос (alt+F8). Появится диалоговое окно с возможностью сортировки по алфавиту в порядке возрастания или убывания.
Благодарим HowToGeek за это. Я обнаружил это несколько месяцев назад, когда меня (моего компьютерного) босса преследовали.
Надеюсь, поможет.
Редактировать: Убедитесь, что вы сохранили его как «Macro-Enabled Workbook», если хотите сохранить макрос для дальнейшего использования в электронной таблице!