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

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


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


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





كود التحديث التلقائي للارتباطات بالاكسل

ا/ ياسر ابو خليل المحترم جزاكم الله خيرا على ما قدمتموه لنا في تلك الشروحات القيمة ونسأل الله عزوجل أن يجزيكم خير الجزا ..



22-01-2020 04:18 مساء
abozar
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 27-06-2019
رقم العضوية : 13545
المشاركات : 8
الجنس : ذكر
تاريخ الميلاد : 1-1-1983
قوة السمعة : 17
الاعجاب : 0
 offline 
ا/ ياسر ابو خليل المحترم 
جزاكم الله خيرا على ما قدمتموه لنا في تلك الشروحات القيمة
ونسأل الله عزوجل أن يجزيكم خير الجزاء عنا

وجدت لحضرتك كود بخصوص التحديث التلقائي للارتباطات داخل مصنف الاكسل 
ولضعفي في vba نسخت الكود في المطور وللاسف ظهر للي هذا الخطا 
لذا برجاء التوضيح للخطأ والتصحيح له 

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

الكود الموجود السابق الـ انا نسخته هو 
 
Private Sub Workbook_Open()
'UpdateLinks All Links
'---------------------
    Dim MyLink As Variant

    For Each MyLink In ActiveWorkbook.LinkSources(xlExcelLinks)
        ActiveWorkbook.UpdateLink Name:=MyLink, Type:=xlExcelLinks
    Next MyLink
End Sub
82855890_529423437664361_6698068005680578560_n.png?_nc_cat=101&_nc_ohc=3pcoZCcWFJMAX9pUfge&_nc_ht=scontent-hbe1-1
 




22-01-2020 11:04 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8663
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25520
الاعجاب : 192
 offline 
look/images/icons/i1.gif كود التحديث التلقائي للارتباطات بالاكسل
تأكد من وجود ارتباطات خارجية في الملف الذي وضعت فيه الكود أو قم بوضع هذه الجملة في بداية الكود
On Error Resume Next




23-01-2020 07:08 صباحا
مشاهدة مشاركة منفردة [2]
جنان السبيل
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-01-2020
رقم العضوية : 17616
المشاركات : 63
الجنس : ذكر
تاريخ الميلاد : 1-1-1996
قوة السمعة : 137
الاعجاب : 5
 offline 
look/images/icons/i1.gif كود التحديث التلقائي للارتباطات بالاكسل
اخي يجب عليك وضع الكود في ThisWorkbook   وليس في Module  لان الموديل يحتاج الى زر لتفعيله  و الورك بوك لا يحتاج فهو تلقائي
سؤالك هو عندما يفتح الوورك بوك يفعل الكود وليس عندما يفعل زر مرتبط بالموديل
ارجو ان تكون الرؤية وضحة لك بعض الشئ لانني مبتدإ ولست محترف
وهذه بعض الاوامر اضعها في الوورك بوك

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.Caption = "جنان السبيل" 'اسم الذي يظهر عوض مايكروسوفت اكسل في الاعلى
  Application.DisplayFullScreen = True 'اظهار الشيت في وضع فول سكرين لاخفاء قوائم الاكسيل
 Sheets("Feuil1").ScrollArea = "A1:I37" 'تحديد زينج العمل وغلقه
End Sub

 



توقيع :جنان السبيل

يتم اكتساب المعرفة من خلال التجربة ، كل شيء آخر هو مجرد معلومات.
البرت اينشتاين

زكاة العلم نشره


23-01-2020 07:33 صباحا
مشاهدة مشاركة منفردة [3]
جنان السبيل
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-01-2020
رقم العضوية : 17616
المشاركات : 63
الجنس : ذكر
تاريخ الميلاد : 1-1-1996
قوة السمعة : 137
الاعجاب : 5
 offline 
look/images/icons/i1.gif كود التحديث التلقائي للارتباطات بالاكسل
بعد تجربتي للكود واضافة الكود الذي تقدم الاخ ياسر خليل توصلت للكود النهائي
 
Private Sub Workbook_Open()
'UpdateLinks All Links
'---------------------
    Dim MyLink As Variant
On Error Resume Next
    For Each MyLink In ActiveWorkbook.LinkSources(xlExcelLinks)
        ActiveWorkbook.UpdateLink Name:=MyLink, Type:=xlExcelLinks
    Next MyLink
End Sub



توقيع :جنان السبيل

يتم اكتساب المعرفة من خلال التجربة ، كل شيء آخر هو مجرد معلومات.
البرت اينشتاين

زكاة العلم نشره


24-01-2020 10:01 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8663
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25520
الاعجاب : 192
 offline 
look/images/icons/i1.gif كود التحديث التلقائي للارتباطات بالاكسل
بارك الله فيك أخي الكريم والحمد لله أن توصلت للحل والحمد لله الذي بنعمته تتم الصالحات




24-01-2020 11:07 صباحا
مشاهدة مشاركة منفردة [5]
abozar
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 27-06-2019
رقم العضوية : 13545
المشاركات : 8
الجنس : ذكر
تاريخ الميلاد : 1-1-1983
قوة السمعة : 17
الاعجاب : 0
 offline 
look/images/icons/i1.gif كود التحديث التلقائي للارتباطات بالاكسل
معلش استفسار حتى تتضح الرؤية لي
لو ان الملف اللي هيتم وضع الكود في يحتوي على معادلات vlookup وخلايا مرجعية من نفس الملف
هل يستلزم فتح الملف الرئيسي اولا لتحديث الخلايا منه ولا الكود ده كافي لتحديث كافة البيانات لاني لازم افتح الملف الرئيسي علشان الروابط تتحدث
طيب طيب لو كان شرط لازم نفتح الملف الرئيسي علشان يتم تحديث الرابط هل هناك كود لفتح الملف الرئيسي اولا وغلقه مره ثانيه مباشره مع العلم ان الملف الرئيسي في نفس مجلد الملف الذي يحتوي على الكود وايضا كل يوم يتم نسخ المجلد وتسميتها بتاريخ اليوم وتصدير الملف الرئيسي فقط فيه
أرجوا أن يكون الاستفسار واضح
 




24-01-2020 11:11 صباحا
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8663
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25520
الاعجاب : 192
 offline 
look/images/icons/i1.gif كود التحديث التلقائي للارتباطات بالاكسل
لابد من فتح الملف الذي يحتوي على الكود ليتم التحديث للراوبط ..
بالنسبة للفتح نعم يمكن فتح ملف مغلق بالكود أيضاً ليتم التحديث بدون الداعي لفتح الملف بشكل يدوي 




24-01-2020 02:28 مساء
مشاهدة مشاركة منفردة [7]
abozar
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 27-06-2019
رقم العضوية : 13545
المشاركات : 8
الجنس : ذكر
تاريخ الميلاد : 1-1-1983
قوة السمعة : 17
الاعجاب : 0
 offline 
look/images/icons/i1.gif كود التحديث التلقائي للارتباطات بالاكسل
اخي الحبي ياسر
جزاكم الله خيرا على الافادة ونفع الله بكم
اذا اين كود فتح الملف الغلق وغلقه مرة اخرى g
ثانيا ما اعنيه في مسألة فتح الملف المغلق حتىى تتضح الرؤية 
انا البرنامج المحاسبي الـ عندي التقارير الخاصة به شكلها زباله والتقارير المقدمة للادراة لها شكل اخر علشان كده انا بصدر الملفات من البرنامج وبضطر اعمل شيتات اخرى لتقارير وفقا 
لمتطلبات الادارة والشيتات المصدرة من البرنامج باخد منها البيانات فقط عن طريق vlookup او خلايا مرجعية في الشيت الذي سيتم الطباعة منه يعني عندي ملفين 
احدها خارج من البرنامج به جميع البياانات 
والاخر ملف خاص بي بيتم وضع الاكواد فيه لجلب البيانات من الملف السابق
السؤال هنا 
هل يلزمني فتح البرنامج المصدر من البرنامج علشان يتحدث الروابط ولا بمجرد وضع الاكواد في الملف الاخر يسحب البيانات اتوماتيك من الملف المستخرج  من البرنامج
هذا هو سؤالي 
ان كان يلزم فتح الملف المستخرج من البرنامج فاذا يا يريت تضع لنا كود فتح الملف المغلق غلقه مرة اخرى
مع العلم ان الملفين بيكونوا دائما في مجلد واحد ويتم نسخهم في اليوم التالي و التعديل على الملف المتسخرج من البرنامج بالاستبدال 
ارجو من الله ان يكون السؤال واضح

 




25-01-2020 07:36 صباحا
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8663
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25520
الاعجاب : 192
 offline 
look/images/icons/i1.gif كود التحديث التلقائي للارتباطات بالاكسل
أخي الكريم
يفضل أن ترفق ملفات للعمل عليها لتتضح رؤية وصف المشكلة بشكل أفضل للجميع ، فالكلام النظري لن يفيد بشكل كبير .. لذا قم بإرفاق ملفات مبسطة (لا يشترط الملفات الأصلية) وضع شكل النتائج المتوقعة ...







الكلمات الدلالية
محتاج ، التحديث ، التلقائي ، للارتباطات ، بالاكسل ، ياسر ،


 







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

الساعة الآن 06:56 صباحا

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