فصل محتويات خلية تحتوي علي معادلة جمع

[ابو اياد العلمى]

اريد كود يقوم بفصل محتويات خلية بها معادلة

المطلوب موضح اكثر بالمرفق

تقسيم صيغه فخلية.rar

[عبدالله باقشير]

السلام عليكم

 

جرب الكود التالي

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

تحياتي

[ابو اياد العلمى]

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

جزاك الله الف خير ا / عبدالله

 

ولي استفسار صغير ما فائدة استخدام if في هذا الكود

[عبدالله باقشير]

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

جزاك الله الف خير ا / عبدالله

 

ولي استفسار صغير ما فائدة استخدام if في هذا الكود

 

سؤال في محله

اذا كانت الخلية فارغة ستكون قيمة i  صفر

لهذا لن يعمل السطر المشروط

 

لو تجاوزت هذا الشرط سيكون خطأ في الكود

 

تحياتي

[blood778]

أستاذى الكبير ( عبد الله بقشير )

كود رائع وعمل ممتاز ولكن هل يمكن عملة عن طريق المعادلة ، بدل الكود

وشكرا لحضرتك

[a_mohammed82]

السلام عليكم

لو عندي خلية فيها اكتر من سطر وعايز افضل كل سطر فى صف..... ايه المعادة

[الـعيدروس]

السلام عليكم

اقتباس

لو عندي خلية فيها اكتر من سطر وعايز افضل كل سطر فى صف..... ايه المعادة

ارفق مثال لم نفهم السؤال

[ياسر خليل أبو البراء]

الأخ الكريم محمد

يرجى تغيير اسم الظهور للغة العربية

جرب الكود التالي .. حدد الخلية التي بها عدة أسطر ثم نفذ الكود ..ستظهر النتائج في الصف التالي للخلية النشطة

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

إذا لم يفي الكود الغرض ..يرجى إرفاق ملفك للإطلاع عليه .. والأفضل طرح موضوع مستقل بطلبك

تقبل تحياتي