كيفية إزالة الفارزة العشرية من الأرقام دفعة واحد

[عامر ياسر]

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

الشرح داخل ملف الاكسيل

aamir.xlsm

[سليم حاصبيا]

هذا الكود

Option Explicit

Sub give_integer()

Range("XFD3").Resize(Application.CountA(Range("D:D")), 1).Formula = _
"=ROUND(d3,0)"

Range("d3").Resize(Application.CountA(Range("D:D")), 1).Value = _
Range("XFD3").Resize(Application.CountA(Range("D:D")), 1).Value
Range("XFD3").Resize(Application.CountA(Range("D:D")), 1).Clear
End Sub

 

[عامر ياسر]

ابدعت أستاذ سليم حاصبيا وهذا هو المطلوب كل التوفيق لك وزادك الله علماً