c_c_lai

¦^´_ 70# starbox520
¤u§@ªí³æ "TR±Æ¾÷&²£¥X"¡G
Worksheet_SelectionChange() ¥H¤Î
Ex_Customer_Package() ¤º§ï¦¨³Æµù
¤§³B§ï¦^­ì¨Ó¡C

starbox520

¦^´_ 71# c_c_lai


    ¦^¤j¤j  
    ¤£À´±zªº·N«ä= ="
    §Ú¬O·Ó#69  ª©¤j  ©Ò¥s§Ú­×§ïªº¥h§ïªº

c_c_lai

¦^´_ 72# starbox520
¬Ý¤F #68 ªº»¡©ú¡A¥H¤Î #69 GBKEE ¤j¤jªº¦^´_¡A¤~ª¾°ÝÃD¥X¦b¡G

1. Worksheet_SelectionChange()¡G
   
2.     If (Target(1).Row + 1) Mod 5 = 0 And Target(1) <> "" And Target(1).Column = 6 Then
   
3.     (¨Ì·Ó GBKEE ¤j¤j ªº­×¥¿«ü¥Ü)

½Æ»s¥N½X

1. Ex_Customer_Package()¡G
   
2.     If .Cells(i, 2) = Sh_Rng And .Cells(i, 3) = Sh_Rng(1, 2) Then
   
3.     (­×§ï¦¨)
   
4.     If .Cells(i, 2) = Sh_Rng(1, 2) And .Cells(i, 3) = Sh_Rng(1, 3) Then

½Æ»s¥N½X

°õ¦æ°_¨Ó¡A¤@¤Á¬Ý¦ü OK¡C

2016-11-4 05:57

   
±µ¤U¨Óªº°õ¦æ¡A«K¤SÅܦ^­ì¼Ë¤F¡G

2016-11-4 05:59

½Ð°Ñ¦Ò¤§«eªº´£¥Ü (#63) ¤©¥H§ó·s¡C

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

starbox520

¦^´_ 74# GBKEE


    ¦nªº~ÁÂÁÂC¤j¸òª©¤j
    §Ú¦^¥h¸Õ¸Õ
    §Ú¦Ñ®a¨S¹q¸£....«¢«¢

starbox520

1. Private Sub CommandButton1_Click()
   
2.     Dim AA, i As Integer, ii As Integer
   
3.     With lstSelector
   
4.         For i = 0 To .ListCount - 1
   
5.             If .Selected(i) Then
   
6.                 If IsEmpty(AA) Then ReDim AA(1 To 4, 1 To 1) Else ReDim Preserve AA(1 To 4, 1 To UBound(AA, 2) + 1)
   
7.                 For ii = 1 To 4
   
8.                     AA(ii, UBound(AA, 2)) = .List(i, ii - 1)
   
9.                 Next
   
10.             End If
    
11.         Next
    
12.     End With
    
13.     If IsEmpty(AA) Then
    
14.         MsgBox "§A¨S¦³¿ï¨ú¸ê®Æ"
    
15.     ElseIf UBound(AA, 2) > 4 Then
    
16.         MsgBox "§A¿ï¨ú ¶W¹L 4 µ§ ¸ê®Æ"
    
17.     Else
    
18.         If MsgBox("¦@ ¿ï¨ú " & UBound(AA, 2) & " µ§¸ê®Æ" & vbLf & "½T©w¿é¤J", vbYesNo) = vbYes Then
    
19.             With Sheets("TR±Æ¾÷&²£¥X").Sh_Rng.Offset(1)
    
20.                 .Resize(4, 4) = ""
    
21.                 .Resize(UBound(AA, 1), UBound(AA)) = Application.Transpose(AA)
    
22.             End With
    
23.         End If
    
24.     End If
    
25. End Sub

½Æ»s¥N½X

¦^´_ 74# GBKEE

µ²ªG´«¶K¤W³oÃä¦h©¹¥kÃä²¾¤@®æ¤F...

2016-11-8 08:33

c_c_lai

¦^´_ 76# starbox520

1.             With Sheets("TR±Æ¾÷&²£¥X").Sh_Rng.Offset(1)

½Æ»s¥N½X

§ï¦¨

1.             With Sheets("TR±Æ¾÷&²£¥X").Sh_Rng.Offset(1, -1)

½Æ»s¥N½X

jeffrey628litw

¦U¦ì¤j¤jªº¥\¤O¯u¬O¤Ó±j¤F¡A¬Ý±o²´ªá¼º¶Ã¡A¾ã²z¨ì³Ì«á¡Aµ¹¦U¦ì¬Ý¬Ý¡AÀ³¸Ó¬O¥¿½Tªº¤F¡C

TR00.rar (983.88 KB)

¤U¸ü¦¸¼Æ: 2

2017-3-20 09:47

TR 0007.rar (944.24 KB)

¤U¸ü¦¸¼Æ: 2

2017-3-20 09:46

starbox520

¦^´_ 78# jeffrey628litw


    ¨S¿ù³o°¦µ{¦¡¥Î¤F«Ü¦h«e½úªººëÀH
   
    ¾Ç¨ì¤F«Ü¦hªF¦è