كود لكتابة الصفر شمال الرقم

[المسلم العربي]

أتمنى مساعدتي لدي برنامج لحساب مفتاح الحساب البريدي و البنكي 
المهم المفاتيح دائماً أصغر من 100 يعني من 99 حتى 01
و المشكل أنه من 1 إلى 9 يجب كتابتها على الشكل 
01    02   03   04   05  06   07   08  09
و لدي يوزرفورم لحساب ذلك لكن لا تظهر الأعداد كما أريد 
و لذلك أريد كود لإظهار الصفر شمال العدد لما يكون المفتاح أصغر من 10 و شكرا

 

تم تعديل يوليو 19, 2017 بواسطه المسلم العربي

[عبدالسلام ابوالعوافي]

لو تم رفع الملف لكان الاجابة اسهل واوضح .. لكن فكرة العمل كالاتي

TextBox1 = Right("0" & Key, 2)

حيث key هو رقم المفتاح

[ياسر خليل أبو البراء]

جرب التالي لربما يفي بالغرض

TextBox1=Format(TextBox1,"00")

 

[ليلى الهلالي]

السلام عليكم

هل يمكن تطبيق المعادلة السابقة  في الخلية التي فيها أرقام البطائق الشخصية

مثلا:

 

01000021761

بدلا عن

1000021761

أو أن هناك طريقة أفضل؟

تم تعديل يوليو 20, 2017 بواسطه morestudy

[المسلم العربي]

2 ساعات مضت, ياسر خليل أبو البراء said:

جرب التالي لربما يفي بالغرض

TextBox1=Format(TextBox1,"00")

 

تم حل المشكل شكرا أخي خليل و الله تعلمنا منكم الكثير كيف نشكركم قولو لنا لا نعرف طريقة لشكركم 

[ياسر خليل أبو البراء]

2 دقائق مضت, morestudy said:

السلام عليكم

هل يمكن تطبيق المعادلة السابقة  في الخلية التي فيها أرقام البطائق الشخصية

مثلا:

 

01000021761

بدلا عن

1000021761

أو أن هناك طريقة أفضل؟

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

="0" & A1

إذا لم تكن الإجابة كافية فيمكن إرفاق ملف يعبر عن المطلوب بدقة

[ليلى الهلالي]

السلام عليكم أستاذي الفاضل ياسر

شكرا لك لسرعة الاستجابة كما تعودنا منك.

بالنسبة لأرقام البطائق الشخصية فاعتقد بأنه يتكون من عشرة أرقام فإذا قل عدد الأرقام عن عشرة يكون الرقم المتمم للعشرة صفر أو أكثر

مرفق لك مثال مبسط

أرقام البطائق الشخصية.rar

تم تعديل يوليو 20, 2017 بواسطه morestudy

[ياسر خليل أبو البراء]

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

جرب الكود التالي عله يفي بالغرض

Sub Test()
    With Range("C2", Range("C" & Rows.Count).End(xlUp))
        .NumberFormat = "@"
        .Value = Evaluate("index(text(" & .Address & ",""0000000000""),)")
    End With
End Sub

 

[ليلى الهلالي]

أشكرك أستاذي جزيل الشكر تم المطلوب على أكمل وجه.

تم تعديل يوليو 20, 2017 بواسطه morestudy

[ياسر خليل أبو البراء]

الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات

[سليم حاصبيا]

ممكن هذا الكود يقوم بهذا العمل

تقوم بتعبئة التكست و عند الخروج منه يتم التنسيق

Private Sub TextBox1_LostFocus()
Application.ScreenUpdating = False
TextBox1 = Format(TextBox1, Application.Rept(0, 10))
Application.ScreenUpdating = True
End Sub

 

[ليلى الهلالي]

السلام عليكم

أشكرك أستاذي سليم على هذا الحل الآخر.

أشكركم جميعاً ولا حرمنا الله منكم فأنتم خير معين لنا في هذا المنتدى وكم استفدنا منكم بما لا نستطيع عده وإحصاءه.

بارك الله فيكم جميعاً وكتب أجركم..