[發問] 依日期取資料

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2025-6-21

2^#

發表於 2020-9-13 00:31 | 只看該作者

回復 1# qaqa3296
有空幫我測試一下看看是不是你要的
生效日期與失效日期都相同時，已失效為準，該行不列出這我不太明白你先試試看是不是這樣

javascript:;

0913.rar (29.11 KB)

qaqa3296

帖子: 45
主題: 7
精華: 0
積分: 102
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2016
閱讀權限: 20
註冊時間: 2019-4-27
最後登錄: 2025-10-12

3^#

發表於 2020-9-13 11:26 | 只看該作者

回復 2# 軒云熊

感謝軒云熊的程式，功能正確

然後看到熟悉的字串拆開格式，才發現我某一天的日期格式打錯了!

讓你多寫分割文字

詢問一下
U = True: K = 1
For i = 1 To UBound(Arr)
If U = True Then
      For F = 1 To UBound(Arr, 2)
         Brr(1, F) = Arr(1, F)
      Next F
U = False
End If
作用是什麼?

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2025-6-21

4^#

發表於 2020-9-13 12:43 | 只看該作者

本帖最後由軒云熊於 2020-9-13 12:47 編輯

回復 3# qaqa3296
那只是列出標題而已沒有甚麼作用 ...XD 謝謝你幫我測試

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2025-6-21

5^#

發表於 2020-9-13 14:08 | 只看該作者

回復 3# qaqa3296
這是加了刪除重複應該會快一點點順便把 Select Case 改成 if 感覺不太適用 >"<

javascript:;

0913_1.rar (32 KB)

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2025-6-21

6^#

發表於 2020-9-13 15:04 | 只看該作者

回復 3# qaqa3296
抱歉迴圈沒有刪除到... 再傳一次 >"<

javascript:;

0913_2.rar (31.67 KB)

qaqa3296

帖子: 45
主題: 7
精華: 0
積分: 102
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2016
閱讀權限: 20
註冊時間: 2019-4-27
最後登錄: 2025-10-12

7^#

發表於 2020-9-13 21:20 | 只看該作者

本帖最後由 qaqa3296 於 2020-9-13 21:32 編輯

回復 6# 軒云熊

抱歉我前面沒有測試出來，邏輯是有問題的

但我可以自行修改

附上測試結果

有在目標打上備註

0913A.zip (30.57 KB)

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2025-6-21

8^#

發表於 2020-9-13 22:44 | 只看該作者

回復 7# qaqa3296
好的　謝謝你幫我測試　我也改了一下有空幫我看一下是不是這樣　想知道哪裡有問題　:) 　　　

javascript:;

0913A_1.rar (29.49 KB)

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2843
主題: 10
精華: 0
積分: 2899
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-10-18

9^#

發表於 2020-9-14 09:48 | 只看該作者

日期格式有多種,
數值/文字格式+mm/dd/yyyy ???
更主要是看不懂比較規則?? 比大比小???

qaqa3296

帖子: 45
主題: 7
精華: 0
積分: 102
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2016
閱讀權限: 20
註冊時間: 2019-4-27
最後登錄: 2025-10-12

10^#

發表於 2020-9-14 20:22 | 只看該作者

本帖最後由 qaqa3296 於 2020-9-14 20:30 編輯

回復 9# 准提部林

我取得的資料，全部的格式只有YYYY/MM/DD/，模擬檔打錯了抱歉。

這是一個ERP的功能。
資料呈現是每個表料件都有生效與失效的日期，輸入日期就能知道當時用什麼料

我想把它當作練習並學習寫程式，但腦袋卡住了
不知如何才能讓日期格式去比大小，花了一兩個星期...想不出來試也試不出來

就是單純的比日期大小取得對應料件資訊。
但是要符合時間邏輯，第一次建檔完全沒有時間全部料有用到(全列出)
之後改版取消料件，就會給失效日，新增料會給生效日(開始有日期差異)
生效日到，但無法量產製造則生效與失效是同天，所以實際也沒有用到那個料件(不列出)

7樓的那個檔可以看出我想要的邏輯。

回復軒云熊
這次邏輯對了，感謝你的程式讓我學習