اظهار دوال معرفةب واسطة مستخدم

[جوده]

الىالاخوة الافاضل

انا استخدم افيس 2003 هل يوجد بة دوال معرفة بواسطة مستخدم لانها لاتظهر عندى

ثانيا عندما استخدمت الدالة vlook2all ظهر الخطا الاتى NAME # لماذا وكيفية التصحيح

وشكرا

[ahmedhafez]

السلام عليكم

على حد علمى اخى الكريم يجب تعريف هذى الدوال اولا عن طريق وضعها كاكواد بداخل موديول فى vba وعند حفضها سوف تكون متاحة لك بولاستطة تعريف المستخدم او وضعها جميعا فى ملف xla واضافتة للاكسل وسوف يكون متاح لك بعد ذلك

[حسين بلال]

السلام عليكم

على حد علمى اخى الكريم يجب تعريف هذى الدوال اولا عن طريق وضعها كاكواد بداخل موديول فى vba وعند حفضها سوف تكون متاحة لك بولاستطة تعريف المستخدم او وضعها جميعا فى ملف xla واضافتة للاكسل وسوف يكون متاح لك بعد ذلك

وأخيراً هذا هو الكود اللي استخدمته في المثال

Option Explicit


Function AlphaNum1(txt As String, Optional numOnly As Boolean = True) As String

     'same result as AlphaNum2

    With CreateObject("VBScript.RegExp")

        .Pattern = IIf(numOnly = True, "\D+", "-?\d+(\.\d+)?")

        .Global = True

        AlphaNum1 = .Replace(txt, "")

    End With

End Function

[جوده]

اخى الكريم اشكر كرم اخلاقك

لك منى كل احترام وتقدير

وجارى العمل