استخدام دوال الإكسيل WorksheetFunction

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

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

إخواني الكرام ..أحبابي في الله

****************

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

درس اليوم عن استخدام دوال الإكسيل أو معظم الدوال الموجودة في الإكسيل في محرر الأكواد ..

أترككم مع الفيديو .. ولا تنسوا لايكات على اليوتيوب ولايكات على الموضوع ولايكات للمنتدى ولايكات للأعضاء (الليلة ليلة اللايكات)

ولا تنسوا قبل كل ذلك والأهم من ذلك ..دعواتكم بظهر الغيب

إليكم رابط الفيديو

 

 

أرجو أن ينال الموضوع إعجابكم وتستفيدوا منه ..

أخوكم أبو البراء

WorksheetFunction VBA.rar

[محمد الريفى]

جهود جباره

نقبل الله منكم هذه الاعمال الطيبه

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

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

جزيت خيراً أخي الحبيب محمد الريفي على مرورك العطر .. وتشريفك للموضوع

تقبل ودي وحبي وتحياتي

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

رائع اخي ياسر و الى المزيد من هذه الفيديوهات

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

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

بارك الله فيك

تقبل تحياتي

[عبد العزيز البسكري]

بارك الله فيك .. جزاك الله خيرًا

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

منور الموضوع أخي الفاضل عبد العزيز

إن شاء الله تكون استفدت من الفيديو ..راجع موضوعك وراجع الفيديو ...عشان تعرف إن الدنيا قريبة من بعضها

تقبل درسي

[ابراهيم الحداد]

سلمت يداك يا لؤلؤة المنتدى

[ابو جودى]

موضوع مهم استاذ ياسر خليل

بارك الله فيك

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

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

الأخ عمرو طلبة ..جزيت خيرا على مرورك بالموضوع ، والحمد لله أن الموضوع مفيد

[محمد الورفلي1]

السلام عليكم

 

بارك الله فيك شكراً " استاذ ياسر "

 

لهذا الدرس المفيد جداً بالنسبه لى ارجو الاستمرار وتكون هذه بداية من موضوع الجمع بكافة انواعة  وتكون سلسلة متكاملة

[عبدالله فاروق ابو ريان]

ماشاء الله مجهود اكثر من رائع
ليس شيئ صعب على استاذنا الجليل

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

الأخ الحبيب محمد الخازمي

الأخ الغالي عبد الله فاروق

مشكور على مروركما العطر ..بارك الله فيكما وجزاكما الله خير الجزاء

[Yasser Fathi Albanna]

رائع أخى وحبيبى الأستاذ / ياسر خليل

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

ربنا يباركلك ويزيدك كمان وكمان من علمه

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

تسلم أخي الغالي يا باشمهندس ياسر

نورت الموضوع بتشريفك للموضوع

أين حل الاختبار ؟؟ أخبرتك أن تضع الكود في رسالة خاصة

محدش مهتم بإنه يحل الاختبار ..............

[عبد الله بولنوار]

يجزيك خير اخي ياسر

 

سهل و بسيط و ممتع

 

فقط لو تشرح لنا بنفس الطريقة

 

جمع الخلايا  a1+b1+c1  في الخلية d1 مع السحب للاسفل

 

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

لكن المشكل في السحب للاسفل

 

يصبح الكود

Sub Test()
  Dim MyRange As Range
  Dim X
  Set MyRange = Sheet1.Range("A1:b1:c1")
  X = Application.WorksheetFunction.Sum(MyRange)
  Range("d1") = X
End Sub

دمت بود

[Yasser Fathi Albanna]

تسلم أخي الغالي يا باشمهندس ياسر

نورت الموضوع بتشريفك للموضوع

أين حل الاختبار ؟؟ أخبرتك أن تضع الكود في رسالة خاصة

محدش مهتم بإنه يحل الاختبار ..............

بعت الحل فى مرفق على ايميلك الخاص

ويا رب يكون صح

[عادل ابوزيد]

الاستاذ الفاضل الكريم ياسر خليل

الكمبيوتر اصبح مزدحم باعمالك باقات اعمال ياسر خليل .. جعلها الله فى ميزان حسناتك ونفعك بها فى الدنيا والاخرة انت والاسرة الكريمه

وشرف لى ان تذكرنى فى مقدمه الاعمال فهذا الشرف تاج على راسى

تقبل منى كل الحب والتقدير ومليون باقة ورد ارسلها اليك

[عبد الله بولنوار]

يجزيك خير اخي ياسر

 

سهل و بسيط و ممتع

 

فقط لو تشرح لنا بنفس الطريقة

 

جمع الخلايا  a1+b1+c1  في الخلية d1 مع السحب للاسفل

 

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

لكن المشكل في السحب للاسفل ( حلقة تكرارية لنفس الجمع)

 

يصبح الكود

Sub Test()
  Dim MyRange As Range
  Dim X
  Set MyRange = Sheet1.Range("A1:b1:c1")
  X = Application.WorksheetFunction.Sum(MyRange)
  Range("d1") = X
End Sub

دمت بود

[ابو جودى]

بعد إذن الاستاذ ياسر خليل

ا/عبد الله بولنوار

رداَ على طلبك

الكود يختلف قليلاً

 

with sheets"sheet1".Range("D1:D1000")

.formula = "=sum(A1,B1,C1)"

.value=.value

end with

 

مع تحياتى

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

الأخ الحبيب عبد الله بولنوار

بارك الله فيك على مرورك بالموضوع ومحاولة التطبيق

تقدم الأخ عمرو طلبة بكود لحل المشكلة .. ولكن يرجى من الأخ الغالي عمرو وضع الاكواد بين أقواس الكود ليظهر الكود بشكل لائق

Sub SumRangeB()
    With Sheets("Sheet1").Range("D1:D" & Cells(Rows.Count, 1).End(xlUp).Row)
        .Formula = "=SUM(A1:C1)"
        .Value = .Value
    End With
End Sub

وهذا كود آخر باستخدام الحلقة التكرارية ليحقق الهدف

Sub SumRangeA()
  Dim MyRange As Range
  Dim X, I
  For I = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    Set MyRange = Sheet1.Range("A" & I & ":C" & I)
    X = Application.WorksheetFunction.Sum(MyRange)
    Range("D" & I) = X
  Next I
End Sub

الأخ الحبيب عادل أبو زيد

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

 

تقبلوا تحياتي

[ابو جودى]

عذراً أخى الحبيب  ياسر خليل

فأنا لا أجيد كتابة الآكواد داخل المحرر الكامل أو المشاركات

[saad abed]

جزاك الله خيرا اخى ياسر

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

نورت الموضوع بمرورك العطر أخي الحبيب سعد

تقبل تحياتي