返回列表 上一主題 發帖

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

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

回復 30# PJChen

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

TOP

回復 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

回復 30# PJChen

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

0425.rar (25.11 KB)

TOP

回復 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

回復 34# 軒云熊

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

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

TOP

本帖最後由 軒云熊 於 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

回復 35# PJChen

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

TOP

回復 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

本帖最後由 軒云熊 於 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

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

回復 38# PJChen

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

TOP

        靜思自在 : 人的心地是一畦田,土地沒有播下好種子,也長不出好的果實。 -
返回列表 上一主題