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

¦p¦ó¾e¨útxtÀÉ©T©w©ïÀY¦ì¸m¤§¤º®e

¦p¦ó¾e¨útxtÀÉ©T©w©ïÀY¦ì¸m¤§¤º®e

¦U¦ì¤j¤j :
¤p§Ìªþ¥óÀɦ³¤@¤å¦rÀÉ,¤p§Ì·Q§Q¥ÎVBAÂ^¨ú©T©w©ïÀY¤§¥H¤U¤º®e,¨Ã§Q¥Î°}¦C¬Û©I¹ïÀ³¦Ücell¤º,³o¤@³s¦ê¼Æ­È¬°¹ê»Ú¨üÀˤ§die of wafer,¤p§Ì·Q§Q¥Îexcel cellsª½±µÃ¸¨îwafer map,¤£ª¾¬O§_¥i¦æ?ÁÂÁÂ!
¦p¦ó¾e¨útxt¤å¦rÀɤº¤§©Ò»Ý¤º®e.zip (22.36 KB)

¦^´_ 1# cmo140497


   ¬Ý¤£À´ wafer mapªºÃ¸»sÅÞ¿è
¨ú±o¤å¦rÀɽаѦÒ
  1. Sub nn()
  2. Dim Ar()
  3. fs = Dir(ThisWorkbook.Path & "\*.txt")
  4. Open ThisWorkbook.Path & "\" & fs For Input As #1
  5. Do While Not EOF(1)    ' °õ¦æ°j°éª½¨ìÀɧÀ¬°¤î¡C
  6.     Line Input #1, Mystr    ' Ū¤J¤@¦æ¸ê®Æ¨Ã±N¤§«ü©wµ¹ÅܼơC
  7.     If Mystr = "SampleDieMap 175" Then y = True
  8.     If Mystr = "InspectionTest 1;" Then y = False
  9.     If y = True Then
  10.     ReDim Preserve Ar(s)
  11.     Ar(s) = Split(Replace(Mystr, ";", ""), " ")
  12.     s = s + 1
  13.     End If
  14. Loop
  15. Close #1
  16. [E1].Resize(s, 2) = Application.Transpose(Application.Transpose(Ar))
  17. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

wafer mapping by cell_20110124.zip (15.17 KB) ¦^´_ 2# Hsieh


    Dear ¤j¤j :
·PÁ¤j¤j¦^ÂÐ,Ãö©ówafer map,¨ä¹ê¦³ÂI¹³cells address,¤£¹L¥¦ªº­ìÂI¶b¦bwafer¾ã­Ó¶êªº¥ª¤U¨¤,»Pcells addressªºªí®æ¥ª¤W¨¤¬Û¤Ï,©Ò¥H¤p§Ì·Q§Q¥Î¦¹¸ê®Æ¬Ù±oµewafer map

TOP

¦^´_ 3# cmo140497

¤£ª¾¹D¬O¤£¬O³o­Ó·N«ä?
  1. Sub wafermapping()
  2. fs = ThisWorkbook.Path & "\41M721-2_23_02082011_115952-KLAF.txt"
  3. Open fs For Input As #1
  4. Do While Not EOF(1)    ' °õ¦æ°j°éª½¨ìÀɧÀ¬°¤î¡C
  5.     Line Input #1, Mystr    ' Ū¤J¤@¦æ¸ê®Æ¨Ã±N¤§«ü©wµ¹ÅܼơC
  6.     If Mystr = "SampleDieMap 175" Then y = True
  7.     If Mystr = "InspectionTest 1;" Then y = False
  8.     Ar = Split(Replace(Mystr, ";", ""), " ")
  9.     If y = True And Asc(Ar(0)) >= 48 And Asc(Ar(0)) <= 57 Then
  10.     Cells(Val(Ar(0)) + 1, Val(Ar(1)) + 1) = "'(" & Ar(0) & "." & Ar(1) & ")"
  11.     End If
  12. Loop
  13. Close #1
  14. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh


    ¤j¤j  ±z¹ê¦b¬O¤Ó¯«¤F,¸Ñ¨M¤p§Ì¦h­Ó¤ë¨ÓªººÃ´b,¹ê¦b¤Ó·PÁ±z¤F!
¥t¥~¤p§ÌÁÙ¦³¤@­Ó°ÝÃD,¦³Ãö©ó¤Gsheet¤§¸ê®ÆÄæ¤ñ¹ï°ÝÃD,¤ñ¹ï«áªºµ²ªG¦p¦ó¤£¥X²{ªÅ¥Õ¦C,¥t¥~¥i¥H¦A·s¼W¦hµ§sheets§@¤ñ¸û¶Ü?¥H¤p§Ìªº¯à¤O¥Ø«e¶È¯à§@¤Gsheets ¥|­Ó±ø¥ó¦¡ªº¤ñ¸û±ø¥ó,¦A³Â·Ð¯«¤j¤j«üÂI°g¬z,
ÁÂÁÂ!

KLARF®y¼Ð¤ñ¹ï_20110210_RawProgram.zip (49.53 KB)

TOP

¦^´_ 5# cmo140497
½Ð»¡©ú¤ñ¹ï³W«h¡A¨Ã±N±ý±o¨ìªºµ²ªG°t¦X»¡©ú
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 6# Hsieh


    Dear ¯«¤j¤j :
    ¤p§Ìªº¤ñ¹ï³W«h¥|­Ó±ø¥ó¦¡,¤À§O¬°XINDEX / YINDEX ¥²¶·§¹¥þ¬Û²Å,XREL / YREL ¥[±ý³]©w¤§·j´M½d³ò+Radius
§@¤ñ¹ï,¦p²Å¦X±ø¥ó¦¡,§Y¤À§O±N¨äXINDEX/YINDEX¤ÎSheet1/2ªºXREL/YREL/DefFile¤À§O¥N¤Jcheck¥D­¶¤º,¦A¨ÌDefFile
§@¹Ï¤ù¤§§ì¨ú,¤£¹L§ì¨ú¹Ï¤ù³o¤@¬qÁÙ¨S§¹¦¨,¦]¬°¤ñ¹ïµ²ªG¤§ªÅ¥Õ¦C¼vÅT¨ì§ì¨ú¹Ï¤ùªºµ{¦¡,©Ò¥H....¦A³Â·Ð¯«¤j¤j«üÂI°g¬z
¦A¦¸·PÁ¯«¤j¤jªºÀ°§U,ÁÂÁÂ!

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD