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

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

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

¦U¦ì«e½ú¦n¡A
·Q¥H¦r¨å¤è¦¡¤ñ¹ï¨âªí«á±Nµ²ªG¿é¥X¡A
¦ý¼g¤@¥b¤S¥d¦í¤F...½Ð°Ý¦³¤H¥i¥H´£¨Ñ¸Ñªk/«äºû¶Ü¡A
»Ý¨D:
1.¸ÕºâªíAÄæ¤ñ¹ï°Ñ¼ÆªíHKACC¤ÎACCTE¬°S¡A±NACCµ²ªG¿é¥X¦Ü¬ì¾lªí¡C
2.¸Õºâªí¦³´Á¥½­É¤è/¶U¤è¾lÃB¡A¹ïÀ³°Ñ¼ÆªíACCDN¬°DR«h¼Æ¦r¬°¥¿¡F­Y¬°CR«h¼Æ¦r¬°­t¡C
3.¬ì¾lªíCÄæ=°Ñ¼ÆªíGÄæ¡C
­Y¤£²M·¡½Ð¸ÔªþÀÉ¡A³Â·Ð¤j®a¤F¡I

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

¦U¦ì«e½ú¦n¡A
·Q¥H¦r¨å¤è¦¡¤ñ¹ï¨âªí«á±Nµ²ªG¿é¥X¡A
¦ý¼g¤@¥b¤S¥d¦í¤F...½Ð°Ý¦³¤H¥i¥H´£¨Ñ¸Ñªk/«äºû¶Ü¡A
...
shuo1125 µoªí©ó 2022-5-24 15:17

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, xD, Brr(), T$, T1$, i&, n%
Set xD = 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, 4), Arr(i, 7))
    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
        n = n + 1: Brr(n, 3) = xD(T)(1)
        Brr(n, 1) = T: Brr(n, 2) = Arr(i, 2)
        If UCase(xD(T)(0)) = "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)(0)) = "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
99: Next
If n > 0 Then
    Sheet3.[A8].Resize(n, 7) = Brr
End If
End Sub

1.JPG (165.27 KB)

1.JPG

TOP

¦^´_ 2# samwang


    ÁÂÁÂs¤j¡A©âªÅ§Ú¦b°µ´ú¸Õ¡I
    ¸U¤À·PÁÂ

TOP

¦^´_ 2# samwang
S¤j
´ú¸ÕOK¡A¥i¥H½Ð°Ý¤@¤UxD(T)(1)«á­±³o­Ó(1)¥Nªíªº·N«ä¶Ü..?
ÁÂÁ±z¡I

TOP

¦^´_  samwang
S¤j
´ú¸ÕOK¡A¥i¥H½Ð°Ý¤@¤UxD(T)(1)«á­±³o­Ó(1)¥Nªíªº·N«ä¶Ü..?
ÁÂÁ±z¡I
shuo1125 µoªí©ó 2022-5-24 21:02


¥i¥H½Ð°Ý¤@¤UxD(T)(1)«á­±³o­Ó(1)¥Nªíªº·N«ä¶Ü..?
>>xD(T) = Array(Arr(i, 4), Arr(i, 7))
      xD(T)(0)¨ú¥X Arr(i, 4)
      xD(T)(1)¨ú¥X Arr(i, 7)

TOP

¦^´_ 5# samwang
§Úª¾¹D¤F..¬O¨ú°}¦C¸ê®Æ
ÁÂÁ§A¸Ô²Óªº¦^ÂСI

TOP

¦^´_ 5# samwang
sam¤j
©êºpª`·N¬Ý¤~µo²{¦³¬YÄæ§ì¿ù...
½Ð°Ý³o³¡¤À¦p¦ó½Õ¾ã¡A
ÁÂÁ¡C

Â^¨ú01.PNG (75.02 KB)

Â^¨ú01.PNG

TOP

¦^´_ 5# samwang

sam¤j
©êºp¦b§ó¥¿¤@¤U¡A
¥i¯à¬O§Ú»¡©ú¤£°÷²M·¡¡A¬O±N¸Õºâªí¬ì¥Ø¤ñ¹ï°Ñ¼Æ«á¡A
¿é¥X°Ñ¼ÆªºACC¤ÎACCNE¡A
¦p¹ÏÀÉ»¡©ú¡A³Â·Ð¦AÀ°¦£¬Ý¬Ý..
ÁÂÁ¡C

Â^¨ú01.PNG (84.86 KB)

Â^¨ú01.PNG

TOP

¦^´_  samwang

sam¤j
©êºp¦b§ó¥¿¤@¤U¡A
¥i¯à¬O§Ú»¡©ú¤£°÷²M·¡¡A¬O±N¸Õºâªí¬ì¥Ø¤ñ¹ï°Ñ¼Æ«á¡A
¿é¥X°Ñ¼Æ ...
shuo1125 µoªí©ó 2022-5-25 08:39


§ó·s¦p¬õ¦r³¡¤À¡A½Ð¦A´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Sub test()
Dim Arr, xD, Brr(), T$, T1$, i&, n%
Set xD = 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, 4), Arr(i, 7), Arr(i, 2), 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
        n = n + 1: Brr(n, 3) = xD(T)(1)
        Brr(n, 1) = xD(T)(2): Brr(n, 2) = xD(T)(3)
        If UCase(xD(T)(0)) = "DR" Then
        ....
        ....
        ....

1.JPG (186.15 KB)

1.JPG

TOP

¦^´_ 9# samwang
sam¤j
·PÁ§A¦p¦¹¸Ô²Óªº»¡©ú¡A
§Ú«á¨Ó¹Á¸Õ½Õ¾ã¤]¸ò§A½Õªº®t¤£¦h...
§A´£¨Ñ³o¤è¦¡¹ï§Ú«Ü¦³À°§U¡A
¸U¤À·P¿E¡C

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD