123
返回列表 上一主題 發帖

匯入總表數據bug

waitto04

帖子
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

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2024-10-30 
12#
發表於 2022-5-29 11:30 | 只看該作者
回復  samwang


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


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

1.JPG (223.23 KB)

1.JPG

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2024-10-30 
13#
發表於 2022-5-29 11:41 | 只看該作者
大師，想問個!!
如果以我原本的一長串的方式是可以帶的過去的
但現在卡住的有兩點
1.如同您寫 ...
waitto04 發表於 2022-5-29 11:26


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

TOP

waitto04

帖子
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



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

2.PNG (168.61 KB)

2.PNG

TOP

waitto04

帖子
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

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2024-10-30 
16#
發表於 2022-5-29 19:30 | 只看該作者
本帖最後由 samwang 於 2022-5-29 19:32 編輯
剛剛又重複嘗試了一次，沒成功帶出...

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


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

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

1.JPG (93.29 KB)

1.JPG

TOP

waitto04

帖子
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

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2024-10-30 
18#
發表於 2022-5-30 07:54 | 只看該作者
所以有可能你的總表第4列(如附圖)被清除然後執行結果就會失敗
第4列的各分頁的工作名稱不能清除
因 ...
waitto04 發表於 2022-5-29 23:26


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

TOP

waitto04

帖子
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

帖子
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

        靜思自在 : 小事不做、大事難成。
123
返回列表 上一主題