[算表] 工作表排序亂跳
軟體: office 365
請朋友幫忙寫了個"工作表排序"的VBA如下:
===================================================
'--<<將[頁籤] 依[送貨方式]排序>>--
'
Sheets("送貨方式").Select
'處理好頁籤的最後位置(初始為母本頁籤Start位置=3)
nidx = 3
'x 由2開始為 跳過標題[送貨方式], 逐筆頁籤 找到對應[送貨方式] 移位置
For x = 2 To Cells(Worksheets("送貨方式").Rows.Count, 1).End(xlUp).Row
Sheets("送貨方式").Select
send_mode = Cells(x, 1).Value
For y = nidx + 1 To Worksheets.Count
Sheets(y).Select
If Range("B5").Value = send_mode Then
Sheets(y).Move Before:=Sheets(nidx + 1)
nidx = nidx + 1
End If
Next y
Next x
Sheets("Start").Select
End Sub
=================================================
但排序一直會亂跳,檢視發現原來是工作表順序亂了,
實際排序變成下面這樣
工作表387
工作表388
工作表389
工作表39
工作表391
工作表392
工作表393
朋友說可能是電腦版本問題,請問有什麼方式可以改善嗎?
希望有大神能路過降臨協助解答,感激不盡 <(_ _)>
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.194.184.228 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1614051993.A.FC3.html
→
02/23 12:08,
3年前
, 1F
02/23 12:08, 1F
推
02/23 18:30,
3年前
, 2F
02/23 18:30, 2F