指定日期計算結餘數 - Excel程式區

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

21^# 跳轉到 »

發表於 2021-9-27 08:05 | 只看該作者

本帖最後由 samwang 於 2021-9-27 08:07 編輯

回復 19# PJChen

另外一個U欄程式,紅字這一段,日期+1的寫法不能用,請問如何讓日期+1
      If Arr(i, 2) >= d And Arr(i, 4) <> "中和" Or Arr(i, 4) <> "內湖" And Arr(i, 4) <> "汐止" Then 'i=列
         .Cells(i, "u").Formula = "=B" & i & " +1 "
      ElseIf Arr(i, 2) >= d And Arr(i, 4) = "中和" Or Arr(i, 4) = "內湖" And Arr(i, 4) = "汐止" Then
         .Cells(i, "u").Formula = "=B" & i & ""
      End If

後學也是第一次用這種寫法(VBA在excel寫公式)，
寫了這幾次下來好像有點規則，只要遇到變數i " &   i & " 然後 & 其它

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

22^#

發表於 2021-9-27 12:38 | 只看該作者

回復 21# samwang

感謝您,
U & E欄的問題都解決了,
但發現另一個問題,因為每一個欄都有一個別的程式,
但只要執行了 .Value = .Value
就會干擾到其他欄位,也都變成值,
請問如何使程式之間不要互相干擾,
這樣需要保留公式的,就不會變成值！
~~~~~~~~~
另外,原來是用函數計算派板-交板差異,請問這個有辧法開為程式嗎? V欄的程式也是要單獨一個哦...
V3=IF(COUNTIFS(北區!$B$2:$B3,北區!$B3,北區!$D$2:$D3,北區!$D3)=1,SUMIFS(北區!$W:$W,北區!$B:$B,北區!$B3,北區!$D:$D,北區!$D3)-SUMIFS(北區!$F:$F,北區!$B:$B,北區!$U3,北區!$D:$D,北區!$D3),0)

TOP

samwang

大學生 Rank: 4

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

23^#

發表於 2021-9-27 13:00 | 只看該作者

回復 22# PJChen

但只要執行了 .Value = .Value
就會干擾到其他欄位,也都變成值,
>> 改為單獨欄轉為值
Range("K3:K" & R).Value = Range("K3:K" & R).Value 'K欄轉為值

TOP

samwang

大學生 Rank: 4

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

24^#

發表於 2021-9-27 14:06 | 只看該作者

回復 22# PJChen

另外,原來是用函數計算派板-交板差異,請問這個有辧法開為程式嗎? V欄的程式也是要單獨一個哦...
V3=IF(COUNTIFS(北區!$B$2:$B3,北區!$B3,北區!$D$2:$D3,北區!$D3)=1,SUMIFS(北區!$W:$W,北區!$B:$B,北區!$B3,北區!$D:$D,北區!$D3)-SUMIFS(北區!$F:$F,北區!$B:$B,北區!$U3,北區!$D:$D,北區!$D3),0)
>> 這是要做什麼??不知道您實際需求是什麼?

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

25^#

發表於 2021-9-28 15:20 | 只看該作者

本帖最後由 PJChen 於 2021-9-28 15:27 編輯

回復 23# samwang

您好,
轉換值的部份沒問題了！
另一個同一系列檔案,一樣指定d = xS.[Af2]

中區資料是一個全年度性的,會一直增加至年底,
H欄要統計D欄每個月最後一個日期的月統計數量
也就是同一年同一月的出貨數,第一筆不一定1日開始,最後一筆也不一定是月底日
,請問這程式要怎麼寫？

中區.rar (35.56 KB)

TOP

samwang

大學生 Rank: 4

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

26^#

發表於 2021-9-28 18:02 | 只看該作者

回復 25# PJChen

H欄要統計D欄每個月最後一個日期的月統計數量
>> 如下，請測試看看，謝謝
Sub test()
Dim Arr, Brr, xD, i&, T$, T1$
Arr = Sheets("中區").Range("a3:k" & [中區!a65536].End(3).Row + 1)
ReDim Brr(1 To UBound(Arr), 1 To 1)
Set xD = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(Arr)
If Not IsDate(Arr(i, 1)) Then GoTo 98
T = Month(Arr(i, 1)): T1 = Month(Arr(i + 1, 1))
If xD.Exists(T) Then
      If T <> T1 Then
         xD(Arr(i, 1) & "_" & Arr(i, 3)) = Val(xD(T)) + Val(Arr(i, 4))
      Else
         xD(T) = Val(xD(T)) + Val(Arr(i, 4))
      End If
