كل الانشطه

#دورات_ #منتجع_التدريب_الدولى #ITR_Center بسم الله الرحمن الرحيم يتشرف منتجع التدريب الدولي ITR بتقديم دورات فى البنوك والخدمات المالية التى سوف تعقد خلال العام يمكنكم التسجيل او الاستفسارعلى الدورة الان دورة أساسيات التمويل الأخضر والتمويل المستدام يحصل المتدرب على شهادة معتمدة من منتجع التدريب الدولي + شهادة جامعة كامبردج البريطانية للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ نخبـــة : التدريــــب mob & what’s app : 002 01278655999 Email. training@itregy.com Website: www.itregy.com ولكم جزيل الشكر والإحترام أماكن الإنعقاد : القاهرة – دبـــــي – جده – الرياض – شرم الشيخ – اسطنبول – ماليزيا – طوكيو – السعودية – لندن ………………………………… للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ نخبـــة : التدريــــب دورة إدارة الفروع المصرفية دورة الشهادة الدولية في إدارة الثروات والاستثمار ICWIM دورة المقاصة الإلكترونية للشيكات ( شيكـــات المقاصة ) دورة مهنة الأمن السيبراني في قطاع الخدمات المصرفية دورة الإجراءات الإشرافية والرقابية للتعامل مع البنوك الضعيفة / central banks دورة نظم الدفع الإلكترونية والبطاقات الإئتمانية ومهام تطوير الخدمات المصرفية دورة المراجعة والتفتيش فى قطاع المصارف دورة الكشف عن تزوير المستندات وتزييف العملات دورة رقابة البنوك المركزية على المؤسسات المالية والمصارف دورة إدارة مخاطر الإئتمان للمنشآت الصغيرة والمتوسطة القروض الإستهلاكية دورة الخدمات البنكية الإلكترونية الشاملة دورة إدارة ومعالجة الديون المتعثرة دورة أساسيات الإستثمار دورة أساسيات التحليل الإئتماني دورة إدارة الإستثمارات بالمصارف الإسلامية دورة تحليل مخاطر الإئتمان بالتجزئة دورة تنمية مهارات الصرافين Teller دورة مهام موظفي دائرة الخزينة فى البنوك دورة شهادة محلل الائتمان والخدمات المصرفية التجارية (CBCA®) دورة الإعتمادات المستندية وخطابات الضمان المصرفية دورة المفاهيم الحديثة في التجارة الإلكترونية والخدمات المصرفية الإلكترونية دورة المنهج المتكامل في الأرشفة الإلكترونية في البنوك دورة قياس وتقييم جودة الخدمات المصرفية دورة التسويق الرقمي فى البنوك دورة أخصائي مخاطر الائتمان المعتمد CCRP™ دورة مبادىء IFRS وإعداد القوائم المالية فى القطاع المصرفى دورة إدارة التعثر الإئتمانى وحالات نقص السيولة دورة شهادة أمين الصندوق البنكي Teller دورة إدارة وتحصيل القروض المتعثرة للمنشآت الصغيرة والمتوسطة دورة إدارة مخاطر التمويل للمشروعات متناهية الصغر دورة البرنامج المتكامل فى المصارف الاسلامية دورة معايير المحاسبة للمؤسسات المالية الإسلامية دورة المدير المالي المعتمد CFM دورة النقد الأجنبي وأسواق المال والمشتقات المالية دورة أساسيات التمويل الأخضر والتمويل المستدام دورة الرقابة المالية والشرعية في المصارف الإسلامية دورة خبير معتمد في التمويل الإسلامي (CIFE) دورة إدارة المحافظ الاستثمارية دورة إدارة الأصول والخصوم (ALM) دورة الإعتمادات المستندية المستوى المتقدم دورة رسائل السويفت للحوالات المصرفية دورة تحليل وتقييم اداء البنك دورة الرقابة المالية فى القطاع المصرفى دورة إدارة ونمذجة وتقييم مخاطر الائتمان دورة نظام الكويت للمقاصة الإلكترونية للشيكات (KECCS) mob & what’s app : 002 01278655999 Email. training@itregy.com Website: www.itregy.com ولكم جزيل الشكر والإحترام كما يعقد منتجع التدريب الدولي “ITR” دورات فى شتى المجالات ولجميع الجهات والهيئات الحكومية والخاصة حسب ما يناسب طبيعة العمل ( دورات الإدارة والقيادة _ دورات الموارد البشرية _ دورات الجودة و الإنتاج _ دورات المشتريات والمخازن _ دورات إدارة الإمن _ دورات السلامة والصحة والبيئة HSE _ دورات التسويق والمبيعات و خدمة العملاء _ دورات العلاقات العامة والأعلام _ دورات المحاسبة والإدارة المالية _ دورات القانون وإدارة العقو _ دورات البنوك والخدمات المالية_ دورات إدارة المشاريع _ دورات التأمين _ دورات هندسة البترول النفط _ دورات التجارة الخارجية _ دورات هندسة الصيانة والتشغيل _ دورات الهندسة المدنية _ دورات الطاقة الكهربائية _ دورات الجمارك والموانيء _ دورات الخدمات الطبية _ دورات السياحة وإدارة الفنادق _ دورات الذكاء الاصطناعي Ai _دورات المحاسبة و التحليل المالي _ دورات السكرتارية وإدارة المكاتب _ دورات هندسة التعدين والتنقيب ) ………………………………. إسلوب إعداد البرنامج التدريبى : المحاضرات: ينفذ الدورات مجموعة من الخبراء المتخصصون في مجالات التدريب المختلفة المادة العلمية: وهي مكتوبة على شرائح تعليمية باستخدام برنامج Power Point كوسائل مساعدة الحالات والتطبيقات العملية الحوارات والنقاشات الموجهة تمثيل ولعب الادوار ورش العمل ومشاركة المتدربين نموذج استطلاع الراي قاعات التدريب بفنادق 5 نجوم تناول الوجبات الخفيفة والمشروبات اثناء البرنامج ………………………………………… يوفر منتجع التدريب الدولي مزايا كثيرة ضمن برنامج الدورات التدريبية تتضمن : * خصومات خاصة للمجموعات * خصومات خاصة للتسجيل المبكر * الدورات التدريبية تنفذ باللغتين : العربية أو الإنجليزية حسب تفضيلكم * القاعة التدريبية على مستوى فندقي 5 نجوم * خصومات في العديد من الفنادق و تسهيلات في السكن * وغيرها من المزايا ......... * الشهادات : يحصل المتدرب على شهادة معتمده دوليا من منتجع التدريب الدولي وشهادة من جامعة كامبردج البريطانية لمزيد من المعلومات عن الدورات والمحتوى العلمى والتكلفة والمواعيد يرجى التواصل على الارقام الاتية للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ نخبـــة : التدريــــب mob & what’s app : 002 01278655999 Email. training@itregy.com Website: www.itregy.com ولكم جزيل الشكر والإحترام

#دورات_ #منتجع_التدريب_الدولى #ITR_Center بسم الله الرحمن الرحيم يتشرف منتجع التدريب الدولي ITR بتقديم دورات فى البنوك والخدمات المالية التى سوف تعقد خلال العام يمكنكم التسجيل او الاستفسارعلى الدورة الان دورة النقد الأجنبي وأسواق المال والمشتقات المالية يحصل المتدرب على شهادة معتمدة من منتجع التدريب الدولي + شهادة جامعة كامبردج البريطانية للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ نخبـــة : التدريــــب mob & what’s app : 002 01278655999 Email. training@itregy.com Website: www.itregy.com ولكم جزيل الشكر والإحترام أماكن الإنعقاد : القاهرة – دبـــــي – جده – الرياض – شرم الشيخ – اسطنبول – ماليزيا – طوكيو – السعودية – لندن ………………………………… للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ نخبـــة : التدريــــب دورة إدارة الفروع المصرفية دورة الشهادة الدولية في إدارة الثروات والاستثمار ICWIM دورة المقاصة الإلكترونية للشيكات ( شيكـــات المقاصة ) دورة مهنة الأمن السيبراني في قطاع الخدمات المصرفية دورة الإجراءات الإشرافية والرقابية للتعامل مع البنوك الضعيفة / central banks دورة نظم الدفع الإلكترونية والبطاقات الإئتمانية ومهام تطوير الخدمات المصرفية دورة المراجعة والتفتيش فى قطاع المصارف دورة الكشف عن تزوير المستندات وتزييف العملات دورة رقابة البنوك المركزية على المؤسسات المالية والمصارف دورة إدارة مخاطر الإئتمان للمنشآت الصغيرة والمتوسطة القروض الإستهلاكية دورة الخدمات البنكية الإلكترونية الشاملة دورة إدارة ومعالجة الديون المتعثرة دورة أساسيات الإستثمار دورة أساسيات التحليل الإئتماني دورة إدارة الإستثمارات بالمصارف الإسلامية دورة تحليل مخاطر الإئتمان بالتجزئة دورة تنمية مهارات الصرافين Teller دورة مهام موظفي دائرة الخزينة فى البنوك دورة شهادة محلل الائتمان والخدمات المصرفية التجارية (CBCA®) دورة الإعتمادات المستندية وخطابات الضمان المصرفية دورة المفاهيم الحديثة في التجارة الإلكترونية والخدمات المصرفية الإلكترونية دورة المنهج المتكامل في الأرشفة الإلكترونية في البنوك دورة قياس وتقييم جودة الخدمات المصرفية دورة التسويق الرقمي فى البنوك دورة أخصائي مخاطر الائتمان المعتمد CCRP™ دورة مبادىء IFRS وإعداد القوائم المالية فى القطاع المصرفى دورة إدارة التعثر الإئتمانى وحالات نقص السيولة دورة شهادة أمين الصندوق البنكي Teller دورة إدارة وتحصيل القروض المتعثرة للمنشآت الصغيرة والمتوسطة دورة إدارة مخاطر التمويل للمشروعات متناهية الصغر دورة البرنامج المتكامل فى المصارف الاسلامية دورة معايير المحاسبة للمؤسسات المالية الإسلامية دورة المدير المالي المعتمد CFM دورة النقد الأجنبي وأسواق المال والمشتقات المالية دورة أساسيات التمويل الأخضر والتمويل المستدام دورة الرقابة المالية والشرعية في المصارف الإسلامية دورة خبير معتمد في التمويل الإسلامي (CIFE) دورة إدارة المحافظ الاستثمارية دورة إدارة الأصول والخصوم (ALM) دورة الإعتمادات المستندية المستوى المتقدم دورة رسائل السويفت للحوالات المصرفية دورة تحليل وتقييم اداء البنك دورة الرقابة المالية فى القطاع المصرفى دورة إدارة ونمذجة وتقييم مخاطر الائتمان دورة نظام الكويت للمقاصة الإلكترونية للشيكات (KECCS) mob & what’s app : 002 01278655999 Email. training@itregy.com Website: www.itregy.com ولكم جزيل الشكر والإحترام كما يعقد منتجع التدريب الدولي “ITR” دورات فى شتى المجالات ولجميع الجهات والهيئات الحكومية والخاصة حسب ما يناسب طبيعة العمل ( دورات الإدارة والقيادة _ دورات الموارد البشرية _ دورات الجودة و الإنتاج _ دورات المشتريات والمخازن _ دورات إدارة الإمن _ دورات السلامة والصحة والبيئة HSE _ دورات التسويق والمبيعات و خدمة العملاء _ دورات العلاقات العامة والأعلام _ دورات المحاسبة والإدارة المالية _ دورات القانون وإدارة العقو _ دورات البنوك والخدمات المالية_ دورات إدارة المشاريع _ دورات التأمين _ دورات هندسة البترول النفط _ دورات التجارة الخارجية _ دورات هندسة الصيانة والتشغيل _ دورات الهندسة المدنية _ دورات الطاقة الكهربائية _ دورات الجمارك والموانيء _ دورات الخدمات الطبية _ دورات السياحة وإدارة الفنادق _ دورات الذكاء الاصطناعي Ai _دورات المحاسبة و التحليل المالي _ دورات السكرتارية وإدارة المكاتب _ دورات هندسة التعدين والتنقيب ) ………………………………. إسلوب إعداد البرنامج التدريبى : المحاضرات: ينفذ الدورات مجموعة من الخبراء المتخصصون في مجالات التدريب المختلفة المادة العلمية: وهي مكتوبة على شرائح تعليمية باستخدام برنامج Power Point كوسائل مساعدة الحالات والتطبيقات العملية الحوارات والنقاشات الموجهة تمثيل ولعب الادوار ورش العمل ومشاركة المتدربين نموذج استطلاع الراي قاعات التدريب بفنادق 5 نجوم تناول الوجبات الخفيفة والمشروبات اثناء البرنامج ………………………………………… يوفر منتجع التدريب الدولي مزايا كثيرة ضمن برنامج الدورات التدريبية تتضمن : * خصومات خاصة للمجموعات * خصومات خاصة للتسجيل المبكر * الدورات التدريبية تنفذ باللغتين : العربية أو الإنجليزية حسب تفضيلكم * القاعة التدريبية على مستوى فندقي 5 نجوم * خصومات في العديد من الفنادق و تسهيلات في السكن * وغيرها من المزايا ......... * الشهادات : يحصل المتدرب على شهادة معتمده دوليا من منتجع التدريب الدولي وشهادة من جامعة كامبردج البريطانية لمزيد من المعلومات عن الدورات والمحتوى العلمى والتكلفة والمواعيد يرجى التواصل على الارقام الاتية للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ نخبـــة : التدريــــب mob & what’s app : 002 01278655999 Email. training@itregy.com Website: www.itregy.com ولكم جزيل الشكر والإحترام

