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

[µo°Ý] ¦³µL¿ìªkÅý¦r¦êÂର¹ï¶Hªº¤èªk

¦^´_ 3# t8899


   
[a1]=YEAR(TODAY()) - 1911&"/06/08"
¦pªG§Ú§ï¬° ´À´« &"/06/08" (§Y&«á­±ªº¦r¥þ´À´«) ¬° +10  (³o¼Ë§ï«á¤½¦¡¬O¥¿½Tªº,µª®×¬°113)
  1. Sub Ex()
  2.     With Range("A1")
  3.         .FormulaR1C1 = "=YEAR(TODAY()) - 1911&""/06/08"""
  4.         [A2] = Mid(.Formula, 1, InStr(.Formula, "&") - 1) & " + 10"
  5.     End With
  6. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-6-18 07:10 ½s¿è

¦^´_ 5# t8899
.FormulaR1C1 = "=YEAR(TODAY()) - 1911&""/06/08"""
³oÂù¤Þ¸¹¤º¬OVBAµ{¦¡½Xªº¤å¦rªí¥Ü,
¤u§@ªí¤W¤½¦¡ªº¤å¦r¤]¬OÂù¤Þ¸¹ªí¥Ü.
VBAµ{¦¡½X¦b¤u§@ªí¤W¤½¦¡ªº¤å¦r,¥Î¨â­ÓÂù¤Þ¸¹ ªí¥Ü¬°¤½¦¡¤Wªº "
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-6-18 07:24 ½s¿è

[¦^´_ 9# t8899

[A10] ªº¦r¦ê¬O??
Åý¦r¦êÂର¹ï¶H.¹ï¶H(ª«¥ó)¬O­þ£¸ºØ
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD