返回列表 上一主題 發帖

VBA 排序失效

s13030029
　暱稱: 伊恩

中學生Rank: 2

帖子
97 
主題
33 
精華
0 
積分
129 
點名
0  
作業系統
Win 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2019-5-7 
最後登錄
2022-8-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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
複製代碼
排序失效.rar (13 KB)
收藏 分享

s13030029
　暱稱: 伊恩

中學生Rank: 2

帖子
97 
主題
33 
精華
0 
積分
129 
點名
0  
作業系統
Win 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2019-5-7 
最後登錄
2022-8-25 
2#
發表於 2021-4-20 16:45 | 只看該作者
找到問題了
DataOption:=  xlSortNormal  要改成  xlSortTextAsNumbers

TOP

s13030029
　暱稱: 伊恩

中學生Rank: 2

帖子
97 
主題
33 
精華
0 
積分
129 
點名
0  
作業系統
Win 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2019-5-7 
最後登錄
2022-8-25 
3#
發表於 2021-4-20 16:46 | 只看該作者
xlSortNormal                       0        分別排序數值及文字資料。
xlSortTextAsNumbers        1        排序時將文字視為數值資料。

TOP

        靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。
返回列表 上一主題