دالة معرفة UDF Function تقوم بإظهار المعادلات

[ياسر خليل أبو البراء]

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

إخواني وأحبابي في الله

 

مع كل جديد ومفيد في عالم الإكسيل الشيق ، أقدم لكم دالة معرفة UDF ، تقوم الدالة بإظهار المعادلات في أي خلية ، وتعرضها كنص ...

الدالة بالشكل التالي

Function FormText(CellRef As Range, Optional RefIndicator As Integer) As String
    Dim N As Integer, F As Integer
    
    If IsNull(RefIndicator) = True Then
        RefIndicator = 0
    End If
    
    FormText = CellRef.Formula
    
    If RefIndicator > 0 Then
        FormText = "[" & CellRef.Address & "] " & FormText
    End If
    
    N = 1
    F = InStr(1, FormText, "]")
    
    Do While N < F
        If RefIndicator = 1 And Mid(FormText, N, 1) = "$" Then
            FormText = Trim(Left(FormText, N - 1) & Mid(FormText, N + 1, 200))
        End If
        
        If Mid(FormText, N, 1) = "," Then
            FormText = Trim(Left(FormText, N) & " " & Mid(FormText, N + 1, 200))
        End If
        N = N + 1
    Loop
End Function

وفي الملف المرفق شرح بالأمثلة لكيفية استخدام الدالة ، حتى لا أطيل عليكم

 

حمل الملف من هنا

 

دمتم في رعاية الله

كان معكم أخوكم ياسر خليل أبو البراء

[مختار حسين محمود]

العزم شديد  و القوة حديد   وكل يوم معاك الجديد المفيد

ربنا يبارك فيك يا أبا البراء   تحياتى

[ياسر خليل أبو البراء]

أخي وحبيبي ونور عيني مختار

تسلم على تشجيعك الدائم لي..بارك الله فيك وجزيت خيراً على كل ما تقدمه لمصلحة إخوانك في الله

ورداً على كلامك الشديد : أنا بكلامك والله دايما سعيد ، وأنا بين إخواني بالمنتدى بكون كأني في عيد ، وسلم لي على أبو عيد ، وسلامي من هنا لكل أهل الصعيد

تقبل تحياتي

[إبراهيم ابوليله]

اخى واستاذنا

ياسر

ايه الجمال والحلاوه دى

من تمكن الى تمكن

ومن علم الى خبره

بارك الله فيك

وزادك من فضله وعلمه

تقبل تحياتى

[ياسر خليل أبو البراء]

أخي الحبيب إبراهيم أبو ليلة

لكم يسعدني مرورك العطر بموضوعي المتواضع

جزيت خيراً وبارك الله فيك

 

تقبل تحياتي

[Yasser Fathi Albanna]

مش لاقى عبارات تقدر ما تقوم به من أعمال يا أ / ياسر

بارك الله فيك وأكثر من أمثالك