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

[µo°Ý] ¦hµ§EXCEL·j´Mªº¥Îªk[¤w¸Ñ¨M 2011-05-11]

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-5-10 11:04 ½s¿è

¦^´_ 1# mark15jill
»Ý¨D»¡©ú¡G
   1.·Q§Q¥Î ¦btext¤º ¿é¤J¬d¸ßªº¶mÂí(¦p ¥xÆW )  ¦A«ö ¬d¸ß ¬d¸ßªºµ²ªG±q ²Ä¤T¦C(A3)¶}©l±N¸Ó¸ê®Æ¦C¥X¨Ó¡C
     ¦p½d¨Ò¡G­n¬d¸ß ¥xÆW ªº¸Ü        (¸ê®Æ¶¶§Ç¨Ã«D«ö·Ó 123 ³o¼Ë¤U¥h  ¦³¥i¯à¬O¸õ¸¹ 20   25  30 27 µ¥µ¥¡C   
§AªºÀɮ׬O²²¤ªº½d¨Ò    ½Ð°Ý:
1.­n·j´MªºÀɮ׬O¦P¤@¥Ø¿ý¤UªºÀɮ׶Ü?  ,¦sÀɦb¦P¤@¥Ø¿ý¤U¶Ü?
2.¸ê®Æ¸¹½X ¬O§ä¨ì ¥xÆWªº¦C¸¹¶Ü?    ¥xÆW ¦P¤@¦C©¹¥k¦³¸ê®Æ¶Ü? ­n¤@°_§ì¶Ü?
3.½d¨Ò ¥i¥H¦A¹ê»Ú¨Ç¶Ü?

TOP

¦^´_ 4# mark15jill
  1. Private Sub ¬d¸ß()
  2.     Dim Text$, File$, TheSh As Object, Sh As Worksheet, Rng As Range, RngAddress$
  3.     With ThisWorkbook            'µ{¦¡½X¸m©ó¬d¸ßÁ`ªí.xls
  4.         Set TheSh = .Sheets("¬d¸ß")
  5.         TheSh.UsedRange.Offset(2).Clear
  6.         File = Dir(.Path & "\*¦~«×*.xls")
  7.         Do While File <> ""
  8.             With Workbooks.Open(.Path & "\" & File)
  9.                 For Each Sh In .Sheets
  10.                     Set Rng = Sh.Range("e:e").Find(TheSh.TextBox1, LookAt:=xlWhole)
  11.                     If Not Rng Is Nothing Then
  12.                         RngAddress = Rng.Address
  13.                         With TheSh.Range("C" & Rows.Count).End(xlUp)
  14.                             .Offset(1, -2) = File
  15.                             .Offset(1, -1) = Sh.Name
  16.                         End With
  17.                     End If
  18.                     Do While Not Rng Is Nothing
  19.                         With TheSh.Range("C" & Rows.Count).End(xlUp)
  20.                             .Offset(1).Resize(1, 6) = Sh.Range(Sh.Cells(Rng.Row, "A"), Sh.Cells(Rng.Row, "F")).Value
  21.                         End With
  22.                         Set Rng = Sh.Range("e:e").FindNext(Rng)
  23.                         If RngAddress = Rng.Address Then Exit Do
  24.                     Loop
  25.                 Next
  26.             .Close 0
  27.             End With
  28.             File = Dir
  29.         Loop
  30.     End With
  31. End Sub
  32. Sub ¦sÀÉ()              'µ{¦¡½X¸m©ó¬d¸ßÁ`ªí.xls
  33.     Dim Sh As Object
  34.     On Error Resume Next
  35.     Set Sh = ThisWorkbook.Sheets(1)
  36.    
  37.     With Workbooks.Add(xlWBATWorksheet)
  38.         Sh.UsedRange.Offset(1).Copy .Sheets(1).[A1]
  39.         .SaveAs ThisWorkbook.Path & "\" & Sh.TextBox1
  40.         .Close 0
  41.     End With
  42. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-5-10 15:42 ½s¿è

¦^´_ 6# mark15jill
1.±±¨î¶s Åܦ¨µL®Ä (¶È¯à¥¨¶°±±¨î)
«ü©w«ö¶s¥¨¶°  ½Ð¬Ý¦p¹Ï

EX1.GIF
2011-5-10 15:32

Sub ¦sÀÉ()               -> ¤½¥Î·|Åã¥Ü
Private Sub ¬d¸ß()    -> ¨p¥Î(Private)¤£·|Åã¥Ü
­n¥Î: ¨Ì¼Ëµe¸¬Äª ¥´¤W Sheet1.¬d¸ß

2.¦sÀɤ´µM¦³ºÃ´b µL¦sÀɰʧ@   
¥Ø¿ý¸Ì¨S¦¹ÀÉ®× ª½±µ´N¦sÀÉ

3.¦pªG±ø¥ó§ï¦¨ ¬ü°êªº¸Ü (¹w³]¬O¥xÆW)  ´N¨S¿ìªk¦³¦sÀɪº°Ê§@¥X²{
¦s¤G¦¸ ¬ü°ê ¬Ý¬Ý

TOP

¦^´_ 8# mark15jill
1.¨â­Ó³£¨S¤º®e+.+     
¨S¦³µ{¦¡½Xªü, ·|¦³°Ê§@¶Ü?
3.·s¼W«áªº¬¡­¶Ã¯¦WºÙ¥¼§ïÅÜ.. ¤£¹L­è­è¤w¸g¸Ñ¨M¤F..
  1. Private Sub ¦sÀÉ()
  2. Dim Sh As Object
  3. On Error Resume Next
  4. Set Sh = ThisWorkbook.Sheets(1)
  5. With Workbooks.Add(xlWBATWorksheet)
  6. Sh.UsedRange.Offset(1).Copy .Sheets(1).[A1]
  7. .Sheets(1).Name = Sh.TextBox1      '¤u§@ªí¦WºÙ
  8. .SaveAs ThisWorkbook.Path & "\" & Sh.TextBox1
  9. .Close 0
  10. End With
  11. End Sub
½Æ»s¥N½X

4.¦]¬°§Ú½d¨ÒÀÉ®×¥u¦³¨ìHÄæ¦ì   ¹ê»Ú¤W«o¬O¨ìZÄæ¦ì0.0..
§ï¬õ¦r³¡¦ì
.Offset(1).Resize(1,26) = Sh.Range(Sh.Cells(Rng.Row, "A"), Sh.Cells(Rng.Row, "Z")).Value

TOP

¦^´_ 10# mark15jill
3.¨º­Ó­ì©l½X ¬O®M¥Î¤j¤j±zªº   ¥i¬O ­è¦³¸ÕÅç¹L ¤£¯à ¤£¹L«á¨Ó¦³·s¼W§Ú¦Cªº¨â¦æ ´NOK¤F...´N¬Osheet1 Åܦ¨ TEXT¦WºÙ  (¤£ª¾¹D­þ¥X¿ù-0-)
¥i¶Ç¤W§¹¾ãµ{¦¡½X¬Ý¬Ý??

TOP

¦^´_ 12# mark15jill
­×§ïªºµ{¦¡,¯uªº¦³¹F¨ì§A¥Ø¦a¶Ü?
Sub «ö¶s5_Click()
    Dim Sh As Object
    On Error Resume Next      'On Error : ·íµ{¦¡°õ¦æ®É¦³¿ù»~®É,   Resume Next : Ä~Äò³B¸Ì¤U¤@­Óµ{¦¡½X
                                               
    Set Sh = ThisWorkbook.Sheets(1)
    With Workbooks.Add(xlWBATWorksheet)
        Sh.UsedRange.Offset(1).Copy .Sheets(1).[A1]
         .SaveAs ThisWorkbook.Path & "\" & Sh.TextBox1  

          'SaveAs: ·í¥Ø¿ý¤¤¦³¬Û¦PªºÀɦW ¨t²Î·|¸ß°Ý¬O§_Âл\­ìÀÉ®×  ¦p¿ï¾Ü [§_] ©Î[¨ú®ø] ³£·|²£¥Í¿ù»~­È
          'On Error ´N¬O¦b³B¸Ì³o¿ù»~
        .Close 0                                 '¦p¿ï¾Ü [§_] ©Î[¨ú®ø]: ÀÉ®×Ãö³¬¥B¤£¦sÀÉ
         Sheets("Sheet1").Select   'ÀɮפwÃö³¬:½Ð°Ý³o¸Ìªº Sheets("Sheet1")¬O­þ¤@­Ó??
         Sheets("Sheet1").Name = Sh.TextBox1
    End With
End Sub

TOP

¦^´_ 14# mark15jill
9¼Óµ{¦¡½X¤¤ªº .Sheets(1).Name = Sh.TextBox1      '¤u§@ªí¦WºÙ
        ³o¬õÂIªí¥Ü¦b©Ò·s¼Wªº¬¡­¶Ã¯¸Ì ¤£¥²¦A¦³   Sheets(1).Select

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD