إستخراج (إستخلاص) قيم من مدخلات خلية

[Eid Mostafa]

_{الأخوة الأعزاء}

_{السلام عليكم ورحمة الله وبركاته ،،،،،}

_{كل عام وأنتم بخير بمناسبة عيد الأضحى المبارك ..................}

_{بالملف المرفق ستجدون بالخلية D2 أنه قد تم إدخال قيمتان (=66863+2105)}، أريد بالخلية F5 إستخراج (إستخلاص) القيمة الأولى فقط وهى (66863) وبالخلية H5 إستخراج (إستخلاص) القيمة الثانية فقط وهى (2105).

_{فهل هذا بالإمكان ........ ؟}

_{أرجو أن أكون قد وفقت فى شرح ما أقصدة.}

_{خالص شكرى وتقديرى}

_أخوكم

_{عيد مصطفى}

Book111.rar

[جمال عبد السميع]

أخي الفاضل الأستاذ ( عيد )

كل سنة وأنت طيب أولا بالعيد أعادة الله عليك وعلي الأسرة الكريمة بألف خير

ثانيا - هل يمكن الأستغناء في معادلة الجمع عن علامة (= )

إذا كانت الأجابة ( نعم ) فالحل أصبح سهلا أما إذا كان ( لا ) نبحث عن طريقة أخري

تم تعديل أكتوبر 27, 2012 بواسطه mahmoud-lee

[Eid Mostafa]

أخى الحبيب محمود

كل عام وأنت طيب وبخير أعادة الله عليك وعلى أسرتك الكريمة وعلى الأمه الإسلامية جميعها بألف خير وسلام

أخى الحبيب أنا أعلم أن المشكله فى علامة (=) وهو الأمر الذى قابلنى ولم أتمكن من حله وهذا سبب إرسالى لطلب المساعدة

فللأسف القيمة بالخلية D2 تحتوى على جمع القيمتان لذا فهى تحتوى على تلك العلامه.

أخى الحبيب (محمود) إن كان الأمر ليس بالإمكان فلا عليك إطلاقاً ، وسأحاول أن أبحث عن طريقة أخرى بملف العمل لتسهيل الأمر وكى أتمكن من إستخراج القيمتان كل على حده.

مرة أخرى خالص التهانى بعيد الأضحى المبارك

أخوك

عيد مصطفى

تم تعديل أكتوبر 27, 2012 بواسطه Eid Mostafa

[جمال عبد السميع]

العفو أخي وكل عام وحضرتك بخير

علي العموم هذا مرفق فصل محتوي الخلية بعد إزالة علامة ( = )

لعلة يفيد لحين البحث عن حل أخر من قبلي أومن قبل الأساتذة وأعضاء المنتدي

فصل جمع رقم.rar

تم تعديل أكتوبر 27, 2012 بواسطه mahmoud-lee

[Eid Mostafa]

أخى الحبيب محمود

أشكرك على إهتمامك بالرد أولاً

وأشكرك على محاولتك القيمة ثانياً

وأكررها لك مرة أخرى أخى الحبيب (محمود) إن كان الأمر ليس بالإمكان فلا عليك إطلاقاً.

ويكفينى جداً قيامك بالمحاوله.

مرة أخرى خالص التهانى بعيد الأضحى المبارك

أخوك

عيد مصطفى

[بن علية حاجي]

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

أخواي الكريمين عيد ومحمود، حسب معرفتي بالإكسيل لا أعتقد أن هذا الطلب ممكن باستعمال المعادلات (لا توجد دالة تقوم باستخلاص معادلة في خلية على شكل نص) (ولست أدري إن كان ذلك ممكنا بواسطة VBA)... لو أدخلت المعادلة على شكل نص مثل :

'=66863+2105

فهذا ممكن جدا لأنه يسهل التعامل مع النصوص باستعمال دوال كثيرة...

والله أعلى وأعلم

أخوكم بن علية

[الـعيدروس]

السلام عليكم

استخدم هذه الداله المعرفه

1 يعطيك الشرط الاول

2 يعطيك الشرط الاخر

بالشكل التالي تعطيك المعادله "2105"

=Ali_F(D2;2)

Public Function Ali_F(R As Range, V As Integer) As Long

Dim A, B

B = Mid(R.Formula, InStr(R.Formula, "+") + 1)

If Val(V) = 1 Then

A = Mid(R.Formula, InStr(R.Formula, "=") + 1, 5)

ElseIf Val(V) = 2 Then

A = Mid(R.Formula, Right$(InStr(R.Formula, "+"), Len(B)))

End If

Ali_F = A

End Function

تم تعديل أكتوبر 28, 2012 بواسطه عباد

[بن علية حاجي]

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

