(تمت الاجابة) الفصل بين الارقام فقط

[وليد المصرى 1]

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

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

12345678987456326988456321472583625836947 اريد الفصل بين كل 8 ارقام

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

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

السلام عليكم

اخي جرب هذا الكود

ضع الرقم السابق في الخلية A1

ثم شغل الكود

Sub Abu_Ahmed()

For i = 1 To Len([A1]) Step 8

MyArr = MyArr & Mid([A1], i, 8) & " - "

[B1] = Left(MyArr, Len(MyArr) - 2)

Next

End Sub

[وليد المصرى 1]

اشكرك ابو احمد لكن اريدهم ينفصلون على اربع او خمس خلايا هل ممكن

انا جربت الكود وهذة النتيجة

4.432045 - 64432315 - E+23

اريد ان يكون الرقم هكذا 12345678 98745632 69884563 21472583 6258369

اشكرك ابو احمد

هل ممكن الكود يعمل حتى يصل الى العمود كله اقصد ان يبدأ من A1 الى A500 او اكثر لان املك ملف كامل بيه مثل هذة الارقام

تم تعديل فبراير 5, 2012 بواسطه goodlife

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

في هذه الحالة سيصبح الكود

Sub Abu_Ahmed()

r = 2

For i = 1 To Len([A1]) Step 8

Cells(1, r) = Mid([A1], i, 8)

r = r + 1

Next

End Sub

شاهد المرفق

فصل الارقام.rar

[وليد المصرى 1]

تمام الله ينور عليك ويفتح عليك

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

ممكن تمد الكود حتى يصل الى A500

تم تعديل فبراير 5, 2012 بواسطه goodlife

[وليد المصرى 1]

اسف اخى فقط تمديد الخلايا الى A500

ما شوفت المرفق الان تمددت الى خمس خلايا

ا

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

استبدل الكود السابق بهذا

Sub Abu_Ahmed()

Dim cl As Range

For Each cl In [A1:A500]

r = 2

For i = 1 To Len(cl.Value) Step 8

Cells(cl.Row, r) = Mid(cl.Value, i, 8)

r = r + 1

Next

Next

End Sub

[وليد المصرى 1]

يا اخى جزاك الله الف خير يا ابو احمد بجد كود رائع من انسان محترم وعلامه

الف شكر يا ابو احمد

[سلامي غنام]

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

أخي العزيز انت مشكووووور عن مجهوداتك المبذولة فبارك الله فيك

ولكن بالنسبة للكود وبعد فتح طبعا مصنف اكسال واحدى الشيتات

أين وكيف يلصق الكود

وطبت وطاب عملك

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

السلام عليكم

اخي الكريم تابع هذا الرابط

http://www.officena.net/ib/index.php?showtopic=39323