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

[µo°Ý] ¨Ì¾Ú­±ÃB¤£¦P©Ò»Ý±i¼Æ¦Û°Ê²£¥Í¬y¤ô½s¸¹

¦^´_ 5# ikboy


    ¤Æ½X°ò¥»¤W¬O°lÂܹï¤W¤@¦¸ªº¸¹½X¡A¦b没¦³ªº±¡½Õ¤U±q1¶}©l¡A­Y¤@©w¦b没¦³¹ï¤W¤@¦¸ªº¸¹½X¡A­n¥Î«ü©wªº¸¹½X¡A¥i¥H¦b 13 ¦æ else «á­±ªº i °µ­×§ï¡C

TOP

¦^´_ 11# ikboy

·PÁ ikboy ªº»¡©ú

°w¹ï²Ä¤@µ§­±ÃB100¬y¤ô¸¹¥Ñ A0064565°_©l  =ZZ(B3,C3)

»¡©ú 13 ¦æ else «á­±ªº i °µ­×§ï...       
If n Then i = Mid(b(n, 1), Application.Find(x, b(n, 1), 2) + 1) Else i = 64564

´£°Ý²Ä¤Gµ§­±ÃB200¬y¤ô¸¹¥Ñ B0081141°_©l ¡A¸Ó¼Æ¾Ú»Ý¦b¦ó³B­×§ï?

TOP

¦^´_ 10# samwang

«D±`·PÁ  samwang  «ü¾É

¤W­±¤½¦¡­Y¬O B19 B20 Àx¦s®æµL¼Æ¾Ú°õ¦æ¥¨¶°¤½¦¡µª®×¥¿±`Åã¥Ü!!

²{¦] B19 B20 Àx¦s®æ¦³¬ÛÃö­±ÃB¼Æ¾Ú(100  200)  ¦p7¼Ó¹Ï


¾É­P¤W­z¤½¦¡µLªk¥¿±`²£¥Í¬y¤ô½s¸¹¡K¸Ó¦p¦ó­×¥¿??·PÁÂ

TOP

¦^´_ 13# cypd

²{¦] B19 B20 Àx¦s®æ¦³¬ÛÃö­±ÃB¼Æ¾Ú(100  200)  ¦p7¼Ó¹Ï
>>½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, xD, Brr, T, T1, TT$, ck%, ck1%, i&
Set xD = CreateObject("Scripting.Dictionary")
With Range([D2], [B65536].End(3)-2)
    Brr = .Value
    .Sort Key1:=.Item(1), Order1:=1, Header:=1
    ...
    ...

TOP

=REPLACE(TEXT(MMULT((IF(B3=100,64564,81140)+SUMIF(B$2:B2,B3,C$2:C2)+C3^{0,1}),10^{7;0}),REPT(IF(B3=100,"A","B")&"0000000",2)),9,,"-")

TOP

¦^´_ 14# samwang

¤£¦n·N«ä!°w¹ï©Ò­z°ÝÃD

¨Ì»Õ¤U«ü¾É¤½¦¡­×§ï¤§«á°õ¦æ²£¥Í¿ù»~¦p¤U

¿ù»~°T®§
131.jpg

ªþ¤WÀɮרѰÑ...

¨Ì¾Ú­±ÃB¤£¦P©Ò»Ý±i¼Æ¦Û°Ê²£¥Í¬y¤ô½s¸¹_1213.rar (24.96 KB)

TOP

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

«D±`·PÁ  ­ã´£³¡ªL  «ü¾É

±N©Ò­z¤½¦¡¨ç¼Æ¥N¤J­±ÃB 100 ¤§¬y¤ô½s¸¹¥þ¤£¥¿±`Åã¥Ü©Ò»Ýµ²ªG

­±ÃB  500 ¤§Àx¦s®æ¥X²{ #VALUE!  ¤§°ÝÃD



ªþ¤W°ÝÃDÀɮרѰÑ

1101213.rar (18.54 KB)

TOP

¦^´_ 16# cypd
¨Ì»Õ¤U«ü¾É¤½¦¡­×§ï¤§«á°õ¦æ²£¥Í¿ù»~¦p¤U
>> ½Ð¦A´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, xD, Brr, T, T1, TT$, ck%, ck1%, i&
Set xD = CreateObject("Scripting.Dictionary")
With Range("b2:d" & [B65536].End(3).Row - 2)
    Brr = .Value
    .Sort Key1:=.Item(1), Order1:=1, Header:=1
    Arr = .Value
    For i = 2 To UBound(Arr)
        TT = Arr(i, 1) & "|" & Arr(i, 2)
        If Arr(i, 1) = 100 Then
            If ck = 0 Then
                T = 64565
                Arr(i, 3) = "A00" & T & "-" & Format(T + Arr(i, 2) - 1, "A0000000")
                ck = 1: T1 = T + Arr(i, 2): xD(TT) = Arr(i, 3)
            Else
                Arr(i, 3) = "A00" & T1 & "-" & Format(T1 + Arr(i, 2) - 1, "A0000000")
                T1 = T1 + Arr(i, 2): xD(TT) = Arr(i, 3)
            End If
        Else
            If ck1 = 0 Then
                T = 81141
                Arr(i, 3) = "B00" & T & "-" & Format(T + Arr(i, 2) - 1, "B0000000")
                ck1 = 1: T1 = T + Arr(i, 2): xD(TT) = Arr(i, 3)
            Else
                Arr(i, 3) = "B00" & T1 & "-" & Format(T1 + Arr(i, 2) - 1, "B0000000")
                T1 = T1 + Arr(i, 2): xD(TT) = Arr(i, 3)
            End If
        End If
    Next
    For i = 2 To UBound(Brr): TT = Brr(i, 1) & "|" & Brr(i, 2): Brr(i, 3) = xD(TT): Next
    .Value = Brr
End With
End Sub

TOP

¦^´_ 16# cypd

18#°£¤F§ó·s¦C¼Æ°ÝÃD¡A¦]¬°§AªºBÄæ°£¤F500¤¸¦³®É¤S·|¦³200¤¸°ÝÃD(¥N½X³£¬O¦@¥ÎB¶}ÀY)¡A¤]¦³§ó·s¦¹°ÝÃD¡AÁÂÁÂ

TOP

¦^´_ 17# cypd


¤£ª¾¹D¬O§_Àɮ׮榡°ÝÃD,
§Ú³oÃä­«·s¤U©Ô¤½¦¡, ©ÎC3­«·s¿é¤J, ³£¥i¥H¥¿±`!!!

TOP

        ÀR«ä¦Û¦b : ¦Y­W¤F­W¡B­WºÉ¤Ü¨Ó¡A¨ÉºÖ¤FºÖ¡BºÖºÉ´d¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD