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

[µo°Ý] ¶Ç¦^ªº­È¬°"2013/1/1" & 2013/1/1

[µo°Ý] ¶Ç¦^ªº­È¬°"2013/1/1" & 2013/1/1

¤j¤j¦n¡G

¤p§Ì¦b§ìsheet¤Wªº¤é´Á­n»Ptextbox¤Wªº¤é´Á°µ¹ïÀ³¡A¦ý¬O¸Õ¤F«Ü¤[³£§ì¤£¨ì

¥ÎºÊ¬Ý¦¡¤~µo²{¡A¤@­Ó­È¬O¡i"2013/1/1"¡j ¤@­Ó­È¬O¡i2013/1/1¡j¡A

pp =  Sheets(¸ê®Æ¦WºÙ.Value).Cells(4, 3 + 3 * j)

TT = ·í¤Ñ¤é´Á.Value

¦³µy·Lª¦¤å¤@¤U¡A¦ý¬O¤£¤Ó¾å±o³o°ÝÃD¸Ó«ç»ò¬dÃöÁä¦r¡A½Ð¤j¤jÀ°¦£¸Ñ´b¡AÁÂÁ¡I



2013-10-01_160711.jpg

¦^´_ 2# stillfish00


    ­ì¨Ó¦p¦¹¡I·PÁ¤j¤j¡I§ìªº¨ì­È¤F¡IÁÂÁ¡I

TOP

¦^´_ 1# lifedidi m/4
¥ÎCDateÂର¤é´Á¦A¤ñ¹ï¬Ý¬Ý
  1. If CDate(TT) = pp Then
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD