اذهب الي المحتوي
أوفيسنا

شرح لكيفية نقل الوحدة النمطية من ملف الي اخر


الردود الموصى بها

بسم الله الرحمن الرحيم

بناء على طلب أحد الأعضاء سأقوم بشرح مدعوم بالصور لكيفية إعداد وتزويد الملف بالأكسيل بدالة تحويل الرقم الي نص

أولاً: لكي تستطيع أن تجعل الأكسيل يحول الرقم لنص يجب أن تتوفر لديك الداله المطلوبه وسوف أرفق لكم العديد من الدوال بنفس الموضوع قم بحفظها لديك بجهاز الكمبيوتر بالمكان الذي تريد لكي تستطيع أن تجلبها لملف الأكسيل المراد أضافتها له

ثانياً : الآن وبعد أنزال الدوال وحفظها على الكمبيوتر قم بفتح ملف الأكسيل لديك وأضغط على Alt+F11 ستظهر لك الشاشة التاليه

I97662R6448455U33943.JPG

ثالثاً : إتجه للجهة اليسرى من الشاشه وأضغط بزر الماوس الأيمن كما ستلاحظ بالصوره لكي نستورد الداله المطلوبه والخاصه بالتفقيط

I97663R81726609U33943.JPG

رابعاً : حدد الداله المطلوب أستيرادها من ضمن الدوال التي قمت بحفظها لجهازك ثم أضغط على موافق ( كما هو موضح بالصوره )

I97664R84281929U33943.JPG

خامساً : ستلاحظ أن الداله التي أخترتها قد تمت أضافتها للدوال كما هو موضح بالصوره

I97665R96728441U33943.JPG

سادساً : الآن أغلق الفيجول بيسك المفتوح بملف الأكسيل لتعود الي ملف الأكسيل الخاص بك وأذهب للخليه المرد أن يظهر بها التفقيط ولتكن A1 وألصق بها هذا الكود

=B_Only(C1;1;0;2;"ريال";"ريالان";"ريالات")

لاحظ في الكود أن C1 المقصود بها الخليه الموجود بها الرقم المطلوب تحويله لنص والذي يتعين عليك تغيير رقم الخليه حسب وجودها بالملف لديك ( أنظر الصوره )

I97666R33798983U33943.JPG

سابعاً : الآن قم بإدخال أي رقم بالخليه C1 وستلاحظ أنه تحول لنص في الخليه A1 كما هو موضح بالصوره

I97667R30253317U33943.JPG

وأخيراً : في المرفقات ستجدون جميع الدوال الخاصه بتحويل الرقم لنص وعليكم أختيار ما تريدون منها سيسئل أحدكم ما الفرق بينهم أقول له راجع الرابط الموجود في بداية الموضوع ستجد المثال الذي قام بطرحه الأستاذ محمد طاهر حيث كل داله لها تفقيط بخصائص مختلفه حسب أحتياجاتكم

أرفقت لكم أيضاً المثال الذي ينطبق على الشرح الذي قرأتموه وشاهدتموه الآن وأرجو أن تكون الصوره قد أتضحت للجميع

* أرجو أن لا تترددوا في حال وجود أي أستفسار *

وشكراً

التفقيط.zip

تم تعديل بواسطه حسام نور
رابط هذا التعليق
شارك

- معلومه أحببت أن أضيفها للجميع وهي أنه يمكنك من خلال الكود الموضح بالأعلى أستبدال كلمة ( ريال - ريالان - ريالات ) بالعمله التي تناسبكم ولتكن ( جنيه - جنيهان - جنيهات ) على سبيل المثال .

وشكراً

رابط هذا التعليق
شارك

عمل رائع وفقكم الله ولكن لدي ملاحظة هي انني عندما استخدمت فئة أخرى من التفقيط مثل أبو حمود لم تظهر معي بنفس الطريقة وسؤالي هو هل الكود المرفق بموضوعكم ينفع مع جميع الأنواع أم أن لكل مجموعة كود وهل ممكن شرح طريقة استخدام ابو حمد مثلاً.

تحية من القلب أبعثا لجميع أعضاء هذا المنتدى الرائع.

رابط هذا التعليق
شارك

جزاك الله خيرا علي هذا الشرح الجميل

و اضافة بسيطة

لنقل الموديولات ( الوحدات النمطية ) المختلفة من ملف الي آخر

يمكن تصديرها الي ملف bas ثن استيرادها كما أشار الأخ حسام فى شرحه

أو

يمكن فتح الملف الموجود فى المشاركة التي أشار اليها الأخ حسام ( الملف الذي يحوي الوحدات النمطية )

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

و فتح الملف الجديد المطلوب نقل الموديول اليه

و من محرر أكواد الفيجوال بيزيك ، الذي نصل اليه بضغط ALT+F11 كما أوضح الأخ حسام

نختار الموديول المطلوب من مجلد الmodules فى ملف المصدر و نسحبه بالماوس الي الملف الجديد

رابط هذا التعليق
شارك

بالنسبة لتعقيب الاخ جيلاني

الطريقة عامة و تصلح لجميع الموديولات حتي مرحلة النقل

أما تطبيق الدالة فى الملف و المتغيرات فيه فتختلف من دالة الي أخري بحسب كود الدالة

راجع ملف الاكسيل الاصلي الذي به المثال لتعرف طريقة تطبيق دالة أبو حمود

مع تحياتي

رابط هذا التعليق
شارك

