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

[µo°Ý] ¨Ì·Ó³øªí§ë½u¶q»PUPH<¨C¤p®É²£¯à>­pºâ¶}¾÷¼Æ -- µo°Ý

[µo°Ý] ¨Ì·Ó³øªí§ë½u¶q»PUPH<¨C¤p®É²£¯à>­pºâ¶}¾÷¼Æ -- µo°Ý

³o­ÓÅÞ¿è¦n½ÆÂø........
·Q°Ý³oÃ䪺°ª¤â³oºØÅÞ¿è¯à¤£¯à¼g¦¨¤@­Óµ{¦¡
°õ¦æµ²ªG¦p¹Ï¤U¹Ï
°²³]¤µ¤é¬O10/4  (³øªí¬O10/4±a¦^®a¶}©l·QÅÞ¿è.....)
­pºâ³øªí¤¤·í¤Ñªº§ë½u¶q¥[Á`¡A¥h­pºâ³o¼Ëªº²£¯à¡A»Ý­n¶}´X¥x¾÷¥x
­pºâ¤½¦¡¬O   §ë½u¶q/(UPH*21.5)  UPH¬O¨C¤p®É²£¯à    21.5¬O¤u§@®É¶¡


¦A¨Ó¬O§ÚªºÅޤΦê³s¤è¦¡¸ò§Ú³]­pªºUPHªí®æ
ÀɮפÀ¦¨³øªíÀɮסFAll Card UPHÀÉ®× UPHÀɮפS¤À¸ê®ÆªíLayer ¼h§O¡F°õ¦æµ²ªGÀÉ®×
­º¥ý§PÂ_ ¦pªG³øªí¤WªºPKG ¸ò All Card UPH¸ê®Æªíªº PKGÄæ¦ì¤@¼Ë
³øªí¤WªºDevice¨úAll Card UPHÀÉ®× Layer¸ê®Æªí ÃöÁä¦r  ¦pªG¤@¼Ë
¦p³øªí Device P-MS030NV-P8039DA1-CTHE16GGD4-SKSC   Layer¸ê®ÆÄæ  16GGD4 = 16G*4
STG¥Nªí¯¸ÂI¡A«á­±M-UPH¥Nªí¨C­Ó¯¸ÂIªºUPH²£¯à  STG©Ò±a¥X¨Óªº´N¬O­n¦C¤J²£¯à­pºâ¶}¾÷¼Æ
³øªí¤WªºDateTime­pºâ¥X·í¤Ñ10/4ªºÁ`§ë½u¶q¥[Á`   ³øªí¤WCUSTNAME Äæ¦ì¦pªG¦³ENG / CSP /«h¤£¦C¤J­pºâ



³Ì«áµ²ªG´N¦p¤U¹Ï
¨Ò¦p
PKG   MICRO SD B 8L 11*15  Device§PÂ_¥X  16G*4   10¤ë4¤é §ë½u¶q 47363   STG±a¥XCA0  DA0  DA1  DA2  ©Ò¥H³o¤T­Ó¯¸ÂI ´N¨Ì·ÓUPH­pºâ¤½¦¡ºâ¥X¶}¾÷¼Æ
§ë½u¶q/(UPH*21.5)  UPH¬O¨C¤p®É²£¯à    21.5¬O¤u§@®É¶¡



¤£ª¾¹D³o­ÓÅ޿観¨S¦³BUG...¯à¤£¯à¦ê¥X¤@­Óµ{¦¡....

¶}¾÷¼Æ.rar (967.19 KB)

ÁÙ¦³...°w¹ï¯S§Oªº²£«~PKG

¥u­nDevice §ä¤£¨ì¼h§Oªº ¦pTFBGA 168L 12*12MM   ¡B GAME CARD 15.2*12MM µ¥µ¥...ºØÃþ¹L¦h¤£¤ÎÁc¸ü
¦]¬°UPHªºÀÉ®×ÁÙ¨S«Ø¥ß§¹¥þ....¦³¨ÇPKGÁÙ¨S«Ø¥ß

¥u­n§PÂ_PKG¤@¼Ë   ª½±µ±a¯¸ÂI  ­pºâUPH ¶}¾÷¼Æ
¦p¤U¹ÏªºUPHÀɮפ¤³o­ÓPKG ¬O¨S¦³¼h§Oªº  ©Ò¥H¥u­n³øªíªºPKG¤@¼Ë ´N­pºâ·í¤é§ë½u¶q  ±a¥XUPH­pºâ¤è¦¡ºâ¶}¾÷¼Æ¶q
(³øªí¤¤ªº½d¨Ò§Ú§R±¼¤F....¸É¤W)



½d¨Ò³øªí.rar (14.17 KB)

TOP

³o°ÝÃDÁÙ¬O¥d¤F¤[...¯uªºµL¸Ñ
¤£ª¾¹D°ª¤â­Ì¦³¨S¦³¤°»ò¿ìªk©O...

Q1: ½Ð°ÝEXCEL ¥i¥H§PÂ_Äæ¦ì¤¤ªº¦r¦êÃöÁä¦r¶Ü?
Q2: ¦¹µ{¦¡ªº§e²{¤èªk¬O§Ú¦Û¤v·Qªº¤£ª¾¹D¥i§_§¹¦¨
   2-1.ÂI¨ú«ö¶s«á ¥ý§PÂ_³øªí¤¤ ·í¤Ñ§ë½u¤é´Á ¥[Á`
¶}©l.png
        2-1-1. ¦p³øªí¤¤CÄæ¦ì¦r¦ê¦³¥H¤UÃöÁä¦r«h¤£¦C¤J¥[Á`­pºâ : HQ-5F   HQ5F   HQ-2F  HQ2F   AT7F   AT6F   CSP  ENG

   2-2.¦A¥h§PÂ_Device Äæ¦ì(DÄæ¦ì) ¤¤ªºÃöÁä¦r ¥h§PÂ_¼h§O
¦p:P-MS030NV-P8039DA1-CTHE16GGD4-SKSC   =16G*4
¦p:A-MS064BZ-A766200T-CTHD08GD1-T   =8G*1
Device ¤¤©R¦W¤@©w·|¦³  ¼Æ¦rG_¼Æ¦r or  ¼Æ¦rG_ _¼Æ¦r
Gªº«á­±¥i¯à·|¦³1~3­Ó­^¤å¦r¥À ¦ý¦r¥À«á­±¤@©w·|¦³¼Æ¦r  ¤£ª¾¹D¯à¤£¯à§PÂ_¥X¨Ó....
¦pªG¤£¯à §Ú¦bLayer ¤À­¶¤¤ ¦³«Ø¥ß¤@­ÓDevice ¸òDen(F)ªºªí®æ  ¥D­n¬O±q³oÃä¥h§ìDevice¹ïÀ³ªº¼h§O

Q3:§PÂ_§¹¼h§O±µ¤U¨Ó´N¬O¨Ì·ÓPKG±a¤J¹ïÀ³ªº¼h§O¡A¥u­nUPH³o­Ó¸ê®Æªí©Ò¦C¥XªºSTG(¯¸ÂI¡^

´N±a¤J­pºâ¤½¦¡  §ë½u¶q¡þ¡]UPH*21.5¡^¡C °õ¦æµ²ªG¦p¹Ï

³øªí+UPH.rar (388 KB)

TOP

·Q¸ß°Ý¤@¤U³oÃä°ª¤â!!¥H¤W§Ú±Ô­zªº¤èªk
¬O§_¯u¯à±N³o­Óµ{µ{¦¡§e²{©O????
ÁÙ¬O¦³­þÃäÅÞ¿è¤WªºBUG ???
·Q¤F¤@­Ó¦h¤ë¤F@@

TOP

¦^´_ 4# v03586


   

·PıDevice¼h§O§PÂ_ªº¹B¥Î ¥i¥HÃþ¦ü³o½g
³sµ²¸ê®ÆªíLayer ¥h§PÂ_UPH  ¤£ª¾¹D¦U¦ìª©¤j¦¹¤èªk¯à¤£¯à§e²{¥X¨Ó

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2015-11-28 05:48 ½s¿è

¦^´_ 5# v03586
¤@¨B¤@¨B¨Ó
  1. Option Explicit
  2. Const xNote = "HQ-5F,HQ5F,HQ-2F,HQ2F,AT7F,AT6F,CSP,ENG"
  3. Dim wB(1 To 2) As Workbook, xDevice As String, xDen As String
  4. Sub Ex()
  5.     Dim Pkg As String, Rng(1 To 2) As Range, Rng_Addres As String
  6.     Dim Ar, xMsg As Boolean, E As Variant
  7.     Set wB(1) = Workbooks("¶}¾÷¼Æ­pºâµ{¦¡xls.xls")
  8.     Set wB(2) = Workbooks("ONHAND2HR_FMC_PP__112015181315.xls")
  9.     Ar = Split(xNote, ",")
  10.     With Workbooks(2).Sheets(1)
  11.         Set Rng(1) = .Cells.Find("PKG Type :", LookIn:=xlValues, LOOKAT:=xlWhole)
  12.         Rng_Addres = Rng(1).Address
  13.         Do
  14.            Pkg = Rng(1).Cells(1, 4)
  15.             Set Rng(2) = Rng(1).Offset(1)
  16.             Do
  17.                 xMsg = True
  18.                 If Rng(2) <> "" Then
  19.                     For Each E In Ar
  20.                         If InStr(Rng(2).Cells(1, 3), E) Then
  21.                             xMsg = False
  22.                             Exit For
  23.                         End If
  24.                     Next
  25.                     If xMsg And InStr(Rng(2)(1, 4), "G") Then
  26.                         Ex_Device Rng(2)(1, 4)
  27.                     End If
  28.                 End If
  29.                 Set Rng(2) = Rng(2).Offset(1)
  30.             Loop Until Rng(2).Text = "SubTotal:"
  31.             
  32.             Set Rng(1) = .Cells.Find(Rng(1).Text, Rng(1))
  33.             Rng(1).Interior.Color = vbYellow
  34.         Loop Until Rng_Addres = Rng(1).Address
  35.        ' .Close False
  36.        MsgBox "OK"
  37.     End With
  38. End Sub
  39. Sub Ex_Device(S As String)
  40.     Dim i As Integer, xRng As Range
  41.     Debug.Print vbLf & S & " ---"   'VBA  §Y®Éºâµøµ¡ Åã¥Ü
  42.     i = InStrRev(S, "G") - 1
  43.     Do While IsNumeric(Mid(S, i, 1))
  44.         i = i - 1
  45.     Loop
  46.     S = Mid(S, i + 1)
  47.     i = InStr(S, "-")
  48.     If i > 0 Then
  49.         S = Replace(Mid(S, 1, i - 1), "GG", "G")
  50.     Else
  51.         S = Replace(Mid(S, 1), "GG", "G")
  52.     End If
  53.     i = InStr(S, "G")
  54.     For i = InStr(S, "G") + 1 To Len(S)
  55.         If Mid(S, i, 1) Like "[0-9]" Then
  56.             S = Mid(S, 1, i)
  57.             Exit For
  58.         End If
  59.     Next
  60.     xDevice = S
  61.     xDen = Val(S) & "G*" & Mid(S, i, 1)
  62.     Set xRng = wB(1).Sheets("Layer").Cells.Find(xDevice, LookIn:=xlValues)
  63.     If xRng Is Nothing Then
  64.         Debug.Print "§ä¤£¨ì " & xDevice & vbTab & xDen
  65.     Else
  66.        Debug.Print "§ä¨ì " & xDevice & vbTab & xDen & " ¦b " & xRng.Address(, , , 1)
  67.     End If
  68. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 6# GBKEE


    ·PÁ¤j¤jªºÀ°¦£!!! ¸ÕRun¤@¤U¥Ø«e¤w¸g¥i¥H¿ì§OPKGÄæ¦ì
§Ú³ÌÀYµhªº´N¬ODevice ªº°ÝÃD..¦]¬°¤½¥qªºDeviceªº©R¦W¨ì«á­±³£¨S¦³²Î¤@¤F(¶V¨Ó¶V¦h)
¦ý¤j¦h¼ÆMicro / SD  / USB ¨t¦C°ò¥»¤W³£³q¥Î~ ¨Ò¥~ªº³¡¤À¯uªº·Q¤£¥X¨Ó ( ¤½¥qªº°ÝÃD) ¶Ë¸£µ¬

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2015-11-28 22:37 ½s¿è

¤@¤Ñ¬ã¨s¸ê®Æ¡A¤@¤Ñ´M«ä¬[ºc¡A¤@¤Ñ¼gµ{¦¡¡A
¥»¤£·Q¼gªº¡]«áÄò°ÝÃDÀ³¤£¤Ö¡A®£µLªk¸ò©«¡^¡A¶È¯à°µ¨ì³o¸Ì¡A­n©ñªÅ¤F¡A
¨ä¥¦½Ð¦Û¦æ§V¤O¬Ý¬Ý¡ã¡ã

ªþÀɤU¸ü¡Gfunp.net¤W¤£¥h, ¥u¯à´£¨Ñ³o­Ó¤U¸ü§}
ON¶}¾÷¼Æ­pºâµ{¦¡.rar (489.09 KB)
http://www.funp.net/451843

DEVICE ©R¦W¤è¦¡¤EÅs¤Q¤K©ä¡A¶}´X±ø°ª³t¤½¸ô¤]¨S¥Î¡A
·Q¿ìªk±q·½ÀY¥h³W½d¤~¬O³Ì¦n¤èªk¡ã¡ã

TOP

¦^´_ 8# ­ã´£³¡ªL


    ¯u¤ß·PÁ­㴣³¡ªLª©¤jªº¤£Ã㨯³Ò...ª©¤j¯uªº¤]»¡¨ì­n®`...Device©R¦W¯uªº¬O«Ü¶Ë¸£µ¬
·|»P¤½¥q°ª¼h¥DºÞ§iª¾¦¹¶µ°ÝÃD¡I·PÁª©¤j´£¨Ñ¤èªk:)

TOP

¥»©«³Ì«á¥Ñ v03586 ©ó 2015-11-29 00:39 ½s¿è

¦^´_ 8# ­ã´£³¡ªL


   
½Ð°Ý¤@¤Uª©¤j  µ{¦¡½X¤¤ ³o¤@¬q¬O¦Û¤v¶}±Òµ{¦¡½X¥h­×§ïªº
¦pªG§Ú§ï¦b¸ê®ÆÄ椤 ¦p¤U¹Ï³o¼ËÅã¥Ü


¬O¤£¬O¥u­nµ{¦¡½X§ï¦¨
QDate = Sheets("comply").[H13]

ÁöµM§â¸ê®ÆÄ檺®æ¦¡³]­q11/25  ¦ýÁÙ¬O·|±a¥X¦~¤À2015/11/25
°õ¦æ«áÅã¥Ü "µL²Å¦X¸ê®Æ"  ¬O¦]¬°EXCEL Äæ¦ì¤¤2015 ªºÃö«Y¶Ü?

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD