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

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

¦^´_ 19# GBKEE

¤j¤j±z¦n

­è»~·|±z¤F¡A§Ú¥ýKEYIN©m¦W«á¶i¥hµ{¦¡½X¸Ì«ö°õ¦æµo²{¦³¦C¦L¥X¨Ó!
¯u¬O¤Ó¼F®`¤F

ºÃ°Ý:
1.¤@¶}©l§Ú³]³o»ò¦hªÅ¥Õªº¥Ó½Ðªí¬O¦]¬°·Q­n¤@±i¯È¦L¨â¥÷­è­è¦n¡A¦³³oºØ¤è¦¡¬O¥i¥H¤@±iA4¦L¨â±i¥Ó½Ðªíªº¶Ü(·Q¸`¬Ù¯È¸ê·½)

2.¤¤­^¤å©m¦W¹ï·Óªí«á¤è§Ú·s¼W¤FªÀ­û½s¸¹(¦p¹Ï)¡A¦pªGªÀ­û½s¸¹§Ú·Q¸ò©m¦W¤@¼Ë¦b°²¤é¥X¶Ô¥Ó½Ð³æ¸Ì¹ï·Ó¹L¥hªº¸Ü¡A¨º§Ú­n±q­þ¸Ì­×§ïµ{¦¡½X©O?

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

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-11-20 12:23 ½s¿è

¦^´_ 21# prince0413
  1. Const ¦­ = "10:00~18:00"
  2. Const ¥þ¤é = "10:30~18:30"
  3. Const ±ß = "11:00~19:00"
  4. Sub Ex()
  5.     Dim Rng(1 To 3) As Range, i As Integer, ii As Integer, ¥X¶Ô As String, ¤é´Á As Range, Print_x As Integer
  6.     Dim ¥X¶Ô³æ As Range, E As Range
  7.     Set ¥X¶Ô³æ = Sheets("°²¤é¥X¶Ô³æ").Range("B3,D3,A5,B5,D5")   '²Ä1±i¥X¶Ô³æ­n¾É¤J¸ê®Æªº¦ì¸m
  8.     For i = 0 To 3                                              '¥X¶Ô³æ: ²Ä1±i¨ì ²Ä4±iªº¦ì¸m ¶¡®æ 14 ¦C
  9.         ¥X¶Ô³æ.Offset(i * 14) = ""                              '²M°£ ¸ê®Æ
  10.     '************    ¦ý²Ä 2- 3±i¥X¶Ô³æ ¶¡®æ 15 ¦C §A»Ý½Õ¾ã¤@¤U   *************************************
  11.     Next
  12.     Print_x = 0                                                 '¦L¦C A4¯È±i ªºÅܼÆ
  13.     Set Rng(1) = Sheets("°²¤é¥X¶Ô³æ").Range("J2")               '³]©wªÀ­û ­^¤å,¤¤¤å,½s¸¹ (¥i¥H¬O Abby,¤B¤dªå,136)
  14.     Do While Rng(1) <> ""                                       '°õ¦æ°j°éªº±ø¥ó: ªÀ­û<>""
  15.         With Sheets("11¤ë")
  16.              Set Rng(3) = Nothing                               'ª«¥ó: ÄÀ©ñ
  17.              Set Rng(2) = Sheets("¤¤­^¤å©m¦W¹ï·Óªí").Range("A:C").Find(Rng(1), LOOKAT:=xlWhole)
  18.                                                                  '­^¤å,¤¤¤å,½s¸¹:¸Ì·j´M
  19.              If Not Rng(2) Is Nothing Then
  20.                 Set Rng(2) = Rng(2).Parent.Range("A" & Rng(2).Row)  '­^¤å,¤¤¤å,½s¸¹ªº²Ä¤@Äæ (­^¤å)
  21.                 For i = 1 To 3                                      '¦pªÀ­û¬°¤¤¤å Sheets("11¤ë")¨S¦³ ¤¤¤å
  22.                     Set Rng(3) = Sheets("11¤ë").Range("A:B").Find(Rng(2).Cells(i), LOOKAT:=xlWhole)
  23.                     If Not Rng(3) Is Nothing Then Exit For           '§ä¨ì ­^¤å ©Î ½s¸¹
  24.                 Next
  25.             End If
  26.             If Not Rng(3) Is Nothing Then
  27.                 i = 3                                         '²Ä3Äæ :C
  28.                 Do While IsNumeric(.Cells(4, i))              '°õ¦æ°j°éªº±ø¥ó:²Ä4¦C¬O¼Æ¦r
  29.                     If (.Cells(5, i) = "¤»" Or .Cells(5, i) = "¤é") And Trim(.Cells(Rng(3).Row, i)) <> "" Then
  30.                         ¥X¶Ô = ""                             'Âk¹s
  31.                         Set ¤é´Á = .Cells(4, i)
  32.                         If .Cells(Rng(3).Row, i) Like "*¦­*" Then
  33.                             ¥X¶Ô = ¦­
  34.                         ElseIf .Cells(Rng(3).Row, i) Like "*±ß*" Then
  35.                             ¥X¶Ô = ±ß
  36.                         ElseIf .Cells(Rng(3).Row, i) Like "*¥þ¤é*" Then
  37.                             ¥X¶Ô = ¥þ¤é
  38.                         End If
  39.                         If ¥X¶Ô <> "" Then                                  '¹w¨¾¨S¦³ [¥þ¤é,¦­,±ß]ªº¯Z§O
  40.                             Print_x = IIf(Print_x = 4, 1, Print_x + 1)
  41.                             With ¥X¶Ô³æ.Offset((Print_x - 1) * 14)          '²Ä Print_x ªº¦ì¸m
  42.                                 .Range("A1") = Rng(2).Offset(, 1)           'ªÀ­û¤¤¤å
  43.                                 .Range("C1") = Rng(2).Offset(, 2)           'ªÀ­û½s¸¹
  44.                                 .Cells(3, 0) = DateSerial(2013, 11, ¤é´Á)   '¤é´Á
  45.                                 .Range("A3") = ¥X¶Ô                         '®É¶¡
  46.                                 .Range("C3") = IIf(¤é´Á.Offset(1) = "¤»", "(¬P´Á¤»)", "(¬P´Á¤é)") & "¨FÀsÀç·~"
  47.                             End With
  48.                             If Print_x = 4 Then                             'º¡4µ§¦L¦C
  49.                                 ¥X¶Ô³æ.Parent.PrintOut                      '¦L¦C¥X¶Ô³æ
  50.                                 For ii = 0 To 3
  51.                                    ¥X¶Ô³æ.Offset(ii * 14) = ""              '²MªÅ¤w¦L¦C¸ê®Æ
  52.                                 Next
  53.                             End If
  54.                         End If
  55.                     End If
  56.                     i = i + 1
  57.                 Loop
  58.             End If
  59.             Rng(1).Offset(, 1) = IIf(Rng(3) Is Nothing, "½ÐÀˬd : °²¤é¥X¶Ô³æ , ¹ï·Óªí §ä¤£¨ì ", "")
  60.         End With
  61.         Set Rng(1) = Rng(1).Offset(1)    '¤U¤@¦ì©m¦W
  62.     Loop
  63.     If Print_x > 0 And Print_x <= 3 Then ¥X¶Ô³æ.Parent.PrintOut 1, Round(Print_x / 2) ' ¥¼º¡ 4 µ§ªº¸ê®Æ¨S¦L¦C
  64. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

Ex.zip.zip (53.38 KB) ¦^´_ 22# GBKEE

¤j¤j±z¦n:
§Ú¦³«ö·Ó±z»¡ªº½Æ»sµ{¦¡½X¶K¤J¥¨¶°¡A¤]¦³·Ó±z»¡ªº²Ä2±i~²Ä3±i¥X¶Ô³æ¶¡¹j15¦C(¦pªþ¥óÀÉ)¡A¦ý±z»¡ªº²Ä¤@±i~²Ä¥|±i¶¡¹j14¦C¬O¬Æ»ò·N«ä©O?
°õ¦æ«á¤]¬O¥u¦³³æ±i¦C¦L¤@¥÷¥X¨Ó¦Ó¥H©O¡A¬O§Ú¨S¦³³]©w¨ì¤°»ò¶Ü?ÁÙ¬O¦Lªí¾÷³]©w¤]»Ý­n§ï©O?

