- ©«¤l
- 967
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 1001
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-11-29
- ³Ì«áµn¿ý
- 2022-5-17
|
¥»©«³Ì«á¥Ñ register313 ©ó 2012-5-8 08:57 ½s¿è
¦^´_ 5# man65boy - Sub yy()
- '«Ø¥ß¦r¨åª«¥ó
- Set d = CreateObject("scripting.dictionary")
- '¦bSheet2¤u§@ªíb2Àx¦s®æ~bÄæ³Ì«á¤@®æ§@°j°é
- For Each c In Sheet2.Range(Sheet2.[b2], Sheet2.[b2].End(4))
- 'YbÄæÀx¦s®æ¤§¤º®e¬°ªÅÈ«hÂ÷¶}°j°é
- If c = "" Then Exit For
- 'pºâ¦P¦~¦P¤ë¤À§O¥X²{¤§¦¸¼Æ
- d(Year(c) & Month(c)) = d(Year(c) & Month(c)) + 1
- 'ªð¦^°j°é
- Next
- '¦bSheet1¤u§@ªíb2Àx¦s®æ~bÄæ³Ì«á¤@®æ§@°j°é
- For Each c In Sheet1.Range(Sheet1.[b2], Sheet1.[b2].End(4))
- 'pºâSheet1¤u§@ªí¤¤¦P¦~¦P¤ë¤À§O¥X²{¤§¦¸¼Æ(§t¤§«eSheet2¤u§@ªí)
- d(Year(c) & Month(c)) = d(Year(c) & Month(c)) + 1
- 'YbÄæÀx¦s®æ¤§¤º®e¬°ªÅÈ«h aÄæÀx¦s®æ¤§¤º®e=bÄ椧 ¦~-¤ë-¬y¤ô¸¹
- If c(1, 0).Value = "" Then c(1, 0).Value = Format(c, "yyyy-mm") & "-" & Format(d(Year(c) & Month(c)), "000")
- 'ªð¦^°j°é
- Next
- End Sub
½Æ»s¥N½X |
|