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

[µo°Ý] ¨âªí¤ñ¹ï«á±Nµ²ªG¿é¥X

¦^´_ 9# samwang
sam¤j
©êºp¦b½Ð°Ý¡A­Y·Q­n¼W¥[¬ì¥Ø¥h­«¤Î¦X¨Öª÷ÃB..
³o³¡¤À­n¦p¦ó­×§ï¡A¸Ô¦p¹Ï¤ù¡A
¦A¦¸³Â·Ð¤F..ÁÂÁ±z¡I
Â^¨ú.PNG

TOP

¦^´_  samwang
sam¤j
©êºp¦b½Ð°Ý¡A­Y·Q­n¼W¥[¬ì¥Ø¥h­«¤Î¦X¨Öª÷ÃB..
³o³¡¤À­n¦p¦ó­×§ï¡A¸Ô¦p¹Ï¤ù¡A
¦A¦¸ ...
shuo1125 µoªí©ó 2022-5-31 09:27


¤£¦n·N«ä¡A¬Ý¤£¤ÓÀ´±zªº·N«ä¡A½ÐÁ|¨Ò¸É¥R»¡©ú¤@¤U¡AÁÂÁÂ

TOP

¦^´_ 12# samwang
sam¤j
©êºpªí¹F¤£²M¡A²¨¥¤§´N¬O±N¦P¬ì¥Øª÷ÃB¶×Á`¦¨¤@µ§´N¦n...
­Y¤£²M·¡¸ÔªþÀÉ¡A³Â·Ð±z¤F¡I

¬ì¾lÂà´«(TEXT).zip (729.15 KB)

TOP

¦^´_  samwang
sam¤j
©êºpªí¹F¤£²M¡A²¨¥¤§´N¬O±N¦P¬ì¥Øª÷ÃB¶×Á`¦¨¤@µ§´N¦n...
­Y¤£²M·¡¸ÔªþÀÉ¡A³Â·Ð±z ...
shuo1125 µoªí©ó 2022-5-31 10:12


½Ð¦A´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, xD, Brr(), T$, T1$, i&, n%, n1%
Set xD = CreateObject("Scripting.Dictionary")
Set xD1 = CreateObject("Scripting.Dictionary")
Arr = Sheet1.[A1].CurrentRegion
For i = 2 To UBound(Arr)
    T = Arr(i, 3): T1 = Arr(i, 5)
    If UCase(T1) = "S" Then
        xD(T) = Array(Arr(i, 2), Arr(i, 4), Arr(i, 7), Arr(i, 10))
    End If
Next
Arr = Sheet2.[A1].CurrentRegion
ReDim Brr(1 To UBound(Arr), 1 To 7)
For i = 2 To UBound(Arr)
    T = Arr(i, 1)
    If xD.Exists(T) Then
        T1 = xD(T)(0)
        If xD1.Exists(T1) Then
            n1 = xD1(T1)
            If UCase(xD(T)(1)) = "DR" Then
                If Arr(i, 10) > Arr(i, 11) Then
                    Brr(n1, 7) = Brr(n1, 7) + Arr(i, 10)
                Else
                    Brr(n1, 7) = Brr(n1, 7) + Arr(i, 11)
                End If
            ElseIf UCase(xD(T)(1)) = "CR" Then
                If Arr(i, 10) > Arr(i, 11) Then
                    Brr(n1, 7) = Brr(n1, 7) - Arr(i, 10)
                Else
                    Brr(n1, 7) = Brr(n1, 7) - Arr(i, 11)
                End If
            End If
        Else
            n = n + 1: xD1(T1) = n: Brr(n, 3) = xD(T)(2)
            Brr(n, 1) = xD(T)(0): Brr(n, 2) = xD(T)(3)
            If UCase(xD(T)(1)) = "DR" Then
                If Arr(i, 10) > Arr(i, 11) Then
                    Brr(n, 7) = Arr(i, 10)
                Else
                    Brr(n, 7) = Arr(i, 11)
                End If
            ElseIf UCase(xD(T)(1)) = "CR" Then
                If Arr(i, 10) > Arr(i, 11) Then
                    Brr(n, 7) = -Arr(i, 10)
                Else
                    Brr(n, 7) = -Arr(i, 11)
                End If
            End If
        End If
    End If
99: Next
If n > 0 Then
    With Sheet3
        .[a7].CurrentRegion.Offset(5, 0) = ""
        .[A8].Resize(n, 7) = Brr
        .[G4] = Now
    End With
    Set xD = Nothing: Erase Arr, Brr
End If
End Sub
1.JPG

TOP

¦^´_ 14# samwang
sam¤j
´ú¸Õ¥i¦æ¡A­Y¦³¤£¸Ñ¤§³B¦b³Ò·Ð§A¤F...
·PÁ¡I

TOP

¦^´_  samwang
sam¤j
´ú¸Õ¥i¦æ¡A­Y¦³¤£¸Ñ¤§³B¦b³Ò·Ð§A¤F...
·PÁ¡I
shuo1125 µoªí©ó 2022-5-31 12:41


§ó·s¤@¤U¦p¤U¬õ¦r¡A¥u¬OÅýµ{¦¡ÁY´î¤@¤U¡AÁÂÁÂ

For i = 2 To UBound(Arr)
     T = Arr(i, 1)
     If xD.Exists(T) Then
         T1 = xD(T)(0)
         If xD1.Exists(T1) Then
             n1 = xD1(T1): m = n1
         Else
             n = n + 1: xD1(T1) = n: Brr(n, 3) = xD(T)(2)
             Brr(n, 1) = xD(T)(0): Brr(n, 2) = xD(T)(3): m = n
         End If
         If UCase(xD(T)(1)) = "DR" Then
            If Arr(i, 10) > Arr(i, 11) Then
                Brr(m, 7) = Brr(m, 7) + Arr(i, 10)
            Else
                Brr(m, 7) = Brr(m, 7) + Arr(i, 11)
            End If
         ElseIf UCase(xD(T)(1)) = "CR" Then
            If Arr(i, 10) > Arr(i, 11) Then
                Brr(m, 7) = Brr(m, 7) - Arr(i, 10)
            Else
                Brr(m, 7) = Brr(m, 7) - Arr(i, 11)
            End If
         End If
         
     End If
99:  Next

TOP

¦^´_ 16# samwang
sam¤j
¤Ó·PÁ¤F¡A¥t¥~§Ú·Q½Ð°Ý¤@¤UBrr¸òBrr()¦³¤°»ò®t§O¶Ü...?

TOP

¦^´_  samwang
sam¤j
¤Ó·PÁ¤F¡A¥t¥~§Ú·Q½Ð°Ý¤@¤UBrr¸òBrr()¦³¤°»ò®t§O¶Ü...?
shuo1125 µoªí©ó 2022-5-31 14:02


¤£¦n·N«ä¡A«á¾Ç«D¥»¦æ¡A³£¥u¬O¦bºô¯¸¾Çªº¡A²z½×¦Wµü¤£¤ÓÀ´¡AÁ¿¸Ñ¤£¬O«Ü¸Ô²Ó¡A½Ð¨£½Ì¡AÁÂÁÂ

Brr: ±Nexcelªº¼Æ¾Ú¸ê®Æ¸Ë¤Jªº¼Æ²Õ
Brr(): ³]©wªÅ¥Õªº¼Æ²Õ

TOP

¦^´_ 18# samwang
sam¤j
¨º¥H¥»¦¸¬°¨Ò:Brr=Brr()³o¼Ë²z¸ÑÀ³¸ÓµL»~¡A¦]¬°¬Ò¬°ªÅ¥Õ¼Æ²Õ...
¦ý§AÁ|ªº¨Ò¤l¤Î½d¨Ò¨ä¹ê¤ñ²z½×ÁÙ­n¦n²z¸Ñ¡A
·PÁ§Aµ¹¤©ªº«ü¾É¡A¥Ñ°J·P¿E¡I

TOP

¦^´_ 19# shuo1125


    §A´N¬O§A()¡A¤£¬O§A=§A()
Brr´N¬OBrr()

TOP

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