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

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

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

軒云熊

中學生 Rank: 2

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

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
最後登錄: 2024-9-23

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
最後登錄: 2024-9-23

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

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
最後登錄: 2024-9-23

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

軒云熊

中學生 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

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

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

軒云熊

中學生 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

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

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

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