أكاديمية الصقر للتدريب
FBConnect

اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا




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

Preview

الرئيسية
نتائج البحث


نتائج البحث عن ردود العضو :ابوحنين
عدد النتائج (40) نتيجة
26-10-2019 11:22 صباحا
icon برنامج كنوز ـ للكنترول المدرسى وشئون الطلبة ـ الاصدار الخامس 2020 | الكاتب :ابوحنين |المنتدى: اكسيل مشاريع جاهزه
 
كل الشكر والتقدير لك 
استاذنا ومعلمنا
الاستاذ / محمد الدسوقى
14-03-2019 02:17 مساء
icon ارجوا تعديل هذا الكود | الكاتب :ابوحنين |المنتدى: اكسيل اسئله واجابات
 
المشاركة الأصلية كتبت بواسطة: YasserKhalil
مشكور أخي مهند
ويرجى من صاحب الموضوع الانتباه لذلك حين طرح الموضوع في أكثر من موضع .. بوضع الروابط الأخرى توفيراً لوقت وجهد الأعضاء


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

الف شكر لك اخى الكريم 

ولكن هذه ( Application.Sum ) هى المطلوبه

وليس ( Formula = "=sum )

فهل هذا ممكن

13-03-2019 09:41 مساء
icon ارجوا تعديل هذا الكود | الكاتب :ابوحنين |المنتدى: اكسيل اسئله واجابات
 
استاذ محمد يسعدنى مرور حضرتك
الامر ببساطه واحدة واحدة
هذا الكود يعمل تمام 100 %
 Sub كود1()
[j7].Formula = "=Sum(b4:c4)"
Range("j7:j20""look/images/smiles/wink_3.gif" border="0" alt=";)">.FillDown
End Sub
 وهذا الكود يؤدى نفس الغرض
Sub كود2()
[g7] = Application.Sum([b4:c4])
End Sub
المشكله ببساطه هى
الكود الاول  يعم على جمع الخليتين ويكمل كلما وجدت خلايا اخرى
الكود الثانى يعمل على جمع خليتين فقط ولايكمل جمع باقى الخلايا
المطلوب ان 
اضافه سطر للكود الثانى ليقوم بجمع بقى الخلايا 
اريد حذف كود1 والعمل بكود2
اتمنى تتضح وجهه نظرى
13-03-2019 07:55 مساء
icon مائة كود VBA جاهز بشكل احترافي | الكاتب :ابوحنين |المنتدى: اكسيل شروحات ودروس
 جزاك الله كل خير
13-03-2019 07:32 مساء
icon ارجوا تعديل هذا الكود | الكاتب :ابوحنين |المنتدى: اكسيل اسئله واجابات
 
Sub كود2()
[g7] = Application.Sum([b4:c4])
اكمل الجمع لباقى العمود
End Sub

هذا الكود لا غيرة يعمل على خليه g7 فقط اريد ان يكمل باقى الخلايا فى العمود g8 g9 g10 وهكذا
13-03-2019 06:23 مساء
icon داله تفقيط تشمل ثلاث ارقام عشريه | الكاتب :ابوحنين |المنتدى: اكسيل شروحات ودروس
 بارك الله فيك أخي الغالي
13-03-2019 05:56 مساء
icon ارجوا تعديل هذا الكود | الكاتب :ابوحنين |المنتدى: اكسيل اسئله واجابات
 فى النتظار رد احد الاخوان
13-03-2019 02:46 مساء
icon ارجوا تعديل هذا الكود | الكاتب :ابوحنين |المنتدى: اكسيل اسئله واجابات
 
المشاركة الأصلية كتبت بواسطة: salim
اختصر الكود الى سطر واحد

Sub cod2()
[g7].Resize([c4:c16].Rows.Count, 1).Formula = "=Sum(b4:c4)"
End Sub

اولا الف شكر لك اخى الكريم
المشكله مش فى هذا الكود او اختصاره 
هذا الكود يعمل لنهايه العمود 
Sub كود1()
[j7].Formula = "=Sum(b4:c4)"
Range("j7:j20").FillDown
End Sub

وهذا الكود يعمل لخليه واحده 
المطلوب تعديل نفس الكود ليعمل على عمود
Sub كود2()
[g7] = Application.Sum([b4:c4])
End Sub

تقيل تحياتى اخى الكريم وشكرا جزيلا لحضرتك
12-03-2019 11:09 مساء
icon تموذج ترحيل وبحث وتعديل على البيانات | الكاتب :ابوحنين |المنتدى: اكسيل مشاريع جاهزه
 
جزاكم الله خيرا أخى الكريم

05-03-2019 09:28 مساء
icon تجميعة أكواد VBA بشكل حصري ومجاناً لمنتدى أكاديمية الصقر | الكاتب :ابوحنين |المنتدى: موضوعات ياسر خليل أبو البراء
 
بارك الله فيكم يا أستاذنا
أثابكم الله ثواب المحسنين
13-02-2019 01:16 مساء
icon مكتبة اكواد ودوال الأكسس | الكاتب :ابوحنين |المنتدى: اكسيس شروحات ودروس
 جزاك الله خيراً
13-02-2019 01:02 مساء
icon دوره متكامله في الأكسس من خلال مشروع عملي شرح و تحليل قاعدة البيانات | الكاتب :ابوحنين |المنتدى: اكسيس شروحات ودروس
 جزاك الله كل خير

الصفحة 1 من 4 < 1 2 3 4 > الأخيرة »





الساعة الآن 06:46 مساء

أعلن هنا
أعلن هنا
أعلن هنا