أخي الكريم عباد، والله كود جميل ورائع بارك الله فيك وجزاك الله كل الخير، زادك الله علما وفيرا وأحسن إليك... واسمح لي أن أبدي ملاحظة فيما يخص القيمة الأولى A يستحسن عدم استعمال هذه الدالة المخصصة لأن في الكود جعلت القيمة A من 4 أرقام إلى 5 أرقام ولا يقبل غيرها... وبدل هذا وللحصول على قيمة A (القيمة الأولى) نقوم بعملية بسيطة "عملية طرح" "القيمة الإجمالية (A+B) - قيمة B (القيمة الثانية في المجموع المحصل عليها بوساطة الدالة المخصصة)"، وفي هذه الحالة نتحصل على قيمة A مهما كان عدد أرقامها...

وأعود وأقول إن الكود رائع جدا...

أخوك بن علية

[رجب جاويش]

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

الأستاذ الكبير / العيدروس

الاستاذ الكبير / بن عليه

بعد التحية

اسمحا لى أن اتعلم منكا وأنتما أستاذان كبيران

لقد لاحظت نفس ملاحظة الاستاذ الكبير بن عليه على هذا الكود الرائع

ولقد سمحت لنفسى بتعديل بسيط عليه حتى يعمل مع جميع الأرقام

وعلى فكرة انا خبرتى ضعيفة جدا فى الدوال المعرفة

فارجو أن يكون التعديل صحيحا

وهذا هو التعديل

Public Function Ali_F(R As Range, V As Integer) As Long

Dim A1, A2, B, C

B = Mid(R.Formula, InStr(R.Formula, "+") + 1)

C = Mid(R.Formula, InStr(R.Formula, "=") + 1)

A1 = Mid(R.Formula, Right$(InStr(R.Formula, "+"), Len(B)))

A2 = Mid(R.Formula, InStr(R.Formula, "=") + 1, Len(C) - Len(B))

If Val(V) = 1 Then

Ali_F = A1

ElseIf V = 2 Then

Ali_F = A2

End If

End Function

فصل أرقام من دالة جمع.rar

[Eid Mostafa]

_{الأخ الحبيب / محمود ----------}

_{الأخ الحبيب / بن علية ----------}

_{الأخ الحبيب / عباد (أبو نصار)}

_----------

_{الأخ الحبيب / رجب جاويش ----------}

_{أشكركم جميعاً أولاً على تفاعلكم الأكثر من رائع هذا}

_{كما أشكركم جميعاً ثانياً على آرائكم ومقترحاتكم القيمة وحلولكم الأكثر من رائعه}

_{:fff: :fff:}

_{خالص شكرى وتقديرى}

_أخوكم

_{عيد مصطفى}

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

السلام عليكم

بارك الله فيكم الجمع المبارك

وكل عام وانتم بخير

=====================

لاثراء الموضوع :

الدالة ادناه يمكنك استخدامها

مهما كان عدد الارقام المضافة

واي طول للرقم

مثلا:

=12+1222+111

=12345+1222

عين تسلسل الرقم المضاف في المتغير iNdx 1 للقيمة الاولى , 2 للقيمة الثانية , 3 للقيمة الثالثة .... وهكذا

=kh_ShowValue($D$2;1)

كود الدالة:

Function kh_ShowValue(RngFormla As Range, iNdx As Integer)

Dim sFm As String

sFm = Mid$(RngFormla.Formula, 2)

kh_ShowValue = Split(sFm, "+")(iNdx - 1)

End Function

تقبلوا تحياتي وشكري

[Eid Mostafa]

_{الأخ الحبيب / عبد الله باقشير} ----------

_{أشكرك أيضاً على تفاعلك هذا وإثرائك للموضوع}

_{:fff: :fff:}

_{خالص شكرى وتقديرى}

_أخوك

_{عيد مصطفى}

تم تعديل أكتوبر 29, 2012 بواسطه Eid Mostafa

[رجب جاويش]

بسم الله ما شاء الله

لمسات ابداعية قمة فى الإيجاز والإتقان

تسلم ايديك أستاذى الحبيب / عبد الله باقشير

[جمال عبد السميع]

ماشاء الله بصراحة شئ رائع وهنا أستعير دعاء عالمنا الجليل ( عبد الله باقشير )

بارك الله فيكم الجمع المبارك

وكل عام وانتم بخير

[Eid Mostafa]

_{الأخوة والأساتذة الكبار}

_{كم أنا سعيد بهذا الجمع من عمالقة وخبراء المنتدى}

_{وهو مايفوق سعادتى بتفاعلكم هذا وإثرائكم للموضوع}

_{:fff: :fff:}

_{اللهم جمعنا دائماً على ما فيه الخير}

_{وكل عام وأنتم والأمه الإسلامية جميعها بخير}

_{خالص شكرى وتقديرى}

_أخوكم

_{عيد مصطفى}

تم تعديل أكتوبر 29, 2012 بواسطه Eid Mostafa