Ãö©óvba«ü©w ¶×¤J¤å¦rÀÉ

vavashop

½Ð°Ý¤j¤j­Ì
§Ú¦³«Ü¦h¤À­¶
³£¿ý»s¦b¦P¤@¥¨¶°
¦ý§Ú°õ¦æ®É­Ô­n¤@­Ó­Ó«ö¸ô®|
¦ý§Ú¤w¸g¿ý¦n¤F

½Ð°Ý¸Ó«ç»ò­×§ï©O

Sub ¥¨¶°1()
'
' ¥¨¶°1 ¥¨¶°
'

'
   
  
    Sheets("±ø¥ó0-ªÑ¸¹¼Ò²Õ").Select
    Range("F6").Select
    With Selection.QueryTable
        .Connection = "TEXT;C:\Users\user\Google ¶³ºÝµwºÐ\L6¼Ò²Õ\20140730¼Ò²Õ\0ªÑ¸¹¼Ò²Õ.TXT"
        .TextFilePlatform = 950
        .TextFileStartRow = 1
        .TextFileParseType = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1)
        .TextFileFixedColumnWidths = Array(6, 8, 10, 10, 10, 10, 11)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Sheets("±ø¥ó1-©P¼Ò²Õ").Select
    Range("F7").Select
    With Selection.QueryTable
        .Connection = "TEXT;C:\Users\user\Google ¶³ºÝµwºÐ\L6¼Ò²Õ\20140730¼Ò²Õ\1©P¼Ò²Õ.TXT"
        .TextFilePlatform = 950
        .TextFileStartRow = 1
        .TextFileParseType = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileFixedColumnWidths = Array(6, 8, 10, 10, 10, 10, 10, 10, 10)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Sheets("±ø¥ó2-¤é¼Ò²Õ").Select
    Range("E11").Select
    With Selection.QueryTable
        .Connection = "TEXT;C:\Users\user\Google ¶³ºÝµwºÐ\L6¼Ò²Õ\20140730¼Ò²Õ\2¤é¼Ò²Õ.TXT"
        .TextFilePlatform = 950
        .TextFileStartRow = 1
        .TextFileParseType = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1)
        .TextFileFixedColumnWidths = Array(6, 8, 10, 10, 10, 10)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Sheets("±ø¥ó3-¤ë¼Ò²Õ").Select
    Range("E8").Select
    With Selection.QueryTable
        .Connection = "TEXT;C:\Users\user\Google ¶³ºÝµwºÐ\L6¼Ò²Õ\20140730¼Ò²Õ\3¤ë½u¼Ò²Õ.TXT"
        .TextFilePlatform = 950
        .TextFileStartRow = 1
        .TextFileParseType = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileFixedColumnWidths = Array(6, 8, 10, 10, 10, 10, 10, 10, 10)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
  
    Sheets("±ø¥ó4-¶q¬[ºc").Select
    Range("D5").Select
    With Selection.QueryTable
        .Connection = "TEXT;C:\Users\user\Google ¶³ºÝµwºÐ\L6¼Ò²Õ\20140730¼Ò²Õ\4¶q¼Ò²Õ.txt"
        .TextFilePlatform = 950
        .TextFileStartRow = 1
        .TextFileParseType = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
        1)
        .TextFileFixedColumnWidths = Array(6, 8, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, _
        10, 12, 10, 10, 10, 9, 10)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
   
    Sheets("±ø¥ó5-¨ä¥L").Select
    Range("E11").Select
    With Selection.QueryTable
        .Connection = "TEXT;C:\Users\user\Google ¶³ºÝµwºÐ\L6¼Ò²Õ\20140730¼Ò²Õ\5¨ä¥L.txt"
        .TextFilePlatform = 950
        .TextFileStartRow = 1
        .TextFileParseType = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileFixedColumnWidths = Array(6, 8, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
   
    Sheets("±ø¥ó6-§¡½u¼Ò²Õ").Select
    Range("E6").Select
    With Selection.QueryTable
        .Connection = "TEXT;C:\Users\user\Google ¶³ºÝµwºÐ\L6¼Ò²Õ\20140730¼Ò²Õ\6§¡½u¼Ò²Õ.txt"
        .TextFilePlatform = 950
        .TextFileStartRow = 1
        .TextFileParseType = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileFixedColumnWidths = Array(6, 8, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Sheets("±ø¥ó7-¸ê0.3¼Ò²Õ").Select
    Range("H7").Select
    With Selection.QueryTable
        .Connection = "TEXT;C:\Users\user\Google ¶³ºÝµwºÐ\L6¼Ò²Õ\20140730¼Ò²Õ\7¸ê03¼Ò²Õ.txt"
        .TextFilePlatform = 950
        .TextFileStartRow = 1
        .TextFileParseType = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileFixedColumnWidths = Array(6, 8, 10, 10, 10, 10, 10, 10, 10)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Sheets("±ø¥ó8-¸õªÅ¼Ò²Õ").Select
    Range("D9").Select
    With Selection.QueryTable
        .Connection = "TEXT;C:\Users\user\Google ¶³ºÝµwºÐ\L6¼Ò²Õ\20140730¼Ò²Õ\8¸õªÅ¼Ò²Õ.txt"
        .TextFilePlatform = 950
        .TextFileStartRow = 1
        .TextFileParseType = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 1, 1, 1, 1)
        .TextFileFixedColumnWidths = Array(6, 8, 10, 13)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
   
    End With
   
   
End Sub

vavashop

¦^´_ 2# mistery


    ¬Oªº~~

vavashop

´e¤F¡ã¡ã
¬Ý¤£À´¡ã¡ã
§Úªº¬O§ì¨ú§Ú¦s¦b§Úªº¸ê®Æ§¨¤¤ªº¤å¦rÀÉ

vavashop

§Ú¹J¨ìªº°ÝÃD¬O
§Ú¦³¨â­Ó
AutoFilter Field:=5  Criteria1:="3"
AutoFilter Field:=6  Criteria1:="3"

§Ú»Ý­nªº¬O ¦pªGÄæ¦ì¤­¦³3ªº¿ï¥X¨Ó«á ¦b¿ï²Ä¤G½üªº¿z¿ïÄæ¦ì¤»¦³3ªº

¦]¬°³o¼Ë¦³¥ý«á¶¶§Çªº°ÝÃD
©Ò¥H¤£ª¾¹D¸Ó«ç»ò§ï

