Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり)

[58 デフォルトの名無しさん (ｽﾌﾟｯｯ Sda3-D+99) 2023/02/04(土) 09:14:10.73 ID:xQtdr6Ugd]

>>45
AIさんからの天の声です

Sub CheckSortOrder()
Dim sortOrder As Boolean
sortOrder = ActiveSheet.AutoFilter.Sort.SortOn
If sortOrder = True Then
MsgBox "The column is sorted in ascending order."
Else
MsgBox "The column is not sorted in ascending order."
End If
End Sub