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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


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



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





كيف اضافه كود في جميع ملفات الاكسل دفعه واحده

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



25-08-2019 10:43 مساء
hassona229
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 69
الجنس : ذكر
تاريخ الميلاد : 1-1-1989
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 112
الاعجاب : 45
 offline 

السلام عليكم ورحمة وبركاته 
لو عندى كود واريد اضافته لمجموعه ملفات اكسل 
كيف السبيل إلى ذلك اوتوماتيكيا وليس يدوى وليس بطريقة ملف personal كما في موضوع الأستاذ اسلام في الرابط التالى لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
مرفق ملف
وجزاكم الله خيرا 
 
 
 
  حساب.zip   تحميل zip مرات التحميل :(31)
الحجم :(224.183) KB







25-08-2019 10:53 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20923
الاعجاب : 1485
 offline 
look/images/icons/i1.gif كيف اضافه كود في جميع ملفات الاكسل دفعه واحده
وعليكم السلام
هل تقصد نسخ كود محدد إلى جميع الملفات في مجلد العملاء؟

إذا كانت الإجابة بنعم .. أين هو الكود المطلوب نسخه ؟ 





25-08-2019 10:56 مساء
مشاهدة مشاركة منفردة [2]
hassona229
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 69
الجنس : ذكر
تاريخ الميلاد : 1-1-1989
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 112
الاعجاب : 45
 offline 
look/images/icons/i1.gif كيف اضافه كود في جميع ملفات الاكسل دفعه واحده
نعم كود محدد
كود Consolidate_All_Sheets_In_One_Using_Arrays
 





25-08-2019 11:00 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20923
الاعجاب : 1485
 offline 
look/images/icons/i1.gif كيف اضافه كود في جميع ملفات الاكسل دفعه واحده
هل يوجد أكواد أخرى في الموديول تريد نسخها ...؟

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





25-08-2019 11:02 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20923
الاعجاب : 1485
 offline 
look/images/icons/i1.gif كيف اضافه كود في جميع ملفات الاكسل دفعه واحده
نقطة أخرى .. هل الكود سيكون موجود في الملف الرئيسي المسمى "تقرير" ..؟





25-08-2019 11:08 مساء
مشاهدة مشاركة منفردة [5]
hassona229
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 69
الجنس : ذكر
تاريخ الميلاد : 1-1-1989
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 112
الاعجاب : 45
 offline 
look/images/icons/i1.gif كيف اضافه كود في جميع ملفات الاكسل دفعه واحده
كود FunctionsModule يجلب لى البيانات من شيت total من المناديب
كود MacroExamples  اضع فيه اسماء الملفات
كود   Yasser_Serch    للبحث بالتاريخ والبيان

الكود فى صفحة كل عميل غير موجو د فى الصفحة الرئيسية
ولكن ان كان من الممكن وضعه في الرئيسية وحذفه من الباقى فلا حرج





25-08-2019 11:09 مساء
مشاهدة مشاركة منفردة [6]
hassona229
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 69
الجنس : ذكر
تاريخ الميلاد : 1-1-1989
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 112
الاعجاب : 45
 offline 
look/images/icons/i1.gif كيف اضافه كود في جميع ملفات الاكسل دفعه واحده
المشاركة الأصلية كتبت بواسطة: YasserKhalil
هل يوجد أكواد أخرى في الموديول تريد نسخها ...؟

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


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





25-08-2019 11:11 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20923
الاعجاب : 1485
 offline 
look/images/icons/i1.gif كيف اضافه كود في جميع ملفات الاكسل دفعه واحده
هل تقصد أنك تريد نسخ أكثر من موديول وليس موديول واحد فقط .....؟
أعتقد الأمر سيستغرق مني بعض الوقت لكتابة مثل هذا الكود ، وليس لدي الوقت الكافي في الوقت الحالي لفعل هذا ..

ننتظر مشاركات الأخوة الأعضاء في الموضوع





25-08-2019 11:14 مساء
مشاهدة مشاركة منفردة [8]
hassona229
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 69
الجنس : ذكر
تاريخ الميلاد : 1-1-1989
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 112
الاعجاب : 45
 offline 
look/images/icons/i1.gif كيف اضافه كود في جميع ملفات الاكسل دفعه واحده
المشاركة الأصلية كتبت بواسطة: YasserKhalil
هل تقصد أنك تريد نسخ أكثر من موديول وليس موديول واحد فقط .....؟
أعتقد الأمر سيستغرق مني بعض الوقت لكتابة مثل هذا الكود ، وليس لدي الوقت الكافي في الوقت الحالي لفعل هذا ..

ننتظر مشاركات الأخوة الأعضاء في الموضوع


هو كود واحد موجود في 4 ملفات مناديب
واحتاج ان اضعه في ملفات اخرى





25-08-2019 11:35 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20923
الاعجاب : 1485
 offline 
look/images/icons/i1.gif كيف اضافه كود في جميع ملفات الاكسل دفعه واحده
هناك فرق بين كود وموديول
الموديول بمثابة وعاء يحتوي على كود أو اثنين أو أكثر ...

