وليد المصرى 1 قام بنشر فبراير 5, 2012 مشاركة قام بنشر فبراير 5, 2012 السلام عليكم ورحمة الله وبركاتة هل يوجد كود او دالة تفصل بين الارقام فقط بدون فواصل اقصد اذا لدينا هذا الرقم 12345678987456326988456321472583625836947 اريد الفصل بين كل 8 ارقام جزاكم الله خير رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر فبراير 5, 2012 مشاركة قام بنشر فبراير 5, 2012 السلام عليكم اخي جرب هذا الكود ضع الرقم السابق في الخلية 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 رابط هذا التعليق شارك More sharing options...
وليد المصرى 1 قام بنشر فبراير 5, 2012 الكاتب مشاركة قام بنشر فبراير 5, 2012 (معدل) اشكرك ابو احمد لكن اريدهم ينفصلون على اربع او خمس خلايا هل ممكن انا جربت الكود وهذة النتيجة 4.432045 - 64432315 - E+23 اريد ان يكون الرقم هكذا 12345678 98745632 69884563 21472583 6258369 اشكرك ابو احمد هل ممكن الكود يعمل حتى يصل الى العمود كله اقصد ان يبدأ من A1 الى A500 او اكثر لان املك ملف كامل بيه مثل هذة الارقام تم تعديل فبراير 5, 2012 بواسطه goodlife رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر فبراير 5, 2012 مشاركة قام بنشر فبراير 5, 2012 في هذه الحالة سيصبح الكود 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 رابط هذا التعليق شارك More sharing options...
وليد المصرى 1 قام بنشر فبراير 5, 2012 الكاتب مشاركة قام بنشر فبراير 5, 2012 (معدل) تمام الله ينور عليك ويفتح عليك هل ممكن تمديد الخلايا الى اكثر من ثلاث خلايا اذا املك رقم طويل يفصلهم الى اربع او خمس خلايا ممكن تمد الكود حتى يصل الى A500 تم تعديل فبراير 5, 2012 بواسطه goodlife رابط هذا التعليق شارك More sharing options...
وليد المصرى 1 قام بنشر فبراير 5, 2012 الكاتب مشاركة قام بنشر فبراير 5, 2012 اسف اخى فقط تمديد الخلايا الى A500 ما شوفت المرفق الان تمددت الى خمس خلايا ا رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر فبراير 5, 2012 مشاركة قام بنشر فبراير 5, 2012 استبدل الكود السابق بهذا 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 رابط هذا التعليق شارك More sharing options...
وليد المصرى 1 قام بنشر فبراير 5, 2012 الكاتب مشاركة قام بنشر فبراير 5, 2012 يا اخى جزاك الله الف خير يا ابو احمد بجد كود رائع من انسان محترم وعلامه الف شكر يا ابو احمد رابط هذا التعليق شارك More sharing options...
سلامي غنام قام بنشر فبراير 9, 2012 مشاركة قام بنشر فبراير 9, 2012 السلام عليكم ورحمة الله تعالى وبركاته أخي العزيز انت مشكووووور عن مجهوداتك المبذولة فبارك الله فيك ولكن بالنسبة للكود وبعد فتح طبعا مصنف اكسال واحدى الشيتات أين وكيف يلصق الكود وطبت وطاب عملك رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر فبراير 10, 2012 مشاركة قام بنشر فبراير 10, 2012 السلام عليكم اخي الكريم تابع هذا الرابط http://www.officena.net/ib/index.php?showtopic=39323 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.