µ{¦¡½X¦p¤U¡G
if format(¤u§@ªí1.cells(r,2).value,"e¦~mm¤ë")<>ym then
ym=format(¤u§@ªí1.cells(r,2),"e¦~mm¤ë")
AAA.comboBox1.AddItem ym
end if
¨ä¤¤.cells(r,2).value¬°¦è¤¸¡A¦p2020/4/21
¦b2003 excel¥¿±`°õ¦æÂà¥Á°ê¦~
¦b2010 excel¤´Åã¥Ü¦è¤¸¦~
¨t²Îwin10¤]¦w¸Ë¤¤µØ¥Á°ê¾ä§ó·s
½Ð°Ý¤j¤j³o¸Ó¦p¦ó×¥¿¡H |