¦]¬°§Ú·|§â³o¨â­Ó±ø¥ó¹ï½Õ,¦]¬°µ²ªG·|¤£¦P

vavashop

Sub test()
Dim row_s1 As Integer

'Àˬd¤u§@ªí1ªºBÄæ¤w¦³¸ê®Æ¦æ¼Æ
    row_s1 = Worksheets(1).Range("B65535").End(xlUp).Row

'B1µL¸ê®Æ®É¡Arow_s1 =0
    If row_s1 = 1 Then
        If Cells(row_s1, 2) = "" Then
            row_s1 = 0
        End If
    End If


'²Ä¤@¦¸¿ï¸ê®Æ0¡A¨Ã¶K¨ì¤u§@ªí1
    Worksheets(2).Select
    ActiveSheet.Range("$A$1D$10").AutoFilter Field:=2, Criteria1:="0"
    ActiveSheet.Range("$A$1D$10").AutoFilter Field:=3, Criteria1:="1"
    Range("B2:l9").Select
    Selection.Copy
    Worksheets(1).Select
    Cells(row_s1 + 1, 2).Select
    ActiveSheet.Paste
   
'²Ä¤G¦¸¿ï¸ê®Æ1¡A¨Ã¶K¨ì¤u§@ªí1
    row_s1 = Worksheets(1).Range("B65535").End(xlUp).Row

    Worksheets(2).Select
    ActiveSheet.Range("$A$1D$10").AutoFilter Field:=3, Criteria1:="1"
     ActiveSheet.Range("$A$1D$10").AutoFilter Field:=2, Criteria1:="0"
    Range("B2:l9").Select
    Selection.Copy
    Worksheets(1).Select
    Cells(row_s1 + 1, 2).Select
    ActiveSheet.Paste
End Sub


Sub a1()



Worksheets(2).Select
    ActiveSheet.Range("$A$1D$10").AutoFilter Field:=2, Criteria1:="0"


End Sub


Sub a2()


    Worksheets(2).Select
    ActiveSheet.Range("$A$1D$10").AutoFilter Field:=3, Criteria1:="1"


End Sub
---------------------------

§Ú¥Î¤F¤U­±³o¼Ë ¤@¼Ë¤£¦æ
Sub ¥¨¶°2()
'
' ¥¨¶°2 ¥¨¶°
'

'
  Dim row_s1 As Integer

'Àˬd¤u§@ªí1ªºBÄæ¤w¦³¸ê®Æ¦æ¼Æ
    row_s1 = Worksheets(1).Range("B65535").End(xlUp).Row

'B1µL¸ê®Æ®É¡Arow_s1 =0
    If row_s1 = 1 Then
        If Cells(row_s1, 2) = "" Then
            row_s1 = 0
        End If
    End If
   
   
  
  
  Call a2
Call a1
  

        
    Range("B2:l9").Select
    Selection.Copy
    Worksheets(1).Select
    Cells(row_s1 + 1, 2).Select
    ActiveSheet.Paste


End Sub

vavashop

¦^´_ 9# gn001038600


    ¤j¤j§Úµo²{ ³£¬O¤@¼Ëªº
µL½×´X­Ó¿z¿ï
³£¤@©w­n¥þ³¡²Å¦X¤~¯à³Q¿z¿ï¥X¨Ó

¿z¿ï ªº ±ø¥ó¦³©Ò¿×ªº

AÄæ¦ì­n¦¨¥ß  »P  BÄæ¦ì­n¦¨¥ß   ¨âªÌ¦¨¥ß«á ªº C D E¤T­ÓÄæ¦ì ¥u­n¦³¬O¤j©ó0´N¥X²{¶Ü¡H
A        B        C        D        E
1        2        4        1        2
2        3        5        4        3
3        7        6        7        4
4        1        7        4        5
5        4        3        6        2
6        7        4        7        3
7        4        5        3        4
8        5        7        6        5
7        1        6        7        4
2        1        6        7        4
2        8        8        5        7
2        5        7        1        6

vavashop

ÁÂÁ¤j¤j §Ú¸Õ¬Ý¬Ý