Board logo

標題: VBA 排序失效 [打印本頁]

作者: s13030029    時間: 2021-4-20 14:15     標題: 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
複製代碼
[attach]33225[/attach]
作者: s13030029    時間: 2021-4-20 16:45

找到問題了
DataOption:=  xlSortNormal  要改成  xlSortTextAsNumbers
作者: s13030029    時間: 2021-4-20 16:46

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




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)