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

[سليم الاخرس]

تحية طيبة وبعد

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

مرفقا الملف

سليم.rar

[ا بو سليمان]

 الحل بارك الله فيك   سهل 

 

وهي ان تضع   علامة      =   قبل الرقمين  فقط   في كل خليه      ويظهر الناتج في الخليه نفسها 

 

 

30*60=
45*90=
30*30=
41.5*41.5=
60.5*60.5=

 

 

سوف يكون الناتج 

 

 

1800
4050
900
1722.25
3660.25

 

 

هل هذا هو طلبك 

 

بكل الاحوال 

 

لا تهتم  فالامر سوف يكون سهلا  بموقع افسينا 

 

فانت بين نخبة من المحترفين  بالاكسل

تم تعديل يوليو 6, 2015 بواسطه ا بو سليمان

[سليم الاخرس]

مشكور اخي الكريم على جهودك ولكن اذا كان لدي 1000 خلية فماذا افعل ؟؟ اظن افرغ نفسي مدة اسبوع للعمل بها ...

[ا بو سليمان]

http://excelforus.com/blog/?p=107

 

بالرابط هذا طريقة جمع  رقمين داخل خليه  وهي من خلال  فصل الرقيمن بداله الفصل ثم  جمعها مره ثانية 

 

 

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

 

وهي  فصل الارقام  بداله  الفصل ثم   اجراء عمليه الضرب  

 

 

ما اقصده انها  لن تكون مستحيله ان شاء الله  في هذا الموقع 

 

 

 

 

 

 

 

 

 

.

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

أخي الكريم سليم جرب الكود بهذا الشكل

Sub DoIt()
    Dim Cell As Range
    For Each Cell In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        Cell.Offset(, 1) = "=" & Cell.Value
    Next Cell
End Sub

إن شاء الله تظبط معاك

تقبل تحياتي

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

حل رائع أستاذ ى الفاضل " ياسر خليل "

وأسمحوا لى المشاركة بمعادلتين لتحقيق نفس النتيجة

المعادلة الأولى:

=LEFT(A2,FIND("*",A2)-1)*RIGHT(A2,FIND("*",A2)-1)

ضرب رقمين.rar

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

إذهب إلى " قائمة " insert " ثم " name" ثم " define " ثم فى " refers to " ضع هذه الصيغة

 = EVALUATE($A2)

وفى تسمية النطاق " names in workbook " وضعت أسم " gamal "

تستطيع أنت تسميتة ماشئت

وفى الخلية المراد أظهار النتيجة بها ضع هذه المعادلة

=gamal

وهو أسم النطاق الذى سبق تسميتة

 

 

ضرب رقميين 2.rar

[سليم الاخرس]

استاذ ياسر، استاذ جمال، جزاكم الله ألف ألف خير وجعلها بميزان حسناتكم ..

[سليم حاصبيا]

زيادة في اثرء الموضوع

يمكن استعمال اح هذين الكودين:

Sub salim()
i = 2
Do While Range("a" & i) <> ""
Range("B" & i) = "=" & Range("a" & i)
i = i + 1
Loop
End Sub

[ا بو سليمان]

ما شاء الله  عندما   يتصارع الكبار  على الهدف 

 

تكون النتائج رائعة 

[أحمد عبد العاطي رشيدي]

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

اللهم في هذه الأيام المباركات اغفر  و سامح

و تجاوز عن سيئات كل من ساهم و يساهم في حل مشكلات الآخرين

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

[محمد حسن المحمد]

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

الأخوة الكرام ياسر أبو البراء وجمال عبد السميع وسليم حاصبيا....مع حفظ الألقاب.......أبدعتم

اللهم غافر الذنب قابل التوب اغفر وارحم وتجاوز عن سيئات من شارك بهذه المشاركة الكريمة

لأنكم حقيقة أعجبتمونا وإجاباتكم كلها على العين والرأس

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

[محي الدين ابو البشر]

 

حل رائع أستاذ ى الفاضل " ياسر خليل "

وأسمحوا لى المشاركة بمعادلتين لتحقيق نفس النتيجة

المعادلة الأولى:

=LEFT(A2,FIND("*",A2)-1)*RIGHT(A2,FIND("*",A2)-1)

استاذ جمال  لديك بعد معادلتين جميلتين افتني بهم سابقا 

اعتقد جزاك الله كل خير