لذا لابد من ذكر التفاصيل بالمسميات الصحيحة لتتضح الصورة أكثر .. وسؤالي مرة أخرى : هل هناك أكثر من موديول ستقوم بنسخه ..؟؟!! أم أنه موديول واحد فقط المطلوب نسخه لملفات العملاء؟





25-08-2019 11:40 مساء
مشاهدة مشاركة منفردة [10]
hassona229
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 69
الجنس : ذكر
تاريخ الميلاد : 1-1-1989
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 112
الاعجاب : 45
 offline 
look/images/icons/i1.gif كيف اضافه كود في جميع ملفات الاكسل دفعه واحده
Sub Consolidate_All_Sheets_In_One_Using_Arrays()
Dim ws  As Worksheet
Dim temp As Variant
Dim arr As Variant
Dim f   As Boolean
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Total" Then
temp = ws.Range("A4:o" & ws.Cells(Rows.Count, 1).End(xlUp).Row).Value2
If f Then
arr = ArrayJoin(arr, temp)
Else
arr = temp
f = True
End If
End If
Next ws
With Sheets("Total")
.Range("a4:o65536").ClearContents
'.Range("A1").Resize(1, 3).Value = Array("م", "الاسم", "الرقم الوظيفي")
.Range("A4").Resize(UBound(arr, 1), UBound(arr, 2)).Value2 = arr
End With
End Sub
Function ArrayJoin(ByVal a, ByVal b)
Dim i   As Long
Dim ii  As Long
Dim ub  As Long
ub = UBound(a, 1)
a = Application.Transpose(a)
ReDim Preserve a(1 To UBound(a, 1), 1 To ub + UBound(b, 1))
a = Application.Transpose(a)
For i = LBound(b, 1) To UBound(b, 1)
For ii = 1 To UBound(b, 2)
a(ub + i, ii) = b(i, ii)
Next ii
Next i
ArrayJoin = a
End Function



اريد نسخ هذا الكود
الموجود فى موديل واحد





26-08-2019 12:09 صباحا
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20923
الاعجاب : 1485
 offline 
look/images/icons/i1.gif كيف اضافه كود في جميع ملفات الاكسل دفعه واحده
بحثت عن الكود المسمى Consolidate_All_Sheets_In_One_Using_Arrays في ملف تقرير ولم أجده

فرضية العمل هو أن يكون الكود المراد نسخه في ملف مستقل أي في ملف بعيد عن ملفات العملاء .. ثم يتم عمل حلقة تكرارية لملفات العملاء ونسخ الموديول المطلوب ( والموجود في ملف تقرير وليس في ملفات العملاء ...)
أرجو أن تكون هذه النقطة واضحة
 





26-08-2019 12:23 صباحا
مشاهدة مشاركة منفردة [12]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20923
الاعجاب : 1485
 offline 
look/images/icons/i1.gif كيف اضافه كود في جميع ملفات الاكسل دفعه واحده
أخي الكريم حسونة
أعرف أن الموضوع قد طال ، وذلك بسبب عدم كفاية التفاصيل منذ البداية ، يبدو لك أنك وضحت وشرحت المطلوب ، ولكن هناك جزئيات كثيرة أثناء كتابة الكود تتطلب المزيد من التفاصيل ..

عموماً إليك حل المشكلة إن شاء الله

في الملف المرفق الذي قمت بإرفاقه في أول مشاركة يوجد مصنف اسمه "تقرير" >> قم بفتح المصنف والدخول على محرر الأكواد ثم أدرج موديول جديد وأعطه الاسم modHassona أو أي اسم ترغبه
ثم ضع الأكواد التي ترغب في نسخها لملفات العملاء في هذا الموديول المسمى modHassona

----------------------------------------------------------------------------------------------------------------------------------

أدرج في المصنف تقرير موديول آخر وأعطه الاسم modYasser على سبيل المثال ، وهذا الموديول سيحتوي على الكود الذي سيقوم بمهمة النسخ لموديول modHassona إلى ملفات العملاء

وضع الكود التالي في موديول modYasser ، وبعدها قم بتنفيذ الكود المسمى Copy_Module_To_Multiple_Closed_Workbooks
 

أثارت هذه المشاركة إعجاب: محمود ابو الدهب، ali mohamed ali،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
هديتى 2019_برنامج مخزنى و دليل حسابات_ECO2_DuClick_store_ بفورم بحث و اضافه Galal ELGammal
266 5580 Galal ELGammal
كود الاضافه لقاعدة البيانات محمود عوض
0 199 محمود عوض
اخفاء صف عند اضافه او حذف قيمه للخليه Dreamier
5 337 YasserKhalil
مطلوب اضافه لكود ترحيل بالمصفوفات ناصر سعيد1
5 701 YasserKhalil
اضافه جمله لكود بدون خطأ ابوحنين
4 704 karwan

الكلمات الدلالية
واحده ، دفعه ، الاكسل ، ملفات ، جميع ، اضافه ،


 







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



الساعة الآن 09:51 مساء

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