مطلوب دالة VBA تعمل مثل دالة CEILING في اكسل

[saiddsa3980]

مطلوب دالة VBA تعمل مثل دالة CEILING في اكسل

أريد تحويل دالة CIELING إلى VBA ..الملف في المرفقات ..بارك الله فيكم جميعا 

انتبه من فضلك .. فطالما انك تريد الحل بالأكواد , فكان عليك لزاما رفع الملف بإمتداد Xlsm .. تــم اعادة رفع الملف بهذا الإمتداد

ceiling.xlsm

[مهند محسن]

أخى الكريم المعادلة عادية وليست مصفوفة أى معادلة بسيطة وخفيفة ولا ترهقك .. فبالتالى ليس هناك داعى لعمل كود لها وهذا غير مهم.. ولكن اذا كنت تريد الكود فيجب استخدام هذا وتطويعه لما تريد

Sub Ceiling()
Range("B1") = Application.WorksheetFunction.Ceiling(Range("A1"), 1)
End Sub

ceiling 1.xlsm

[محمد حسن المحمد]

Function Ceiling2&(n#)
    Ceiling2 = -Int(-n)
    If n < 0 Then Ceil = Fix(n)
End Function

السلام عليكم جرب هذه الدالة