PJChen

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2021-4-6 02:55 | 只看該作者

[發問] 根據"料號欄"為依據,做排序

大大們好,

請教如下....
來源檔為商品2!新月工作表
我有許多的檔案都需要根據"料號欄"的料號順序為依據,做排序
需排序的每個檔的表頭位置,及內容都不太同,
目的檔排序的準則為整列排序,若有未出現的料號,則略過
例: 標示黃底,都是目的檔庫存表沒有的品項,則目的檔的這些料號,就略過,跳下個料號繼續排序
由於目的檔也會有些工作表與料號無關,不需排序,
所以需排序的工作表,以"新月"M1:M2所指定的起迄工作表作為排序對象
並且自動找尋表頭有"料號"字樣,就依"新月"的料號順序整列排序

依新月工作表_料號排序.rar (326.8 KB)

樓主熱帖

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

45^#

發表於 2021-4-27 01:17 | 只看該作者

回復 44# 軒云熊

因為在執行程式過程中,執行一次就出現一個對話框,很多、很多次,所以就一直Dim....
這次的程式最近我想要的,感謝您....

TOP

軒云熊

中學生 Rank: 2

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

44^#

發表於 2021-4-27 00:16 | 只看該作者

本帖最後由軒云熊於 2021-4-27 00:20 編輯

回復 43# PJChen
這段妳看一下這是指定義為活頁簿物件
Dim a1 As Workbook, xS As Worksheet, Sh As Worksheet, wO$, Arr, xD

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

43^#

發表於 2021-4-27 00:12 | 只看該作者

回復 42# 軒云熊

熊大,
我沒有要指定路徑,路徑只是自己參考用的,都說了要原寫法,
只是改變3個輸入儲存格位置...而且都修改好了,為何換了一個工作表,程式檔就不能運作?
而且我沒有設定a1,您說的a1是物件不是變數 ?不理解,我有放什麼物件?

TOP

軒云熊

中學生 Rank: 2

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

42^#

發表於 2021-4-26 23:49 | 只看該作者

本帖最後由軒云熊於 2021-4-26 23:59 編輯

回復 41# PJChen
因為妳的a1是物件不是變數如果要指定路近就不需要選擇位置要改成類似這樣的寫法
' A1 = Dir(ThisWorkbook.Path & "\" & "商品2.xlsm")
' Ex.Workbooks.Open ThisWorkbook.Path & "\" & A1
不麻煩因為我們是互相幫助 ^_^ 我只是要確認妳要的結果而已
有空再幫我試試看是不是妳要的結果感謝

Micro_20426.rar (38.84 KB)

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

41^#

發表於 2021-4-26 21:05 | 只看該作者

回復 39# 軒云熊

熊大,
雖然我換了一個表格,需填入工作表的格子換了位置而已,其餘的並沒有變動,
如果您認為其他的問題需要大量改程式,就不要麻煩了！
只是想知道...
儲存格位置我都修改好了,為何換了一個工作表,程式檔就不能運作?

TOP

軒云熊

中學生 Rank: 2

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

40^#

發表於 2021-4-26 20:35 | 只看該作者

本帖最後由軒云熊於 2021-4-26 20:38 編輯

回復 38# PJChen

可以說清楚現在的邏輯不然這題會改不完 ^^"

TOP

軒云熊

中學生 Rank: 2

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

39^#

發表於 2021-4-26 20:12 | 只看該作者

本帖最後由軒云熊於 2021-4-26 20:24 編輯

回復 38# PJChen

確定要用 Micro_2 這個檔案嗎? 如果確定就要重寫因為大部分需求已經不一樣了
如果只用工作表名稱就改這樣:
'印盤點表~盤點
For X = 1 To Sheets.Count
If Sheets(X).Name = "印盤點表" Then
      For X1 = X To Sheets.Count
         Sheets(X1).Activate
         If Sheets(X1).Name = "盤點" Then
            Exit For
         End If
      Next X1
Exit For
End If
Next X

請問  Micro_2  的 AV2 是依據檔案的路近嗎?

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

38^#

發表於 2021-4-26 17:46 | 只看該作者

回復 36# 軒云熊
熊大好,

測試結果如下：
1) 已附上平日作業模式的程式檔,還是不能運作
2) 開始 (& 單一排序工作表)設在AZ4/ 結束設在AZ5
3) 結束儲存格[AZ5]=0時,就相當於"",所有的欄位因為都有公式,請不要讓它有清除欄位功能
4) 開始 (& 單一排序工作表)/ 結束的儲存格,無論是否為數字,能有其他寫法,不要用數第x個
For xh = 1 To Sheets.Count
例如：工作表A~工作表8(不是數第8,而是工作表8)

Micro_2.rar (34.3 KB)

TOP

軒云熊

中學生 Rank: 2

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

37^#

發表於 2021-4-26 15:06 | 只看該作者

回復 35# PJChen

已改成表單方式在試試看這樣行不行
如果沒問題可以存成增益集
不需要用的時候再關閉

0426.rar (24.53 KB)

TOP