¤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
|