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

[حسام نور]

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

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

* هنا موضوع للأستاذ محمد طاهر به مثال مع مجموعه كبيره من الأكواد*

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

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

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

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

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

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

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

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

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

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

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

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

وشكراً

التفقيط.zip

تم تعديل أغسطس 24, 2004 بواسطه حسام نور

[حسام نور]

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

وشكراً

[gelani]

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

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

[محمد طاهر عرفه]

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

و اضافة بسيطة

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

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

أو

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

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

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

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

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

[محمد طاهر عرفه]

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

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

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

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

مع تحياتي

[حسام نور]

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

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

[النرجس]

الأستاذ محمد طاهر

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

حبذا لو تكرمت بشرح الدالة

من حيث بنيتها ، فأنا أتوه بها ولك الشكر سلفاً

[خالد عوض]

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

خالد عوض

عضو جديد

[حسام نور]

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

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

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

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

مع الشكر

تم تعديل مايو 28, 2004 بواسطه حسام نور

[Amgad]

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

مثال

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

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

وليس

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

وشكرا :hart:

[حسام نور]

مرفق بعد التعديل ولا :@

Ezat Module 2.zip

[السعيدان]

ارجو التوضيح إن أمكن !

مع العلم بأني أستخدم OFFICE XP وقد قمت بجميع الخطوات ودائما تظهر في المربع المنتظر تفقيط الأرقام به كلمة ( ?NAME# ) .

[حسام نور]

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

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

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

وشكراً

[Amgad]

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

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

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

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

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

[أبو هادي]

السلام عليكم

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

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

تحياتي .

[Amgad]

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

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

[أبو هادي]

السلام عليكم

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

تحياتي .

[المهاجر]

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

تم تعديل سبتمبر 25, 2005 بواسطه المهاجر

[المهاجر]

هل بالإمكان عمل التفقيط في برنامج الوورد ، وكيف ؟؟

[esas]

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

[kamel_68]

السلام عليكم

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

تحياتي .

[نزار سليمان عيد]

الاخ حسام نور

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

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

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

أ 14 12 5

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

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

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

[mhrrd]

الإخوة الكرام

بعد التحية

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

المهم هو معرفة معنى 1 & 0 & 2 الموجوه في المعادلة

ولكم شكرنا

تم تعديل سبتمبر 14, 2006 بواسطه هادى سالم

[عفرا]

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

[علي السحيب]

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