Else
      xD(T) = Val(Arr(i, 4))
End If
98: Next
For Each ky In xD.keys
For i = 1 To UBound(Arr)
      Brr(i, 1) = xD(Arr(i, 1) & "_" & Arr(i, 3))
Next
Next
Sheets("中區").[h3].Resize(UBound(Brr)) = Brr
End Sub

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

27^#

發表於 2021-9-28 19:48 | 只看該作者

回復 26# samwang

您好,
執行很快速,不過程式對我來說,複雜很多！能否幫我註解一下紅字用法?
另外這段程式"_",它代表什麼?
xD(Arr(i, 1) & "_" & Arr(i, 3)) = Val(xD(T)) + Val(Arr(i, 4))
Sub test()
Dim Arr, Brr, xD, i&, T$, T1$
Arr = Sheets("中區").Range("a3:k" & [中區!a65536].End(3).Row + 1)
ReDim Brr(1 To UBound(Arr), 1 To 1)
Set xD = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(Arr)
If Not IsDate(Arr(i, 1)) Then GoTo 98
T = Month(Arr(i, 1)): T1 = Month(Arr(i + 1, 1))
If xD.Exists(T) Then
      If T <> T1 Then
          xD(Arr(i, 1) & "_" & Arr(i, 3)) = Val(xD(T)) + Val(Arr(i, 4))
      Else
         xD(T) = Val(xD(T)) + Val(Arr(i, 4))
      End If
Else
      xD(T) = Val(Arr(i, 4))
End If
98: Next
For Each ky In xD.keys
For i = 1 To UBound(Arr)
      Brr(i, 1) = xD(Arr(i, 1) & "_" & Arr(i, 3))
Next
Next
Sheets("中區").[h3].Resize(UBound(Brr)) = Brr
End Sub

TOP

samwang

大學生 Rank: 4

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

28^#

發表於 2021-9-29 07:58 | 只看該作者

回復 27# PJChen

能否幫我註解一下紅字用法? >>註解寫得不好、詞不達意，請見諒，謝謝

Sub test()
Dim Arr, Brr, xD, i&, T$, T1$
Arr = Sheets("中區").Range("a3:k" & [中區!a65536].End(3).Row + 1) '資料裝入陣列
ReDim Brr(1 To UBound(Arr), 1 To 1) '創空的陣列用來裝答案
Set xD = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(Arr)
If Not IsDate(Arr(i, 1)) Then GoTo 98 '不是日期離開
T = Month(Arr(i, 1)): T1 = Month(Arr(i + 1, 1))
If xD.Exists(T) Then '是否A欄月份有在字典
      If T <> T1 Then '自己與下一列日期的月份比較
         '紀錄當月最後一筆的交板數量累加，key:最後日期_採購單號，避免最後一天有多筆
         xD(Arr(i, 1) & "_" & Arr(i, 3)) = Val(xD(T)) + Val(Arr(i, 4))
      Else
         xD(T) = Val(xD(T)) + Val(Arr(i, 4)) '同月份交板數量累加
      End If
Else
      xD(T) = Val(Arr(i, 4)) '交板數量裝入字典
End If
98: Next
For Each ky In xD.keys  '字典keys循環
For i = 1 To UBound(Arr)
      Brr(i, 1) = xD(Arr(i, 1) & "_" & Arr(i, 3)) '字典key:最後日期_採購單號，裝入答案陣列
Next
Next
Sheets("中區").[h3].Resize(UBound(Brr)) = Brr  '顯示答案
End Sub

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

29^#

發表於 2021-10-4 21:37 | 只看該作者

回復 28# samwang

您好,
請幫我看下程式
資料有多年度時,只有第一年計算正確,其餘合計會出錯...

中區_多年度.rar (64.59 KB)

TOP

samwang

大學生 Rank: 4

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

30^#

發表於 2021-10-5 07:31 | 只看該作者

回復 29# PJChen

資料有多年度時,只有第一年計算正確,其餘合計會出錯...
>> 更改如下，請測試看看，謝謝。
T = Year(Arr(i, 1)) & "|" & Month(Arr(i, 1)): T1 = Year(Arr(i, 1)) & "|" & Month(Arr(i + 1, 1))

TOP

[發問] 指定日期計算結餘數

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

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