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

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

21^# 跳轉到 »

發表於 2021-4-26 15:06 | 顯示全部帖子

回復 35# PJChen

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

0426.rar (24.53 KB)

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

22^#

發表於 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 是依據檔案的路近嗎?

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

23^#

發表於 2021-4-26 20:35 | 顯示全部帖子

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

回復 38# PJChen

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

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

24^#

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

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

25^#

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