اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

السلام عليكم اعضاء منتدانا الكرام

لدي تساؤل بسيط .. عند ادخال معطيات كثيرة رقمية عشرية اقل من الواحد يميل الكثير الى عدم كتابة الصفر و البدأ مباشرة بالفاصلة و مايليها .. و يتم اضافة الصفر بشكل آلي الى ذلك الرقم

فهل من طريقة لبرمجة هذا الامر في vba  .. بحيث اذا كتب العدد العشري الاقل من الواحد بشكل عادي يتم تجاوز الكود و اذا تمت كتابته ابتداء من الفاصلة يتم تفعيل الكود و اضافة الصفر له ؟  

قام بنشر

وعليكم السلام

اهلا بك اخ كريم بالمنتدى 

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

فمنطقى وطبيعى عند كتابة اى رقم عشرى بالفعل نقوم بالبدء بعد كتابة العلامة العشرية وعند الإنهاء من كتابة الرقم يقوم الإكسيل تلقائى بكتابة الصفر من على يسار العلامة العشرية 

قام بنشر

بعد إذن الأستاذ أحمد يوسف

إذا كنت تقصد عدم إظهار الصفر بعد العلامة ممكن عمل ذلك

  قم بتحديد المدى الذي لا تريد ظهور الرقم صفر بعد العلامة العشرية

اضغط كليك يمين واختر تنسيق خلايا  وبعد ذلك اختر مخصص واختر 0.00 وقم  ثم قم بحذف الصفر الذي بعد العلامة العشرية ثم اضغط موافق

image.png

image.png

قام بنشر
في ٧‏/٢‏/٢٠١٩ at 20:26, أحمد يوسف said:

وعليكم السلام

اهلا بك اخ كريم بالمنتدى 

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

فمنطقى وطبيعى عند كتابة اى رقم عشرى بالفعل نقوم بالبدء بعد كتابة العلامة العشرية وعند الإنهاء من كتابة الرقم يقوم الإكسيل تلقائى بكتابة الصفر من على يسار العلامة العشرية 

 

في ٨‏/٢‏/٢٠١٩ at 10:20, احمد بدره said:

بعد إذن الأستاذ أحمد يوسف

إذا كنت تقصد عدم إظهار الصفر بعد العلامة ممكن عمل ذلك

  قم بتحديد المدى الذي لا تريد ظهور الرقم صفر بعد العلامة العشرية

اضغط كليك يمين واختر تنسيق خلايا  وبعد ذلك اختر مخصص واختر 0.00 وقم  ثم قم بحذف الصفر الذي بعد العلامة العشرية ثم اضغط موافق

image.png

image.png

شكرا لردودكم الطيبة .. و اعذروني فلعل تساؤلي لم يكن واضحا 

انا ادرك ان هذه الميزة مدرجة تلقائيا في خلايا واجهة الاكسل .. و لكن انا احاول تطبيق هذه الميزة على التكست بوكس .. لنفترض ان لدينا فورم ادخال لمعطيات رقمية عشرية و بحجم كبير ... بحكم العادة الاغلبية عند ادخال البيانات العشرية الاقل من واحد يبدأ الادخال بالفاصلة و ما يليها و لكن ميزة اضافية الصفر هنا ليست تلقائية في التكست بوكس .. حسابيا هذا لا يطرح مشكلة و لكنه يصبح مزعجا عند اللجوء لخيار الطباعة 

شكرا لصبركم

  • 3 weeks later...
قام بنشر

ممك حضرتك تحط الكود ده فى التيكست بوكس نفسها

      ("Me.TextBox7.Value = Format(Me.TextBox7.Value, "00.00")
واوعى تنسى تغير رقم التيكست بوكس فى الكود

  • 2 weeks later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information