. عبدالله سالم قام بنشر فبراير 21, 2013 مشاركة قام بنشر فبراير 21, 2013 (معدل) عندي سؤال في برنامج اكسل عندي عمود فيه ارقام لوحات سيارات مثلا لو ابغى اسوي كل خلية تحتوي على 3 حروف و اربع ارقام عن طريق دالة كيف ذلك مثلا ا ح ي 9 لو بغيرها الى ا ح ي 0009 لكل خلية في عمود ماهو الحل؟ اريد ان اغير كل خلية تحتوي على رقم واحد الى وضع 3 اصفار قبل الرقم واذا كان رقمين احط صفرين لكي يكون مجموع الخانات في كل خلية هو 3 احرف و 4 ارقام ايضا لو اريد وضع مسافة بين كل حرف وحرف في كل خلية بعمود واحد اطع 256 كيف احولها الى ا ط ع 0256 الرجاء المساعدة ياشبابexample.rar تم تعديل فبراير 21, 2013 بواسطه dody561 رابط هذا التعليق شارك More sharing options...
منذر2000 قام بنشر فبراير 21, 2013 مشاركة قام بنشر فبراير 21, 2013 الرجاء اخي الكريم وضع مثال ملف مرفق رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر فبراير 21, 2013 مشاركة قام بنشر فبراير 21, 2013 السلام عليكم أرفق مثال وإن شاء الله سيتم تلبية الطلب رابط هذا التعليق شارك More sharing options...
أفضل إجابة عبدالله المجرب قام بنشر فبراير 21, 2013 أفضل إجابة مشاركة قام بنشر فبراير 21, 2013 السلام عليكم بداية نرجو الالتزام بقواعد المشاركة 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 2 رابط هذا التعليق شارك More sharing options...
مجدى يونس قام بنشر فبراير 21, 2013 مشاركة قام بنشر فبراير 21, 2013 الاخ عبد الله فكرة جميلة ورائعة فعلا رابط هذا التعليق شارك More sharing options...
. عبدالله سالم قام بنشر فبراير 21, 2013 الكاتب مشاركة قام بنشر فبراير 21, 2013 ماشاء الله يا اخي عبدالله الله ينور عليك رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر فبراير 21, 2013 مشاركة قام بنشر فبراير 21, 2013 الاخ عبد الله فكرة جميلة ورائعة فعلا شكراً لمرورك استاذ مجدي ماشاء الله يا اخي عبدالله الله ينور عليك حياك الله اخي الكريم وارجو منك زيارة هذا الرابط http://www.officena.net/ib/index.php?showannouncement=21&f=89 1 رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر فبراير 21, 2013 مشاركة قام بنشر فبراير 21, 2013 الاستاذ القدير الرائع / ابو احمد سنظل نسير وراء كل مسشاركاتك لنتعلم منها المزيد والمزيد حيث انها فكرة عن جد جميله ورائعة جزاك الله خيراً رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر فبراير 21, 2013 مشاركة قام بنشر فبراير 21, 2013 الاستاذ القدير الرائع / ابو احمد سنظل نسير وراء كل مسشاركاتك لنتعلم منها المزيد والمزيد حيث انها فكرة عن جد جميله ورائعة جزاك الله خيراً شكراً لك اخي حمادة على التشجيع رابط هذا التعليق شارك More sharing options...
حسين العصلوجى قام بنشر فبراير 21, 2013 مشاركة قام بنشر فبراير 21, 2013 (معدل) كود بسيط واكثر من رائع لى سؤال عن فائدة علامة الدولار مع دالة mid جزاك الله خيرا تم تعديل فبراير 21, 2013 بواسطه حسين العصلوجى رابط هذا التعليق شارك More sharing options...
علي سالم 75 قام بنشر فبراير 21, 2013 مشاركة قام بنشر فبراير 21, 2013 هذا حل بالمعادلات =MID(A2;1;1)&" "&MID(A2;2;1)&" "&MID(A2;3;1)&" "&TEXT(MID(A2;4;10);"0000") تحياتي 1 رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر فبراير 21, 2013 مشاركة قام بنشر فبراير 21, 2013 السلام عليكم داله ممتازة اخي عبدالله ومعادلة رائعة اخي علي سالم بارك الله فيكم لى سؤال عن فائدة علامة الدولار مع دالة mid تعطي بيانات من نوع String يعني نص تقبلوا تحياتي وشكري رابط هذا التعليق شارك More sharing options...
أم عبد الله قام بنشر فبراير 22, 2013 مشاركة قام بنشر فبراير 22, 2013 (معدل) الأستاذ الفاضل / عبد الله المجرب جزاك الله خيراً على هذا العمل الرائع وهى دالة جميلة جداً ولكن هل يمكن ظهور حرف الهاء بحرف الهاء هكذا هـ لأن عند الفصل ظهر حرف الهاء ه وبما أنه يوجد بعده أرقام فيظهر وكأنه العدد 5 ولي ملاحظة أخرى هل يمكن عدم ظهر الأصفار التي على الشمال أي يكون ناتج المعادلة اصع66 هو ا ص ع 66 بدلاً من ا ص ع 0066 ولك كل التحية والتقدير. تم تعديل فبراير 22, 2013 بواسطه أم عبد الله رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر فبراير 22, 2013 مشاركة قام بنشر فبراير 22, 2013 السلام عليكم الاستاذ الفاضل عبدالله باقشير شكراً لمرورك وتشريفك وتشجيعك المتواصل رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر فبراير 22, 2013 مشاركة قام بنشر فبراير 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان