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

[µo°Ý] ¦p¦ó±NA¤u§@ªí¤£¦PÄæ¦ì­È¡A¥Ñ¤W¨ì¤U¶K¤WB¤u§@ªí¦PÄæ¦ì©O?

[µo°Ý] ¦p¦ó±NA¤u§@ªí¤£¦PÄæ¦ì­È¡A¥Ñ¤W¨ì¤U¶K¤WB¤u§@ªí¦PÄæ¦ì©O?

¥»©«³Ì«á¥Ñ edmondsforum ©ó 2021-8-19 17:44 ½s¿è

¦U¦ì¤j¤j§A¦n¡A
¤p§Ì¦³¤@­ÓA¤u§@ªí¡A¦p¤U¹Ï


°²³]D5¬°¤µ¤Ñ¤é: 110/8/19¡A¤µ¤Ñ¦@¶R½æ6¦¸ªÑ²¼¡A¨C¦¸ªÑ²¼³£¦³¦Û¤vªº±i¼Æ(I7:I26)¡A¨ä¨C±i¨Ì·Ó¤£¦P§Ç¦ì¡A¤S¦³¤£¦P·l¯qª÷ÃB¡A
¦pÀò§Qª÷ÃB(Y7:Y26)¡B½ß·lª÷ÃB(AG7:AG26)  
¦p¦ó±N¤W­z¸ê®Æ¡A¨Ì§Ç¥Ñ¤W¦Ó¤U¶K¦bB¤u§@ªí ªº D:FÄæ¸Ì ¨Ã¨Ì§Ç¶K¤W¯Â¤å¦r¸ê®Æ
¦]¬°§Ú¨C¤Ñ³£·|¦³¤£¦P¤ä¼Æ¡A·Q³g¹Ï«K§Q¤@Áä´N¶K¤W>< µM«á©ú¤Ñ110/8/20 ´N¨Ì§Ç¦b110/8/19 ¦Û°Ê¶K¤W¤§Ãþªº¡C

¦¨ªG¦p¤U¹Ï


¥t¥~¤]§Æ±æ³z¹LVBA ±NA¤u§@ªí ´Á±æ­È(Z2) ¤]¯à¨Ì§Ç¶K¤W><

¦p¤U¦¨ªG¹Ï©Ò¥Ü


Àɮצpªþ¥ó  
test.zip (16.9 KB)

¦A«ô°U¦U¦ì¤j¤j¤F:P

¦^´_ 1# edmondsforum


½Ð°ÝBªí ªºGÄæ¦ì¦p¦ó±oª¾?

TOP

¦^´_ 3# samwang

BªíªºGÄæ¦ì°£¤F¶À¦â©³¬O§Ú¤â°Êºâªº
§Ú³oÃä©w¸q§Ú¤C¤ë²Ö­p·l¯q¬°-11,0000+1000 = -100,000
¦ÓG4= F4+G3  = -100,000 -200 =-100,200
G5 = F5+G4 ...¨Ì¦¹Ãþ±À

TOP

©êºp¡A³o¥y¸Ü§ó¥¿¬°
§Ú³oÃä©w¸q§Ú¤C¤ë²Ö­p·l¯q¬°-101,000+1000 = -100,000

TOP

¦^´_ 3# edmondsforum

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Sub test()
Dim Arr, Brr(), xD, i&, n%
Set xD = CreateObject("Scripting.Dictionary")
With Sheets("A")
    Arr = .Range(.[ag1], .[c66635].End(3))
    ReDim Brr(1 To UBound(Arr), 1 To 3)
    For i = 7 To UBound(Arr)
        n = n + 1: Brr(n, 1) = Arr(5, 2)
        Brr(n, 2) = Arr(i, 7)
        If Arr(i, 23) <> "" Then
            Brr(n, 3) = Arr(i, 23)
        Else
            Brr(n, 3) = Arr(i, 31)
        End If
    Next
End With
With Sheets("B")
    R = .Range("r65536").End(3).Row + 1
    .Range("r" & R) = Arr(5, 2)
    .Range("s" & R) = Arr(2, 24)
    R = .Range("d65536").End(3).Row + 1
    .Range("d" & R).Resize(n, 3) = Brr
    Arr = .Range(.[g1], .[d66635].End(3))
    For i = R To UBound(Arr)
    .Cells(i, 7) = Arr(i, 3) + .Cells(i - 1, 7)
    Next
End With
End Sub

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD