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

[µo°Ý] «ç»ò§ì¨úA¸ê®Æªí°²¤é¤W¯Zªº¤é´Á»P®É¶¡¨ìB¸ê®ÆªíªºÀx¦s®æ¤¤

°²¤é¤W¯Z¥Ó½Ð³æ(¸ê®Æªí«ç»ò§PÂ_)

½Ð°²&¥X¶Ô¥Ó½Ð³æ(¤W¶Ç¥Î).zip (38.55 KB)

½Ð°Ý¦U¦ì±M·~ªº¤j¤j:
§Úªº¥Øªº¬O±N11¤ë¯Zªí°²¤é(¤»¡B¤é)¦³¥X¶Ôªº¤é¤l¡Aª½±µ¦A°²¤é¥X¶Ô³æ¤WÅã¥Ü
¦¹ªþ¥ó¬°1¤H¾ã¤ë¤W¯Z¤é¤lªº½d¥»¡A¦pªG¥i¥Hª½±µ¹ï·Óªº¸Ü¡A¨º»ò¤½¥q¦P¤¯ªº°²¤é¥X¶Ô³æ³£¥iª½±µ¦C¦L¥X¡A´N¤£¥Î¦U§OÀˬdkey in¤F

¦pªþ¥ó¦³¨â­Ó¸ê®Æªí¡A¸ê®Æªí"°²¤é¥X¶Ô³æ"¤º¡A¬õ¦r³¡¤À§Ú·Qª½±µ¹ï·Ó¸ê®Æªí"11¤ë"¶i¦æ§PÂ_¡A½Ð°Ý¸Ó¦p¦ó¼g©O?
¦]¬°§ÚÁÙ¬O¥Í¤â¡Aª¾¹D­n¥Îif§PÂ_¦¡¡A¦ý¤£ª¾¹D¸Ó«ç»ò¼g¥X¨Ó¡A½Ð¦U¦ì¤j¤j«ü¾É~

·P®¦
¤£·|EXCALLªº²Â³J

TOP

¦^´_ 1# prince0413
§A¤W¶ÇªºÀɮפ֤F°ÆÀɦW,
§Ú¦Û¦æ¦b«á­±¥[¤W .zip «á¤~¬Ý¨ìÀÉ®×.

§A¬Ý¬Ý¬O§_¥i¥H²Å¦X§Aªº»Ý¨D:
½Ð°²&¥X¶Ô¥Ó½Ð³æ-a.zip (47 KB)
  1. Private Sub cbCrtTbl_Click()
  2.   Dim iDate%, iLoc%, iTbl%, iEnd%
  3.   Dim lRow&
  4.   Dim sStr$
  5.   Dim wsSou As Worksheet, wsTar As Worksheet
  6.   
  7.   Set wsSou = Sheets("11¤ë")
  8.   Set wsTar = Sheets("°²¤é¥X¶Ô³æ")
  9.   wsTar.Activate
  10.   
  11.   lRow = 11
  12.   With wsSou
  13.     iTbl = 0
  14.     Do While .Cells(lRow, 4) <> ""
  15.       sStr = .Cells(lRow, 6)
  16.       iLoc = InStr(1, sStr, "/") + 1
  17.       Do While iLoc < Len(sStr)
  18.         iEnd = InStr(iLoc, sStr, ".")
  19.         If iEnd = 0 Then iEnd = Len(sStr) + 1
  20.         iDate = Mid(sStr, iLoc, iEnd - iLoc)
  21.         wsTar.Cells(5 + iTbl * 14, 1) = CDate("2013/11/" & iDate)
  22.         wsTar.Cells(5 + iTbl * 14, 2) = .Cells(lRow, 4)
  23.         If iTbl = 1 Then
  24.           wsTar.PrintPreview
  25.           iTbl = -1
  26.         End If
  27.         iLoc = iEnd + 1
  28.         iTbl = iTbl + 1
  29.       Loop
  30.       lRow = lRow + 1
  31.     Loop
  32.     If iTbl = 1 Then
  33.       wsTar.Cells(5 + iTbl * 14, 1) = ""
  34.       wsTar.Cells(5 + iTbl * 14, 2) = ""
  35.       wsTar.PrintPreview
  36.     End If
  37.     .Activate
  38.   End With
  39. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# luhpro

¤j¤j¤£¦n·N«ä

§Ú¦³¶K§Aªºµ{¦¡½X¶i¥h
°õ¦æ«á¶]¥Xªº­È³£¬O¿ù»~¤é´Á©O

¬O§_§Ú¦³³]©w¿ù»~©O?
¤£·|EXCALLªº²Â³J

TOP

¦^´_ 3# prince0413
¦pªG§A½T©w Sheets("11¤ë") ªº
F11=11/9.23.30               
F12=11/3.10.17.24               
F13=11/2.9.23.30               
¨ºÀ³¸Ó´N¤£·|¦³¿ù,
¤£¦p§A§âÀɮ׶ǤW¨Ó¬Ý¬Ý.

PS. §Úªºµ{¦¡¬O¨Ì§A´£¨Ñªº½d¨ÒÀÉ°µ¥X¨Óªº,
§ìªº¬O¦p¤U¹Ï¤¤ Mark °_¨Óªº6­ÓÀx¦s®æ¤¤ªº¸ê®Æ,
½Ð¦A½T»{¤@¤U:

TOP

¦^´_ 4# luhpro


ÁÂÁ¤j¤j

§Ú¦b¬ã¨s¬Ý¬Ý¦n©O
·P®¦
¤£·|EXCALLªº²Â³J

TOP

¦^´_ 4# luhpro


ÁÙ¬O¤j¤j§A¦³¦b°²¤é¥X¶Ôªí¤W³]©w¤@­ÓcbCrtTblªº«ö¶s?
§Ú¨S³]  ©Ò¥Hª½±µ°õ¦æ¤~·|¿ù»~?!
¤£·|EXCALLªº²Â³J

TOP

¦^´_ 4# luhpro

½Ð°²&¥X¶Ô¥Ó½Ð³æ(¤W¶Ç¥Î).ZIP.zip (50.88 KB)
   
¤j¤j§A¦n

³o¬O§Ú¶K§Aªºµ{¦¡ªºª©¥»

«ö«ö¶s°õ¦æ®É  ¥X¨Óªº¤é´Á©Ç©Çªº   ¦Ó¥B"¥X¶Ô¨Æ¥Ñ"¨º¸Ìªº¬P´ÁX¤]¨S¦³§ì¨ì¸ê®Æ©O~"~

¬O§Ú­þ¸Ì³]©w¿ù»~¶Ü
¤£·|EXCALLªº²Â³J

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2013-11-14 22:35 ½s¿è
¦^´_  luhpro
¤j¤j§A¦n
³o¬O§Ú¶K§Aªºµ{¦¡ªºª©¥»
«ö«ö¶s°õ¦æ®É  ¥X¨Óªº¤é´Á©Ç©Çªº   ¦Ó¥B"¥X¶Ô¨Æ¥Ñ"¨º¸Ìªº¬P´ÁX¤]¨S¦³§ì¨ì¸ê®Æ©O~"~
prince0413 µoªí©ó 2013-11-14 17:16

