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

[µo°Ý] ¨ú¥X¥]§÷"+"or"-"¸¹¤§«áªº¼Æ­È

¦^´_ 10# PJChen

¤£¹L§Ú¨Ã¤£­n³o­Ó­ìµ{¦¡¾Þ§@,§Æ±æ¦³¤H¥i¥HÀ°¦£¬Ý¬Ý,¥d¤F«Ü¦h¤Ñ¤F....
    ¥]§÷³øªí_¨ú¥X³Ì«á¤@­Ó¥¿­t¸¹ªº­È.rar (47.94 KB)

TOP

¦^´_ 11# PJChen

¦³ªÅÀ°§Ú¸Õ¸Õ¬Ý ¬O¤£¬O§A­nªº

¥]§÷³øªí_¨ú¥X³Ì«á¤@­Ó¥¿­t¸¹ªº­È0409.rar (56.12 KB)

TOP

¦^´_ 12# °a¤ªºµ
ÁÂÁºµ¤j,
µy·L­×§ï«á,ºI¨ú¸ê®Æ¥¿½T,½Ð°Ý:
1) §Ú¤£·QÃö³¬¨Ó·½ÀÉWorkbooks("¥]§÷³øªí.xlsx").Close False,¦ý·|µLªk°õ¦æ,¥B¨C°õ¦æ¤@¦¸´N¼W¥[¤GÄæ,­ì¦]¬O¤°»ò¡H
2) ¬O§_¦]¬°³o­ÓFor I = 1 To 2: Columns(4).Insert , 2: Next I,¬°¤°»Ý­n¼W¥[2Äæ©O?
3) §Ú¨S¬Ý¹L³oºØ¼gªk,½d³ò¬°¦ó¬O­ËµÛ¼g©O?Arr = Range("AK11:C2").FormulaR1C1Local
4) ¯à§_À°¦£µù¸Ñµ{¦¡ªº·N«ä?
·P¿E¤£ºÉ....

Range("E16:AJ25").ClearContents
    Workbooks.Open ThisWorkbook.Path & "\" & "¥]§÷³øªí.xlsx"
    For I = 1 To 2: Columns(4).Insert , 2: Next I
    Arr = Range("AK11:C2").FormulaR1C1Local
    Workbooks("¥]§÷³øªí.xlsx").Close False
    Brr = Range("B16:AJ25")
   
    For X = 1 To UBound(Arr, 1)
        For Y = 1 To UBound(Brr, 1)
            If Trim(Arr(X, 1)) = Trim(Brr(Y, 1)) Then
                 For E = 1 To UBound(Arr, 2)
                    If Arr(X, E) Like "*-*" Then
                        G = Split(Arr(X, E), "-")(1)
                        Brr(Y, E) = "=-" & G
                    ElseIf Arr(X, E) Like "*+*" Then
                        G = Split(Arr(X, E), "+")(1)
                        Brr(Y, E) = "=+" & G
                    End If
                Next E
            End If
        Next Y
    Next X

      Range("B16:AJ25") = Brr

TOP

¦^´_ 13# PJChen
§âBrr(Y, E) = "=-" & G
¸òBrr(Y, E) = "=+" & G
§ï¦¨Brr(Y, E+2) = "=-" & G
¦b§â´¡¤JÄæ删°£

TOP

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-4-10 21:00 ½s¿è

¦^´_ 13# PJChen
³o¬O°Ñ¦Ò jcchiang «e½úªº¼gªk©Ò­×§ïªº  ·PÁ jcchiang «e½úªº´£ÂI
¤w¥[¤Jµù¸Ñ ¦³µy·L­×§ï¹L ¦³ªÅ¦AÀ°§Ú¸Õ¸Õ¬Ý ·PÁÂ

¥]§÷³øªí_¨ú¥X³Ì«á¤@­Ó¥¿­t¸¹ªº­È0410.rar (40.7 KB)

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD