تحويل معادلة الاحصاء إلى كود

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

هل يمكن أساتذنا الكرام تحويل معادلة الاحصاء الموجودة في الملف المرفق إلى كود VBA ..بارك الله فيكم مسبّقًا

 

الاحصاء.rar

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

الأخ الفاضل عبد العزيز

إليك الملف المرفق

 

وعلى فكرة طلبك يأكد لي إن اللي بعمله ملوش لازمه .راجع الموضوع اللي لسه نازل طازه

http://www.officena.net/ib/index.php?showtopic=60536

عشان تتأكد إني عندي حق ..

 

فين الحكمة اللي بتقول (لا تعطني سمكة ولكن علمني كيف أصطاد) ..

علمناكم الصيد ..بس يبدو إنكم مش هاويين صيد ..

Convert Formula To VBA.rar

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

الأخ الفاضل عبد العزيز

إليك الملف المرفق

 

وعلى فكرة طلبك يأكد لي إن اللي بعمله ملوش لازمه .راجع الموضوع اللي لسه نازل طازه

http://www.officena.net/ib/index.php?showtopic=60536

عشان تتأكد إني عندي حق ..

 

فين الحكمة اللي بتقول (لا تعطني سمكة ولكن علمني كيف أصطاد) ..

علمناكم الصيد ..بس يبدو إنكم مش هاويين صيد ..

بارك الله فيك و جزاك الله خيرًا و زادها بميزان حسناتك يا ياسر يا خليل ياطيب يابن الأصول .. تأكّد أستاذي الغالي أنّي لا أسأل عن شيء حتى أمل و اتعب من البحث .. أو لا أفهم الموضوع من أساسه .. ألف شكر سيّدي الكريم على المجهودات الجبّارة التي تبذلها ..و بإذن الله سنتعلم الصّيد على أيديكم

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

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

هل اطلعت على درس الصيد ؟ أم أنك لم تتطلع عليه ؟

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

تقبل صيدي وصنارتي .. منتظرين السمك على ايديك

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

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

هل اطلعت على درس الصيد ؟ أم أنك لم تتطلع عليه ؟

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

تقبل صيدي وصنارتي .. منتظرين السمك على ايديك

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

Classeur1.rar

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

استخد الكود ببساطة شديدة في الفورم

Private Sub UserForm_Initialize()
    Dim MyRange As Range, X
    Set MyRange = Feuil1.Range("B3:B15" & Cells(Rows.Count, 1).End(xlUp).Row)
    X = Application.WorksheetFunction.CountIf(MyRange, "?*")
    Me.TextBox1.Value = X
End Sub

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

 

استخد الكود ببساطة شديدة في الفورم

Private Sub UserForm_Initialize()
    Dim MyRange As Range, X
    Set MyRange = Feuil1.Range("B3:B15" & Cells(Rows.Count, 1).End(xlUp).Row)
    X = Application.WorksheetFunction.CountIf(MyRange, "?*")
    Me.TextBox1.Value = X
End Sub

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

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

الحمد لله الذي بنعمته تتم الصالحات

متنساش دعواتك للعبد الفقير إلى الله

تقبل تحيات أخوك ياسر ..