تظهر لي هذه الرسالة ارجوا حلها

يتشرف #مركز_الرؤية_الاستراتيجية_للتدريب #Strategic_Vision_Training_Center لدعوة سيادتكم للأنضمام الي الدورات التدريبية التالية,,,,, #دورة #الجودة #الشاملة فى #المختبرات ISO 17025 #دورات #الجودة #الانتاج #iso اهداف البرنامج التدريبي ¨ إمداد المتدربين بالمعرفة اللازمة في مجال الأمن والسلامة في المختبرات على سبل التعامل مع الحوادث والأخطار داخل بيئة المختبرات, وكذلك التعرف الى أدارة المختبرات طبقا لنظام المواصفات القياسية ISO 17025. المشاركين · جميع العاملين في مجال الامن و السلامة العامه · جميع العاملين في مجال امن وسلامة المباني و المنشأتوالمختبرات. رجال الامن والسلامه العامه في المؤسسات والمختبرات والشركات الهيئات الحكوميه. #دورات #الجودة #الانتاج #iso EMS / ISO 14001 (IEMA)دورة مدققي رئيسي دورة إدارة الجودة الإستراتيجية دورة الجودة الشاملة فى المختبرات ISO 17025 دورة إدارة الجودة في سلسلة التوريد دورة الأداء المؤسسي وفقاً لمعايير الأوروبي EFQM دورة التصميم من أجل الجودة دورة الممارسات الجيدة في المختبرات (GLP) دورة الجودة والتدقيق الفردي للأجهزة الطبية دورة تأهيل مديري الانتاج في المنشآت الصناعية دورة تدقيقات الجودة والجوائز والتنفيذ دورة تنمية مهارات إعداد خطط وبرامج التحفيز لزيادة الإنتاجية دورة التوعية والتنفيذ EMS / ISO 14001 دورة قيادة إدارة الجودة دورة نظم معلومات مراقبة الجودة والانتاج دورة إدارة الجودة فى سلسلة التوريد كما يتم تنفيذ #الدورات_التدريبية فى #المجالات_التدريبية الاتية : #الدورات الهندسية ) الكهربائية - الميكانيكية والسيارات - الهندسة المدنية والمشاريع والطرق - هندسة المساحة - الصيانة - البترول والجولوجيا( دورات البيئة وصحة وسلامة الغذاء دورات الامن الصناعي والسلامة والصحة المهنية دورات الامن دورات القانون والعقود دورات الجودة والأنتاج دورات القيادة والادارة دورات العلاقات العامة والدولية والاعلام دورات السكرتارية وادارة المكاتب دورات التسويق والمبيعات وخدمة العملاء دورات الموارد البشرية دورات المحاسبة والمالية دورات البنوك والمصارف دورات المشتريات والمخازن دورات النقل و اللوجستيات وادارة سلاسل التوريد أماكن الانعقاد ( #دبي #اسطنبول #كوالالمبور #المغرب #السعودية #شرم_الشيخ #القاهرة #الأسكندرية #لندن # اسبانيا #كندا ) الاعتمادات احصل الان على شهادتك باعتماد cpd الدولى كما يوجد خصم للشركات والهيئات والجهات الحكومية والمجموعات كما يتم تنفيذ أي دوره تدريبيه اخرى تلبي احتياجاتكم التدريبية بالوقت و بالمكان المناسبين لكم على ان يكون عدد المشاركين (2) كحد ادنى قاعات التنفيذ بفنادق 5 نجوم ذات الشهره العالميه مجهزه بالوسائل السمعيه والبصريه للتسجيل او لطلب العرض الفنى والمالى يرجى الاتصال او ارسال بريد الاكترونى Ahmed Mohamed WhatsApp 00201551848384 Training@svtcenter.com Facebook https://www.facebook.com/profile.php?id=100086139318374 Twitter https://twitter.com/StrategicVisio7 Linkedin https://www.linkedin.com/company/strategic-vision-training-center/ Instagram https://www.instagram.com/strategicvisiontrainingcenter WIX https://eslam-training.wixsite.com/training Website https:// svtcenter.com/ar/Home

