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

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

¦^´_ 40# GBKEE

¤j¤j±z¦n

¤@ÂI³£¤£·|®ö¶O§Úªº®É¶¡¡A±z«È®ð¤F¡A§ÚÁÙ­n·PÁ±zÅý§Ú¤F¸Ñ³o»ò¦h©O!
¤£µM¨S¦³·§©Àªº§Ú¤@©w¤£ª¾¹D«ç»ò¬Ý¿ù»~..
¤Ó´Î¤F  ~  µ{¦¡¤w¸gOK¤F!! ^^
¯uªº«D±`ÁÂÁ±z
----------------------------------------------------------------------------------------------
Ex2.zip.zip (52.89 KB)
¤U¦¸§Ú¤]·Q¥Î³o­ÓÆ[©À°µ¤@¥÷¥­¤é¥ð°²ªºªí³æ(¦pªþ¥ó)
¦ý§PÂ_ªº¤èªk¹ê¦b¤Ó½ÆÂø¤F¡A¤£ª¾¹D¯à¤£¯à°÷§Ë±o¥X¨Ó

¯à§_½Ð¤j¤j«üÂI¤@¤U(¦pªG¯uªº«Ü½ÆÂøªº¸Ü´N¤£¥Î³Â·Ð¤j¤j¤F¨SÃö«Y^^")
¤£·|EXCALLªº²Â³J

TOP

¦^´_ 41# prince0413
¥i¥H¸ÑÄÀ¤@¤U: 1019¥X1026¥X,1019¥N¥ð,¤U¥b±ß1012¥X.
¤U¥b±ß ªº®É¶¡ ?
11/02(¤»)¨FÀsÀç·~¡A¥ð³Ñ¾lªº0.5¤Ñ:­n°Ñ¦Ò¦ó³B.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 42# GBKEE

¤j¤j±z¦n:
°ò¥»¤W¥u­n§â"11¤ë"¸ê®Æªí¤¤¦³¥ð°²ªº¸ÓÀx¦s®æ¹ï·Ó¨ì¥­¤é¥ð°²³æ¸Ì§Y¥i¡A®É¶¡"¤W¡B¤U¤È"¥´ºâ¦Û¦æ¦L¥X¦A¥Îµ§°é¿ï¡A

ª`: ¥u­n°²¤é¦³¤W¯Z¡A´N¦³°²¥i¥H±Æ¥­¤é¥ð¡A©Ò¥H¥­¤é¥ð°²³æ¬O­nªí¥Ü¸Ó¤H¥Î­þ¤Ñªº°²¤é¤W¯Z¨Ó¥ð°²ªº·N«ä

1019¥X1026¥X = ¥Nªí¨Ï¥Î10/19¥b¤Ñ+10/26¥b¤Ñ¥[°_¨Ó¥ð¤@¤Ñ
1019¥N¥ð = ¥Nªí¨Ï¥Î10/19¾ã¤Ñ¨Ó¥ð°²
1012¥X.¤U¥b±ß = ²³æ¨Ó»¡´N¬O½Ð¥b¤Ñ°²ªº·N«ä¡C¥Nªí¨Ï¥Î10/12¥b¤Ñ¨Ó¥ð°²¡A¤U¤È«h¬OÄ~Äò¤W±ß¯Z¡C(¥u­nSHOW¥X10/12½Ð°²¤é´Á§Y¥i)
¦~ = ¥Nªí¸Ó¤H¨Ï¥Î¦~°²¥ð°²
¤U¥b¦~.¤W¥b¦­(±ß) = ¥Nªí¸Ó¤H¥ð¥b¤Ñ°²¡A¤U¤È¥Î¦~°²¥b¤Ñ¥ð°²¡A¦³¥b¤Ñ®É¬q·Ó±`¤W¯Z(¦­or±ß)
¤W¥b¦~.¤U¥b¦­(±ß) = ¥Nªí¸Ó¤H¥ð¥b¤Ñ°²¡A¤W¤È¥Î¦~°²¥b¤Ñ¥ð°²¡A¦³¥b¤Ñ®É¬q·Ó±`¤W¯Z(¦­or±ß)

¦­¯Z®É¶¡:9:30~6:30   
±ß¯Z®É¶¡:2:30~10:30

§Ú©ú¤é·|¥Î¹Ï¸Ñ§â¦UºØª¬ªp¹ïÀ³¥ð°²³æªí¥Ü¥X¨Óµ¹¤j¤j±z¤F¸Ñ

°ò¥»¤W³æ¯Â¥u¥Î¤@¤Ñ°²¤é¤W¯Z´«¤@¤Ñ¥­¤é¥ð°²¤ñ¸û¦n²z¸Ñ(¬Û·í©óª½±µ¹ï·ÓÀx¦s®æ¹L¨Ó¦Ó¤w)¡A¦ý¥u­n²o§è¨ì¤W¥b¤Ñ¯Zªº©Î¦³¨Ï¥Î¥b¤Ñªº°²´N¤ñ¸ûÃø²z¸Ñ~"~
¤£·|EXCALLªº²Â³J

TOP

Ex2.rar (50.88 KB) ¦^´_ 42# GBKEE

¤j¤j±z¦n:
§Ú§â¦UºØª¬ªp¥Î¹ÏÀɧe²{µ¹±z¤F¸Ñ
¥ú¸ÑÄÀ§Ú´Nı±o«Ü½ÆÂø¤F
¤£ª¾¹D¤j¤j¯à¤£¯à²z¸Ñ

1104.jpg
2013-11-25 04:22


1113.jpg
2013-11-25 04:22


1118.jpg
2013-11-25 04:23


1128.jpg
2013-11-25 04:23


1118¦~.jpg
2013-11-25 04:23


³o¦¸¥u»Ý­n¯à°÷¹ï·ÓSHOW¦b¸ê®Æªí§Y¥i¡A¤£»Ý­n¦Û°Êprintout¡A§ï¦¨¦Û¦æ¤â°Ê¦C¦L¡C
ªþ¥ó¸Ì§Ú­«·s³]­p¤F10¥÷½Ð°²³æ¡A¦]¬°¥i¯à¸Ó¤H¤@­Ó¤ë¥i¯à·|¥ð¦n´X¤Ñ¡C
¤â°Ê¦C¦L¥u­n¦³´X¥÷´N¿ï¾Ü½d³ò¦C¦L´X­¶¡C

©m¦W¡BªÀ­û½s¸¹¡B½Ð°²¤é´Á¡B¤Ñ¼Æ¡B³Æ¦Ò  ¡÷ ¥u¦³³o¨Ç®æ¤l»Ý­n¥Îµ{¦¡¹ï·Ó¹Bºâ¡A"½Ð°²§O"¦¹Äæ¦ì¤£¶·²z·|¡C

¦pªG±ø¥ó¤Ó½ÆÂøµLªk°µ¤]¨SÃö«Y
¤£·|EXCALLªº²Â³J

TOP

¦^´_ 42# GBKEE

¤j¤j±z¦n:

¯uªº«D±`¤£¦n·N«ä¤S¨Ó³Â·Ð±z¡A¦]¬°¥Ø«e¥X²{¤p¤pªº°ÝÃD

Ãö©ó°²¤é¥X¶Ô³æªº³¡¤À

12¤ë¥÷ªº¯Zªíµo²{°²¤é¥X¶Ô®É¶¡¨C­Ó¤é´Á¦­±ß¯Z¤Î¥þ¤é¥X¶Ô®É¶¡³£¤£¦P(¦p¹Ï¤@)¡A¦]¦¹§Ú¤£ª¾¹D¸Ó«ç»ò­×§ïµ{¦¡¤W¤èªº®É¶¡(¦p¹Ï¤G)¡A·Q½Ð°Ý¤j¤j¸Ó«ç»ò­×§ï©O?   

¦pªG³£·Ó¼ËKEYIN¶i¥hªº¸Ü¡Aµo²{"¥þ¤é"©M"¥þ¤é(¦­)"³£·|­«½Æ¦WºÙ¦³¿ù»~~"~

½Ð¤j¤jÀ°§Ú¬Ý¬Ý

·P®¦  ³Â·Ð±z¤F~
°²¤é¥X¶Ô.jpg
¥X¶Ô®É¶¡.jpg
°²¤é¥X¶Ô.jpg
¥X¶Ô®É¶¡.jpg
¤£·|EXCALLªº²Â³J

TOP

¦^´_ 45# prince0413

¨Ì11¤ëªºÀÉ®×.ªºµ{¦¡½X
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng(1 To 4) As Range, i As Integer, ii As Integer, ¥X¶Ô As String, ¤é´Á As Variant, Print_x As Integer
  4.     Dim ¥X¶Ô³æ As Range, E As Range, Sh As Worksheet, ¥X¶Ô¯Z§O()
  5.     Set ¥X¶Ô³æ = Sheets("°²¤é¥X¶Ô³æ").Range("B3,D3,A5,B5,D5")   '²Ä1±i¥X¶Ô³æ­n¾É¤J¸ê®Æªº¦ì¸m
  6.     Set Rng(1) = Sheets("°²¤é¥X¶Ô³æ").Range("J2")               '³]©wªÀ­û ­^¤å,¤¤¤å,½s¸¹
  7.     For i = 0 To 3                                              '¥X¶Ô³æ: ²Ä1±i¨ì ²Ä4±iªº¦ì¸m ¶¡®æ 14 ¦C
  8.         ¥X¶Ô³æ.Offset(i * 14) = ""                              '²M°£ ¸ê®Æ
  9.     Next
  10.     Print_x = 0                                                 '¦L¦C A4¯È±i ªºÅܼÆ
  11.     Set Sh = Sheets("11¤ë")                                     '***¦b«ü©w¤ë¥÷****
  12.     Set Rng(4) = Sh.Cells.Find("¡°¥»¤ë°²¤é¥X¶Ô®É¬q", lookat:=xlWhole)
  13.     Set Rng(4) = Sh.Range(Rng(4).Offset(2), Rng(4).Offset(2).End(xlDown))  '¥X¶Ô®É¶¡
  14.     ¥X¶Ô¯Z§O = Application.WorksheetFunction.Transpose(Rng(4).Offset(, 5).Value)  '¦­.±ß...

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

TOP

¦^´_ 46# GBKEE
¥ð¤é¥X¶Ô³æ12.zip (54.09 KB)

¤j¤j±z¦n:

§Ú¦³·Ó±zªºµ{¦¡½X¶K¤W¡A¦ý°õ¦æ¥¨¶°«á«o³£¨S¦³¤ÏÀ³©O~(¦pªþ¥ó)

½Ð°Ý§Ú¬O­þ¸Ì³]©w¿ù»~¶Ü?

-------------------------------------------------------------------------

³o¦¸¦ü¥Gµ{¦¡½XÅܤƳ\¦h¡A¬O§ì¸ê®Æªº¤è¦¡§ïÅܤF¶Ü??   

¨º»ò¤§«á¨C¤ë§ó·s®É§Ú»Ý­nÅܧó­þ¸Ì©O? ³o¦¸ªº¤ñ¸ûÃø   ¬Ý¤£¤ÓÀ´   ½Ð¤j¤j«ü¾É~"~
¤£·|EXCALLªº²Â³J

TOP

¦^´_ 46# GBKEE

dim.jpg
2013-12-1 13:55


¤j¤j±z¦n :

­è¬d¸ßµ{¦¡¡AOption Explicit  ªº·N«ä¬O¦b¦¹µ{¦¡¸Ì©Ò¦³©w¸q³£­n©ú½T«Å§i

¥i¬O¤U¤è¥X¶Ô¯Z§O·Pı¤£¹³¦³«Å§iªº¤è¦¡¡A¬O³o­Ó°ÝÃD¾É­Pµ{¦¡¨S¦³¤ÏÀ³¶Ü?

ÁÙ¬O¨ä¹ê¥i¥H¥Î³o¼Ëªº¼gªkªí¹F

¤£¦n·N«ä    §Ú¤£¤Ó¤F¸Ñ    ·Q»¡À°¤j¤j¬Ý¤@¤U
¤£·|EXCALLªº²Â³J

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-12-1 16:02 ½s¿è

¦^´_ 48# prince0413

Dim  Sh As Worksheet, ¥X¶Ô¯Z§O()
«Å§i     Sh      «¬ºA Worksheetª«¥ó
«Å§i ¥X¶Ô¯Z§O() «¬ºA °ÊºA°}¦C



EX.JPG
2013-12-1 15:59


§AªºªþÀÉ ®Ú¾Ú¤W­±­×§ï  ¥X¶Ô¯Z§O = Application.WorksheetFunction.Transpose(Rng(4).Offset(, 4).Value)
  1. Set Sh = Sheets("11¤ë") '***¦b«ü©w¤ë¥÷****
  2. Set Rng(4) = Sh.Cells.Find("¡°¥»¤ë°²¤é¥X¶Ô®É¬q", lookat:=xlWhole)       '¡°¥»¤ë°²¤é¥X¶Ô®É¬q  
  3. Set Rng(4) = Sh.Range(Rng(4).Offset(2), Rng(4).Offset(2).End(xlDown)) '¥X¶Ô¤é´Á
  4. ¥X¶Ô¯Z§O = Application.WorksheetFunction.Transpose(Rng(4).Offset(, 4).Value) ' ¯Z§O
½Æ»s¥N½X
  1. If (.Cells(5, i) = "¤»" Or .Cells(5, i) = "¤é") And Not IsError(Application.Match(.Cells(Rng(3).Row, i), ¥X¶Ô¯Z§O, 0)) Then
  2. ¥X¶Ô = "" 'Âk¹s
  3. For Each E In Rng(4) '¥»¤ë°²¤é¥X¶Ô®É¬q
  4. ¤é´Á = Split(E.Offset(, 1), "/")(1) '§R±¼¤ë¥÷
  5. ¤é´Á = Split(¤é´Á, ".") '¨ú±o¤é´Á
  6. If Not IsError(Application.Match(.Cells(4, i), ¤é´Á, 0)) Then '´M§ä¤é´Á
  7. ¥X¶Ô = E
  8. Exit For
  9. End If
  10. Next
½Æ»s¥N½X
.Cells(Rng(3).Row, i) ¯Z§O ªº¦r¦ê ¬O   [¦­, ¥þ¤é,¥þ¤é2,¦­2] ªº¯Z§O¤~·|¶i¦æ¤U¤@¦æªºµ{¦¡½X


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

TOP

¦^´_ 49# GBKEE

¤j¤j±z¦n:

·Ó±zªº­×§ï¦bZ18~AD18·s¼W0~4¼Æ­È¡Aµ{¦¡¤w¦³±Ò°Ê¡C
¦ý´ú¸Õ¸Ó¤H"Edge"®É¡A21¸¹¨S¦³¶]¥X¨Ó¡A¥u¦³22.28³o¨â­Ó¤é´Á¦³¦L¥X¦Ó¤w©O
½Ð°Ý³o¸Ó«ç»ò¿ì©O   ¬O§Ú³]©w¿ù»~¶Ü~"~?
¤£·|EXCALLªº²Â³J

TOP

        ÀR«ä¦Û¦b : ¨C¤ÑµL©Ò¨Æ¨Æ¡A¬O¤H¥Íªº®ø¶OªÌ¡A¿n·¥¡B¦³¥Î¤~¬O¤H¥Íªº³Ð³yªÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD