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

[µo°Ý] EXCEL¦C¦L®É,¬O§_¥i¦L¥X¬y¤ô¸¹?

¥»©«³Ì«á¥Ñ howard822 ©ó 2012-3-23 00:22 ½s¿è

¤£¦n·N«ä¡ã§Ú¬OEXCEL·s¤â..¨S¦³µ{¦¡·§©À..
³z¹L·j´Mª¾¹D¶Q¯¸¡ã·Q½Ð±Ð«ü¾É§Ú¤@¤U¡ã
§Úªº»Ý¨D¬O¨C¤Ñ³£¦³¤TÁp³æ³øªí­n¥X³f¡A
£¸±i³øªí£¸­ÓSHEET..£¸±i³øªí¦C¦L£¸¦¸¡ã¥i¬O¬y¤ô¸¹­nÄ~Äò²Ö¿n¡ã

¨º§Ú§â¸Óµ{¦¡½X§ï¦¨«á¡G

Private Sub CommandButton1_Click()
If Left([I1], 6) <> Format(Date, "yymmdd") Then [I1] = Format(Date, "yymmdd") & "000"
x = Val(Right([I1], 3))
[I1] = Format(Date, "yymmdd") & "-" & Format(x + 1, "000")
   Sheet1.PrintPreview
End Sub

¦b­ì©lSHEET¥i¥H¥¿±`ªí²{¡A¨S°ÝÃD¡C
-----------------------------------------------------------------
¥i¬O§Ú±NSHEET½Æ»s(Ctrl+¥ªÁä©ì¦²)¤§«á~
¥\¯àµLªk¥¿±`¨Ï¥Î¤F¡ã
½Ð°Ý§ÚÀ³¸Ó­n«ç»ò°µ¡H
¦X©ê¤§¤ì¡A¥Í©ó²@¤ì¡F¤E¼h¤§»O¡A°_©ó²Ö¤g¡F¤d¨½¤§¦æ¡A©l©ó¨¬¤U

TOP

½Ð°Ýª©¥D¥i¥H«ü¾É¤p²Ä¤@¤U¶Ü¡H
¦X©ê¤§¤ì¡A¥Í©ó²@¤ì¡F¤E¼h¤§»O¡A°_©ó²Ö¤g¡F¤d¨½¤§¦æ¡A©l©ó¨¬¤U

TOP

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD