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

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

36^# 跳轉到 »

發表於 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  然後存成增益集

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

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

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

35^#

發表於 2021-4-26 01:44 | 只看該作者

回復 34# 軒云熊

熊大好,
當起點是文字時,會出現錯誤,程式不能運作！

R0425.rar (25.03 KB)
另外,程式貼到我平常使用的工作表時,一直出現問題, 一下是沒定義,一下是要with...
各種的問題,完全無法使用,只有當它是單獨一個檔時,才能運作,這能解決嗎?

測試了幾天,我的每個工作表命名大多是文字與數字混合,
要算第x到第x個工作表,好像比較麻煩,文字與數字混合的檔案,
以開始~結束,能否讓它全部視為文字,數字工作表也不一定要數才可以?
可以這樣做嗎?

TOP

軒云熊

中學生 Rank: 2

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

34^#

發表於 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

TOP

軒云熊

中學生 Rank: 2

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

33^#

發表於 2021-4-25 22:48 | 只看該作者

回復 30# PJChen

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

0425.rar (25.11 KB)

TOP

軒云熊

中學生 Rank: 2

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

32^#

發表於 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

TOP

軒云熊

中學生 Rank: 2

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

31^#

發表於 2021-4-25 21:51 | 只看該作者

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

回復 30# PJChen

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

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

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

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

30^#

發表於 2021-4-25 15:23 | 只看該作者

回復 29# 軒云熊

熊大好,
修改完後,無法執行,說沒有指定工作表,但儲存格明明有工作表名稱
另外,我把程式移到其他工作表內,跟其他程式放一起,也無法執行,
說是沒有定義,能否也麻煩幫忙看下定莪的部份?

0419.rar (24.49 KB)

TOP

軒云熊

中學生 Rank: 2

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

29^#

發表於 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) '可以指定"依據"哪個工作表來排序

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

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

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

28^#

發表於 2021-4-20 23:50 | 只看該作者

回復 27# 軒云熊
熊大好,
我想將依據的工作表改為名稱,才不用一直算第幾個工作表,
但修改後不能運作,停在紅字這一行,請幫忙看下哪裡要再修改?
wO = xS.[設定!Z2].Value
If Sh.Name$(wO) Then MsgBox "沒有指定工作表": Ex.Quit: Set Ex = Nothing: Set Sh = Nothing: Exit Sub
MsgBox """" & "依據" & wO & "工作表排序"
Set Sh = Ex.Sheets(wO & "") '可以指定"依據"哪個工作表來排序

TOP

軒云熊

中學生 Rank: 2

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

27^#

發表於 2021-4-19 21:22 | 只看該作者

回復 26# PJChen

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

0419.rar (26.75 KB)

TOP

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]