كيفية ادخال ثوابت للاكسل؟

[hussein_abd]

الى الاخوة الاعزاء :

لدي سؤال وقد بحثت كثيرا لكي اجد له جواب ولم استطع فارجو ان تساعدوني وسؤالي هو كيف اقوم بعمل ثوابت معينة داخل فايل الاكسل (مثال على ذلك يعطي الاوفيس قيمة ثابته للـ PI ضمن الدوال ) ولكم جزيل الشكر

[محمد حجازي]

السلام عليكم ...

الحل بسيط جداً ، فقط أنشئ دالة كما في الكود:

Function constant()
  Const Number As Integer = 101
  constant = Number
End Function

ويمكنك تغيير نوعية البيانات الموجودة بداخل الثابت حسبما تريد ، وذلك طبعاً مع مراعاة تغيير نوع الثابت ليتوافق مع البيانات الموضوعة بداخله.

[hussein_abd]

شكرا للرد على سؤالي لكن ارجو ان تكمل الجميل وتخبرني بطريقة استخدام الكود , لاني لا اعرف ادخال الكود اصلا

[محمد حجازي]

السلام عليكم ...

اضغط على Alt+f11 ومن ثم أدرج Module من القائمة Insert ، وفي داخل المودل ألصق كود الدالة السابقة.

راجع الرابط التالي ، مع الانتباه إلى أن الموضوع الموجود فيه يشرح كيفية إنشاء إجراء وليس دالة:

http://www.officena.net/ib/index.php?showtopic=4624

الآن اذهب لورقة العمل واكتب في داخل أي خلية الدالة التالية:

=constant()

الدالة السابقة ترجع الرقم 101، ويمكنك استخدام الدالة السابقة داخل أي صيغة تريد.

يمكنك إنشاء أكثر من دالة في الموديل الواحد ولكن مع الانتباه لعدم تشابه أسماء الدوال المنشئة.

كما ذكرت سابقاً ، يجب عليك تغيير نوع الثابت ليتناسب مع البيانات المخزنة فيه ، ولمزيد من المعلومات على أنواع البيانات راجع الدرس التالي للأخ محمد طاهر:

http://www.officena.net/Tips/Excel4-Grades.htm

بالتوفيق

[hussein_abd]

الف شكر يا أخي للمساعدة وأسأل الله ان ينعم عليك بالمعرفة اكثر واكثر