logo

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



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




موضوع مغلق


  • تمت الإجابة
27-01-2020 03:38 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 800
الدولة : مصر
الجنس :
تاريخ الميلاد : 13-9-1980
قوة السمعة : 3917
الاعجاب : 18
السلام عليكم ورحمة وبركاته
لو عندى كود واريد اضافته لمجموعه ملفات اكسل

كيف السبيل إلى ذلك اوتوماتيكيا وليس يدوى وليس بطريقة ملف personal كما في موضوع الأستاذ اسلام في الرابط التالى
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

مرفق ملف

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




look/images/icons/i1.gif اضافه كود في حدث الشيت
  25-08-2019 10:53 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10492
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36539
الاعجاب : 120
وعليكم السلام
هل تقصد نسخ كود محدد إلى جميع الملفات في مجلد العملاء؟

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




look/images/icons/i1.gif اضافه كود في حدث الشيت
  25-08-2019 10:56 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 800
الدولة : مصر
الجنس :
تاريخ الميلاد : 13-9-1980
قوة السمعة : 3917
الاعجاب : 18
نعم كود محدد
كود Consolidate_All_Sheets_In_One_Using_Arrays




look/images/icons/i1.gif اضافه كود في حدث الشيت
  25-08-2019 11:00 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10492
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36539
الاعجاب : 120
هل يوجد أكواد أخرى في الموديول تريد نسخها ...؟
يفضل أن يكون الكود الذي تريد نسخه لملفات العملاء في موديول مستقل ليسهل محاولة إيجاد حل ..... ما رأيك بتلك النقطة؟
نقطة أخرى .. هل الكود سيكون موجود في الملف الرئيسي المسمى "تقرير" ..؟




look/images/icons/i1.gif اضافه كود في حدث الشيت
  25-08-2019 11:08 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 800
الدولة : مصر
الجنس :
تاريخ الميلاد : 13-9-1980
قوة السمعة : 3917
الاعجاب : 18
كود FunctionsModule يجلب لى البيانات من شيت total من المناديب
كود MacroExamples اضع فيه اسماء الملفات
كود Yasser_Serch للبحث بالتاريخ والبيان

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




look/images/icons/i1.gif اضافه كود في حدث الشيت
  25-08-2019 11:11 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10492
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36539
الاعجاب : 120
هل تقصد أنك تريد نسخ أكثر من موديول وليس موديول واحد فقط .....؟
أعتقد الأمر سيستغرق مني بعض الوقت لكتابة مثل هذا الكود ، وليس لدي الوقت الكافي في الوقت الحالي لفعل هذا ..

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




look/images/icons/i1.gif اضافه كود في حدث الشيت
  25-08-2019 11:14 مساءً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 800
الدولة : مصر
الجنس :
تاريخ الميلاد : 13-9-1980
قوة السمعة : 3917
الاعجاب : 18
هو كود واحد موجود في 4 ملفات مناديب
واحتاج ان اضعه في ملفات اخرى




look/images/icons/i1.gif اضافه كود في حدث الشيت
  25-08-2019 11:35 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10492
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36539
الاعجاب : 120
هناك فرق بين كود وموديول
الموديول بمثابة وعاء يحتوي على كود أو اثنين أو أكثر ...
لذا لابد من ذكر التفاصيل بالمسميات الصحيحة لتتضح الصورة أكثر .. وسؤالي مرة أخرى : هل هناك أكثر من موديول ستقوم بنسخه ..؟؟!! أم أنه موديول واحد فقط المطلوب نسخه لملفات العملاء؟




look/images/icons/i1.gif اضافه كود في حدث الشيت
  25-08-2019 11:40 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 800
الدولة : مصر
الجنس :
تاريخ الميلاد : 13-9-1980
قوة السمعة : 3917
الاعجاب : 18
CODE
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



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




look/images/icons/i1.gif اضافه كود في حدث الشيت
  26-08-2019 12:09 صباحاً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10492
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36539
الاعجاب : 120
بحثت عن الكود المسمى Consolidate_All_Sheets_In_One_Using_Arrays في ملف تقرير ولم أجده
فرضية العمل هو أن يكون الكود المراد نسخه في ملف مستقل أي في ملف بعيد عن ملفات العملاء .. ثم يتم عمل حلقة تكرارية لملفات العملاء ونسخ الموديول المطلوب ( والموجود في ملف تقرير وليس في ملفات العملاء ...)
أرجو أن تكون هذه النقطة واضحة




look/images/icons/i1.gif اضافه كود في حدث الشيت
  26-08-2019 12:23 صباحاً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10492
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36539
الاعجاب : 120
أخي الكريم حسونة
أعرف أن الموضوع قد طال ، وذلك بسبب عدم كفاية التفاصيل منذ البداية ، يبدو لك أنك وضحت وشرحت المطلوب ، ولكن هناك جزئيات كثيرة أثناء كتابة الكود تتطلب المزيد من التفاصيل ..
عموماً إليك حل المشكلة إن شاء الله
في الملف المرفق الذي قمت بإرفاقه في أول مشاركة يوجد مصنف اسمه "تقرير" >> قم بفتح المصنف والدخول على محرر الأكواد ثم أدرج موديول جديد وأعطه الاسم modHassona أو أي اسم ترغبه
ثم ضع الأكواد التي ترغب في نسخها لملفات العملاء في هذا الموديول المسمى modHassona
----------------------------------------------------------------------------------------------------------------------------------
أدرج في المصنف تقرير موديول آخر وأعطه الاسم modYasser على سبيل المثال ، وهذا الموديول سيحتوي على الكود الذي سيقوم بمهمة النسخ لموديول modHassona إلى ملفات العملاء
وضع الكود التالي في موديول modYasser ، وبعدها قم بتنفيذ الكود المسمى
Copy_Module_To_Multiple_Closed_Workbooksلمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كيفية اضافة كود في حدث الشيت فى جميع ملفات الاكسل دفعه واحده hassona229
9 1421 YasserKhalil
تحديد اسم الشيت واسم الملف بدوال جديده مستحدثه - حسام خطاب الصقر
27 5321 محمد وهبه محمد

الكلمات الدلالية
اضافه ،









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

الساعة الآن 08:53 AM