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

[µo°Ý] ¨â­ÓExcel ªí ¶]¥¨¶°¨ì³øªí¤W

[µo°Ý] ¨â­ÓExcel ªí ¶]¥¨¶°¨ì³øªí¤W

§Ú¦³³]­p¨â­ÓExcel ¥Î¨Ó¦¬¶°§@·~¤H­û¦¬®Æ»P§@·~¶i«×­p¿ý¥Îªºªí³æ

§Ú·Q­nµ²¦X¨â­ÓExcel  ¥[¤J§PÂ_¦¡ ±a¤J³øªí¤¤·í¤¤¦³­n¥[¤J§PÂ_¦¡¡A¤£ª¾¹D¦p¦ó¼¶¼g

EXCEL.jpg
2015-9-23 21:44


°òªO±µ¦¬(Substrate Receiving)¤W­±ªºDatabase¸ê®Æªí¡A­n¤ñ¹ï³øªí¤WªºMONBRÄæ¦ì
¦pªG¸ê®Æªí[Substrate Receiving]¤WªºMOÄæ¦ì µ¥©ó ³øªí¤Wªº  MONBR Äæ¦ì
«h¦b¦¬®ÆÄæ¤W ¥´¤Ä¡A¨S¦³´N«O«ùªÅ¥Õ ¡A¦p¨Ò¹Ï
¦¬®Æ¶]³øªí.jpg
2015-9-23 21:54



¹q¼ß²M¬~(Plasma System) ¤W­±ªºDatabase¸ê®Æªí¡ABÄæ»PEÄæ­n¤ñ¹ï³øªí¤WªºMONBRÄæ¦ì
¦pªG¸ê®Æªí[Plasma System]¤WªºBÄæ¦ì µ¥©ó ³øªí¤Wªº  MONBR Äæ¦ì
«h¦bª¬ºAÄæ¤WÅã¥ÜP   (ªí¥ÜSubstrate¯¸§@·~§¹²¦­n°e¤JPlasma¯¸)
ª¬ºA.jpg
2015-9-23 22:13


¦pªG¸ê®Æªí¤WEÄæ¦ìµ¥©ó ³øªí¤WMONBRÄæ¦ì
«h¦bª¬ºAÅã¥Ü V (¥´¤Äªí¥Ü§¹¦¨ Substrate¯¸»PPlasma¯¸)

§Ú¦b·Q¿ìÂ_¦¡À³¸Ó­n ¦pªGBÄæ¦ì¤£µ¥©óE Äæ¦ì «hÅã¥ÜP  
¦pªGBÄæ¦ì µ¥©ó E Äæ¦ì «hÅã¥Ü V  À³¸Ó¬O³o¼Ëµ{¦¡§PÂ_¦¡¤~¤£·|¥´µ²§a?

½Ð°Ý¥H¤W¦p¦ó¼g¦bExcel ¥¨¶°¤º¡A¦pªG¥i¥H¥i§_¥t¶}¤@­ÓExcel °õ¦æ¥¨¶° ±N³oSubstrate Receiving¡BPlasma System ¸ê®Æªí ¶]¥¨¶°¦b ³øªí½d¨Ò¤W?
EXCEL³øªíµ{¦¡.rar (369.76 KB)

³øªí½d¨Ò¬O¸g¨Æ¥ý¶]¹L«e½úªº¥¨¶°²£¥Í¥X¨Óªº³øªí(¸ê®Æ¤W¤dµ§)¡A³oÃäÁ|¨Ò´Xµ§....
©Ò¥H¥¨¶°À³¸Ó¤£¯à¼g¦b³øªí½d¨Ò¤W¡A«e½ú­Ìªº³øªí¬O±N¤½¥q¨î©wªº³øªí ¥t¥~¼g¤@­ÓEXCEL¶]¥¨¶°¦¨³o¥÷
¦ý¦]¬°¸Ì­±µ{¦¡½X¤Ó½ÆÂø¤£·Q¸ò«e½úªº²V¦b¤@°_¡A«h§Æ±æ¥t¥~¼g¤@­Ó

TOP

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

¦b¡e¿é¤Jªí¡f¿é¤J§¹¦¨«á¡A¦A¬£¥Xµ²ªG¦Ü¡e³øªí¡f¡A
°µ¤F´X­Ó¨¾§b¡A°Ñ¦Ò¬Ý¬Ý¡G
  1. Sub ¬£¥Xµ²ªG()
  2. Dim Arr, A, T$, xD, DT As Range
  3. Set DT = [H22]
  4. Set xD = CreateObject("Scripting.Dictionary")
  5. Arr = Range([Database!B2], [Database!B65536].End(xlUp)(2))
  6. For Each A In Arr
  7. ¡@¡@T = Right(A, 7): If T Like "#######" Then xD(T) = 1
  8. Next
  9. If xD.Count = 0 Then MsgBox "DatabaseµL¸ê®Æ¥i§@·~¡I": Exit Sub
  10. ¡@
  11. Dim FL$, xB As Workbook, xS As Worksheet, R&
  12. FL = ThisWorkbook.Path & "\½d¨Ò³øªí.xls"
  13. If Dir(FL) = "" Then MsgBox "§ä¤£¨ì³øªíÀÉ¡I": Exit Sub
  14. If CheckBookOpen(FL) > 0 Then
  15. ¡@¡@MsgBox "³øªíÀÉ¥¿³Q¶}±Ò¤¤¡A¬°ÁקK¿ù»~¡A½Ð¥ýÃö³¬¡I": Exit Sub
  16. End If
  17. ¡@
  18. Set xB = Workbooks.Open(FL)
  19. With xB.Sheets(1)
  20. ¡@¡@R = .[B65536].End(xlUp).Row
  21. ¡@¡@If R < 7 Then MsgBox "³øªíµL MONBR ¸ê®Æ¡I": Exit Sub
  22. ¡@¡@Arr = .Range("B7:B" & R)
  23. ¡@¡@For i = 1 To UBound(Arr)
  24. ¡@¡@¡@¡@T = Right(Arr(i, 1), 7): Arr(i, 1) = ""
  25. ¡@¡@¡@¡@If xD(T) = 1 Then Arr(i, 1) = "V"
  26. ¡@¡@Next i
  27. ¡@¡@With .Range("N7:N" & R): .Value = Arr: .Select: End With
  28. End With
  29. ¡@
  30. DT(2) = DT: DT = Now
  31. MsgBox "¬£¥Xµ²ªG¦Ü³øªí¤w§¹¦¨¡A½T©wµL»~«áÀx¦s¦AÃö³¬ÀɮסI":
  32. End Sub
  33. ¡@
  34. '¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×
  35. Private Function CheckBookOpen(BookName$) As Long¡@'°Æµ{¦¡-ÀˬdÀɮ׬O§_¶}±Ò¤¤
  36. On Error Resume Next
  37. Open BookName For Binary Access Write Lock Write As #1
  38. Close #1
  39. CheckBookOpen = Err.Number
  40. On Error GoTo 0
  41. End Function
½Æ»s¥N½X
ªþ¥ó¤U¸ü¡G
³øªív01.rar (381.29 KB)

TOP

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


    Dear ªO¤j
ê©óÅv­­Ãö«Y  Àɮ׼Ȥ£¯à¤U¸ü
  ¦ýªO¤j¶K¥X¨Óªºµ{¦¡½X¤¤¬O¥i¥H°õ¦æªº!!!·PÁªO¤jªºsupport
  ·Q°ÝÀɮפ¤  ²Ä¤G­Ó¥\¯à¤ÀªR ¬O§_¥i¦æ (¦]¬°¥Ø«eµLªk¤U¸ü ¬Ý¤£¨ì Sorry)

TOP

¦^´_ 4# v03586


¥Î³o¤U¸ü§a¡G
http://www.funp.net/573395

¦h¥[ÂIªo¡AµLªk¤U¸üªþ¥ó«Ü¤£¤è«K¡A¤£¦n·N«ä¦Ñ¥Î¨ä¥¦ªº¤U¸üªÅ¶¡¡A±oÅU¼{½×¾Âªº¹B§@¡I

TOP

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


    ·PÁª©¤j¡A¤w¤U¸üOK...¯u¤£¦n·N«ä ³Â·Ð§A¤F!!!
§Ú·|¦h¥[§V¤Oªº:)

TOP

        ÀR«ä¦Û¦b : ¥ÌÄ@°µ¡BÅw³ß¨ü¡C
ªð¦^¦Cªí ¤W¤@¥DÃD