根據"料號欄"為依據,做排序 - Excel程式區

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

12^#

發表於 2021-4-18 23:12 | 顯示全部帖子

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

回復 23# PJChen

請問 "*.xlsx" 每個活頁簿循環排序的時候起點的工作表跟結束點的工作表每個活頁簿是固定的嗎?

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

13^#

發表於 2021-4-18 23:31 | 顯示全部帖子

回復 23# PJChen
如果是多活頁簿多工作表那工作表的區間不定的話就會一直出現選擇工作表的區間位置
還是說只是要可以選擇要排序的活頁簿做多工作表排序? 或著是 2個都要?
1.可以選擇要排序的活頁簿可以單一也可以多個工作表排序
2.不指定活頁簿要進行多個活頁簿排序但工作表位置不同 : 指定工作表區間每換一個活頁簿就要重新指定工作表區間一次
3.不指定活頁簿要進行多個活頁簿排序工作表區間相同
是這樣的結果嗎?

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

14^#

發表於 2021-4-19 21:22 | 顯示全部帖子

回復 26# PJChen

有空再幫我試試看是不是這樣的結果感謝

0419.rar (26.75 KB)

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

15^#

發表於 2021-4-21 00:29 | 顯示全部帖子

回復 28# PJChen

If IsNumeric(wO) Then MsgBox "沒有指定第幾個工作表": Ex.Quit: Set Ex = Nothing: Set Sh = Nothing: Exit Sub
MsgBox """" & "依據" & """第" & wO & "個工作表排序"
Set Sh = Ex.Sheets(wO) '可以指定"依據"哪個工作表來排序

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

16^#

發表於 2021-4-25 21:51 | 顯示全部帖子

本帖最後由軒云熊於 2021-4-25 22:04 編輯

回復 30# PJChen

第幾個工作表是數字名稱是 My_Sh_Name$ = [工作表2!E5].Value 已定義為 "文字"
因為名稱有數字又有文字 1~3 其實是 9~11個工作表而 "印盤點表" 是第2個工作表判斷結果會有錯誤可否改成統一用第幾個工作表?
這樣就可以合併使用

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

17^#

發表於 2021-4-25 22:25 | 顯示全部帖子

回復 30# PJChen

有空幫試試看這樣行不行

      '在同一個活頁簿指定單一工作表
      My_Sh_Name$ = [工作表2!E5].Value
      If [工作表2!E9] <> "" Then
         '在同一個活頁簿指定多個工作表 Sheets(1)到 Sheets(N)個
         起點% = [工作表2!E5].Value
         結束點 = [工作表2!E9].Value
         If IsNumeric(起點) And IsNumeric(結束點) Then
               MsgBox 起點 & "到" & 結束點
         Else
               MsgBox "未指定工作表位置"
               Exit Sub
         End If
      End If

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

18^#

發表於 2021-4-25 22:48 | 顯示全部帖子

回復 30# PJChen

合併使用文字 or 數字都可以
改了幾個地方有空再幫我試試看有沒有問題感謝

0425.rar (25.11 KB)

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

19^#

發表於 2021-4-25 23:39 | 顯示全部帖子

回復 30# PJChen

抱歉這段要改一下 :
      '在同一個活頁簿指定單一工作表
      My_Sh_Name$ = [工作表2!E5].Value
      If [工作表2!E9] <> "" Then
         '在同一個活頁簿指定多個工作表 Sheets(1)到 Sheets(N)個
         起點% = [工作表2!E5].Value
         結束點 = [工作表2!E9].Value
         If 起點 = 0 Then
            MsgBox "未指定工作表位置"
            Exit Sub
         ElseIf IsNumeric(起點) And IsNumeric(結束點) Then
               MsgBox 起點 & "到" & 結束點
         Else
               MsgBox "未指定工作表位置"
               Exit Sub
         End If
      End If

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

20^#

發表於 2021-4-26 04:00 | 顯示全部帖子

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

回復 35# PJChen
因為 E5 是文字 E9 就不能有內容 : 單一工作表時 E9 就不能有內容
這已經是合併的判斷了
這段改一下試試看還有沒有問題感謝

      '在同一個活頁簿指定單一工作表
      My_Sh_Name$ = [工作表2!E5].Value
      If Not IsNumeric(My_Sh_Name) Then [工作表2!E9] = ""
      If [工作表2!E9] <> "" Then
         '在同一個活頁簿指定多個工作表 Sheets(1)到 Sheets(N)個
         起點% = [工作表2!E5].Value
         結束點 = [工作表2!E9].Value
         If 起點 = 0 Then
            MsgBox "未指定工作表位置"
            Exit Sub
         ElseIf IsNumeric(起點) And IsNumeric(結束點) Then
               MsgBox 起點 & "到" & 結束點
         Else
               MsgBox "未指定工作表位置"
               Exit Sub
         End If
      End If
另外,程式貼到我平常使用的工作表時,一直出現問題, 一下是沒定義,一下是要with...
各種的問題,完全無法使用,只有當它是單獨一個檔時,才能運作,這能解決嗎?
請問  貼到我平常使用的工作表是甚麼檔案? 可否上傳看一下感謝
可以用自訂表單或著 InputBox  然後存成增益集