Ãö©ó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

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

gn001038600

¦^´_ 10# vavashop


³oÃþ«¬¤§±ø¥ó,§Ú°O±o¿ý»sªºµLªk¹F¦¨(¤pªº¤~²¨¾Ç²L@@,¥i¯à¦³¨ä¥L¤èªk¤p£x¤£ª¾¹D),¦ý«Øij¦Û¦æ¼¶¼g   
¦p±z©Ò´£¥X¤§±ø¥ó "AÄæ¦ì­n¦¨¥ß  »P  BÄæ¦ì­n¦¨¥ß   ¨âªÌ¦¨¥ß«á ªº C D E¤T­ÓÄæ¦ì ¥u­n¦³¬O¤j©ó0´N¥X²{¶Ü
dim data(100,5) , amount

amount=0
for i = 1 to sheets(2).range("A65536").end(xlup).row
                 if sheets(2).cells(i,1)="A±ø¥ó" and sheets(2).cells(i,2) ="B±ø¥ó" then
                          if  'CDEÄæ¦ì±ø¥ó¦¨¥ß then
                                 amount =amount+1
                                         for  j = 1 to 5
                                                    data(amount,j)=sheets(2).cells(i,j)
                                         next
                         end if                          
                 end if           
next

for i = 1 to amount
       for j = 1 to 5
            sheets(1).cells(i,j)=data(i,j)
       next
next

±z¥i¥H¸Õ¸Õ¬Ý±ø¥ó¶ñ¤J ¦A¶]¶]¬Ý ¥i§_!

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

gn001038600

¦^´_ 8# vavashop


    ±z¥i¥H§â­ì©lÀɮ׸ò¶D¨D¶K¤W¨Ó¶Ü   §ÚÀ°±z­×§ï

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

§Ú¹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

gn001038600

vavashop ¤j¤j ¥Ñ©ó§Ú¥[¤J¤£¤[ÁÙµLªkµo°eµu°T®§,Ãö©ó±zªº°ÝÃD

1.±z¬O­nÂ^¨ú±z©óC:\Users\user\Google ¶³ºÝµwºÐ\L6¼Ò²Õ\20140730¼Ò²Õ\0ªÑ¸¹¼Ò²Õ.TXT"¤ºªº¸ê®Æ¦Ü±z­nªº¤u§@ªí¤º¹ï§a

2.¦]¥[¤J®É¶¡µu,ÁÙµLªkµo¥Xµu°T®§
    AutoFilter Field:=6  Criteria1:="3"
    <¬O«ü±z­n¿ï¾Ü³Ì¥ª¼Æ°_²Ä6¦æÄæ¦ì¤º,¨ú¥X§t¦³3¦r¼Ëªº¸ê®Æ¥X¨Ó> ­Y­n§ïÅܱø¥ó , §â""¤ºªº3§ï¦¨±z­n¿z¿ïªº¸ê®Æ´N¥i¥HÂP,±z¥i¥H¸Õ¸Õ¬Ý!

vavashop

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

gn001038600

±z¦n!
´£¨Ñ¤§«e§Ú¦³¼g¹LÃþ¦ütxtÀɪºÂ^¨ú¤è¦¡­«ÂI(§Ú¤§«e¬OÂ^¨úCSV. ,¦ý¬O¤èªk¬O¤@¼Ëªº)

Step1. ½T»{¸ô®|(Ãþ¦ü¼gªk¦p¤U)

ppath = "M:\QC\ÀËÅç¸ê®Æ\Wafer\OQC¯S©Ê\" + doc + "\"
myfile = Dir(ppath + "*.CSV")
<½T»{¸ô®|¨Ã·j´M©Ò¦³¸Ó¸ê®Æ§¨¤º¤§csvÀÉ>

Step2. ¥´¶}ÀɮרñN¤§¼g¤J#1¼È¦s
            If myfile = "" Then GoTo labexit  '·j´M¤£¨ì¸õ¥X­«·j
            gfilename = ppath + myfile
            Open gfilename For Input As #1

Step3. ½T»{·j´M±ø¥ó
                    If Mid(textline, 1, 3) = "TTV" Then 'TTV data
                       search = ","
                       search1 = InStr(7, textline, search, vbTextCompare)
                       search2 = InStr(search1 + 1, textline, search, vbTextCompare)
                       search3 = InStr(search2 + 1, textline, search, vbTextCompare)
<§Ú¬O¨Ï¥Î¦r¦ê·j´M¨ì§Ú­n¸ê®Æªº¦ì¸m>

Step4. ³Ì«á·íµM¬O³]¥ß­Ó°j°é§â¦Û¤v·Q­nªº¸ê®Æ³£§ìªñ¨ÓÂP
                   Do While Not EOF(1)
                         Line Input #1, textline
                   loop

¥H¤W¬O§ÚªºÂ^¨ú¤è¦¡,¤£ª¾¹D¦³¨S¦³¦^µª¨ì­«ÂI@@­Y¦³°ÝÃD¥i¥H¤@°_°Q½×­ò