اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

سؤال للكل


إذهب إلى أفضل إجابة Solved by عبدالله المجرب,

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








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



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

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

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

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

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

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

example.rar

 

تم تعديل بواسطه dody561
رابط هذا التعليق
شارك

  • أفضل إجابة

السلام عليكم 

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

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

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

الاخ عبد الله

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

 

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

 

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

 

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

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

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

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

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

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

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

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

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

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

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

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

 

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

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

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

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

تم تعديل بواسطه حسين العصلوجى
رابط هذا التعليق
شارك

السلام عليكم

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

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

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


 

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

 

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

يعني نص

 

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

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

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

 

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

تم تعديل بواسطه أم عبد الله
رابط هذا التعليق
شارك

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

 

 ولكن هل يمكن ظهور حرف الهاء بحرف الهاء هكذا هـ لأن عند الفصل ظهر حرف الهاء ه وبما أنه يوجد بعده أرقام فيظهر وكأنه العدد 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
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information