ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] format¦è¤¸Âà¥Á°ê

[µo°Ý] format¦è¤¸Âà¥Á°ê

µ{¦¡½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
§Ú¬O´µ¦h

§Ú¦³¹J¹LÃþ¦ü±¡§Î¡A¦ý¤£§¹¥þ¬Û¦P¡C
¥Î CStr Âন¦r¦ê¡A¥t¥~®M¥Î Format ¡A¥i¥H¸Ñ¨M¼Æ¦rªº°ÝÃD¡C
¸Õ¸Õ¬Ý¡A³o¼Ë¯à§_¸Ñ¨M¤é´Áªº¶¡ÃD¡C

TOP

¦^´_ 2# Baracuda


   ±zªº·N«ä¬O¡G format(cstr(.cells(r,2)),"e¦~mm¤ë")¶Ü¡H
§Ú¬O´µ¦h

TOP

¥Î³o¸Õ¸Õ:
Application.Text([D2].Value, "e¦~mm¤ë")

¦A¤£¦æ¥Î³o:
d = [D2].Value
dt = Year(d) - 1911 & "¦~" & Format(d, "mm¤ë")

TOP

¦^´_ 3# reangame

Format(Date, "E¦~MM¤ë")  2010ª©¥iÅã¥Ü¥Á°ê¦~«×
Excel ­×´_©Î­«Äé ¸Õ¸Õ¬Ý
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD