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

تنسيق الارقام vba


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

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

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

فهل من طريقة لبرمجة هذا الامر في 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...
في ٢٨‏/٢‏/٢٠١٩ at 22:40, Waleed_hassaan2020 said:

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

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

شكرا جزيلا لك

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

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