ابو اياد العلمى قام بنشر ديسمبر 3, 2013 مشاركة قام بنشر ديسمبر 3, 2013 اريد كود يقوم بفصل محتويات خلية بها معادلة المطلوب موضح اكثر بالمرفق تقسيم صيغه فخلية.rar رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر ديسمبر 3, 2013 مشاركة قام بنشر ديسمبر 3, 2013 السلام عليكم جرب الكود التالي Sub kh_split() Dim sp Dim m As String Dim i As Integer m = Range("d5").Formula m = Replace(m, "=", "") sp = split(m, "+") i = UBound(sp) + 1 If i Then Range("G5").Resize(1, i).Value = sp End If End Sub تحياتي 1 رابط هذا التعليق شارك More sharing options...
ابو اياد العلمى قام بنشر ديسمبر 3, 2013 الكاتب مشاركة قام بنشر ديسمبر 3, 2013 كود اكثر من رائع وفكره ذكية جدا جزاك الله الف خير ا / عبدالله ولي استفسار صغير ما فائدة استخدام if في هذا الكود رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر ديسمبر 4, 2013 مشاركة قام بنشر ديسمبر 4, 2013 كود اكثر من رائع وفكره ذكية جدا جزاك الله الف خير ا / عبدالله ولي استفسار صغير ما فائدة استخدام if في هذا الكود سؤال في محله اذا كانت الخلية فارغة ستكون قيمة i صفر لهذا لن يعمل السطر المشروط لو تجاوزت هذا الشرط سيكون خطأ في الكود تحياتي رابط هذا التعليق شارك More sharing options...
blood778 قام بنشر ديسمبر 4, 2013 مشاركة قام بنشر ديسمبر 4, 2013 أستاذى الكبير ( عبد الله بقشير ) كود رائع وعمل ممتاز ولكن هل يمكن عملة عن طريق المعادلة ، بدل الكود وشكرا لحضرتك رابط هذا التعليق شارك More sharing options...
a_mohammed82 قام بنشر ديسمبر 19, 2015 مشاركة قام بنشر ديسمبر 19, 2015 السلام عليكم لو عندي خلية فيها اكتر من سطر وعايز افضل كل سطر فى صف..... ايه المعادة رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر ديسمبر 19, 2015 مشاركة قام بنشر ديسمبر 19, 2015 السلام عليكم اقتباس لو عندي خلية فيها اكتر من سطر وعايز افضل كل سطر فى صف..... ايه المعادة ارفق مثال لم نفهم السؤال رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 23, 2015 مشاركة قام بنشر ديسمبر 23, 2015 الأخ الكريم محمد يرجى تغيير اسم الظهور للغة العربية جرب الكود التالي .. حدد الخلية التي بها عدة أسطر ثم نفذ الكود ..ستظهر النتائج في الصف التالي للخلية النشطة Sub SplitTextToRows() Dim SplitVals As Variant Dim TotalVals As Long SplitVals = Split(ActiveCell.Value, Chr(10)) TotalVals = UBound(SplitVals) ActiveCell.Offset(1).Resize(TotalVals + 1).Value = Application.Transpose(SplitVals) End Sub إذا لم يفي الكود الغرض ..يرجى إرفاق ملفك للإطلاع عليه .. والأفضل طرح موضوع مستقل بطلبك تقبل تحياتي رابط هذا التعليق شارك 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.