根據"料號欄"為依據,做排序 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 根據"料號欄"為依據,做排序

返回列表下一主題上一主題發帖

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

　暱稱: PJ

大學生 Rank: 4

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

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

41^# 跳轉到 »

發表於 2021-4-26 21:05 | 只看該作者

回復 39# 軒云熊

熊大,
雖然我換了一個表格,需填入工作表的格子換了位置而已,其餘的並沒有變動,
如果您認為其他的問題需要大量改程式,就不要麻煩了！
只是想知道...
儲存格位置我都修改好了,為何換了一個工作表,程式檔就不能運作?

中學生 Rank: 2

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

42^#

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

　暱稱: PJ

大學生 Rank: 4

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

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

43^#

發表於 2021-4-27 00:12 | 只看該作者

回復 42# 軒云熊

熊大,
我沒有要指定路徑,路徑只是自己參考用的,都說了要原寫法,
只是改變3個輸入儲存格位置...而且都修改好了,為何換了一個工作表,程式檔就不能運作?
而且我沒有設定a1,您說的a1是物件不是變數 ?不理解,我有放什麼物件?

中學生 Rank: 2

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

44^#

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

　暱稱: PJ

大學生 Rank: 4

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

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

45^#

發表於 2021-4-27 01:17 | 只看該作者

回復 44# 軒云熊

因為在執行程式過程中,執行一次就出現一個對話框,很多、很多次,所以就一直Dim....
這次的程式最近我想要的,感謝您....

靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。

返回列表下一主題上一主題