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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
khaled alborene Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil تثبيت الكود علي خليه معينه اكسيل اسئله واجابات


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



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





تجميع القيم من عدة شيتات بكود VBA

السلام عليكم ورحمة الله الاخوة الكرام في المرفق وضعت كود VBA في الز لو ممكن اجراء تعديل عليه , اريد تغيير السطرين في الك ..



18-07-2019 06:46 مساء
حسين مامون
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 57
الجنس : ذكر
تاريخ الميلاد : 1-1-1982
يتابعهم : 5
يتابعونه : 2
قوة السمعة : 79
الاعجاب : 17
 offline 

السلام عليكم ورحمة الله
الاخوة الكرام
في المرفق وضعت كود
VBA
في الز لو ممكن اجراء تعديل عليه ,
اريد تغيير السطرين في الكود الى FORMULA
ws.Range("b" & lr) = Application.WorksheetFunction.Sum(whs.Range("c6:c1000"))
ws.Range("c" & lr) = Application.WorksheetFunction.Sum(whs.Range("d6:d1000"))
 جزاكم الله خيرا
 
 
 
  تجميع القيم.rar   تحميل rar مرات التحميل :(4)
الحجم :(22.332) KB







18-07-2019 10:12 مساء
مشاهدة مشاركة منفردة [1]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 388
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 16
قوة السمعة : 3165
الاعجاب : 187
 offline 
look/images/icons/i1.gif تجميع القيم من عدة شيتات بكود VBA
استبدل الماكرو بهذا

Option Explicit

Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim whs As Worksheet
Dim lr As Long
Dim Actual_Row As Long
Set ws = Sheets("تجميع")
ws.Range("a6:c1000").ClearContents
Application.ScreenUpdating = False
For Each whs In Sheets
    If whs.Name <> "تجميع" Then
        lr = ws.Range("a" & Rows.Count).End(xlUp).Row + 1
        ws.Range("a" & lr).Value = whs.Name
        '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
        Actual_Row = whs.Cells(Rows.Count, 3).End(3).Row
        If Actual_Row < 6 Then Actual_Row = 6
        ws.Range("b" & lr).Resize(, 2).Formula = _
        "=SUM('" & whs.Name & "'!C6:C" & Actual_Row & ")"
        '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    
    End If
Next whs
Application.ScreenUpdating = True
End Sub

الملف مرفق
 
 
  Tajni3.rar   تحميل rar مرات التحميل :(20)
الحجم :(22.197) KB


أثارت هذه المشاركة إعجاب: ali mohamed ali، YasserKhalil، حسين مامون، محمد الدسوقى، hassona229، عبدالله فتحى،




18-07-2019 11:56 مساء
مشاهدة مشاركة منفردة [2]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1103
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 51
قوة السمعة : 4704
الاعجاب : 333
 offline 
look/images/icons/i1.gif تجميع القيم من عدة شيتات بكود VBA
أحسنت استاذ سليم بارك الله فيك ,كود ممتاز



توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


19-07-2019 09:41 صباحا
مشاهدة مشاركة منفردة [3]
حسين مامون
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 57
الجنس : ذكر
تاريخ الميلاد : 1-1-1982
يتابعهم : 5
يتابعونه : 2
قوة السمعة : 79
الاعجاب : 17
 offline 
look/images/icons/i1.gif تجميع القيم من عدة شيتات بكود VBA
اشكرك استاد سليم 
ساجربه على ملف لعمل 
جزاك الله خيرا





19-07-2019 09:43 صباحا
مشاهدة مشاركة منفردة [4]
حسين مامون
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 57
الجنس : ذكر
تاريخ الميلاد : 1-1-1982
يتابعهم : 5
يتابعونه : 2
قوة السمعة : 79
الاعجاب : 17
 offline 
look/images/icons/i1.gif تجميع القيم من عدة شيتات بكود VBA
اشكرك استاد سليم 
ساجربه على ملف لعمل 
جزاك الله خيرا

أثارت هذه المشاركة إعجاب: YasserKhalil،




19-07-2019 01:27 مساء
مشاهدة مشاركة منفردة [5]
حسين مامون
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 57
الجنس : ذكر
تاريخ الميلاد : 1-1-1982
يتابعهم : 5
يتابعونه : 2
قوة السمعة : 79
الاعجاب : 17
 offline 
look/images/icons/i1.gif تجميع القيم من عدة شيتات بكود VBA
استاد سليم 
الماكرو يعمل كما اريد بالظبط 
جعله الله صدقة جارية ينتفع بها 
جزاك الله خيرا                          تحياتي لك ولجميع اساتدة هذا الصرح العظيم
111

أثارت هذه المشاركة إعجاب: YasserKhalil، محمد الدسوقى، salim،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب تعديل في دالة معرفة لفصل القيم النصية hassona229
14 76 محمود ابو الدهب
فصل القيم النصية والرقمية Split Text & Number Yasser Elaraby
7 972 YasserKhalil
كود عرض القيم الملونة لعمود معين في الليست بوكس المبتدأ
14 155 المبتدأ
فورم اظهار القيم الموجودة بالخلايا مجدى يونس
2 115 مجدى يونس
داله معرفه AlsqrRDup لجلب القيم الفريده الغير مكرره - حسام خطاب الصقر
63 4589 حمزة

الكلمات الدلالية
بكود ، شيتات ، القيم ، تجميع ،


 







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



الساعة الآن 02:04 صباحا

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