³Â·Ð½Ð±z¦AÀ°§Ú¬Ý¬Ý
·P®¦
ÁÂÁÂ

ps:·|­û½s¸¹½T¹ê¦³¸òµÛ¹ïÀ³¥X¨Ó¤F¡A³o¦¸ªºµù¸Ñ¤]§ó©öÀ´¡A§Ú·|§V¤O¾Ç²ßªº¡A¤@ª½³Â·Ð±z¯u¤£¦n·N«ä
¤£·|EXCALLªº²Â³J

TOP

¦^´_ 23# prince0413
¥X¶Ô³æ: ²Ä1±i ¨ì ²Ä4±iªº¦ì¸m (³£­n)¶¡®æ 14 ¦C ,¦ý²Ä 2- 3±i¥X¶Ô³æ ¶¡®æ 15 ¦C §A»Ý½Õ¾ã¤@¤U
½Ð¬Ý¹Ï¥Ü



·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 24# GBKEE

¤j¤j±z¦n:
¤F¸Ñ±zªº·N«ä¤F!
¸g´ú¸Õ«á¦¨¥\¤F~
«D±`·PÁ±z!

¦ý­è´ú¸Õ¦³¤@­Ó°ÝÃD¡A¦pªG¹J¨ì¸Ó¤H·í¤ë¥u¦³¤W1¤Ñ°²¤é¯Zªº¸Ü(µ¥©ó¥u»Ý­n¦L1±i¥Ó½Ðªí)¡A§Ú°õ¦æµ{¦¡«á³s«á­±ªº3¥÷ªÅ¥Õ¥Ó½Ðªí¤]¸òµÛ¤@°_¦C¦L¥X¨Ó¤F©O
½Ð°Ý¤j¤j³o¦³¤èªk¥i¥HÁקK¶Ü?(¤W´X¤Ñ¯Z´N¦L´X±i¥Ó½Ðªí)

½Ð¤j¤j«ü¾É
¤£·|EXCALLªº²Â³J

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-11-21 17:30 ½s¿è

¦^´_ 25# prince0413
·í¤ë¥u¦³¤W1¤Ñ°²¤é¯Zªº¸Ü(µ¥©ó¥u»Ý­n¦L1±i¥Ó½Ðªí)¡A§Ú°õ¦æµ{¦¡«á³s«á­±ªº3¥÷ªÅ¥Õ¥Ó½Ðªí¤]¸òµÛ¤@°_¦C¦L¥X

¨S³o°ÝÃDªº,¦³³]­p ·í¦³4µ§¥ß§Y¦L¦C
  1. If Print_x = 4 Then                             'º¡4µ§¦L¦C
  2.                                 ¥X¶Ô³æ.Parent.PrintOut                      '¦L¦C¥X¶Ô³æ
  3.                                 For ii = 0 To 3
  4.                                    ¥X¶Ô³æ.Offset(ii * 14) = ""              '²MªÅ¤w¦L¦C¸ê®Æ
  5.                                 Next
  6.                             End If
½Æ»s¥N½X
³Ì«á:¥¼º¡4µ§ªº¦L¦C µ{¦¡½X
  1. If Print_x > 0 And Print_x <= 3 Then ¥X¶Ô³æ.Parent.PrintOut 1, Round(Print_x / 2) ' ¥¼º¡ 4 µ§ªº¸ê®Æ¨S¦L¦C
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 26# GBKEE


¤j¤j±z¦n:
·|¤£·|¬O§Ú¦]¬°©ÈJÄ檺ªF¦è¤]¸òµÛ¤@°_¦C¦L¡A©Ò¥H³]©w¦C¦L½d³ò¡A¾É­P³oºØ¿ù»~©O?(¦p¤W¹Ï)
§Ú§â¦C¦L®æ¦¡²M°£«á´NµL¦¹°ÝÃD¤F ¡A ÁÂÁ¤j¤jªº«ü±Ð!

¨º»ò¤§«áªº12¤ë¯Zªí¤º¦pªG¥X¶Ô®É¶¡¦³Åܰʧڥu»Ý­n­×§ïµ{¦¡½Xªº¤U¦C®É¶¡©M¸ê®Æªí¦WºÙ´N¦n¤F¶Ü?(¦p¤U¹Ï¬õ¦â®Ø®Ø³¡¤À)   

¤£·|EXCALLªº²Â³J

TOP

¦^´_ 26# GBKEE


¤j¤j±z¦n:
­è¦A´ú¸Õ®É¦³µo¥Í¤@¥ó¤p°ÝÃD¡A´N¬O¦pªG¸Ó¤H·í¤ë¥u¦³¤W¤@¤Ñ¯Z®É¡A¨t²Î·|Åã¬O¿ù»~°T®§°»¿ù
µM«á§â¤U¦C³o¬qµ{¦¡¤Ï¶À©O~

If Print_x > 0 And Print_x <= 3 Then ¥X¶Ô³æ.Parent.PrintOut 1, Round(Print_x / 2)      ' ¥¼º¡ 4 µ§ªº¸ê®Æ¨S¦L¦C


³o¬qµ{¦¡ªº·N«ä¬O¦pªG¤W¯Z¤é¤lµ§¼Æ>0©M<=3µ§®É¡A´N¦C¦Lªº·N«ä¶Ü?
¨º³o¼Ëªº¸Ü¥u¦³¤@µ§®ÉÀ³¸Ó¤]·|¦C¦L¤~¹ï©O

½Ð¤j¤j«ü¾É
¤£·|EXCALLªº²Â³J

TOP

¦^´_ 28# prince0413
28# ¤ë¥÷§ó§ï,¥i¦p§A©Ò»¡¸Õ¸Õ¬Ý.
¹ïªº¥u¦³¤@µ§®É¤]·|¦C¦L
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ prince0413 ©ó 2013-11-21 17:42 ½s¿è

¦^´_ 29# GBKEE

¦]¬°¥u¦³¤@µ§®É«á­±ªºµ{¦¡´N¤Ï¶À¿ù»~©O(¤U­±³o¬qµ{¦¡)¡A¤]¨S¦³¦C¦L~

" ¥X¶Ô³æ.Parent.PrintOut 1, Round(Print_x / 2) "

§Ú¦A·Q¬O¤£¬O¦]¬° Print_x=1   ¡A  1 / 2 = 0.5  ¡A¦³¤p¼ÆÂI©Ò¥Hµo¥Í¦¹¿ù»~

¨º¬O¤£¬O­n§â Print_x ³oÅܼƴ«­Ó«Å§i©O?   Print_x  As  Integer    §ï¦¨¥i¥H¦³¤p¼ÆÂIªº¯BÂI¼Æ?
¦ý§Ú¤£¤ÓÀ´«ç»ò§ï©O

½Ð¤j¤j«ü¾É~"~
¤£·|EXCALLªº²Â³J

TOP

        ÀR«ä¦Û¦b : ­n¤ñ½Ö§ó¨ü½Ö¡D¤£­n¤ñ½Ö§ó©È½Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD