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

[µo°Ý] ListBox»P±Æ§Ç¥[Á`°ÝÃD

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

TOP

¦^´_ 71# c_c_lai


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

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-11-4 07:25 ½s¿è

¦^´_ 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
   
±µ¤U¨Óªº°õ¦æ¡A«K¤SÅܦ^­ì¼Ë¤F¡G

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

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 74# GBKEE


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

TOP

  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...


9.jpg

TOP

¦^´_ 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

TOP

¥»©«³Ì«á¥Ñ jeffrey628litw ©ó 2017-3-20 09:47 ½s¿è

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

TR00.rar (983.88 KB)

TR 0007.rar (944.24 KB)

TOP

¦^´_ 78# jeffrey628litw


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

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD