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

[µo°Ý] ºI¨ú°ÝÃD½Ð¥s

[µo°Ý] ºI¨ú°ÝÃD½Ð¥s

Dear  ALL ¤j¤j
¦p¹Ï¤@¤§µ{¦¡½X¥i±N  AÄæ ¸ê®Æ   DROP_DIEA10_EDGEBGA_PAD ºI¨ú²Ä¤@­Ó  "_"«á¤è 3¦r¤¸ DIE
¦ý§Ú·QºI¨ú  ²Ä¤@­Ó  "_" «á¤è»P ²Ä¤G­Ó  "_" ¤¤¶¡¤§¦r¤¸  DIEA10  
½Ð°Ý¦p¦ó­×§ï
·Ð¤£§[½ç±Ð   THANKS*10000
¹Ï¤@
Sub Ex()

    Dim i As Integer, S As Integer

    i = 2

    With Sheet2

       For M = 2 To 1000

            S = InStr(.Cells(i, "A"), "_")

            If S > 0 Then
            .Cells(i, "B") = Mid(.Cells(i, "A"), S + 1, 3)

            End If

            i = i + 1

       Next

    End With

End Sub
ù

DEAR  SIR
  ¦³¥i¯à¦p¤U(¦r¤¸ªøµu¤£¤@)  «D§ï 6§Y¥i  ·PÁ±z¤§¦^ÂÐ

DROP_DIEA10111_EDGEBGA_PAD
DROP_DIEA100_EDGEBGA_PAD
DROP_DIE_EDGEBGA_PAD
ù

TOP

¨º´N§ï6´N¦n¤F

            .Cells(i, "B") = Mid(.Cells(i, "A"), S1 + 1, 6)

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD