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

[عبدالله احمد سعيد]

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

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

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

[أحمد يوسف]

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

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

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

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

[احمد بدره]

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

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

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

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

[عبدالله احمد سعيد]

في ٧‏/٢‏/٢٠١٩ at 20:26, أحمد يوسف said:

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

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

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

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

 

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

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

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

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

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

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

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

شكرا لصبركم

[Waleed_hassaan2020]

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

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

[عبدالله احمد سعيد]

في ٢٨‏/٢‏/٢٠١٩ at 22:40, Waleed_hassaan2020 said:

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

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

شكرا جزيلا لك