返回列表 上一主題 發帖

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

回復 39# 軒云熊

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

TOP

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

TOP

回復 42# 軒云熊

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

TOP

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

回復 43# PJChen
這段妳看一下 這是指定義為 活頁簿 物件
Dim a1 As Workbook, xS As Worksheet, Sh As Worksheet, wO$, Arr, xD

TOP

回復 44# 軒云熊

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

TOP

        靜思自在 : 【停滯不前,終無所得】人都迷於尋找奇蹟,因而停滯不前;縱使時間再多、路再長,也了無用處,終無所得。
返回列表 上一主題