- تحيه لأستاذي محمد طاهر .. أشكرك على طيب كلماتك وأعتز بتقديرك فهذه شهاده لي من معلم كبير .

- شكراً أخي ( جيلاني ) وقد تفضل الأستاذ محمد طاهر مشكوراً بالرد على أستفسارك

رابط هذا التعليق
شارك

اخي الفاضل اشكركم جزيل الشكر و ارجو المساعدة حيث انني اريد تحويل الارقام الى حروف بدون التفقيط و الريالات حيث انني معلم و ابغي عمل شهادات لطلابي علي الاكسل و لااستطيع تحويل الارقام الى حروف و شكرا اخوك

خالد عوض

عضو جديد

رابط هذا التعليق
شارك

- أخي الفاضل ( خالد عوض )

بالنسبه للتفقيط بدون الريالات بعد أتباع الخطوات السابقه سيكون الكود كالتالي

=B_Only(C1;1;0;2;"";"";"")

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

مع الشكر :fff:

تم تعديل بواسطه حسام نور
رابط هذا التعليق
شارك

  • 2 weeks later...

اشكركم على كل هذا الجهد ولقد اعجبني خصوصا Punc_Ezat Module ولي استفسار لماذا لا يزكر حرف الواو في العبارات التي تنتهي ب عشرون . ثلاثون ...

مثال

عند كتابة رقم 950 تكنب هكذا

فقط تسعمائة خمسون جنيه لاغير

وليس

فقط تسعمائة و خمسون جنيه لاغير

وشكرا :hart: :rol:

رابط هذا التعليق
شارك

  • 1 month later...

الأخ سعيدان ....

هذا الشرح وهذا التطبيق على دالة ضمن الدوال الكثيره المتعدده حيث أن المعادله التي يتم وضعها في الخليه بعد أرفاق دالة ( أبوهادي ) ولكن إذا أرفقت أي داله أخرى ستظهر معك هذه الرساله حيث أن لكل داله معادله مختلفه توضع في الخليه

راجع الربط الخاص بموضوع الأستاذ محمد طاهر ستجد به ملف به العديد من الدوال ولكل داله معادله مستقله توضع في خليه فإذا طلبت إستعمال هذه الداله وهذا التفقيط يجب عليك أستخدام معادلتها وسوف تظهر في الخليه

وشكراً

رابط هذا التعليق
شارك

  • 1 month later...

اشكرك اخ حسام على الاستجابة ولكن بهذا قد ادخلنا انفسنا في مشكلة اخرى وهي عند كتابة 50000 تكتب هكذا

فقط و خمسون الف لاغير

او حتى عند كتابة 50 تكتب هكذا

فقط و خمسون لاغير

بدلا من فقط خمسون لاغير

رابط هذا التعليق
شارك

السلام عليكم

وليه العذاب هذا كله بس !! عندك بدل الدالة عشرة أو أكثر .. لماذا التمسك بهذه الدالة بحجة أنها أعجبتك ثم تشتكي من الأخطاء وتطلب تصحيحها !!.

مع الإعتذار الشديد لكاتبها .

تحياتي .

رابط هذا التعليق
شارك

اشكرك اخ ابو هادي على المداخلة ولكن سبب اعجابي بهذا الدالة علي سبيل المثال هي توفير الرمزية 55 \ 100 في الكسور الرقمية فهي المتداولة لدي كما انها توفر مساحة كبيرة في الخلية محددة المساحة و حجم الخط وذلك بعد اضافة "فقط" و "جنية لاغير" الي الخلية ايضا

والتي ايضا اود كتابتها بالارقام العربية في هذة الخلية دون التغيير في خيارات اللغة من لوحة التحكم ان امكن

رابط هذا التعليق
شارك

  • 1 year later...
  • 2 months later...
  • 2 months later...
  • 1 month later...

السلام عليكم

شكرا للاخوة على المجهود الطيب و بارك الله في امثالكم. في الحقيقة انا عندي مشكلة من نوع أخر و هذا بعد نقل دوال التفقيط و كتابة الكود بشكل صحيح الا أنه و في كل مرة تظهر لي حروف لاتينية غريبة بدل الحروف العربية هذا مع العلم اني أستعمل XP و الاكسل إصدار 2002 ارجو المساعدة من الاخوة. :')

تحياتي .

رابط هذا التعليق
شارك

  • 4 months later...

الاخ حسام نور

اريد عمل برنامج على الاكسيل بحيث يقوم بعمل مايلي وهو شبيه ببرنامج المخازن ولكن مااريده هو :

لو ان عندي عدة اصناف a,b,c,d,f,........ وهكذا وموجود امام كل صنف الكمية الموجودة بالمخازن وتم شراء كمية جديدة من الصنف a مثلا فكيف عمل كود يجمع الكمية الموجودة مع المشتريات الجديدة لنفس الصنف ولو كان مبيعات يتم طرح الكمية من اجمالي الكمية الموجودة مثلا

اسم الصنف الكمية المشتريات المبيعات

أ 14 12 5

اريد الناتج وهو 21 ولكن عند ادخال الصنف نفسه مرة اخرى اي شراء او بيع يعلمني ان الصنف موجود والمتاح منه 21

هل تريد اضافة او بيع ولايضيف الصنف على سطر آخر فيصبح الصنف مكرر في سطرين

ارجو ان يكون واضح ولك الشكر

  • Like 1
رابط هذا التعليق
شارك

  • 4 weeks later...

شرح كيفية نقل الوحدة النمطقة من ملف إلى آخر موجود في بداية هذا الموضوع ..

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information