資料轉寫+VBA月份流水號

　頭銜: 麻辣路人甲

2012龍年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2012-5-8 00:43 | 顯示全部帖子

本帖最後由 register313 於 2012-5-8 08:57 編輯

回復 5# man65boy

Sub yy()
'建立字典物件
Set d = CreateObject("scripting.dictionary")
'在Sheet2工作表b2儲存格~b欄最後一格作迴圈
For Each c In Sheet2.Range(Sheet2.[b2], Sheet2.[b2].End(4))
'若b欄儲存格之內容為空值則離開迴圈
If c = "" Then Exit For
'計算同年同月分別出現之次數
d(Year(c) & Month(c)) = d(Year(c) & Month(c)) + 1
'返回迴圈
Next
'在Sheet1工作表b2儲存格~b欄最後一格作迴圈
For Each c In Sheet1.Range(Sheet1.[b2], Sheet1.[b2].End(4))
'計算Sheet1工作表中同年同月分別出現之次數(含之前Sheet2工作表)
d(Year(c) & Month(c)) = d(Year(c) & Month(c)) + 1
'若b欄儲存格之內容為空值則 a欄儲存格之內容=b欄之年-月-流水號
If c(1, 0).Value = "" Then c(1, 0).Value = Format(c, "yyyy-mm") & "-" & Format(d(Year(c) & Month(c)), "000")
'返回迴圈
Next
End Sub

複製代碼

靜思自在 : 布施如播種，以歡喜心滋潤種子，才會發芽。