匯入總表數據bug

帖子: 13
主題: 1
精華: 0
積分: 15
點名: 0
作業系統: W10
軟體版本: 2010
閱讀權限: 10
性別: 男
註冊時間: 2022-5-28
最後登錄: 2022-6-1

11^# 跳轉到 »

發表於 2022-5-29 11:26 | 只看該作者

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

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

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

藥再麻煩大大了!

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2023-9-21

12^#

發表於 2022-5-29 11:30 | 只看該作者

回復 samwang

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

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

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2023-9-21

13^#

發表於 2022-5-29 11:41 | 只看該作者

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

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

TOP

waitto04

小學生 Rank: 1

帖子: 13
主題: 1
精華: 0
積分: 15
點名: 0
作業系統: W10
軟體版本: 2010
閱讀權限: 10
性別: 男
註冊時間: 2022-5-28
最後登錄: 2022-6-1

14^#

發表於 2022-5-29 11:42 | 只看該作者

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

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

TOP

waitto04

小學生 Rank: 1

帖子: 13
主題: 1
精華: 0
積分: 15
點名: 0
作業系統: W10
軟體版本: 2010
閱讀權限: 10
性別: 男
註冊時間: 2022-5-28
最後登錄: 2022-6-1

15^#

發表於 2022-5-29 12:22 | 只看該作者

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

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

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

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

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

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2023-9-21

16^#

發表於 2022-5-29 19:30 | 只看該作者

本帖最後由 samwang 於 2022-5-29 19:32 編輯

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

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

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

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

TOP

waitto04

小學生 Rank: 1

帖子: 13
主題: 1
精華: 0
積分: 15
點名: 0
作業系統: W10
軟體版本: 2010
閱讀權限: 10
性別: 男
註冊時間: 2022-5-28
最後登錄: 2022-6-1

17^#

發表於 2022-5-29 23:26 | 只看該作者

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

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

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

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2023-9-21

18^#

發表於 2022-5-30 07:54 | 只看該作者

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

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

TOP

waitto04

小學生 Rank: 1

帖子: 13
主題: 1
精華: 0
積分: 15
點名: 0
作業系統: W10
軟體版本: 2010
閱讀權限: 10
性別: 男
註冊時間: 2022-5-28
最後登錄: 2022-6-1

19^#

發表於 2022-5-30 13:13 | 只看該作者

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

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

TOP

waitto04

小學生 Rank: 1

帖子: 13
主題: 1
精華: 0
積分: 15
點名: 0
作業系統: W10
軟體版本: 2010
閱讀權限: 10
性別: 男
註冊時間: 2022-5-28
最後登錄: 2022-6-1

20^#

發表於 2022-5-31 20:08 | 只看該作者

但有一件事情是，若這個編碼再下次會更新是不一樣的(非作業，實戰使用)
是不是變成要先將專案代碼先匯 ...
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的部分，意思是先把表格內的資訊抓到類似字典庫裡
後續再由專案案號下去分配相對應的數值，意思是這樣對嗎?

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

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]