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

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

¦^´_ 1# starbox520


    ¼Ï¯Ã¤ÀªRªí¤]¬O¤£¿ùªº¿ï¾Ü
[attach]25526[/attach]
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

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


   
    ¦^¤j¤j¦³¿ìªk§â±z°µªºµ²ªGÅã¥Ü¦b²M³æ¤è¶ô°µ°Ê§@¶Ü
    ¤£¦n·N«ä°ÝÃD¦³ÂI¦h == ""
    Àɮפº¦³²Ó¶µ»¡©ú><

Xl000088.rar (96.48 KB)

TOP

¦^´_ 22# Hsieh


¦^¤j¤j  ¦]¬°¤§«á¥i¯àÁÙ·|¦A¥[¤J¸ê®Æ
¦pªG­n¥Î¼Ï¯Ãªº¸Ü
©È«á­±¨C¼W¥[¤@¦¸¸ê®Æ´N­n­«·s¿ï¨ú½d³ò
©Ò¥H¤~·Q»¡¥Îvba¥h°õ¦æ^^

TOP

¦^´_ 22# starbox520

ÁÙ¬O¬Ý¤£À´¦p¦ó°µ!
¦óªpofficeª©¥»¤£¦P, ª«¥óÂনª©®É,listboxµLªk¨Ï¥Î!!!

TOP

¥»©«³Ì«á¥Ñ starbox520 ©ó 2016-10-13 15:29 ½s¿è

¦^´_ 24# ­ã´£³¡ªL
¤£¦n·N«ä§Ú¸É¥R»¡©ú

²Ä¤@­Ó²M³æ¤è¶ô­n¶]¥Xªº

¬O CR. PG. BE. LC ¸ê®Æ¬Û¦Pªº¸Ü

¥h°µ BK.VM.TR.¼Æ¶q ¥[Á`

¦p¤U¹Ï  ³oºØ®æ¦¡(¤§«e¦³½Ð¤j¤j±z±Ð¹L§Úªº)


²Ä¤G­Ó²M³æ¤è¶ô¬°§ÚÂI¿ï²Ä¤@­Ó²M³æ¤è¶ôªº¤º®e¨ä¤¤¤@¶µ®É


·|¶]¥X¸ê®ÆÁÙ¥¼¥[Á`«eªº«¬ºA


ªí¤Gªº¬õ¦â°Ï¶ô¬O·Q­n§â§Ú¦b²M³æ¤è¶ôªº¸ê®Æ

¶K¨ì¬õ¦â°Ï¶ô¸Ì(¥u¬O§Ú­n¨q¦b²M³æ¤è¶ô¤W¥i¥H¤è«K§Ú¥h°µ¶K¤W©ÎªÌ¶]¥X²Ä2­Ó²M³æªº¾÷¨î)

TOP

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

sorry§Ñ¤FªþÀɵ¹±z

xl000099.zip (87.29 KB)

TOP

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

1.¤u§@ªí2¬°±qWIP§ì¹L¨Ó°µ±Æ§Ç­pºâªº¸ê®Æ

¤£¹L¦b¼Æ¶q³o³¡¤À¤£ª¾¹D¬O§Ú­þ¬q¦³°ÝÃD(­n°µBK+VM+TRªº¬Û¥[)

2.·Q¦bªí®æ"²£¥X"  °µ¥XListBox(ÁÙ¬O¦³¨ä¥L¤èªk©O)

¦¹ListBox¥i¥H¦C¥X§Ú²{¦b©Ò¿ïªº½s¸¹¨ºÄæ¹ïÀ³ªº²Ä¤@±Æ

±q"¤u§@ªí2"ªº¸ê®Æ¦C¥X¥ý»P"Package"¬Û¦Pªº¦¸­n¬O"BodySize"¦C¥X µM«á"¼Æ¶q"¥Ñ¤j¦Ü¤p

¥i¥H¶K¦b"²£¥X"¬õ¦âªºÀx¦s®æ¡A¨C¤@­Ó½s¸¹³£¹ïÀ³¨ì¦P¤@Äæ

¦bÂIÀ»¿ï¥Xªº¤º®e¥i¥H¨q¥X¦¹µ§¸ê®Æ¬Û¥[«eªº¤º®e


TTR1ªí.rar (576.39 KB)

'±Æ¦C
Sub ArrangeMent()

Dim Arr, Brr, xD, Dn&, T$, N&, i&, j%
Arr = Range([WIP!A1], [WIP!A1].Cells(Rows.Count, 1).End(xlUp)(1, 12))
Set xD = CreateObject("Scripting.Dictionary")
ReDim Brr(1 To UBound(Arr), 1 To 8)
   For i = 2 To UBound(Arr)
   T = Arr(i, 1) & "|" & Arr(i, 5) & "|" & Arr(i, 6) & "|" & Arr(i, 7)
   Dn = xD(T)
   If Dn = 0 Then
      N = N + 1: Dn = N: xD(T) = N
      For j = 1 To 4: Brr(Dn, j) = Arr(i, Array(1, 5, 6, 7)(j - 1)): Next
   End If
    j = Int(InStr("----BK-VM-TR-", "-" & Split(Arr(i, 3), "_")(1) & "-") / 3)
     If j > 0 Then
      Brr(Dn, j + 4) = Brr(Dn, j + 4) + Arr(i, 11)
       Brr(Dn, 8) = Brr(Dn, 8) + Arr(i, 11)
     End If
Next i
If N = 0 Then Exit Sub
    With Sheets("¤u§@ªí2")
   .[A2].Resize(N, 8) = Brr
     Application.Goto .[A1]
End With
End Sub

¥[¤W¸ê®Æ¥[Á`°ÝÃD  ¥H°µ±Æ§Ç¥X¨Ó¤F

¥u¬O·Q¦b°µªí³æ

°µ¶K¤Wªº®ÄªG
Private Sub CommandButton1_Click()

    Dim AA(), xi As Integer
    With frmSelector
        For xi = 0 To .ListCount - 1
            '  §PÂ_¦Cªí®Ø (ListBox1) ¬O§_¦³³QÂI¿ï
            If .Selected(xi) = True Then
                '  ¨ú¥X¸Ó¦æ¤§¼Æ¾Ú¡A¦s¤J AA °}¦C¤¤
                AA = Application.Index(frmSelector.List, xi + 1)
                 'With Sheets("sheet3").Range("A" & Rows.Count).Offset(1)  '.Offset(1)  '**ÁÙ¬O¤U¤@Àx¦s®æ
                 With Sheets("sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1)  '.Offset(1)  '**ÁÙ¬O¤U¤@Àx¦s®æ
                    .Cells = .Cells + AA
                    'ÁÙ¬O .Cells = .Cells + AA '¸ê®Æ¬O²Ö¿nªº
                End With
            End If
        Next
    End With

End Sub

¥u¬O¸Õ¤F«Ü¤[³£¨S¦³¤ÏÀ³ ...
0992.rar (487.86 KB)

TOP

¦^´_ 28# starbox520
  1. Private Sub CommandButton1_Click()
  2.     Dim AA(), xi As Integer
  3.     ' With frmSelector ³o¬Oªí³æª«¥ó¤£¬OListBox   **·|¦³¿ù»~ªº
  4.     'With frmSelector.lstSelector  ¤]¥i¥Î³oªí³æª«ªº¤lª«¥ó(ListBox)
  5.     With lstSelector   'ª«¥ó(ListBox)
  6.         If .ListIndex > 0 Then         'ListBox²M³æ¤¤¿ï¨ú¦Cªº¯Á¤Þ­È ,   -1 ªí¨S¦³¿ï¨ú
  7.         '**  0 ¬°ªíÀY ¦p­n¿ï¨ú ¥i§ï¬° If .ListIndex > -1 Then
  8.             
  9.             '  ¨ú¥X¸Ó¦æ¤§¼Æ¾Ú¡A¦s¤J AA °}¦C¤¤
  10.             AA = Application.Index(.List, .ListIndex + 1)
  11.             With Sheets("sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1)  '.Offset(1)  '**ÁÙ¬O¤U¤@Àx¦s®æ
  12.                         .Cells.Resize(, 9) = AA
  13.                     'ÁÙ¬O .Cells = .Cells + AA '¸ê®Æ¬O²Ö¿nªº
  14.                     '***AA¬°°}¦C¤£¥i¥Î¦¹»yªk**
  15.                 End With
  16.             End If
  17.     End With
  18. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 29# GBKEE


    ­ì¨Ó¬O§Ú­×§ï¿ù¦a¤è..
    ¥i¥H¦A°Ý¤@¤U  
    ¦]¬°§Ú·Q¥Î¤u§@ªí2ªº¸ê®Æ¥h¹ïÀ³¨ì"TR±Æ¾÷&²£¥X"
    ¨C¤@¾÷¥x½s¸¹ªº²Ä¤@±Æ³£¦³¸ê®Æ
    ¥Î"¤u§@ªí2"ªº¸ê®Æ¹ïÀ³¨ì¤W¤è¨C¤@­Ó¿z¦nªº¸ê®Æ¦A§@±Æ§Ç(Package.BodySize.LC.¼Æ¶q¥Ñ¤j¦Ü¤p)¦A§â³B²z¦nªº¸ê®Æ¥ÎListBoxÅã¥Ü¥X¨Ó
    §Úª¾¹D¥i¥H¥Î¦h­«¿z¿ï¥h°õ¦æ...
    ¦ý¤µ¤Ñ¦pªG¤W¤è¿z¦nªº¸ê®Æ¸ò¤§«eªº¤£¤@¼Ë(Ex:¾÷¥x½s¸¹²Ä2­Ó)
    ¥H¤p§Ì¥\¤O¤S¦b¦¹¥d¦í¤F.....
    ¦³¤°»ò¿ìªk¥i¥H°»´ú§Ú²{¦b¿ïªº¨º¤@Äæ¦ìªº¾÷¥x½s¸¹¥i¥H¹ïÀ³¨ì¥L²Ä¤@±Æ¸ê°T¥h°µ±Æ¦C©O...
   
    T0923.zip (911.74 KB)

TOP

        ÀR«ä¦Û¦b : ¦h°µ¦h±o¡C¤Ö°µ¦h¥¢¡C
ªð¦^¦Cªí ¤W¤@¥DÃD