كل الشكر لكم نرجوا من يساعدني في حل هذا المشكل وكيف يتم حله

هذه تفيد بأن أحد المكتبات ناقصة أو مفقودة أو احد الاكواد يعمل عل 32 بت وانت نقلتها على جهاز يعمل على 64 بت . وللاسف انا كما قلت لك انا حولت الملف فقط والباقي عند الاستاذ @Foksh . هو صاحب الموضوع .................... تحياتي لك .

أحسنت استاذنا الكريم فى الإنتظار . بالنجاح والتوفيق دائما ان شاء الله

بارك الله فيك استاذنا الكريم Moosak وبالتأكيد خطوة ممتازة ستفيد الجميع .. ولكن فى حالة اذا كان نظام التشغيل عندى 64 بت والملف مصمم على 32 بت , أصلا لا يمكننى الملف عند الفتح الوصول الى الأكواد لكى أستفيد بهذه الميزة 1- تحويل الكود إلى صيغة متوافقة مع النواتين 32 و 64 بت فما هو الحل فى هذه الحالة ؟!!!

مشكور آخي لكن عندما نقلت الملف إلى جهاز آخر ظهرت لي رسالة لم افهما

ما شاء الله مبدع كما تعودنا منك

اذا كان متعذر تنزيل الملف من حضراتكم لتعديله فيمكن بعد اذنكم عمل التعديل في كود التصدير الى وورد واعادة رفعه لكي استبدله؟ @محمد هشام. او اي من الخبراء الكبار اخواتي من المنتدى الكود: Public Property Get n() As Worksheet: Set n = Worksheets("WordCopy") End Property Sub Copy_Transfer_WORD() Dim Q As Integer Q = 0 Dim WS As Worksheet Dim Rng As Range, j As Range, Irow As Range Dim x As Long, r As Long, lastRow As Long Dim i As Integer, Ary As Variant Dim Cnt() As String Dim arr() As String Dim tmp As Range Set WS = Sheets("الانشطة") lastRow = WS.Cells(WS.Rows.Count, "A").End(xlUp).Row Application.DisplayAlerts = False Application.ScreenUpdating = False msg = MsgBox("؟" & " " & "Word " & ":" & " تصدير التقرير بصيغة", vbYesNo, WS.Name) If msg <> vbYes Then Exit Sub n.Visible = xlSheetVisible: n.Cells.UnMerge Set tmp = n.Range("A1:l" & n.Rows.Count) Cnt() = Split("A-A,D-C,E-D,F-E,G-F,H-G,I-H,J-I", ","): tmp.Clear For i = 0 To UBound(Cnt) arr = Split(Cnt(i), "-") Set Rng = n.Range(arr(1) & n.Rows.Count).End(xlUp) WS.Range(arr(0) & "5:" & arr(0) & lastRow).Copy Destination:=Rng Next i rngA = Split("C", ","): rngB = Split("B", ",") For i = LBound(rngA) To UBound(rngA) WS.Range(rngA(i) & "5:" & rngA(i) & lastRow).Copy With n.Range(rngB(i) & "1") .PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End With Next i 'n.Columns("A").SpecialCells(xlBlanks).EntireRow.Delete Lr = n.Cells(n.Rows.Count, "A").End(xlUp).Row Set a = n.Rows(1): Set b = n.Rows(2): Set d = n.[A1:I1]: Set E = n.Range("A3:I" & Lr) a.Font.Size = 14: a.RowHeight = 75: a.Font.Bold = True: b.RowHeight = 40: b.Font.Bold = True: b.Font.Size = 12 d.Merge: d.Interior.Color = RGB(192, 192, 192) n.[A2:I2].Interior.Color = RGB(215, 238, 247): n.[H2:I2].Merge E.Interior.ColorIndex = xlNone: E.Font.Name = "AdvertisingBold": E.Font.Size = 13 F = n.Cells(2, n.Columns.Count).End(xlToLeft).Column + 1 n.Range(n.Cells(2, 1), n.Cells(Lr, F)).Borders.Weight = xlThin Ary = Array(5, 15, 38, 38, 38, 15, 15, 15, 15) For x = 0 To UBound(Ary) n.Columns(x + 1).ColumnWidth = Ary(x) Next x Set Irow = n.Range("A3", n.Cells(n.Rows.Count, "A").End(xlUp)) For Each j In Irow.Rows If j.RowHeight < 20 Then: j.RowHeight = 30: Else j.EntireRow.AutoFit Next n.Range("b3:b" & n.Rows.Count).NumberFormat = "yyyy/mm/dd" n.Range("A:I").EntireColumn.HorizontalAlignment = xlCenter n.Range("A:I").EntireColumn.VerticalAlignment = xlCenter With n.Range("A3:A" & n.Cells(Rows.Count, "B").End(xlUp).Row) .Value = Evaluate("ROW(" & .Address & ")-2") End With WS.Activate: ExcelToWordSheet1 n.Visible = xlSheetVeryHidden Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub Sub Copy_Transfer_WORD1() Dim WS As Worksheet Dim Rng As Range, j As Range, Irow As Range Dim x As Long, r As Long, lastRow As Long Dim i As Integer, Ary As Variant Dim Cnt() As String Dim arr() As String Dim tmp As Range Set WS = Sheets("Sheet1") lastRow = WS.Cells(WS.Rows.Count, "A").End(xlUp).Row Application.DisplayAlerts = False Application.ScreenUpdating = False msg = MsgBox("؟" & " " & "Word " & ":" & " تصدير التقرير بصيغة", vbYesNo, WS.Name) If msg <> vbYes Then Exit Sub n.Visible = xlSheetVisible: n.Cells.UnMerge Set tmp = n.Range("A1:l" & n.Rows.Count) Cnt() = Split("A-A,D-C,E-D,F-E,G-F,H-G,I-H,J-I", ","): tmp.Clear For i = 0 To UBound(Cnt) arr = Split(Cnt(i), "-") Set Rng = n.Range(arr(1) & n.Rows.Count).End(xlUp) WS.Range(arr(0) & "7:" & arr(0) & lastRow).Copy Destination:=Rng Next i rngA = Split("C", ","): rngB = Split("B", ",") For i = LBound(rngA) To UBound(rngA) WS.Range(rngA(i) & "7:" & rngA(i) & lastRow).Copy With n.Range(rngB(i) & "1") .PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End With Next i 'n.Columns("A").SpecialCells(xlBlanks).EntireRow.Delete Lr = n.Cells(n.Rows.Count, "A").End(xlUp).Row Set a = n.Rows(1): Set b = n.Rows(2): Set d = n.[A1:I1]: Set E = n.Range("A3:I" & Lr) a.RowHeight = 75: b.RowHeight = 40: b.Font.Bold = True: b.Font.Size = 14 d.Merge: d.Interior.Color = RGB(192, 192, 192) n.[A2:I2].Interior.Color = RGB(215, 238, 247): n.[H2:I2].Merge E.Interior.ColorIndex = xlNone: E.Font.Name = "AdvertisingBold": E.Font.Size = 13 F = n.Cells(2, n.Columns.Count).End(xlToLeft).Column + 1 n.Range(n.Cells(2, 1), n.Cells(Lr, F)).Borders.Weight = xlThin Ary = Array(5, 15, 38, 38, 38, 15, 15, 15, 15) For x = 0 To UBound(Ary) n.Columns(x + 1).ColumnWidth = Ary(x) Next x Set Irow = n.Range("A3", n.Cells(n.Rows.Count, "A").End(xlUp)) For Each j In Irow.Rows If j.RowHeight < 20 Then: j.RowHeight = 30: Else j.EntireRow.AutoFit Next '------------------- n.Range("b3:b" & n.Rows.Count).NumberFormat = "yyyy/mm/dd" n.Range("A:I").EntireColumn.HorizontalAlignment = xlCenter n.Range("A:I").EntireColumn.VerticalAlignment = xlCenter With n.Range("A3:A" & n.Cells(Rows.Count, "B").End(xlUp).Row) .Value = Evaluate("ROW(" & .Address & ")-2") End With WS.Activate: ExcelToWordSheet1 n.Visible = xlSheetVeryHidden Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub Sub ExcelToWordSheet1() Dim timeV As String Dim Lr As Long Dim WS As Worksheet: Set WS = Sheets("WordCopy") Set v = ActiveSheet On Error Resume Next Dim docDest As Word.Document Dim src As Word.Application Set src = CreateObject("word.application") src.Visible = True xname = "Word ملفات" XPath = ThisWorkbook.path & "\" & xname ' Application.ScreenUpdating = False Lr = WS.Cells(WS.Rows.Count, "A").End(xlUp).Row WS.Range("A1: i" & Lr).Copy Set docDest = src.Documents.Add src.Selection.PasteExcelTable _ LinkedToExcel:=False, WordFormatting:=False, RTF:=False Application.CutCopyMode = False src.ActiveDocument. _ PageSetup.Orientation = wdOrientLandscape src.ActiveDocument. _ PageSetup.PaperSize = WdPaperSize.wdPaperA3 If Dir(XPath, vbDirectory) = "" Then MkDir XPath timeV = "(" & Format(Day(Date), "00") & "_" & Format(Month(Date), "00") & "_" & Year(Date) & " " & Format(Hour(Time()), "00") & Format(Minute(Time()), "00") & ")" docDest.SaveAs XPath & "\" & timeV & v.Name & ".docx" docDest.Close Set docDest = Nothing src.Quit Set src = Nothing ' Application.ScreenUpdating = True MsgBox "Done", vbInformation Set WordApp = CreateObject("Word.Application") WordApp.Documents.Open (XPath & "\" & timeV & v.Name & ".docx") WordApp.Visible = True WordApp.Activate End Sub Sub ExcelToWordSheet2() Dim Lr As Long Dim WS As Worksheet: Set WS = Sheets("WordCopy") Set v = ActiveSheet On Error Resume Next Dim docDest As Word.Document Dim src As Word.Application Set src = CreateObject("word.application") src.Visible = True xname = "Word ملفات" XPath = ThisWorkbook.path & "\" & xname ' Application.ScreenUpdating = False Lr = WS.Cells(WS.Rows.Count, "A").End(xlUp).Row WS.Range("A1: H" & Lr).Copy Set docDest = src.Documents.Add src.Selection.PasteExcelTable _ LinkedToExcel:=False, WordFormatting:=False, RTF:=False Application.CutCopyMode = False src.ActiveDocument. _ PageSetup.Orientation = wdOrientLandscape src.ActiveDocument. _ PageSetup.PaperSize = WdPaperSize.wdPaperA3 If Dir(XPath, vbDirectory) = "" Then MkDir XPath docDest.SaveAs XPath & "\" & v.Name & ".docx" docDest.Close Set docDest = Nothing src.Quit Set src = Nothing ' Application.ScreenUpdating = True MsgBox "Done", vbInformation End Sub

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

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

بل اعجبني المشهد .. سلمت اناملك يا سلام .. زاد حماسي .. احب المفاجآت في مثل هذه المواضيع

وسعة المرفق تصحيح بسيط في تكبير حجم نموذج واضافة 3 انماط تفاعلية في الامكان التوسع التفريع بنفس المرفق انسخ النموذج لاي نمط تحت الزر مع تعريف الحجم اعلى النموذج السابق للتوسيع النموذج سيضم تفريع 3 و4 وتكرار لتشعب التفريعات في الزر مثال الى 9 و10 في زر واحد من قائمة الجانبية فكرة بسيطة واذا حاب نغير وتحدد الالوان مع تنزيل ايكون في خلفية الزر بدل من حفظ الصور في الجدول واستعمال الصور من ملفات خارجية ومن غير تحديث استعلام ولا وميض ولا ترميش 😇 اشرايك استاذ @Foksh عندك كود لتبسيط التفريعات في الزر مرفق اسفل الفيديو تحميل المرفق https://www.mediafire.com/file/jrahtllbz0xmgdj/Menu+Navigations_V1.rar/file

طيب سوف تكون مشاركتى بعدك مباشرة سوف تكون مشاركتى مفاجأه إستعد

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

أولا انت لم تعطيني الملف الذي تعمل عليه . ثانيا انا اعطيتك الطريقة التي تتعامل بها ... انشاء جدول وهمي تتم عليه الضرائب وعند الانتهاء ينقلهم للجدول الاساسي ويمسح محتويات الجدول الوهمي لعملية جديدة. ثالثا انا لم اتدخل بأي شئ بمرمجتك للامور كلها . لأنك ادرى بكل خطواتها . رابعا أما اذا تريد اعادة المشروع كله بطريقني هذا شئ أخر . خامساً اليك أخر تعديل ... وخبرني بما تريد . MohamedShemi.accdb

بقى مشكل واحد هو اريد نوع الحقل EmpID ان يكون نص UnMatched.mdb

كل الشكر من ساعدني ربي يحفظكم

السلام عليكم في المرفق شهادة شكر .. تظهر عندي في برنامجي الاساسي بشكل رائع مع البيانات اللازمة هذه الشهادة هي عبارة عن صورة مكتوب عليها عبارة الشكر المعتادة .. ويتخللها حقول مصدرها الجدول مثل اسم الطالب والسنة والفصل الدراسي واسم المعلمة والمديرة وايضا صور لشعارات خاصة . الى هنا وكل شيء تمام 100% افكر فيما لو تم نشر البرنامج .. فالناس مختلفون في الذوق ووجهات النظر .. فيمكن بعضهم يريد تغيير الخلفية والآخر يريد تغيير النص الثابت في الصورة . لذا طرحت موضوعي هذا اريد ان اجعل الشهادة مرنة .. امكن المستخدم من تغيير عبارة الشكر .. وتغيير الخلفية الخلفية مقدور عليها فقد وضعت بجانب قاعدة البيانات الصورة نفسها مفرغة . ويمكنه تغييرها بما يشاء عنوان الشهادة .. والعبارات اللاحقة : اريد المستخدم ان يكتبها من خلال فورم خاص بشرط امكانية التحكم بنوع الخط ومقاسه ولونه . هل يمكن ذلك على فرضية تحويل الملف الى accde dbs1.rar

أعتقد أن هذه هى الطريقة الأفضل

قبل الشروع في العمل يجب ان نتفق على طريقة ونظام احتساب ساعات العمل : اولا : الطريقة التقليدية : يتم احتساب الوقت من : توقيت الحضور الرسمي وحتى توقيت الخروج الرسمي بمعنى اذا ساعات العمل المعتبرة 8 ساعات وجاء متأخرا عن توقيت الحضور بــ 20 دقيقة وخرج بتوقيت الخروج تماما او بعد التوقيت بــ 20 او 30 دقيقة فلن تنفعه هذه الزيادة بتعويض التأخر في الحضور .. وسيحسب البرنامج له حضور اليوم = 7:40 اي بنقص 20 دقيقة علما انه يوجد مرونة في تأخر الحضور أو الخروج قبل الوقت النظامي في معظم الانظمة .. بحيث يتم التجاوز عن دقائق يحددها المستخدم للبرنامج ثانيا : الطريقة المرنة الحديثة المفتوحة : وهي مطالبة العامل او الموظف بساعات معلومة ومحددة يكون متواجدا فيها في مكان العمل .. وهي ليست مفتوحة تماما كما يتصور .. ولكن المرونة في وقت الدخول ووقت الخروج فالمرونة في اتساع وقت التواجد من 8 ساعات الى 9 او 10 ساعات مثلا ( التحديد برمجي يتحكم فيه المستخدم ) فيمكنه الحضور بعد الموعد بربع ساعة ويعوضها في الخروج بأن يبقى ربع ساعة ، وما زاد يمكن اعتباره وقتا اضافيا

فضلت ابحث فى المنتدى عن موضوع صفحة رئيسية لاستاذ ابو جودي الى ان وجدت الموضوع طيب المرفق الاول على طريقة ابو جودي والمرفق الثانى من هذا الموضوع والذى يخص الاستاذ Foksh قمت بتعديل بسيط واضافة بسيطة جدا قائمة جانبية على طريقة ابو جودى.zip قائمة جانبية على طريقة الاستاذ Foksh.zip