- ©«¤l
- 703
- ¥DÃD
- 276
- ºëµØ
- 0
- ¿n¤À
- 1005
- ÂI¦W
- 1
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-6-30
- ³Ì«áµn¿ý
- 2024-5-29
|
¥»©«³Ì«á¥Ñ av8d ©ó 2012-7-5 13:55 ½s¿è
¦^´_ 26# GBKEE
¹J¨ì¥t¤@Ó°ÝÃD~½Ð±Ð¤j¤j
¦pªG§Ú·Q¹ïAÄæ°µ¬Û¦P½d¨Ò
¦ý¬O§Ú¥u·Q¨ú¦~Year()«½Æ«h¥uÅã¥Ü¤@µ§
¨Ò¦p:
A1=2012/06/25 A2=2012/10/10 A3=2013/8/8
©Ò¥H¥u¨ú¦~«h¬OA1=2012 A2=2012 A3=2013
«½Æ«h¥uÅã¥Ü¤@µ§©Ò¥HComboBox1«h·|¥X²{2012©M2013ªº¿ï¶µ¥i¥H¿ï¾Ü
§Úקï¤F¤@¤U6¼Ó¤j¤jªºµ{¦¡¦p¤U
Dim d As Object, A
Set d = CreateObject("Scripting.Dictionary")
With ActiveSheet
For Each A In .Range("a2", .[a2].End(xlDown))
d(Year(A.Value)) = ""
Next A
ComboBox1.List = Application.Transpose(d.KEYS)
End With
§Y¥i§¹¦¨~¤£ª¾³o¼Ë¬O§_¥i¦æ!? |
|