سؤال للكل

[. عبدالله سالم]

عندي سؤال في برنامج اكسل



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

مثلا  ا ح ي 9  لو بغيرها الى ا ح ي  0009 لكل خلية في عمود ماهو الحل؟

اريد ان اغير كل خلية تحتوي على رقم واحد الى وضع 3 اصفار قبل الرقم واذا كان رقمين احط صفرين لكي يكون مجموع الخانات في كل خلية هو 3 احرف و 4 ارقام 

ايضا لو اريد وضع مسافة بين كل حرف وحرف في كل خلية بعمود واحد 

اطع 256 كيف احولها الى ا ط ع 0256

الرجاء المساعدة ياشباب

example.rar

 

تم تعديل فبراير 21, 2013 بواسطه dody561

[منذر2000]

الرجاء اخي الكريم وضع مثال ملف مرفق

[الـعيدروس]

السلام عليكم

أرفق مثال وإن شاء الله سيتم تلبية الطلب

[عبدالله المجرب]

السلام عليكم 

بداية نرجو الالتزام بقواعد المشاركة 

1.  العنوان غير مناسب

2. توجيه السوال لمجموعة محددة (يفهم منه التحدي وصعوبة السؤال)

============

هذه دالة معرفة لما تريد 

 

Function SplitNim(Cel As Range) As String
Dim Tt As String, RR As String, i As Integer, MyNum As String
For i = 1 To InStr(Cel, " ") - 1
Tt = Tt & RR & Mid$(Cel, i, 1)
RR = " "
Next
MyNum = Mid$(Cel, InStr(Cel, " ") + 1, Len(Cel) - InStr(Cel, " "))
SplitNim = Tt & RR & String(4 - Len(MyNum), "0") & MyNum
End Function

 

 

 

شاهد المرفق (لابد من وجود مسافة بين الحروف والارقام)

ارقام سيارات.rar

[مجدى يونس]

الاخ عبد الله

فكرة جميلة ورائعة فعلا

[. عبدالله سالم]

ماشاء الله يا اخي عبدالله الله ينور عليك

[عبدالله المجرب]

الاخ عبد الله

فكرة جميلة ورائعة فعلا

 

شكراً لمرورك استاذ مجدي

 

ماشاء الله يا اخي عبدالله الله ينور عليك

 

حياك الله اخي الكريم وارجو منك زيارة هذا الرابط 

http://www.officena.net/ib/index.php?showannouncement=21&f=89

[حمادة عمر]

الاستاذ القدير الرائع / ابو احمد

سنظل نسير وراء كل مسشاركاتك لنتعلم منها المزيد والمزيد

حيث انها فكرة عن جد جميله ورائعة

جزاك الله خيراً

[عبدالله المجرب]

الاستاذ القدير الرائع / ابو احمد

سنظل نسير وراء كل مسشاركاتك لنتعلم منها المزيد والمزيد

حيث انها فكرة عن جد جميله ورائعة

جزاك الله خيراً

 

شكراً لك اخي حمادة على التشجيع

[حسين العصلوجى]

كود بسيط واكثر من رائع 

لى سؤال عن فائدة علامة الدولار مع دالة mid
جزاك الله خيرا

تم تعديل فبراير 21, 2013 بواسطه حسين العصلوجى

[علي سالم 75]

هذا حل بالمعادلات

 

 

 

=MID(A2;1;1)&" "&MID(A2;2;1)&" "&MID(A2;3;1)&" "&TEXT(MID(A2;4;10);"0000")
 

تحياتي

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

السلام عليكم

داله ممتازة اخي عبدالله

ومعادلة رائعة اخي علي سالم

بارك الله فيكم

 

لى سؤال عن فائدة علامة الدولار مع دالة mid

 

تعطي بيانات من نوع String

يعني نص

 

تقبلوا تحياتي وشكري

[أم عبد الله]

الأستاذ الفاضل / عبد الله المجرب

 

جزاك الله خيراً على هذا العمل الرائع وهى دالة جميلة جداً ولكن هل يمكن ظهور حرف الهاء بحرف الهاء هكذا هـ لأن عند الفصل ظهر حرف الهاء ه وبما أنه يوجد بعده أرقام فيظهر وكأنه العدد 5 ولي ملاحظة أخرى هل يمكن عدم ظهر الأصفار التي على الشمال أي يكون ناتج المعادلة اصع66 هو ا ص ع 66 بدلاً من ا ص ع 0066 ولك كل التحية والتقدير.

تم تعديل فبراير 22, 2013 بواسطه أم عبد الله

[عبدالله المجرب]

السلام عليكم 

الاستاذ الفاضل عبدالله باقشير شكراً لمرورك وتشريفك وتشجيعك المتواصل

[عبدالله المجرب]

الأستاذ الفاضل / عبد الله المجرب

 

 ولكن هل يمكن ظهور حرف الهاء بحرف الهاء هكذا هـ لأن عند الفصل ظهر حرف الهاء ه وبما أنه يوجد بعده أرقام فيظهر وكأنه العدد 5 ولي ملاحظة أخرى هل يمكن عدم ظهر الأصفار التي على الشمال أي يكون ناتج المعادلة اصع66 هو ا ص ع 66 بدلاً من ا ص ع 0066 ولك كل التحية والتقدير.

 

اختي أم عبدالله 

 

هذا التعديل يناسب ماطلبتي

Function SplitNim(Cel As Range) As String
Dim Tt As String, RR As String, i As Integer, MyNum As String
For i = 1 To InStr(Cel, " ") - 1
Select Case Mid$(Cel, i, 1)
Case Is = "ه"
Tt = Tt & RR & Mid$(Cel, i, 1) & "ـ"
RR = " "
Case Else
Tt = Tt & RR & Mid$(Cel, i, 1)
RR = " "
End Select
Next
MyNum = Mid$(Cel, InStr(Cel, " ") + 1, Len(Cel) - InStr(Cel, " "))
SplitNim = Tt & RR & MyNum
End Function