معادلة لطرح عدة ارقام في خليه وحده

[هاوي اكسل]

السلام عليكم ورحمة الله وبركاته

طرح اكثر من رقم في خليه واحده ويكون الناتج رقم واحد فقط مع عدم تاثر الطرح باشارة السالب

 18538964

1- 8=7- 5=2- 3=1- 8=7- 9=2- 6=4- 4=0

والبدء في الطرح من اليسار لليمين

ورقة عمل Microsoft Excel جديد.xlsx

تم تعديل مارس 8, 2023 بواسطه هاوي اكسل

[lionheart]

Try

Sub Test()
    Debug.Print SubtractDigits("18538964")
End Sub

Function SubtractDigits(ByVal s As String) As Integer
    Dim i As Long, d As Long, r As Long
    For i = 1 To Len(s)
        d = CInt(Mid(s, i, 1)) - r
        r = Abs(d)
    Next i
    SubtractDigits = r
End Function

 

[هاوي اكسل]

الله يعطيك العافية اخي الغالي

ياليت تكون معادلة

[lionheart]

=SubtractDigits(A1)

You can use it a formula in the worksheet

If you need pure formula that works from the worksheet without UDF, so wait for others (I have no idea)

[هاوي اكسل]

[lionheart]

Press Alt + F11 > Insert Module > Paste the UDF 

I am sure you didn't do these steps. This is user-defined function which is not implemented in excel functions