帖子: 63
主題: 15
精華: 0
積分: 81
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2014-3-16
最後登錄: 2015-9-20

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-3-27 16:58 | 只看該作者

VBA 加總數值

你好，請問各位大大

目前幾個問題，想請教各位大大的幫
1、如何透過VBA將字串201101010001提出前八個號碼然後加上2011/01/01變成日期
2、將同一天日期所使用的數量做數量的加總

我知道如何用手工操作控制，但是數量太龐大沒辦法一個一個用，所以想要透過VBA執行

拜託各位神人幫幫忙~~~~~

PS.由於會員還是小學生，不能下載檔案，可否將程式碼貼在留言上，不好意思!!!!

樓主熱帖

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

2^#

發表於 2014-3-28 05:22 | 只看該作者

設 201101010001 在 A2
B2公式
=DATE(LEFT($A2,4),MID($A2,6,2),MID($A2,8,2))
日期格式設為
yyyy/mm/dd

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 41
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-2-16

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2014-3-28 09:33 | 只看該作者

回復 1# 518587

Sub ex()
Set d = CreateObject("Scripting.Dictionary")
For Each a In Range([A1], [A1].End(xlDown)) '資料再A欄
d(Format(Mid(a, 1, 8), "0000/00/00")) = d(Format(Mid(a, 1, 8), "0000/00/00")) + Val(Mid(a, 9))
Next
[D1].Resize(d.Count, 1) = Application.Transpose(d.keys) '日期放到D欄
[E1].Resize(d.Count, 1) = Application.Transpose(d.items) '數量加總放到E欄
End Sub

複製代碼

學海無涯_不恥下問

TOP

518587

中學生 Rank: 2

帖子: 63
主題: 15
精華: 0
積分: 81
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2014-3-16
最後登錄: 2015-9-20

4^#

發表於 2014-3-31 23:02 | 只看該作者

回復 3# Hsieh

你好，感謝您的幫助，:)

但是有些小問題想請教您，
[M1].Resize(d.Count, 1) = Application.Transpose(d.items) '數量加總放到E欄
這個是加總哪裡的數量?!

圖片是我的資料，但是我發現一個問題就是日期沒有連續
可能因為資料中有些日期沒有，如果要加上日期可以連續就算沒有資料也可以出現日期嗎?!

新圖片.jpg (148.31 KB)

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2014-4-1 06:12 | 只看該作者

本帖最後由 GBKEE 於 2014-4-1 06:16 編輯

回復 4# 518587

d(Format(Mid(a, 1, 8), "0000/00/00")) = d(Format(Mid(a, 1, 8), "0000/00/00")) + Val(Mid(a, 9))

是日期的加總

可能因為資料中有些日期沒有，如果要加上日期可以連續就算沒有資料也可以出現日期嗎?!

看不懂

Option Explicit 'B欄數量的加總
Sub Ex()
Dim D As Object, A As Range, K As Long, I As Long
Set D = CreateObject("Scripting.Dictionary") '字典物件
For Each A In Range([A1], [A1].End(xlDown)) '資料在A欄
D(Val(Mid(A, 1, 8))) = D(Val(Mid(A, 1, 8))) + A.Offset(, 1) '數量在B欄的加總
'Val(Mid(A, 1, 8)) 轉為數字
Next
[D:E].Clear
For I = 1 To D.Count '最小值到最大值
K = Application.WorksheetFunction.Small(D.KEYS, I)
[D1].Offset(I - 1) = Format(K, "0000/00/00") '轉為日期格式
[E1].Offset(I - 1) = D(K) '數量加總
Next
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 41
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-2-16

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2014-4-1 08:29 | 只看該作者

回復 4# 518587

Sub ex()
Dim k#
Set d = CreateObject("Scripting.Dictionary")
For Each a In Range([A1], [A1].End(xlDown)) '資料再A欄
k = DateValue(Format(Mid(a, 1, 8), "0000/00/00"))
d(k) = d(k) + a.Offset(, 1) '數量在B欄
Next
[D:E] = "" '清空舊資料
r = 1
For i = Application.Min(d.keys) To Application.Max(d.keys) '最小日期到最大日期寫入
Cells(r, 4) = CDate(i)
Cells(r, 5) = d(i)
r = r + 1
Next
End Sub

複製代碼

學海無涯_不恥下問

TOP

518587

中學生 Rank: 2

帖子: 63
主題: 15
精華: 0
積分: 81
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2014-3-16
最後登錄: 2015-9-20

7^#

發表於 2014-4-1 17:53 | 只看該作者

回復 5# GBKEE

版大你好，感謝您提供的方法也謝謝願意提供幫助

附上圖片，D欄與E欄是由版大提供的程式碼所跑出來的結果
但是D欄沒有包含所有的日期，比對G欄會發現D欄日期不是完整的，有缺少幾天

新圖片.jpg (173.29 KB)

TOP

518587

中學生 Rank: 2

帖子: 63
主題: 15
精華: 0
積分: 81
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2014-3-16
最後登錄: 2015-9-20

8^#

發表於 2014-4-1 18:01 | 只看該作者

回復 6# Hsieh

感謝大大的幫忙，但是這段程式碼，
無法執行，發生型態不符合的狀況

試著要找出問題，但是還是無法找出到底是哪裡型態錯誤...
對不起，只會單純初階的VBA語法

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2014-4-1 19:50 | 只看該作者

回復 7# 518587
請附檔看看

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 41
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-2-16

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

10^#

發表於 2014-4-2 08:02 | 只看該作者

回復 8# 518587

上面的程式會出錯，大概是日期部分
程式是由A1開始，因為你的資料有標題
將範圍從A2開始應該就可行

學海無涯_不恥下問

TOP