GBKEE

¦^´_ 54# starbox520

¤U¸ü (6.75 KB)

2016-10-28 05:01

¹Ïªí¬O¤u§@ªí2¤Wªº¸ê®Æ,§A­n»¡²M·¡¨Ì¾Ú­þ¸Ì§ì¥X¨Ó.


51#¤W»¡; ¦¹¹Ïªº·N«ä¬O¡AEX:¤W­±ªº«e¤­¶µ¸ê®Æ ´N¬O²Å¦X "TR±Æ¾÷&²£¥X" ²Ä¤@¦æªº¸ê°T©Ò¿z¿ï¥X¨Óªº
     ¬Û¹ïªº³o¨Ç¸ê®Æ¬O±q¤u§@ªí2¿z¥X¨Óªº¡A¤U­±ªº¸ê°T¬O¤u§@ªí2±Æ°£¨º5µ§³Ñ¤Uªº¸ê®Æ¡A¤u§@ªí2ªº¼Æ¶q¤w¸g±q¤j¦Ü¤p±Æ¦n¤F
     ´N¥Ñ¼Æ¶q¤j¨ì¤p§e²{´N¥i¥H¤F  ¬O±Æ¦b¤u§@ªí2¤W¶Ü

"TR±Æ¾÷&²£¥X" ²Ä¤@¦æªº¸ê°T ,¨S¿ìªk§ì¹Ï¥Ü³o«e¤­¶µ¸ê®Æ

49# ¤WPS:TR±Æ¾÷&²£¥X¼Ò²Õ ¦³­×¥¿,½Ð­×¥¿§AªºÀÉ®×

­×¥¿«á³o¬qµ{¦¡½X¬O¥¿½Tªº

1. If .Cells(i, "A") = A(1) And .Cells(i, "E") = A(2) And .Cells(i, "G") = A(3) And .Cells(i, "F") = A(4) Then

½Æ»s¥N½X

µL¶·§ï¦¨

1. If .Cells(i, "A") = A(1) And .Cells(i, "E") = A(2) And .Cells(i, "G") = A(3) And CStr(.Cells(i, "F")) = A(4) Then

½Æ»s¥N½X

²Ä2­ÓLIstBox¥i¥H§ï¦¨³o9Äd¶Ü   ( T/Y§ï¦¨customer)     ®É¶¡ªº¸ê®Æ¤j¤j±z¨ú¨ìBÄæ"Queue Time"À³¸Ó¬OPÄæ"Oven OutTime"
       Customer       Location       Device     Package      BodySize     LC        QTY        Schedule       Oven OutTime
³o¸Ì­×§ï¸Õ¸Õ¬Ý

1. Private Sub Ex_WIP()
   
2. Dim i As Integer, Ar, A(1 To 4), Ab(), ii As Integer
   
3. With Me.lstSelector
   
4. For i = 0 To 3
   
5. A(i + 1) = .List(.ListIndex, i)
   
6. Next
   
7. End With
   
8. i = 2
   
9. With Sheets("WIP")
   
10. Do While .Cells(i, 1) <> ""
    
11. If .Cells(i, "A") = A(1) And .Cells(i, "E") = A(2) And .Cells(i, "G") = A(3) And .Cells(i, "F") = A(4) Then
    
12. If IsEmpty(Ar) Then ReDim Ar(1 To 1) Else ReDim Preserve Ar(1 To UBound(Ar) + 1)
    
13. '** ­n­«±ÆÄæ¦ì½Ð§ï³o¸Ì ** Customer Location Device Package 'BodySize
    
14. Ar(UBound(Ar)) = Array(.Cells(i, "A").Text, .Cells(i, "C").Text, .Cells(i, "D").Text, .Cells(i, "E").Text, _
    
15. .Cells(i, "G").Text, .Cells(i, "F").Text, .Cells(i, "K").Text, .Cells(i, "I").Text, .Cells(i, "P").Text)
    
16. '** BodySize LC QTY Schedule Oven OutTime
    
17. '** Listbox ³Ì¦hÅã¥Ü 9¦C
    
18. End If
    
19. i = i + 1
    
20. Loop
    
21. End With
    
22. '***********************************
    
23. '**frmSelector¤¤ªº²Ä¤G­ÓListBox ±±¨î¶µ
    
24. With ListBox1
    
25. .Clear
    
26. If UBound(Ar) > 1 Then
    
27. .List = Application.Transpose(Application.Transpose(Ar))
    
28. ElseIf UBound(Ar) = 1 Then
    
29. .List = Ar(1)
    
30. End If
    
31. End With
    
32. '***********************************
    
33. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 57# starbox520
¦A§âµ²ªG±µµÛ©ñ¦b     ²Ä¤@­ÓListBox"²Ä¤@¨B"°µ¦nªº¸ê°T¤U±µµÛ§e²{  (¤U¤è¸ê°TÀ³¤£¸Ó¦A¥X²{"²Ä¤@¨B"ªº¸ê°T)
­×§ï³o¸Ì

1. Private Sub Ex_Customer_Package()
   
2.     Dim i As Integer, ii As Integer, Ar, xRng As Range, xi As Integer
   
3.     Sh_Ar = "":   i = 2
   
4.     With Sheets("¤u§@ªí2")
   
5.         '¥u¬O­n§â¤u§@ªí2¦b"²Ä¤@¨B"¿z§¹³Ñ¤Uªº¸ê°T ¥HPackage.BodySize¬Û¦P¡A¼Æ¶q¥Ñ¤j­P¤p°µ±Æ¦C ** ­n¥ý°µ±Æ§Ç
   
6.         .UsedRange.Sort Key1:=.Cells(1, "H"), Order1:=2, Key2:=.Cells(1, "B"), Order2:=1, Key3:=.Cells(1, "B"), Order3:=1, Header:=True
   
7.         '******************************************************************************
   
8.         Do While .Cells(i, 1) <> ""
   
9.             If .Cells(i, 1) = Sh_Rng And .Cells(i, 2) = Sh_Rng(1, 2) Then
   
10.                 xi = xi + 1
    
11.                 If xRng Is Nothing Then
    
12.                     Set xRng = .Cells(i, 1).Resize(, 8)
    
13.                 Else
    
14.                     Set xRng = Union(.Cells(i, 1).Resize(, 8), xRng)
    
15.                 End If
    
16.               End If
    
17.             i = i + 1
    
18.         Loop
    
19.         If xRng Is Nothing Then Exit Sub
    
20.         .Range("A2").Resize(xi).EntireRow.Insert
    
21.         xRng.Copy .Range("A2")
    
22.         xRng.EntireRow.Delete
    
23.          Sh_Ar = .Range("A2", .Range("A2").End(xlDown)).Resize(, 4)  ' Resize(, 4) 'AÄæ-DÄæ  ' Resize(, 8) 'AÄæ-HÄæ
    
24.     End With
    
25. End Sub

½Æ»s¥N½X

½Ð°Ý¬°¤°»òÅã¥Ü¤@µ§¸ê®Æªº®É­Ô·|³o¼Ë©O
­×§ï Private Sub Ex_WIP()

1. '***********************************
   
2.     '**frmSelector¤¤ªº²Ä¤G­ÓListBox ±±¨î¶µ
   
3.     With ListBox1
   
4.         .Clear
   
5.         If UBound(Ar) > 1 Then
   
6.              .List = Application.Transpose(Application.Transpose(Ar))
   
7.         ElseIf UBound(Ar) = 1 Then
   
8.             ReDim AB(0, 8)
   
9.             For i = 0 To 8
   
10.                 AB(0, i) = Ar(1)(i)
    
11.             Next
    
12.            .List = AB
    
13.         End If
    
14.     End With
    
15.     '***********************************

½Æ»s¥N½X

GBKEE

¦^´_ 62# starbox520
55# ¤W§Ú¦³»¡

49# ¤WPS:TR±Æ¾÷&²£¥X¼Ò²Õ ¦³­×¥¿,½Ð­×¥¿§AªºÀÉ®×

1. '  Ar(UBound(Ar)) = .Cells(i, 1).Resize(, 4) ­×§ï
   
2. Ar(UBound(Ar)) = .Cells(i, 1).Resize(, 8)

½Æ»s¥N½X

GBKEE

¦^´_ 68# starbox520

1.   If .Cells(i, 2) = Sh_Rng And .Cells(i, 3) = Sh_Rng(1, 2) Then

½Æ»s¥N½X

§ïTarget(1).Column = 5 ¬° Target(1).Column = 6

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If IsError(Target(1)) Then Unload frmSelector:         Exit Sub
   
3.     If (Target(1).Row + 1) Mod 5 = 0 And Target(1) <> "" And Target(1).Column = 5 Then

½Æ»s¥N½X

GBKEE

¦^´_ 70# starbox520

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)   
   
2.     If IsError(Target(1)) Then Unload frmSelector:         Exit Sub
   
3. '    If (Target(1).Row + 1) Mod 5 = 0 And Target(1) <> "" And Target(1).Column = 5 Then
   
4.      If (Target(1).Row + 1) Mod 5 = 0 And Target(1) <> "" And Target(1).Column = 6 Then
   
5.         'Set Sh_Rng = Cells(Target(1).Row, "E")
   
6.         Set Sh_Rng = Cells(Target(1).Row, "F")  '**³o¸Ì¤]­n§ï
   
7.         Ex_Customer_Package
   
8.         
   
9.         If IsEmpty(Sh_Ar) Then MsgBox Sh_Rng & "-" & Sh_Rng(1, 2) & vbLf & "§ä¤£¨ì": Exit Sub
   
10.         Unload frmSelector
    
11.         frmSelector.Show False
    
12.     Else
    
13.         Unload frmSelector
    
14.     End If
    
15. End Sub

½Æ»s¥N½X