waitto04

反而原有的"經管表格"內容也被清空了
>> 對不起，清除總表資料 = ""，前面少了. 請自行加入，我也把程 ...
samwang 發表於 2022-5-29 10:58

    大師，想問個!!
如果以我原本的一長串的方式是可以帶的過去的
但現在卡住的有兩點
1.如同您寫的→ If InStr(sh.Name, "專案") Then '工作名稱有專案
   我也想僅sheet Name 有"專案" 才能作業!!
2.B的欄位都會被跳過

這兩個以原本寫的方式是需要再加什麼迴圈嗎?
有嘗試把你的語法帶入我的語法內，但是沒辦法順利成功

藥再麻煩大大了!

samwang

回復  samwang


  有點想哭!
是因為版本不同的關係所以有所差別??
因為真的帶不出來...
waitto04 發表於 2022-5-29 11:11

With sheets(1) 先設停止點，然後按F5執行，再確認字典有無資料，正確應該要有資料，請確認，謝謝

samwang

大師，想問個!!
如果以我原本的一長串的方式是可以帶的過去的
但現在卡住的有兩點
1.如同您寫 ...
waitto04 發表於 2022-5-29 11:26

2.B的欄位都會被跳過
>> 看你的程式，個分頁資料-->"經營表格"-->C欄資料--> 總表
看不懂你實際需求是要什麼，謝謝

waitto04

With sheets(1) 先設停止點，然後按F5執行，再確認字典有無資料，正確應該要有資料，請確認，謝謝
samwang 發表於 2022-5-29 11:30

   這個步驟經過確認，有東西可以帶出來唷!

waitto04

With sheets(1) 先設停止點，然後按F5執行，再確認字典有無資料，正確應該要有資料，請確認，謝謝
samwang 發表於 2022-5-29 11:30

剛剛又重複嘗試了一次，沒成功帶出...

2.B的欄位都會被跳過
>> 看你的程式，個分頁資料-->"經營表格"-->C欄資料--> 總表
看不懂你實際需求是 ...
samwang 發表於 2022-5-29 11:41

  設定是
"經管表格" C欄的資料可以帶入 "總表"依名稱填入對應的數據
但小弟剛接觸VBA不久，不知道為什麼，數據帶入了，但是B欄位沒有被引動的感覺，反而是從總表的C欄開始動作

不好意思，礙於權限關係!! 每小時只能回復三帖... 很緊張這種回復方式

samwang

剛剛又重複嘗試了一次，沒成功帶出...

  設定是
"經管表格" C欄的資料可以帶入 "總表"依名 ...
waitto04 發表於 2022-5-29 12:22

依據你的測試#14 有成功，#15又失敗，你又說字典有資料
所以有可能你的總表第4列(如附圖)被清除然後執行結果就會失敗
第4列的各分頁的工作名稱不能清除
因為那是字典匯出時比對的條件之一
請再測試看看，謝謝

另外，我寫的程式執行前不用清除舊資料，因為程式最後會自動清除(我有註解)

waitto04

依據你的測試#14 有成功，#15又失敗，你又說字典有資料
所以有可能你的總表第4列(如附圖)被清除然後執 ...
samwang 發表於 2022-5-29 19:30

所以有可能你的總表第4列(如附圖)被清除然後執行結果就會失敗
第4列的各分頁的工作名稱不能清除
因為那是字典匯出時比對的條件之一

大大 沒錯喔!!是有數據生成的!!
但有一件事情是，若這個編碼再下次會更新是不一樣的(非作業，實戰使用)
是不是變成要先將專案代碼先匯入總表內，再將後續的數值呼叫出來呢?

samwang

所以有可能你的總表第4列(如附圖)被清除然後執行結果就會失敗
第4列的各分頁的工作名稱不能清除
因 ...
waitto04 發表於 2022-5-29 23:26

但有一件事情是，若這個編碼再下次會更新是不一樣的(非作業，實戰使用)
是不是變成要先將專案代碼先匯入總表內，再將後續的數值呼叫出來呢?
>>對，先將各分頁的的名稱先匯至總表後再執行即可，謝謝

waitto04

但有一件事情是，若這個編碼再下次會更新是不一樣的(非作業，實戰使用)
是不是變成要先將專案代碼先匯 ...
samwang 發表於 2022-5-30 07:54

    感謝大大的解說
晚點我再測試看看!

waitto04

但有一件事情是，若這個編碼再下次會更新是不一樣的(非作業，實戰使用)
是不是變成要先將專案代碼先匯 ...
samwang 發表於 2022-5-30 07:54

    大大，感謝你!!
語法我已經都寫完了，也有結合先前的一些語法把專案案號進行匯入

另外我想問的是
語法裡面有提到

If Arr(i, 3) = "" Then GoTo 90 '沒數據離開
                T = sh.Name & "|" & Arr(i, 1)  '條件:工作表名稱+項目
                xD(T) = Arr(i, 3)              '數據裝入字典
90:         Next

1.90是自定義的變數嗎?
2.前次有提及到bug的部分，意思是先把表格內的資訊抓到類似字典庫裡
後續再由專案案號下去分配相對應的數值，意思是這樣對嗎?

太感謝你了，相信這個報表是很有貢獻的!!