معرفة عدد الأرقام في خلية بها معادلة ، والأرقام يفصل بينها علامة زائد

[فادى سامى]

السلام عليكم
انا عايز اعرف عدد الارقام اللى انا جمعتها فى الخلية يعنى مثلا انا هقف على اى خلية وهكتب =20+30+50 هيطلع فى الخلية 100 انا عايز فى الخلية اللى جنبها يكتبلى 3 اللى هو عدد الارقام اللى جمعتهم 3 ارقام وعكذا مع العلم ان الارقام دى مجموعه فى خلية واحدة مش موجودة كل رقم فى خلية وبعدين معمول لهم دالة sum
حاجة كمان كنت عايز اعمل زر لما ادوس عليه ينقل قيمة من خلية الى خلية تانية زى ما هى ويرجع الخلية الاولى الى الصفر
مش عارف اذا كان ينفع ولا لا الكلام ده ولكنى اثق فى خبراء هذا المنتدى وشكرا

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

أخي الكريم

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

[فادى سامى]

ملف للتوضيح

New Microsoft Excel 97-2003 Worksheet.rar

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

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

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

قم بالضغط على Alt + F11 وأدرج موديول من قائمة Insert وضع الدالة المعرفة التالية

Function CountNumbers(Rng As Range)
    Dim Arr
    If Rng.HasFormula = True Then
        Arr = Split(Rng.Formula, "+")
    End If
    CountNumbers = UBound(Arr) + 1
End Function

ثم ارجع لورقة العمل واكتب المعادلة التالية في الخلية H10

=CountNumbers(G10)

أرجو أن يكون المطلوب

للعلم يفضل أن يكون الموضوع موحد الطلب أي طلب واحد في الموضوع ..ويمكنك طرح ما شئت من موضوعات

تقبل تحياتي

[فادى سامى]

اخى ياسر الف شكر بجد مجهود رائع جداااااااااااااا جدااااااااااااااا بجد منتدى رائع جدا واحتراف بجد الواحد بيقول اللى هو عايزه وميعرفش اذا كان فيه حاجة كده او لا أصلا بس ماشاء الله عمركوا مخزلتونا ابدا شكرا جدا ليك ربنا يجعله فى ميزان حسناتك

[Guest محمد ابو صهيب]

Sub transeff()
If Sheet1.Range("k19").Value <> "" Then
Sheet1.Range("k17").Value = Range("k19").Value
End If
Range("k19").Value = ""
End Sub

ضع هذا في زر الترحيل

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

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

بارك الله فيك وجزاك الله خيراً على ردك الطيب ..

أخي الحبيب أبو صهيب .. مشكور على تلبية الطلب الثاني في الموضوع .. لم يسعني الوقت لأكمل الطلب الثاني

فجزاك الله خيراً ... واصل إبداعك دائماً

[Guest محمد ابو صهيب]

شكرا ...ياسر على الفونكشيون   FUNCTION  .......ما شاء الله رائعة......أعجباتني....

ادري ابو البراء ....ما يكون الا خطرك

تم تعديل مارس 26, 2016 بواسطه محمد ابو صهيب

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

ربنا يديك الصحة يا أبو صهيب ..

خايف بس حد من المبتدئين يقراها "الفنكوش" هي اسمها Function أي دالة معرفة .. والدوال المعرفة يتم وضعها في موديول وتعاملها معاملة الدوال الأخرى في الإكسيل بعد إدراجها في موديول بمحرر الأكواد ..

تقبل تحياتي

[فادى سامى]

ماشاء الله الف مليون شكرا اخى محمد ابو صهيب الله يبارك فيكوا متميزين دايما انا عاجز عن شكر هذا المنتدى الرائع جدا

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

عااااااااااااااجز عن الشكر ..! الكلمة دي مش بعرفها لأن فيه كلمة "جزاك الله خيراً" بتعبر عن الشكر وزيادة

ولا تنسى يا فادي أن تغير اسم الظهور للغة العربية ، وراجع موضوع التوجيهات في الموضوعات المثبتة في المنتدى لمعرفة التعامل بشكل أمثل مع المنتدى

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

[فادى سامى]

معلش اخى محمد لو ينفع تقولى ازاى احط الكرد ده فى الزر يبقى كتر خيرك

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

فادي فادي

سيبك من الكلام ده

روح للرابط التالي وإنت تعرف كل حاجة

من هنا أيوا من هنا

[Guest محمد ابو صهيب]

انشىء زر ...فيالذهاب الى  تبويب developer  ...ثم insert

اليك الصور

[فادى سامى]

جزاكم الله خيرا يا جماعة كتر خيركم بجد اخى ياسر قولى طيب اغير الاسم منين عشان انا مسجل عن طريق الفيس بوك ومش عارف اعدل الاسم لو ينفع

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

حاول تسجل حساب جديد مش دخول عن طريق الفيس بوك ..دا يكون أفضل

 

روح لموضوع التوجيهات في الموضوعات المثبتة في المنتدى

التوجيه العاشر هيقولك ..

[Guest محمد ابو صهيب]

هذه هي الخطوة المطلوبة

سجل بهده الطريقة

[فادى سامى]

تم التغيير للاسم بنجاح شكرا اخى جزاك الله خير بس انا مش عارف اعمل الزر معلش سامحونى انا مبتدأ فيه حاجات كتير معرفهاش

[Guest محمد ابو صهيب]

اذهب الى الصفحة الأولى ...صفحة الاستقبال واختر تسجيل حساب 

واملاء البيانات

3 دقائق مضت, فادى سامى said:

تم التغيير للاسم بنجاح شكرا اخى جزاك الله خير بس انا مش عارف اعمل الزر معلش سامحونى انا مبتدأ فيه حاجات كتير معرفهاش

هذا هو المطلوب

 

[فادى سامى]

انا حطيت الكود وعملت الزر ولكنه لا يعمل

[Guest محمد ابو صهيب]

سنبادل التاكتيك ....اذهب الى تبويب INSERT  .اختر SHAPES

ثم اختر SHAPES    .ثم ادهب الى  DEVELOPER واختر MACROS .....ونسق الزر الذي عملته     بSUB الموديول

الذي استطيع ان افيدك يه ...لقد استعملت كل الطرق لأضال المعلومة

 

 

اليك الملف

1.rar

تم تعديل مارس 26, 2016 بواسطه محمد ابو صهيب

[Guest محمد ابو صهيب]

اليك الملف ......ادرسه   فادي 

اختر 

24 دقائق مضت, فادى سامى said:

انا حطيت الكود وعملت الزر ولكنه لا يعمل

اليك الملف مرة 2    

1.rar

اليك الملف

1.rar

اليك الملف

1.rar