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

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

¥»©«³Ì«á¥Ñ luhpro ©ó 2013-11-15 22:51 ½s¿è
¦^´_  luhpro
³o¬O§Ú¦³°w¹ï"11¤ë"¸ê®Æªíµy¬°­×§ï«áªºÀÉ®×(·s¼W°²¤é¦³¤À¦­±ß¯Z¤Î¥þ¤é¯Z)
¦ý¬O¶K±zªºµ{¦¡°õ¦æ«á¥X¨Óªº¤é´Á¨Ã¤£¬O¸Ó¤H°²¤é¤W¯Zªº¤é´Á©O
½Ð°Ý§Ú¬O­þ¸Ì¦³³]©w¿ù»~¶Ü?!prince0413 µoªí©ó 2013-11-15 14:51

½Ð°Ñ¾\¤W¤è 4# ¤º¦³»¡©ú :
§ìªº¬O¦p¸Ó½g¤å¤º¤U¤è¹Ï¤¤ Mark °_¨Óªº6­ÓÀx¦s®æ¤¤ªº¸ê®Æ(§Y ¥»¤ë°²¤é¥X¶Ô®É¬q ¨º­Óªí®æ, ¦]¬°¥u¦³¨º­Óªí¦³®É¶¡¸ê®Æ),
¨Ã¨S¦³°Ñ¦Ò¤W¤èªºªí¤¤ªº¸ê®Æ.

­Y§A·Q­n®M¥Î¦Ü¦h¤H,
«Øij§A§â ¥»¤ë°²¤é¥X¶Ô®É¬q ¨º­Óªí®æ©ñ¨ì³Ì¤W­±,(­Y§A¤£§Æ±æÅܧó¦ì¸m, ¨º§Ú±N·|§ï±Ä³Ì«á¤@¦C¸ê®Æªº¬Û¹ï¦ì¸m¨Ó§ì¨ú¦¹ªí®æ<·|¸û®e©ö¥X¿ù>)
µM«á Princey ¸ê®Æ¨º¤@¦Cªº¤U¤è¦A·s¼W¦Ü¤Ö¤@­Ó¤Hªº¸ê®Æ,
³o¼Ë°µ¥X¨Óªºµ{¦¡¤~®e©ö²Å¦X§Aªº»Ý¨D,
½Ð¥ý¨Ì¤W­z½Õ¾ã¤@¤U¸Ó Sheet ¤º®e«á¦A¤W¶ÇÀÉ®×,
¤£µM¤§«áµ{¦¡°µ¦n¤F·Ó¼ËÁÙ¬O­n¦A§ï¤@¦¸.

¶}ÃD®É­Y´£¥Xªº½d¨Ò¯à¾¨¶q²Å¦X¹ê»Ú»Ý¨D,
³o¼ËÀ°¦£ªº¤H·|¤ñ¸û§Ö°µ¥X§A­nªºªF¦è,
¦p¥»¦êªº¨Ò¤l,
¥u§ì¤Wªí ©Î ¥u§ì¤Uªí, ¥ç©Î¬O¨âªí³£§ì,
°µ¥X¨Óªºµ{¦¡¬O¥i¯à·|¦³«Ü¤jªº¤£¦Pªº³á.

TOP

¦^´_ 11# luhpro


¤F¸Ñ~§Ú·|±N§¹¾ãÀÉ­×¥¿«ápo¤W¨Ó
¦A§¹¾ã­«·s±Ô­z»Ý¨Dªº~

¦]¬°¤@¶}©l§Ú¥ushow¥X§Ú¦Û¤vªº¯Zªí·QÂǥѤj¤jªº±Ð¾Çµ{¦¡½X²z¸Ñ   
µM«á¦b§â©Ò¦³¤Hªº¯Zªí¤]¥[¶i¨Ó¸Ó¤ë¥÷¸Ì     ±N©Ò¾Çªºµ{¦¡½X·í½d¥»®M¥Î¦b«Ü¦h¤H¨­¤W
¦ý³o¼Ë¦n¹³³y¦¨¤Ï®ÄªG     ¤Ï¦Ó¦Û¤v¬Ý¤£À´¤]³Â·Ð¨ì¤j¤j±z¤@ª½­×§ï¨Ó­×§ï¥h¤F

§Ú³o´X¤Ñ·|§â©Ò¦³¤Hªº¯Zªíkey in¾ã²z¦n     ¦A¶Ç¤W¨Ó~
¨ì®É­Ô³Â·Ð±z±Ð¾Ç¤F

¯u¤£¦n·N«ä     ¤@ª½³Â·Ð±z
¤£·|EXCALLªº²Â³J

TOP

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


¤j¤j±z¦n:
³o¬O§Ú¾ã²z¥X§¹¾ãªº¯Zªí

¥Øªº:
¦b"°²¤é¥X¶Ô³æ"¤º J2 Àx¦s®æ¤U¤è¿é¤J¤H¦W«á¡A®ÇÃä¥ð¤é¥X¶Ô³æ·|¦Û°Ê§ì¨ú¸Ó¤H"11¤ë"¸ê®Æªí¥þ³¡ªº°²¤é¤W¯Z¤é´Á»P®É¶¡
¬õ¦r³¡¤À¤º¬O­n§ì¨úªº¸ê®Æ

½Ð°Ý³o¼Ë§Ú¸Ó«ç»ò¼gµ{¦¡©O

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

TOP

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

½Ð°²&¥X¶Ô¥Ó½Ð³æ(¤W¶Ç¥Î).zip.zip (48.27 KB)
¤j¤j­Ì±z¦n:

¥Øªº:
¦b"°²¤é¥X¶Ô³æ"¤º J2 Àx¦s®æ¤U¤è¿é¤J¤H¦W«á¡A®ÇÃä¥ð¤é¥X¶Ô³æ·|¦Û°Ê§ì¨ú¸Ó¤H"11¤ë"¸ê®Æªí¥þ³¡ªº°²¤é¤W¯Z¤é´Á»P®É¶¡
¬õ¦r³¡¤À¤º¬O­n§ì¨úªº¸ê®Æ

½Ð°Ý³o¼Ë§Ú¸Ó«ç»ò¼gµ{¦¡©O

½Ð¤j¤j­Ì«ü¾É

·P®¦

(¦pÀɮ׮榡©Ç©Çªº½Ð¦A°ÆÀɦW«á¥[¤J.ZIP)
¤£·|EXCALLªº²Â³J

¦^´_ 14# 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 2) As Range, i As Integer, ¥X¶Ô As String
  6.     Sheets("°²¤é¥X¶Ô³æ").PageSetup.PrintArea = "A1:H13"      '¤@­¶´N°÷¤F
  7.     Set Rng(1) = Sheets("°²¤é¥X¶Ô³æ").Range("J2")            '³]©w©m¦W
  8.     Do While Rng(1) <> ""                                    '°õ¦æ°j°éªº±ø¥ó:©m¦W<>""
  9.         With Sheets("11¤ë")
  10.             Set Rng(2) = .Range("B:B").Find(Rng(1), LOOKAT:=xlWhole)
  11.             If Not Rng(2) Is Nothing Then
  12.                 i = 3                                         '²Ä3Äæ :C
  13.                 Do While IsNumeric(.Cells(4, i))              '°õ¦æ°j°éªº±ø¥ó:²Ä4¦C¬O¼Æ¦r
  14.                     If .Cells(5, i) = "¤»" Or .Cells(5, i) = "¤é" Then
  15.                         ¥X¶Ô = ""                             'Âk¹s
  16.                         If .Cells(Rng(2).Row, i) Like "*¦­*" Then
  17.                             ¥X¶Ô = ¦­
  18.                         ElseIf .Cells(Rng(2).Row, i) Like "*±ß*" Then
  19.                            
  20.                             ¥X¶Ô = ±ß
  21.                         ElseIf .Cells(Rng(2).Row, i) Like "*¥þ¤é*" Then
  22.                             ¥X¶Ô = ¥þ¤é
  23.                         End If
  24.                         If ¥X¶Ô <> "" Then
  25.                             Sheets("°²¤é¥X¶Ô³æ").Range("B3") = Rng(1)                               '©m¦W
  26.                             Sheets("°²¤é¥X¶Ô³æ").Range("D3") = Rng(2).Offset(, -1)                  'ªÀ­û½s¸¹
  27.                             Sheets("°²¤é¥X¶Ô³æ").Range("A5") = DateSerial(2013, 11, .Cells(4, i))   '¤é´Á
  28.                             Sheets("°²¤é¥X¶Ô³æ").Range("B5") = ¥X¶Ô                                 '®É¶¡
  29.                             Sheets("°²¤é¥X¶Ô³æ").Range("D5") = IIf(.Cells(4, i) = "¤»", "(¬P´Á¤»)", "(¬P´Á¤é)") & "¨FÀsÀç·~"
  30.                             Sheets("°²¤é¥X¶Ô³æ").PrintOut    '¦L¦C¥X¶Ô³æ
  31.                         End If
  32.                     End If
  33.                     i = i + 1
  34.                 Loop
  35.             End If
  36.         End With
  37.         Set Rng(1) = Rng(1).Offset(1)    '¤U¤@¦ì©m¦W
  38.     Loop
  39. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

Ex.zip.zip (49.98 KB) ¦^´_ 15# GBKEE

¤j¤j±z¦n

§Ú­è¶K±zªºµ{¦¡¶i¥h"Ex"¥¨¶°¸Ì
¦ý¦b"°²¤é¥X¶Ô³æ"¸ê®ÆªíJ2Àx¦s®æ¿é¤J"­^¤å©m¦W"«á«o¨S¦³¤ÏÀ³©O

ps:§Ú©¿²¤©m¦W¤¤­^¤å¹ï·Ó¤F(°²¤é¥X¶Ô³æ¬O­nÂà´«¦¨¤¤¤å©m¦W)¡A¤w¦b¤U¤è¸É¤W¡A½Ð¤j¤j¦AÀ°§Ú¬Ý¬Ý¬O§_§Ú©¿²¤¤F¬Æ»ò~


Abby  ¤BXªå
Masumi §dX¿þ
Jessica ªLX¿P
Hitomi ªLX´@
Jason ³\X»¨
Red ³¯X§e
Lynn À¹X§D
Prince ³\X±j
Edge ĬX¯§
Joyce «JX¶²
Jack ¶ÀX³Ç
¤£·|EXCALLªº²Â³J

TOP

¦^´_ 16# prince0413
¤¤­^¤å¹ï·Óªí,½Ð©ñ¦b¤u§@ªí¦n¹ï·Ó(ª`·N­Ó¤H¸ê®Æ),§Ë¦n«á¤W¶ÇÀÉ®×,§Ú¦A¬Ý¬Ý.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

Ex.zip.zip (48.05 KB) ¦^´_ 17# GBKEE

¤j¤j±z¦n

ªþ¥ó¬°¥[¤J¤¤­^©m¦W¹ï·Ó¸ê®Æªí¡A¥H¤Î¦b"Ex"¥¨¶°¶K¤J±zªºµ{¦¡«áªºµ²ªG

½Ð±z¦A«ü±Ð¤@¤U

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

TOP

¦^´_ 18# 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 2) As Range, i As Integer, ¥X¶Ô As String, M As Variant
  6.     Sheets("°²¤é¥X¶Ô³æ").PageSetup.PrintArea = "A1:H13"      '¤@­¶´N°÷¤F
  7.     Set Rng(1) = Sheets("°²¤é¥X¶Ô³æ").Range("J2")            '³]©w©m¦W
  8.     Do While Rng(1) <> ""                                    '°õ¦æ°j°éªº±ø¥ó:©m¦W<>""
  9.         With Sheets("11¤ë")
  10.             Set Rng(2) = .Range("B:B").Find(Rng(1), LOOKAT:=xlWhole)
  11.             M = Application.Match(Rng(1), Sheets("¤¤­^¤å©m¦W¹ï·Óªí").Range("A:A"), 0)  'Match : ¤u§@ªí¨ç¼Æ
  12.             If IsError(M) Then MsgBox "¤¤­^¤å©m¦W¹ï·Óªí ¤¤¨S¦³ : " & Rng(1): Exit Sub
  13.             If Not Rng(2) Is Nothing Then
  14.                 i = 3                                         '²Ä3Äæ :C
  15.                 Do While IsNumeric(.Cells(4, i))              '°õ¦æ°j°éªº±ø¥ó:²Ä4¦C¬O¼Æ¦r
  16.                     If .Cells(5, i) = "¤»" Or .Cells(5, i) = "¤é" Then
  17.                         ¥X¶Ô = ""                             'Âk¹s
  18.                         If .Cells(Rng(2).Row, i) Like "*¦­*" Then
  19.                             ¥X¶Ô = ¦­
  20.                         ElseIf .Cells(Rng(2).Row, i) Like "*±ß*" Then
  21.                             ¥X¶Ô = ±ß
  22.                         ElseIf .Cells(Rng(2).Row, i) Like "*¥þ¤é*" Then
  23.                             ¥X¶Ô = ¥þ¤é
  24.                         End If
  25.                         If ¥X¶Ô <> "" Then
  26.                             Sheets("°²¤é¥X¶Ô³æ").Range("B3") = Sheets("¤¤­^¤å©m¦W¹ï·Óªí").Cells(M, "B")     '©m¦W: ¹ï·Ó¥X¦bBÄ檺 M¦C
  27.                             Sheets("°²¤é¥X¶Ô³æ").Range("D3") = Rng(2).Offset(, -1)                          'ªÀ­û½s¸¹
  28.                             Sheets("°²¤é¥X¶Ô³æ").Range("A5") = DateSerial(2013, 11, .Cells(4, i))           '¤é´Á
  29.                             Sheets("°²¤é¥X¶Ô³æ").Range("B5") = ¥X¶Ô                                         '®É¶¡
  30.                             Sheets("°²¤é¥X¶Ô³æ").Range("D5") = IIf(.Cells(4, i) = "¤»", "(¬P´Á¤»)", "(¬P´Á¤é)") & "¨FÀsÀç·~"
  31.                             Sheets("°²¤é¥X¶Ô³æ").PrintOut                                                   '¦L¦C¥X¶Ô³æ
  32.                         End If
  33.                     End If
  34.                     i = i + 1
  35.                 Loop
  36.             End If
  37.         End With
  38.         Set Rng(1) = Rng(1).Offset(1)    '¤U¤@¦ì©m¦W
  39.     Loop
  40. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 19# GBKEE

¤j¤j±z¦n

§Ú­è¶K±zªºµ{¦¡¶i¥h¥¨¶°«á¡A¦AJ2Àx¦s®æ¿é¤J­^¤å©m¦W³£¨S¦³¤ÏÀ³©O
«ç»ò·|³o¼Ë©O?

-------------------------------------------------------------------------------
ºÃ°Ý1:
Sheets("°²¤é¥X¶Ô³æ").PageSetup.PrintArea = "A1:H13"      '¤@­¶´N°÷¤F

¤W­±µ{¦¡½X½Ð°Ý¤j¤j³o¬Æ»ò·N«ä©O¡A·Ó¹D²z»¡¤@­Ó¤H¤@­Ó¤ë¦Ü¤Ö·|¦³«Ü¦h¤Ñ°²¤é¥X¶Ô³æ¡A¥Nªí¤£¥u·|¦³¤@¥÷¦Ó¥H¡A¦ý¤j¤j¬°¤°»ò½d³ò¥u§ì"A1:H13"¤@±i¦Ó¤w©O?

¤£¦n·N«ä¡A¤@ª½½Ð±Ð±z°ÝÃD~
³Â·Ð¤F
¤£·|EXCALLªº²Â³J

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD