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

[µo°Ý] ¥~¥]¤H¤O¤u§@¬ö¿ý ·s¤âµo°Ý!

[µo°Ý] ¥~¥]¤H¤O¤u§@¬ö¿ý ·s¤âµo°Ý!

¥~¥]¤H¤O¤u§@¬ö¿ý.zip (113.88 KB)

¤j®a¦n.  ¥Ñ©ó¤½¥q·Q¬Ý¥~¥]°Óªº¨Ï¥Îª¬ªp (½Ð¤@¤Ñ¦h¤Ö.°µ¦h¤Ö¨Æ±¡. ¦ó¤£¦X¥G¦¨¥»)
¦ý¥Ñ©óÆZ¦h¦a¤è¤£À´. ©Ò¥H¤W¨Ó½Ð±Ð¤j®a! ·P®¦
§Ú·Q¸ß°Ýªº¬O.
1.½d¥»(¤Å§ó§ï)¸Ì­±. ·í¤é³Ò°È¶O¥ÎªºÄæ¦ì­pºâ. ·í¤éÁ`®É¶¡ªº«e´£¤U,·í¤é³Ò°È¶O¥Î=(®ÉÁ~*1)+(®ÉÁ~(10~12¤p®É) * 1.66)+®ÉÁ~(12¤p®É¥H¤W) * 2+³Ò°ÈºÞ²z¨C¤H(3.75¤¸/¤p®É )  ­n¦p¦ó¼g©O >"<
2.½d¥»(¤Å§ó§ï)¸Ì­±. ®Ä¯q¤ñªº³¡¤À, =·í¤éÁ`®Ä¯q - ·í¤é³Ò°È¶O, °ÝÃD¨Ó¤F.1/1¦³°µ10¥ó¨Æ±¡. ¦pªG§Ú±N¤½¦¡¤U©Ô.ªÅ¥Õ³B·|¥X²{#Value   ><
3.½d¥»(¤Å§ó§ï)¸Ì­±. ¤W¤èªø±ø¹Ï¦pªG¨S¤Hªº¤é´Á...ÁÙ¬O·|Åã¥Ü¥X¨Ó.  ­Y±N¤é´Á¨Ï¥Î¦¨¤å¦r. «h1/1¦³10¶µ¥¦´N·|Åã¥Ü10±ø.....¸Ó¦p¦ó¸Ñ¨M©O
4.¥D­¶¤¤ªº "4¡G©Ò¦³¤H­û®Ä¯q""3¡G­Ó¤H¬d¸ß" ªø±ø¹Ï. ³o¬O¥DºÞ­n¬Ýªº³¡¤À. ¸Ó¦p¦óÅýªø±ø¹Ï¥i¥H¹B§@.¨Ã¯à¿ï¾Ü¤ë¥÷...(·¥¤jªº°ÝÃD ><)

¥Ñ©ó²Ä¤@¦¸¼g³oºØªí®æ.°ÝÃD¸û¦h. :'(

4.¥D­¶¤¤ªº "4¡G©Ò¦³¤H­û®Ä¯q""3¡G­Ó¤H¬d¸ß" ªø±ø¹Ï. ³o¬O¥DºÞ­n¬Ýªº³¡¤À. ¸Ó¦p¦óÅýªø±ø¹Ï¥i¥H¹B§@.¨Ã¯à¿ï¾Ü¤ë¥÷...(·¥¤jªº°ÝÃD ><)
lager.master µoªí©ó 2014/8/26 23:38

§AªºªþÀÉ,Á`ªí(¸ê®Æ®w)¶·¦³³o¨ÇÄæ¦ì [¼t°Ó,©m¦W,¤u§@¤é´Á,°õ¦æ®É¶¡,¤u§@¥N½X,¼Æ¶q,¤u§@¤º®e]
¥D­¶,½d¥»(¤Å§ó§ï) ¤~¥i¦³¿z¥X«ü©wªº¸ê®Æ»s¹Ï
¼Æ¶q(¤u§@ªí)¬O¦ó§@¥Î?
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE

¤F¸Ñ. ¼Æ¶q³æ¯Â°µ¤U©Ô²M³æ¨Ï¥Î¦Ó¤w. ¥¼¨Ó·|®³±¼...¨Ï¥ÎªÌ¦Û¤vkey·|¤ñ¸û§Ö

TOP

¥»©«³Ì«á¥Ñ lager.master ©ó 2014-8-27 20:42 ½s¿è

AAA.rar (122.94 KB)
ª©¥D±z¦n. Á`ªíªº¦w±Æ¤è¦¡¤@ª½¨S¦³ÀYºü.¬O§_¯à½Ð±z±Ð§Ú¸Ó¦p¦ó°µ¤ñ¸û¦X¾A
§ÚªººÃ°Ý¬O
1:¥Ñ©ó¥~¥]¦³¨â¶¡¤½¥q. ©ñ¦b¦P¤@­Ó¦a¤è¬O§_OK .ÁÙ¬O±o¤À­¶
2:¨C¤Ñ¤u§@¶µ¥Ø«Ü¦h.¦ýÁ`ªí¥u»Ý­n§ì¨C¤Ñ¨C­Ó¤Hªº®Ä¯q¤ñ.¸Ó«ç»ò§ì©O. ¥~¥]°ÓÁ`¦@¦³10¤H(10±i¤u§@ªí).¬O§_¦³¿ìªk¦Û¤v§ì¸ê®Æ¨ìÁ`ªí

¥Ñ©ó³Q¦ÑÁó¹GµÛ°µ....¥L¤w¸g¤£·Q¦A¬Ý¯È¥»¤â¼gªº¸ê®Æ¤F (§¹¥þ¨S«Ø¹q¤lÀÉ).
¦Û¤v¤S¬O·s¤â. °J¤ß§Æ±æ¯àµ¹§ÚÂI¤è¦V! ·P®¦

TOP

¦^´_ 4# lager.master


   
§AªºªþÀÉ,Á`ªí(¸ê®Æ®w)¶·¦³³o¨ÇÄæ¦ì [¼t°Ó,©m¦W,¤u§@¤é´Á,°õ¦æ®É¶¡,¤u§@¥N½X,¼Æ¶q,¤u§@¤º®e]
¸ê®Æ®w¬O°O¸ü©Ò¦³ªº¸Ô²Ó¸ê®Æ(¼t°Ó,¤H­û...).
¥i¥H¨Ì»Ý¨D±ø¥ó¬d¬Ý,­Ó§O¼t°Ó,­Ó§O¤H­û,¿z¿ï«áÅã¥Ü¦b¨ä¥L¤u§@­¶¤W.°µ§A­nªº¹Ïªí
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# lager.master
¨Ì§AÀɮפ¤Á`ªíªºÄæ¦ì°µªº:
  1. Sub bb()
  2.   Dim iCol%
  3.   Dim lRow&, lSRow&, lTRow&(0 To 1)
  4.   Dim bComp As Boolean
  5.   Dim rTar As Range
  6.   Dim wsTar As Worksheet, wsSou As Worksheet
  7.   
  8.   Set wsTar = Sheets("Á`ªí")
  9.   With Sheets("¦¨­û")
  10.     lRow = 2
  11.     lTRow(0) = 4
  12.     lTRow(1) = 4
  13.     Do While .Cells(lRow, 1) <> ""
  14.       lSRow = 6
  15.       Set wsSou = Sheets(CStr(.Cells(lRow, 1)))
  16.       bComp = .Cells(lRow, 2) = "TT¬ì§Þ"
  17.       iCol = bComp * -8
  18.       With wsTar
  19.          Do While wsSou.Cells(lSRow, iCol + 2) <> ""
  20.            With .Cells(lTRow(bComp + 1), iCol + 2)
  21.              .Value = wsSou.[E2] ' ¼t°Ó
  22.              .HorizontalAlignment = xlCenter
  23.            End With
  24.              With .Cells(lTRow(bComp + 1), iCol + 3)
  25.              .Value = wsSou.[C2] ' ©m¦W
  26.              .HorizontalAlignment = xlCenter
  27.            End With
  28.            With .Cells(lTRow(bComp + 1), iCol + 4)
  29.              .Value = wsSou.Cells(lSRow, 2) ' ¤u§@¤é´Á
  30.              .NumberFormat = "m""¤ë""d""¤é"";@"
  31.            End With
  32.            .Cells(lTRow(bComp + 1), iCol + 5) = CDate(wsSou.Cells(lSRow, 3)) & " ~ " & CDate(wsSou.Cells(lSRow, 4)) ' °õ¦æ®É¶¡
  33.            .Cells(lTRow(bComp + 1), iCol + 6) = wsSou.Cells(lSRow, 5) ' ¤u§@¥N½X
  34.            .Cells(lTRow(bComp + 1), iCol + 7) = wsSou.Cells(lSRow, 6) ' ¼Æ¶q
  35.            .Cells(lTRow(bComp + 1), iCol + 8) = wsSou.Cells(lSRow, 7) ' ¤u§@¤º®e
  36.            lSRow = lSRow + 1
  37.            lTRow(bComp + 1) = lTRow(bComp + 1) + 1
  38.          Loop
  39.       End With
  40.       lRow = lRow + 1
  41.     Loop
  42.   End With
  43. End Sub
½Æ»s¥N½X
°ò¥»¤W§Ú³]­pµ{¦¡ªº°µªk¦p¤U¨Ñ§A°Ñ¦Ò:
1. ¥ý½T©w¼Ðªº¤u§@ªí : ªø©x­n¬Ýªº¬O­þ¨Ç¸ê®Æ, »Ý­n°µ¥X«ç¼Ëªºªí®æ©Î¹Ï§Î, ¥H¨M©w Á`ªí »Ý­n¦³ªº¸ê®Æ»P¹Ï§Î¥i¥ý¸Õ°µ­Ó¥Àª©¥X¨Ó.
2. ½T©w¸ê®Æ¨Ó·½»P¤è¦¡ : ¸ê®Æ¬O±q ¹q¸£³øªí ÁÙ¬O ¤H¤u¿é¤J ¨Óªº? ­n«ç»ò§ì¸ê®Æ? ¬O§_»Ý­n¤¤Ä~ªí®æ¨Ó¦s©ñ¸ê®Æ?(¤]´N¬O¥ý§ì¸ê®Æ¨ì¤¤Ä~ªí®æ¼È¦s,³Ì«á¦A§ì¨ì©Î¸g¹L­pºâ¨ìÁ`ªí¤¤)
3. ±q¸ê®Æ¨Ó·½»s§@¤¤Ä~¤u§@ªí(¥i°µ µ§¼Æ¸û¤Ö¦ý¶·¨ã¥Nªí©Ê ªº´ú¸Õ¸ê®Æ, ©Î¬O¹ê»Ú¨ú±oªº¨Ó·½¸ê®Æ).
4. ¹ê§@µ{¦¡½T©w¨Ì¾Ú¸ê®Æ¨Ó·½»P¤è¦¡¬O§_¯à¹ê§@¥X¨Ó¼Ðªº¤u§@ªí? ­Y¦³ºÃ¼{¬O§_»Ý­n½Õ¾ã  ¨Ó·½¸ê®Æ¨ú±o¤è¦¡, ©Î¬O ¼Ðªº¤u§@ªí®æ¦¡.
5. À˵ø¸Õ§@¥X¨Óªº¼Ðªºªí®æ¸ê®Æ¬O§_¥¿½T, §e¾\ªø©x½d¨Ò¼Ðªºªí®æ¬O§_²Å¦Xªø©x¹w´Á?(§e¾\«e°È¥²½T»{¸ê®Æ¥¿½T, ¥BÀ³¦³¸û¤j´T«×ÅÜ°Ê, ©Î¬Oªø©x«ü¥Üªº¶¥¬q²§°Ê¶µ¥Ø³£¹ê²{«á¦A§e¾\)
6. «ùÄò¨BÆJ3 »P 5 ª½¦Üµ{¦¡§¹¦¨.

¦³´X­Ó­«ÂI»Ý­n¯d·Nªº:
1. °µ¥X¨Óªºªí®æ¬Oªø©x­n¬Ýªº, ªø©x¤]¦³¥i¯à¦bÀ˵ø®É¤S­n¨D­×§ï¼Ðªºªí®æ§e²{¤è¦¡, ©Ò¥H³o­Ó¤¬°Ê«Ü­«­n.
2. ¨Ó·½¸ê®Æ¤£¥¿½T´N°µ¤£¥X¨Ó¥¿½Tªº¼Ðªºªí®æ, ¤H¤u¿é¤J¦³¥i¯à·|¥X²{®æ¦¡¿ù»~©Î¬O¿é¿ù¤º®eªº±¡§Î, ¬O§_»Ý­nÅçÃÒ?¦p¦óÅçÃÒ?
¤½¥qªº¹q¸£³øªí¤]¥i¯à·|§ó·s, ¸ê®Æ§ì¨ú§PÂ_ªº¤è¦¡¥i¯à»Ý­n¦³¼u©Ê.
3. ¾¨¶q±N­«½Æªº¤u§@©Îµ{¦¡½X°µ¦¨ SUB °Æµ{¦¡(»ÝÅܰʪº¸ê®Æ°Ñ¼Æ)  ªº¤è¦¡¨Ó©I¥s,
¸û©öºûÅ@»P§ä°ÝÃDÂI.

§A©Ò°Ýªº°ÝÃD:
1:¥Ñ©ó¥~¥]¦³¨â¶¡¤½¥q. ©ñ¦b¦P¤@­Ó¦a¤è¬O§_OK .ÁÙ¬O±o¤À­¶
¤À¤£¤À­¶¦³¦n¦³Ãa, ¤£¤À­¶®e©ö§ì¸ê®Æ(¦]¬°³£¦b¦P­Ó¤u§@ªí¤W), ¤À­¶«h¸û©öºÞ²z»P¤£®e©öÃzªí,
¥t¥~­Y¤H¤u¿é¤J, «h¤À­¶(¬Æ¦Ü¤ÀÀÉ)¥i¥H¦U¤H¿é¦U¤Hªº¸ê®Æ, ÁקK¬Ý¨ì¨ä¥L¤Hªº¸ê®Æ.
ÁÙ¦³¤]­n¬Ý§A¦³¨S¦³¨ä¥Lªºªº»Ý¨D, ¬O¤£¬O¦³¨ä¥Lªºªí®æ»Ý­n¥Î¨ì³o¨Ç¸ê®Æ? ­Y¦³, ¸ê®ÆÀ³«ç¼Ë§e²{¸û©ö¦@¥Î.
ÁÙ­n¦Ò¼{¸ê®Æ¬O·|²§°Ê¥B«ùÄò¼W¥[ªº, ­n¦p¦ó¹ê§@¥X¼W¥[, §R°£, ­×§ï ¤º®e, ¬O¬[ºcºc«Ø®É´N»Ý­n¦Ò¼{ªº°ÝÃD.

2:¨C¤Ñ¤u§@¶µ¥Ø«Ü¦h.¦ýÁ`ªí¥u»Ý­n§ì¨C¤Ñ¨C­Ó¤Hªº®Ä¯q¤ñ.¸Ó«ç»ò§ì©O. ¥~¥]°ÓÁ`¦@¦³10¤H(10±i¤u§@ªí).¬O§_¦³¿ìªk¦Û¤v§ì¸ê®Æ¨ìÁ`ªí
§A¥i¥H¸ÕµÛ°Ñ·Ó¤W­zµ{¦¡­×§ï¬Ý¬Ý.

TOP

¥Ø«e¤w¸g°µ¥X­Ó¥b¦¨«~.¥Ñ©óÀɮצb¤½¥q©ú¤Ñ¤~®³ªº¨ìÀÉ®× >_<
//////////////////
1.¥Ø«e¶i«×¨Ï¥Î¼Ï¯Ã¤ÀªRªºªø±ø§@¿é¥X. ·Pı²Å¦Xªø©xªº»Ý¨D¤]®e©ö¨Ï¥Î
2.¤H­û¥´ºâ¥Î¤À­¶³B²z¤F. ¨Ã³Ð¤@­Ó"Á`­¶" ¥ÎVBA±N©Ò¦³¤À­¶ªº¸ê®Æ·J¾ã¹L¨Ó.¹J¨ì°ÝÃD¦p¤U
   a:¨C­Ó¤Hªº¤½¦¡³]©w2000¦C(¤@¦~¥÷)... ½Æ»s¹L¨ÓªÅ¥Õ³B¤]¸òµÛ¹L¨Ó...´NÅܦ¨A 1~20¦³¸ê®Æ.21~2000ªÅ¥Õ. ±µµÛ2001¬°Bªº¸ê®Æ.
      ¥Ñ©ó§Ú§ä¤£¨ì¨ä¥L¿ìªk....©Ò¥H¨Ï¥Î¶i¶¥¿z¿ï. ©ó¬O¤S¦b®ÇÃäÅý¥L¿z¿ï¦¨¤@­Ó§¹¾ã¨SªÅ®æªº¸ê®Æ = = ¤g¬¶¤è¦¡
   b:±N©Ò¦³¤H¸ê®Æ·J¾ã¨ìÁ`­¶ªºVBA§Ú¥Îªº¬O§ì¨ú"©T©w¦WºÙ"ªº¤è¦¡. ¹J¨ì·s¼W¦¨­û´N±o­«·s¦bµ{¦¡¸Ì·s¼W¥Lªº§ì¨ú.... ¦Û°Ê§ì©Ò¦³¤À­¶ªºÁÙ¨S·d¥X¨Ó..
3.§Q¥Î¤g¬¶ªº¤è¦¡.+ ¼Ï¯Ã¤ÀªR... ¥Ø«e¤w¸g¥i¥H³ô¥Î(¤WÀYı±o³o¼Ë¥i¥H¤F).  ¦ýÁ`¥d¦º¦b¤@­Ó¦a¤è. ´N¬O¼Ï¯Ã¤ÀªR«ç¼Ë§ì¸ê®Æ´N¬O·|¤Ö¤@­Ó¤H....
   µL½×§Ú«ç¼Ë·s¼W...¥L´N¬O·|©T©w¤Ö¤@¤H.... ¬O§_¯àÀ°§Ú¬Ý¤@¤U°ÝÃD¥X¦b­þ©O?~   (¦pªþÀÉ...)
ps:¹ê»ÚÀɮ׬O§ì¨úÁ`ªíªº¶i¶¥¿z¿ïªG«áµLªÅ¥Õ¬q®t©Ò¦³¥~¥]¸ê®Æ..¤@¼Ë¤Ö¤@¤H. Àɮצb¤½¥q´N¬O

³Ì«á...¥~¥]¥Ñ©ó¬O¦^¦Û¤v¤½¥q¿é¤J...¦A±NÀÉ®×±H¨ì§Ú­Ì¤½¥q.
¦³¬Ý¹L¨Ï¥ÎVBA¦Û¤v±NÀɮפº®e¶×¤Jªº¤è¦¡. ÁÙ¨S¹Á¸Õ
¤U¤Uµ¦¥i¯à·|¦Û¤v¤â°Êcopy= =    ¤@¬P´Á¤@¦¸/10¤H

·PÁ±zªºÀ°¦£! ¦b³o¬üÄRªº©P¥½ ^_^ ¤ÀªR.rar (35.14 KB)

TOP

¥Ø«e¤w¸g°µ¥X­Ó¥b¦¨«~.¥Ñ©óÀɮצb¤½¥q©ú¤Ñ¤~®³ªº¨ìÀÉ®× >_<
...
¦Û°Ê§ì©Ò¦³¤À­¶ªºÁÙ¨S·d¥X¨Ó
...
lager.master µoªí©ó 2014-8-31 11:17
  1.   Dim vA
  2.   For Each vA In Worksheets
  3.     If vA.Name Like "*¤ÀªR*" Then
  4.       With Va ' ¹M¾ú¨C­Ó¦WºÙ¤ñ¹ï²Å¦X *¤ÀªR* (§Y©Ò¦³¦WºÙ¤¤¥]§t ¤ÀªR ¨â­Ó¦r)©Ò§ä¨ìªº¤u§@ªí
  5.         °w¹ï§ä¨ìªº¤u§@ªí»Ý­n³B²zªº¤º®e
  6.       End With
  7.     End If
  8.   Next
½Æ»s¥N½X
¼Ï¯Ã¤ÀªRªí¤]¬O§Úªº®z¶µ,
¥B§Ú¤]¨S¦³¸Ë 2010 ª©¥H¤Wªº Excel,
¼È®ÉÀ°¤£¤F§A.

TOP

¦^´_ 7# lager.master
¤Ö¤@¤H?§A«ü¤Ö¤Fsky¶Ü?
¦]¬°§A¥æ¤e¤ÀªR¿z¿ï¾¹¿ï¤F12347³o­Ó¥N½X...
«ö¥k¤W¹Ï®×¨ú®ø¿z¿ï´N¦n¤F
Â^¨ú.JPG

TOP

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD