- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 16
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-14
|
¦^´_ 4# lager.master
¨Ì§AÀɮפ¤Á`ªíªºÄæ¦ì°µªº:- Sub bb()
- Dim iCol%
- Dim lRow&, lSRow&, lTRow&(0 To 1)
- Dim bComp As Boolean
- Dim rTar As Range
- Dim wsTar As Worksheet, wsSou As Worksheet
-
- Set wsTar = Sheets("Á`ªí")
- With Sheets("¦¨û")
- lRow = 2
- lTRow(0) = 4
- lTRow(1) = 4
- Do While .Cells(lRow, 1) <> ""
- lSRow = 6
- Set wsSou = Sheets(CStr(.Cells(lRow, 1)))
- bComp = .Cells(lRow, 2) = "TT¬ì§Þ"
- iCol = bComp * -8
- With wsTar
- Do While wsSou.Cells(lSRow, iCol + 2) <> ""
- With .Cells(lTRow(bComp + 1), iCol + 2)
- .Value = wsSou.[E2] ' ¼t°Ó
- .HorizontalAlignment = xlCenter
- End With
- With .Cells(lTRow(bComp + 1), iCol + 3)
- .Value = wsSou.[C2] ' ©m¦W
- .HorizontalAlignment = xlCenter
- End With
- With .Cells(lTRow(bComp + 1), iCol + 4)
- .Value = wsSou.Cells(lSRow, 2) ' ¤u§@¤é´Á
- .NumberFormat = "m""¤ë""d""¤é"";@"
- End With
- .Cells(lTRow(bComp + 1), iCol + 5) = CDate(wsSou.Cells(lSRow, 3)) & " ~ " & CDate(wsSou.Cells(lSRow, 4)) ' °õ¦æ®É¶¡
- .Cells(lTRow(bComp + 1), iCol + 6) = wsSou.Cells(lSRow, 5) ' ¤u§@¥N½X
- .Cells(lTRow(bComp + 1), iCol + 7) = wsSou.Cells(lSRow, 6) ' ¼Æ¶q
- .Cells(lTRow(bComp + 1), iCol + 8) = wsSou.Cells(lSRow, 7) ' ¤u§@¤º®e
- lSRow = lSRow + 1
- lTRow(bComp + 1) = lTRow(bComp + 1) + 1
- Loop
- End With
- lRow = lRow + 1
- Loop
- End With
- End Sub
½Æ»s¥N½X °ò¥»¤W§Ú³]pµ{¦¡ªº°µªk¦p¤U¨Ñ§A°Ñ¦Ò:
1. ¥ý½T©w¼Ðªº¤u§@ªí : ªø©xn¬Ýªº¬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¹Lpºâ¨ìÁ`ªí¤¤)
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ªø©xn¬Ýªº, ªø©x¤]¦³¥i¯à¦bÀ˵ø®É¤Sn¨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¸ÕµÛ°Ñ·Ó¤Wzµ{¦¡×§ï¬Ý¬Ý. |
|