返回列表 上一主題 發帖

VBA 排序失效

VBA 排序失效

附檔中我想用B欄的編號來做排序,模組中的程式碼不知道是不是有什麼問題,沒跳出錯誤資訊,但也沒有更新排序,請各位大大幫忙,謝謝!!
  1. Sub 庫存排序()
  2.     With Sheets("廠內庫存")
  3.         .Select
  4.         r = .Columns(2).Find(what:="*", LookIn:=xlValues, SearchDirection:=xlPrevious).Row
  5.         .Sort.SortFields.Clear
  6.         .Sort.SortFields.Add Key:=Range("B4:B" & r), _
  7.             SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
  8.         With .Sort
  9.             .SetRange Range("B3:Z" & r)
  10.             .Header = xlYes
  11.             .MatchCase = False
  12.             .Orientation = xlTopToBottom
  13.             .SortMethod = xlPinYin
  14.             .Apply
  15.         End With
  16.         For i = 4 To r
  17.             .Cells(i, "A") = i - 3
  18.         Next
  19.         .Range("B" & r).Select
  20.     End With
  21. End Sub
複製代碼
排序失效.rar (13 KB)

找到問題了
DataOption:=  xlSortNormal  要改成  xlSortTextAsNumbers

TOP

xlSortNormal                       0        分別排序數值及文字資料。
xlSortTextAsNumbers        1        排序時將文字視為數值資料。

TOP

        靜思自在 : 有時當思無時苦,好天要積雨來糧。
返回列表 上一主題