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

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

¦^´_ 10# starbox520


Xl0000160_v2.rar (21.78 KB)

TOP

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


    ¦^­ã´£¤j¤j
    §Ú¤Sµo²{·s°ÝÃD¤F
    ¦pªG¬O¥[¾÷¨î¶i¥h¹³¤u§@ªí3§âªí¤@  
    A,C,D¦pªG¬Û¦P´Nºâ¤@µ§¸ê®Æ(¤w¦bªí¤@ ¥H¤H¤u¿z¿ï¤èªk§PÂ_...)
   µM«áBÄæ°µÂkÃþ   §Î¦¨¤u§@ªí3­nªº¶µ¥Ø
   
    Xl000040_EX2.rar (30.24 KB)

TOP

¦^´_ 13# starbox520


§¹¥þ¬Ý¤£À´~~~

TOP

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


    ¦^¤j¤j¹³³o¼Ë
    ¥H¾ï¦â°Ï¶ô¬°¨Ò
     A.C.D¸ê®Æ¬Û²Å
     ¦A¥h¤À¥X¥LªºBÄæ §Î¦¨¥t¤@±i¹Ï
   
   
3.png
2016-10-10 11:31
4.png
2016-10-10 11:31
6.png
2016-10-10 11:35

TOP

¦^´_ 15# starbox520
  1. Sub TEST()
  2. Dim Arr, Brr, xD, Dn&, T$, N&, i&, j%
  3. Arr = Range([¤u§@ªí1!A1], [¤u§@ªí1!A1].Cells(Rows.Count, 1).End(xlUp)(1, 5))
  4. Set xD = CreateObject("Scripting.Dictionary")
  5. ReDim Brr(1 To UBound(Arr), 1 To 8)
  6. For i = 2 To UBound(Arr)
  7.     T = Arr(i, 1) & "|" & Arr(i, 3) & "|" & Arr(i, 4)
  8.     Dn = xD(T)
  9.     If Dn = 0 Then
  10.        N = N + 1: Dn = N: xD(T) = N
  11.        For j = 1 To 3: Brr(Dn, j) = Arr(i, Array(1, 3, 4)(j - 1)): Next
  12.     End If
  13.     j = Int(InStr("---BK-VM-TR-PK-", "-" & Split(Arr(i, 2), "_")(1) & "-") / 3)
  14.     If j > 0 Then
  15.        Brr(Dn, j + 3) = Brr(Dn, j + 3) + Arr(i, 5)
  16.        Brr(Dn, 8) = Brr(Dn, 8) + Arr(i, 5)
  17.     End If
  18. Next i
  19. If N = 0 Then Exit Sub
  20. With Sheets("¤u§@ªí3")
  21.      .UsedRange.Offset(1, 0).Clear
  22.      .[A2].Resize(N, 8) = Brr
  23.      Application.Goto .[A1]
  24. End With
  25. End Sub
½Æ»s¥N½X
Xl0000164.rar (23.32 KB)

TOP

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

    ¤j¤j³o¬q
    j = Int(InStr("---BK-VM-TR-PK-", "-" & Split(Arr(i, 2), "_")(1) & "-") / 3)

    ÁÙ¦³³o¬q
   Brr(Dn, j + 3) = Brr(Dn, j + 3) + Arr(i, 5)

   ¥i¥H»¡©ú¤@¤U¶Ü    ¤Ó¼F®`¤F><"·Qª¾¹D³o¬O«ç»ò«ä¦Òªº

TOP

¦^´_ 17# starbox520


MsgBox Split("5F_BK", "_")(1)  '>>>  ¨ú±o"_"¥k¤èªº"BK"

MsgBox InStr("---BK-VM-TR-PK-", "-" & "BK" & "-")   '>>> µ¥¤_ 3
MsgBox Int(3 / 3)
MsgBox InStr("---BK-VM-TR-PK-", "-" & "VM" & "-")   '>>> µ¥¤_ 6
MsgBox Int(6 / 3)
MsgBox InStr("---BK-VM-TR-PK-", "-" & "PK" & "-")   '>>> µ¥¤_ 12
MsgBox Int(12 / 3)
MsgBox InStr("---BK-VM-TR-PK-", "-" & "" & "-")   '>>> µ¥¤_ 1
MsgBox Int(1 / 3)
MsgBox InStr("---BK-VM-TR-PK-", "-" & "HG" & "-")   '>>> µ¥¤_ 0
MsgBox Int(0 / 3)

³o¼Ë´N¥i¥Hª¾¹D¼Æ­È©ñ¦b­þÄæ, j + 3 ¬O¦]«e¤TÄæ¤w¨Ï¥Î

TOP

¦^´_ 17# starbox520


¤]¥i¥Î³o¡G
M = Application.Match(Split(Arr(i, 2), "_")(1), [¤u§@ªí3!D1:G1], 0)
If IsNumeric(M) Then
¡@¡@Brr(Dn, M + 3) = Brr(Dn, M + 3) + Arr(i, 5)
¡@¡@Brr(Dn, 8) = Brr(Dn, 8) + Arr(i, 5)
End If

TOP

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


    ÁA¸Ñ¤F
    ÁÂÁ¤j¤j±Ð¾ÇXD
    ¤S¾Ç¨ì¤F¤@½Ò

TOP

¦^´_ 19# starbox520


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

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD