麻辣家族討論版版 » Excel程式區 » [求助] 請高手求助，如何用vba查找資料庫中的資料記錄？

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

[求助] 請高手求助，如何用vba查找資料庫中的資料記錄？

中學生 Rank: 2

帖子: 96
主題: 29
精華: 0
積分: 129
點名: 0
作業系統: win
軟體版本: 7
閱讀權限: 20
註冊時間: 2011-3-8
最後登錄: 2024-8-14

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-9-18 17:05 | 顯示全部帖子

[求助] 請高手求助，如何用vba查找資料庫中的資料記錄？

1. 客戶：h001，品名：b2，歷年來的總金額。

2. 客戶：h001，歷年來的總金額。

3. 應該是2012年8月份，客戶：h001，品名：b2，總金額。

4. 應該是2012年8月份，客戶：h001，總金額。

5. 應該是2012年8月份，品名：a1，總金額。

6. 應該是2012年8月份，總金額。

7. 2012年全年總金額。

8. 2012年，客戶：h001，全年總金額。

9. 2012年，客戶：h001，品名：a1，全年總金額。

這樣的一個交叉查詢資料庫，請問用vba如何實現？感激各位賜教。

樓主熱帖

收藏

中學生 Rank: 2

帖子: 96
主題: 29
精華: 0
積分: 129
點名: 0
作業系統: win
軟體版本: 7
閱讀權限: 20
註冊時間: 2011-3-8
最後登錄: 2024-8-14

2^#

發表於 2012-9-18 17:08 | 顯示全部帖子

回復 1# maiko

補上附件

Book3.zip (9.08 KB)

中學生 Rank: 2

帖子: 96
主題: 29
精華: 0
積分: 129
點名: 0
作業系統: win
軟體版本: 7
閱讀權限: 20
註冊時間: 2011-3-8
最後登錄: 2024-8-14

3^#

發表於 2012-9-19 08:15 | 顯示全部帖子

可惜不夠積分，不能下載！

中學生 Rank: 2

帖子: 96
主題: 29
精華: 0
積分: 129
點名: 0
作業系統: win
軟體版本: 7
閱讀權限: 20
註冊時間: 2011-3-8
最後登錄: 2024-8-14

4^#

發表於 2012-9-19 08:18 | 顯示全部帖子

回復 maiko
Hsieh 發表於 2012-9-18 20:16

剛剛發現一個問題，就是應該把日期的年月日分開來查詢，這樣才能夠準確一點，能否改成如果只輸入年，月日不輸入的話就查詢整年的資料，年月同時輸入的話就查詢當年當月的資料，年月日就指定這天查詢的資料，其它客戶、品名沒變。看看能否改一改？謝謝！

能否用vba作一個從Sheet2數據庫裡查詢不重複的客戶名、品名的下拉列表，可讓使用者容易的選擇客戶名、品名，不至於打錯字。謝謝！

最後，能否加一條，如果查詢不到資料，就提供使用者沒此資料？謝謝！

中學生 Rank: 2

帖子: 96
主題: 29
精華: 0
積分: 129
點名: 0
作業系統: win
軟體版本: 7
閱讀權限: 20
註冊時間: 2011-3-8
最後登錄: 2024-8-14

5^#

發表於 2012-9-20 10:11 | 顯示全部帖子

回復 maiko
進階查詢，在一般模組取得Sheet2工作表B、C欄不重複清單做為驗證清單
Sheet2工作表模組Shee ...
Hsieh 發表於 2012-9-19 09:27

謝謝大大提供這麼好的vba語言，只是分數太低，無法下載原件測試，只好拿大大的vba去慢慢啄磨，謝謝！

如遇有什麼問題，容後再提，可以嗎？謝謝！

中學生 Rank: 2

帖子: 96
主題: 29
精華: 0
積分: 129
點名: 0
作業系統: win
軟體版本: 7
閱讀權限: 20
註冊時間: 2011-3-8
最後登錄: 2024-8-14

6^#

發表於 2012-9-20 16:26 | 顯示全部帖子

回復 maiko
進階查詢，在一般模組取得Sheet2工作表B、C欄不重複清單做為驗證清單
Sheet2工作表模組Shee ...
Hsieh 發表於 2012-9-19 09:27

在試過以Sheet2查詢不重複清單時，Sheet1的A2，B2，C2，D2，E2儲存格只有D2，E2出現清單，其它沒出現，而且D2，E2出現的清單並不是以Sheet2表中查詢的不重複清單，請查看附件是否有沒錯?謝謝！

Book3_New.zip (20.75 KB)

中學生 Rank: 2

帖子: 96
主題: 29
精華: 0
積分: 129
點名: 0
作業系統: win
軟體版本: 7
閱讀權限: 20
註冊時間: 2011-3-8
最後登錄: 2024-8-14

7^#

發表於 2012-9-24 10:28 | 顯示全部帖子

回復 maiko

你把代碼放錯工作表模組
要放在Sheet2工作表模組內
然後變動B、C欄資料
只有D2、 ...
Hsieh 發表於 2012-9-20 19:35

你好，我把代碼放在Sheet2工作表模組內，然後變動B、C欄，可是還是無法驗證出D、E欄的資料，請查一查附件。
由於無法下載大大提供的附件，請幫忙看看，謝謝！

Book3_New.zip (21.64 KB)

中學生 Rank: 2

帖子: 96
主題: 29
精華: 0
積分: 129
點名: 0
作業系統: win
軟體版本: 7
閱讀權限: 20
註冊時間: 2011-3-8
最後登錄: 2024-8-14

8^#

發表於 2012-9-25 11:33 | 顯示全部帖子

大大，能否幫我看看，謝謝！

中學生 Rank: 2

帖子: 96
主題: 29
精華: 0
積分: 129
點名: 0
作業系統: win
軟體版本: 7
閱讀權限: 20
註冊時間: 2011-3-8
最後登錄: 2024-8-14

9^#

發表於 2012-9-26 10:22 | 顯示全部帖子

回復 maiko

在Sheet2中的B、C欄隨便打個資料看看
Hsieh 發表於 2012-9-25 15:09

果然可以啦！
不過能否把清單的順序排為升序嗎？謝謝！

中學生 Rank: 2

帖子: 96
主題: 29
精華: 0
積分: 129
點名: 0
作業系統: win
軟體版本: 7
閱讀權限: 20
註冊時間: 2011-3-8
最後登錄: 2024-8-14

10^#

發表於 2012-9-26 11:15 | 顯示全部帖子

回復 maiko

在Sheet2中的B、C欄隨便打個資料看看
Hsieh 發表於 2012-9-25 15:09

補充一下：
能否通過Sheet1表中的A2、B2、C2儲存格的改變而令到D2、E2儲存格的清單改變？謝謝！

靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。

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