طلب: تحويل رقم مختصر الى رقم طويل يتكون عدد محدد من الارقام

[klma7lwa]

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

كان لى طلب ان شاء الله يكون بسيط

هو كالتالى 

عندما يكون لدى كالتالى 

693.2.326 واريده ان يصبح كذالك 6930020326 اى يكون عشرة ارقام بعد ازالة " . "

امثلة اخرى 

362.23.32                    تصبح كالتالى   3620230032

564.952.59                  تصبح كالتالى   5649520059

487.354.2365              تصبح كالتالى   4873542365

210.6.50                      تصبح كالتالى   2100060050

 

للتوضيح لاحظ ان اللون الازرق يجب ان يكون ثلاثة ارقام ، واللون الاحمر يجب ان يكون ثلاثة ارقام بحيث اذا قل عن ثلاثة ارقام يتم زيادة الاصفار من الشمال  ، واللون الاخضر يجب ان يكون 4 ارقام  بحيث اذا كان هناك رقمان يتم اضافة صفرين من الشمال وذا كان هناك ثلاثة ارقام يتم زيادة صفر من الشمال وهكذا 

 

وانا كنت استخدم هذه المعادلة ولكنها طويلة جدا وهى كانت 

=LEFT(A2;3)&IF(MID(A2;6;1)=".";"00"&MID(A2;5;1);IF(MID(A2;7;1)=".";"0"&MID(A2;5;2);IF(MID(A2;8;1)=".";MID(A2;5;3);)))&IF(MID(RIGHT(A2;2);1;1)=".";"000"&RIGHT(A2;1);IF(MID(RIGHT(A2;3);1;1)=".";"00"&RIGHT(A2;2);IF(MID(RIGHT(A2;4);1;1)=".";"0"&RIGHT(A2;3);IF(MID(RIGHT(A2;5);1;1)=".";RIGHT(A2;8);"رقم غير صحيح"))))

واريد ان يكون كود بمحرر الاكواد مرتبط على Textbox

 

ملحوظة : تم استخدام الالوان للتوضيح وليس اكتر 

[عبدالله باقشير]

السلام عليكم

عملنا فورم تدخل الرقم في التاكست واضغط الزر لتنفيذ الكود

Private Sub CommandButton1_Click()
Dim sp
Dim iNum As String
Dim i As Integer
For Each sp In Split(Me.TextBox1, ".")
    i = i + 1
    iNum = iNum & Format(sp, IIf(i = 3, "0000", "000"))
Next
Me.Label1 = iNum
End Sub

تفضل المرفق 2003

NUM.rar

[klma7lwa]

اخى الكريم عبدالله باقشير 

دائما ما تبهرنى بأداك العالى والراقى 

دائما سباق بالخير والعطاء فقد تعلمت على يدك الكثر وعلى يد اساتذتى الكرام داخل هذا الصرح العظيم 

فعلا هذا هو المطلوب 

جعله الله فى ميزان حسناتك يوم ان تلقاه