|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
各位大侠,
可否请大家帮我看一下以下的错误代码Move 的用法,我想把工作表移动到对应的工作表位置上。万分感谢!
Sub SortSheets()
Dim SheetNames() As String
Dim SheetCount As Long
Dim i As Long
SheetCount = ActiveWorkbook.Sheets.Count
ReDim SheetNames(1 To SheetCount)
For i = 1 To SheetCount
SheetNames(i) = ActiveWorkbook.Sheets(i).Name
Next i
Call BubbleSort(SheetNames)
For i = 1 To SheetCount
ActiveWorkbook.Sheets (SheetNames(i)) .Move Before := ActiveWorkbook.Sheets(i) 提示语法错误
Next i
End Sub
Sub BubbleSort(list() As String) '冒泡排序,如果数组元素的值大于下一个元素的值,那么这两个元素就交换位置。
Dim First As Long, Last As Long
Dim i As Long, j As Long
Dim Temp As String
First = LBound(list)
Last = UBound(list)
For i = First To Last - 1
For j = i + 1 To Last
If list(i) > list(j) Then
Temp = list(i)
list(i) = list(j)
list(i) = Temp
End If
Next j
Next i
End Sub
|
|