¤é´Á©Ç©Çªº? À³¸Ó¤£·|ªº°Ú, §A¬Ý§Úªº§ì¹Ï :
²Ä¤@­¶
²Ä¤G­¶
²Ä¥|­¶
²Ä¤»­¶
¦Ü©ó "¥X¶Ô¨Æ¥Ñ" ¤º¨S¸ê®Æ³o­Ó°ÝÃD,
¤W­±ªºµ{¦¡§Ú¥»¨Ó´N¨S°µ³o­Ó³¡¥÷.
¦]¬°¤£½T©w§Aªº¨Æ¥Ñ¬O§_­n¥Ñµ{¦¡¦Û°Ê²£¥Í,
¥ç©Î¬O¤§«á¦A¥Ñ¤â¼g¸É¤W.
¬JµM§A§Æ±æµ{¦¡¦Û°Ê²£¥Í,
¨º´N¦A½Õ¾ã¤@¤UÅo.
  1. Sub cbCrtTbl_Click()
  2.   Dim iDate%, iLoc%, iTbl%, iEnd%
  3.   Dim lRow&
  4.   Dim sStr$
  5.   Dim wsSou As Worksheet, wsTar As Worksheet

  6.   Set wsSou = Sheets("11¤ë")
  7.   Set wsTar = Sheets("°²¤é¥X¶Ô³æ")
  8.   wsTar.Activate
  9.   lRow = 11

  10.   With wsSou
  11.     iTbl = 0
  12.     Do While .Cells(lRow, 4) <> ""
  13.       sStr = .Cells(lRow, 6)
  14.       iLoc = InStr(1, sStr, "/") + 1
  15.       Do While iLoc < Len(sStr)
  16.         iEnd = InStr(iLoc, sStr, ".")
  17.         If iEnd = 0 Then iEnd = Len(sStr) + 1
  18.         iDate = Mid(sStr, iLoc, iEnd - iLoc)
  19.         wsTar.Cells(5 + iTbl * 14, 1) = CDate("2013/11/" & iDate)
  20.         wsTar.Cells(5 + iTbl * 14, 2) = .Cells(lRow, 4)
  21.         wsTar.Cells(5 + iTbl * 14, 4) = "(¬P´Á" & Choose(Weekday(CDate("2013/11/" & iDate), 2), _
  22.                             "¤@", "¤G", "¤T", "¥|", "¤­", "¤»", "¤é") & ")¨FÀsÀç·~"
  23.         
  24.         If iTbl = 1 Then
  25.           wsTar.PrintPreview
  26.           iTbl = -1
  27.         End If

  28.         iLoc = iEnd + 1
  29.         iTbl = iTbl + 1
  30.       Loop
  31.       lRow = lRow + 1
  32.     Loop

  33.     If iTbl = 1 Then
  34.       wsTar.Cells(5 + iTbl * 14, 1) = ""
  35.       wsTar.Cells(5 + iTbl * 14, 2) = ""
  36.       wsTar.Cells(5 + iTbl * 14, 4) = ""
  37.       wsTar.PrintPreview
  38.     End If
  39.     .Activate
  40.   End With
  41. End Sub
½Æ»s¥N½X
½Ð°²&¥X¶Ô¥Ó½Ð³æ-a.zip (51.03 KB)

TOP

¦^´_ 8# luhpro


¤j¤j±z¦n

°²¤éSHOW"¥þ¤é"    ¥Nªí¦³¤W¯Z     ¤~»Ý­n¼g°²¤é¥X¶Ô³æ

11/9  «h¬OµL¥X¶Ô    ©Ò¥H¤£»Ý­n§ì¸ê®Æ©O  

§Ú¶K¤j¤j±zªºµ{¦¡°õ¦æ¥X¨Óªºµ²ªG§ì¥X¨Óªº¸ê®Æ³£¬OµL¤W¯Zªº¤é¤l©O     

¸É¥R: ¥þ¤é¤]¦³¤À¦­¡B±ß¯Z®É¶¡¡A¦pªG³æ³æÅã¥Ü¥þ¤é«h¥Nªí¾ã¤Ñ¡A³£¬O¾a¤U­±ªº®É¶¡©M¤é´Áªí°µ§PÂ_ªº®@

PS: ¤j¤j¥i§_¸ÑÄÀ¤@¤Uµ{¦¡ªº·N¸q¡A¦]¬°§Ú·Q­n¾Ç¡A¤§«á¥i¯à·|¦³«Ü¦h¤Hªº¯Zªí¡A§Ú·Q°µ­Ó¤U©Ô¦¡¿ï³æ¡A¿ï¥X¬Y¬Y¤H¡AµM«á¦b¹³¦¹¤è¦¡¦L¥X¥Lªº¥X¶Ô¥Ó½Ð³æ

¤£¦n·N«ä    §Ú¨S¦³Åª«Ü¦hµ{¦¡ªº®Ñ     ©Ò¥H«Ü³Â·Ð±z
¤£·|EXCALLªº²Â³J

TOP

½Ð°²&¥X¶Ô¥Ó½Ð³æ(¤W¶Ç¥Î).zip.zip (51.83 KB) ¦^´_ 8# luhpro


¤j¤j±z¦n

³o¬O§Ú¦³°w¹ï"11¤ë"¸ê®Æªíµy¬°­×§ï«áªºÀÉ®×(·s¼W°²¤é¦³¤À¦­±ß¯Z¤Î¥þ¤é¯Z)

¦ý¬O¶K±zªºµ{¦¡°õ¦æ«á¥X¨Óªº¤é´Á¨Ã¤£¬O¸Ó¤H°²¤é¤W¯Zªº¤é´Á©O

½Ð°Ý§Ú¬O­þ¸Ì¦³³]©w¿ù»~¶Ü?!
¤£·|EXCALLªº²Â³J

TOP

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD