- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 277
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-12-23
|
¦^´_ 1# sunnyso - Sub ex()
- Dim ap(11, 17), s#, i&, j%, k%, cnt#
- s = Timer
- Set dic = CreateObject("Scripting.Dictionary") '¤ë
- ay = Array("1¤ë", "2¤ë", "3¤ë", "4¤ë", "5¤ë", "6¤ë", "7¤ë", "8¤ë", "9¤ë", "10¤ë", "11¤ë", "12¤ë", "", "1©u", "2©u", "3©u", "4©u")
- ak = Array("AÃþ", "BÃþ", "CÃþ", "DÃþ", "EÃþ", "FÃþ", "GÃþ", "HÃþ", "IÃþ", "JÃþ")
- With Sheets("ì©l¸ê®Æ")
- ar = .Range("A1").CurrentRegion.Value
- For i = 2 To UBound(ar, 1)
- dic(ar(i, 1) & Month(ar(i, 2)) & "¤ë") = dic(ar(i, 1) & Month(ar(i, 2)) & "¤ë") + ar(i, 3) '¤ë
- dic(ar(i, 1)) = dic(ar(i, 1)) + ar(i, 3) '²Öp
- dic(ar(i, 1) & Int((Month(ar(i, 2)) - 1) / 3) + 1 & "©u") = dic(ar(i, 1) & Int((Month(ar(i, 2)) - 1) / 3) + 1 & "©u") + ar(i, 3)
- Next
- End With
- For j = 0 To 16
- cnt = 0
- For k = 0 To 9
- ap(k, j) = dic(ak(k) & ay(j))
- cnt = cnt + dic(ak(k) & ay(j))
- Next
- ap(10, j) = cnt
- Next
- Sheets("Á`ªí").[B4].Resize(11, 17) = ap
- MsgBox Timer - s
- End Sub
½Æ»s¥N½X |
|