نجوم المشاركات

بسم الله الرحمان الرحيم اقدم لكم اليوم طريقة تحويل تحويل ملف الاكسل الى exe ثم تغيير الايقونة ثم Setup نبدأ بالتحويل الى ملف تنفيذي تساعد هته العملية في حماية تشفيير الملف ويسعب بعدها اختراقه والعبث فيه لنقوم بهته العملية نحتاج الى برنامج يدعى XLtoEXE وهذا رابط تحميلة http://cpap.com.br/orlando/download2/XLtoEXE.zip البرنامج لا يحتاج لى تثبيت نقوم مباشرتا بفك الضغط عن الملف وفتح البرنامج اولا نختار الملف المراد تحويله كما في الصورة ثانيا الاعدادات الازمة في البرنامج ثم بعدها سيطلب منك مكان الحفظ اختر المكان ثم موافق ستلاحظ ان الملف حول الى ملف تنفيذي ولتتأكد من ذالك اعمل كليك يمين ثم خصائص وشاهد نوع الملف بعد فتحكم للملف اجري اي تغيرات و وافق على الحفط عند الخروج ستلاحظ ان الملف قد انشأ Backup اي انه صنع نسخة احتاطية لنفسه لاتقم بحذفها ملاحظة : يجب ان تكون تسمية الملف بالانجليزية لان التحويل لن ينجح اذا كانت بالعربية الأن نأتي الى تغيير ايقونت الملف الذي حولناه للقيام بذلك نحتاج الى برنامج Exe Icon Changer وهذا رابط تحميله http://www.mediafire...con_Changer.rar ملاحظة بخصوص برنامج تغيير الايقونات عليك بالغاء الحماية عند تثبيته بعد التثبيت اذهب الى التسجيل وادخل السريال المرفق مع الملف الذي حملته وهذا فيديو يشرح طريقة استعمال البرنامج http://www.youtube.c...h?v=NtZfTFVmGWc نأتي الى المرحلة الاخيرة وهي تحويل الملف الى برنامج Setup الفائدة من هذا البرنامج هي جمع جميع الاضافات التي تريدها مع الاكسل كالصور مثلا في ملف واحد وكذالك حماية الملف من الحذف حيث انه سيصبح لدينا راكورس للملف وهذا يحدث بعد التثبيت طبعا هذا رابط البرنامج http://www.jrsoftware.org/isdl.php بعد تثبيتك الى البرنامج نأتي الان الى طريقة العمل به وللقيام بذالك تابع الصور بالتوالي بعد الانتهاء ستجد عملك داخل الملف الذي اخترته على شكل Setup كأي برنامج عادي ولتشاهد ملف اجريت عليه كل ماسبق شاهد موضوعي برنامج خاص لاصحاب محلات بيع الموبيلات (شوقي ربيع) أكون الان قد انتهيت من شرحي المتواضع هذا ارجومن الله ان اكون قد وفقت فيه وأن تكون فائدته عامة على الجميع مع تحيات أخوكم شوقي ربيع

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

لا تبحث عن المعادلات بالطربقة التقليدية (~+Ctrl+Shift) بعد الان اكسل يلوّن لك الخلية التي تحتوي على معادلة بمجرد كتابتها والضغط على Enter تلوين المعادلات.rar

السلام عليكم ادلو بدلوي اللي انا عملته في مجموعة من برامجي ، وخصوصا عند حساب الحضور في برنامج البصمة ، ان يكون عندي جدول خاص بالاجازات: حقل واحد للتاريخ (مفهرس) ، وليس حقلين: من تاريخ والى تاريخ ، وانما هو حقل واحد للتاريخ ، حيث في النموذج اجعل البرنامج يعمل سجلات بعدد ايام الاجازة ، حقل نوع الاجازة ، حقل قطع اجازته ، نعم/لا ، الفائدة من جعل حقل واحد للتاريخ ، هو امكانية عمل الامر Between بين تاريخين ، وإلا فنضطر الى عمل كود ليحسب بين التاريخين !! والفرق: عندما نتعامل مع قاعدة بيانات فيها 100 او 1000 سجل ، فما في مشكلة ، جميع الطرق تحقق لك سرعة مقبولة ، ولكن لما تتعامل مع اكثر من 300,000 سجل شهريا ، وعندك اكثر من جدول يجب التعامل معه ، فسترى ان طريقة الحقل الواحد اسرع واريح في العمل طبعا باستخدام الامر Between بين تاريخين جعفر

جرب المرفق التالى abo_abary_تسجيل بيانات15.rar

السلام عليكم لست خبيرا في اكسيل ولكن حصلت من احد مواضيع لاساتدة المدونة على هذا وهو شغال عندي واتمنى ان يفيدك يمكن تعديله حسب رغبتك اضافة صفحة.zip

السلام عليكم استاذ ياسر رايك يهمني thank you for the motivation addnewsheet.rar

حللت أهلا ونزلت سهلا مرحبا بك مرة أخرى أخي العزيز الخطأ يكمن في كود الترحيل كما يأتي : أولا : If Cells(R, 64) = "ناجحة" Then هذا السطر يخبر الكود بأنه إذا كان مكتوب في العمود رقم 64 كلمة ناجحة فقم بترحيلها والخطأ هو أن كلمة ناجحة أو دور ثان موجودة في السطر 62 وليس 64 ثانيا : ElseIf Cells(R, 64) = "دور ثاني" Then في هذا السطر اثنين من الأخطأء 1) الرقم 64 يحول إلى 62 كما تم الشرح أعلاه 2) لا يوجد في برنامجك عبارة "دور ثاني" وإنما يوجد عبارة "دور ثان" لاحظ حرف الياء في آخر العبارة الموجودة في الكود الأكسل حساس جدا تقبل تحياتي

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

بارك الله فيك أخي العزيز محي الدين وجزيت خيراً في السطر التالي Sheets.Add After:=Sheets("sheet3") أي أنك حددت إضافة الورقة الجديدة بعد Sheet3 .. وعادةً ما يستحب إضافة أوراق العمل الجديدة بعد نهاية أوراق العمل .. فيرجى التعامل في السطر بعد علامة يساوي لتتمكن من الإضافة بعد آخر ورقة عمل .. هذه نقطة .. ونقطة أخرى ماذا لو تم إدخال حروف تصل إلى أكثر من 31 حرف .. أو تم إدراج حروف خاصة مثل الباك سلاش \ ... حاول التعديل على الكود ليكون شامل وفقك الله لما يحب ويرضى

الكود مرفق مسبقاً .. بالنسبة للمرفقات الى بالايميل انا بحط بس لينك الملف - Path وهوا بيترفق في الميل - وبياخد وقت على قد مساحة الملف المرفق طبعاً وورسالة تأكيد ارسال الميل بتيجي بعد مايرفع المرفق ويعمل ارسال ... خلال الفترة دة انا عاوز كود يحسب الوقت المتبقي الفعلي ( مثل برامج التحميلات ) ويظهر بار حقيقى يالوقت المتبقي ...!! اختراع يا كوتش :)

السلام عليكم انظر المرفق أرجو أن يكون المطلوب addnewsheet.rar

جرب هذا الكود Sheets_Add.rar

أمين أمين , وأنت كذلك شكرا على كلماتك الرقيقة

أهلا بك في هذا المنتدى التعليمي وأتمنى أن تجد فيه حلولا لكل ما يواجهك من مشاكل في عالم البرمجة تم حل المشكلة تفضل تصميم شيت1.rar

أخي الكريم يوجد طريقة بسيطة وهي 1- حدد السطر الذي تريد أن يبقى ثابتا عند الصعود والهبوط 2- إتجه إلى : Freeze Panes ثم Freeze Top Row والصورة تختص الشرح تحياتي

الأخ الكريم جرب هذا الكود Private Sub Workbook_SheetActivate(ByVal Sh As Object) Range("D2").Select ActiveWindow.FreezePanes = True End Sub قم بتغيير عنوان الخلية التى تريد التجميد من عندها abo_abary_تجميد الأجزاء.rar

اخى الحبيب وائل يونس سلامي شكرا لمرورك العطر وعلى كلماتك الجميلة بارك الله لنا ولكم وجعلكم الله ذخرا لهذا الصرح الشامخ

الأخ الكريم فايز فراج السلام عليكم وعودا حميدا جرب المرفق التالى abo_abary_شيت كنترول الصفين الرابع والخامس الإبتدائي.rar

السلا عليكم الموضوع هذا اصبح له حلّان: حلّي انا بإستخدام الاستعلام الجدولي ولأكثر من مرة ، وحل اخوي رمهان بإستخدام دالة Dcount في التقرير اكثر من مرة (اما موضوع النتائج الغير صحيحة كما اشرت اليها في مشاركتي السابقة ، فهو موضوع سهل حلّه على اخوي رمهان) . السؤال الذي طرأ على بالي هو: اي الطريقتين هي الاسرع (على اساس ان الطريقتين تعطيان النتائج الصحيحة) ، وبذلك نقترح هذه الطريقة على الاخ محمود سعيد في برنامجه لحساب السرعة ، يجب ان تكون الجداول كبيرة ، حتى يكون للمقارنة معنى ، لذلك عملت التالي: 1. عملت الفهرسة للحقول التي تحتاج فهرسة ، 2. جعلت عدد السجلات في الجداول كالتالي: Blagh = 3,845,966 ، المصابين = 1,922,966 ، الوفيات = 1,538,373 3. بحيث اصبح حجم قاعدة البيانات حوالي 328MB الموضوع اخذ مني يوم كامل ، والنتائج: وطريقة احتساب الوقت الذي أخذه كل تقرير على حده هو: t = Timer docmd.openreport .... Time_Took = Timer - t والنتيجة بالثوان: j = جعفر ، R = رمهان 1-7-2016 to 7-7-2016 j = 109.8164 R = 132.0977 1-7-2016 to 15-7-2016 j = 230.1016 R = 187.8359 1-7-2016 to 30-7-2016 j = 335.2969 R = 239.1992 وهذه صور التقرير النهائي: جعفر: . رمهان: لهذا السبب ، فانا اقترح على الاخ محمود سعيد ان يستخدم طريقة الاخ رمهان (طبعا بعد ان يتم تصحيح النتائج بها) ، فهي الاسرع في الاداء جعفر

السلام عليكم نعم ، عندك كود إخفاء الخلفية في نموذج الافتتاح ، فتم توقيفه عن العمل ، هكذا: Private Sub Form_Open(Cancel As Integer) 'fSetAccessWindow (SW_SHOWMINIMIZED) End Sub جعفر 412.برنامج تدريبي.accdb.zip

السلام عليكم ورحمة الله وبركاته هذه دالة معرفه udf لعكس النصوص والسلاسل النصية نص-عربي-معكوس.rar

بعد اذن اخى الحبيب وائل يونس سلامي ائراءا للموضوع هذا حل بالمعادلات abo_abary_المصنف2.rar

وعليكم السلام أخي الكريم نصر جرب الكود التالي Sub SortData() Range("C2:G8").Sort Key1:=Range("D2:D8"), Order1:=xlDescending, Key2:=Range("F2:F8"), Order2:=xlDescending, Header:=xlYes End Sub تقبل تحياتي

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة البحث خلال فترة مع متغير او اكثر تم ارفاق كود الحل من الافاضل/ الحسامي _ رحمه الله _ يحيى حسين _ احمدزمان _ مصطفى كمال _ الخالدي و لا تنسونا من صالح الدعاء تحياتى بحث_فترةومتغيرين-بعد التعديل _الحسامى).rar بحث_فترةومتغيرين-بعد التعديل _يحيى حسين).rar بحث_فترةومتغيرين _الخالدى).rar بحث_فترةومتغيرين2_الخالدى).rar بحث_فترةومتغيرين_7_احمد زمان و ابو تامر).rar بحث_فترةومتغيرين_8_احمد زمان).rar بحث_فترةومتغيرين_مصطفى كمال).rar

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

أخي الكريم قنديل الصياد بارك الله فيك كنت قد جهزت الملف بالأمس ولكن انقطعت الكهرباء فجأة إليكم الملف التالي Sort Data.rar

مما فهمته ان هناك خلية امام كل موظف يدون عليها تلقائيا كم من مرة تم استخراج اسمه وطبعه فمثلا اذا قمت بطباعة شهادة عمل للعامل رقم واحد نجد في العمود × في السطر الموافق له (1) وفي المرة المقبلة نطبع نسختين لنفس الشخص يظهر تصبح (1)+(2) ونجد في × (3) ..وهكذا .... اعتقد انه نفس ما بحثت عنه مرارا لانه فيما بعد سنفكر ونقول اذا طبعنا لفلان شهادة عمل لا يجوز له استخراج أكثرمن شهادتان في مدة تقل عن شهر مثلا....

مجموعة رائعة و مفيدة جدا جزاك الله خيرا أستاذنا / قنديل الصياد

بارك الله فيك كنت أبحث عنه

انظر هذا المثال ففيه مطلوبك db4.rar

الأخ عبدالله غفر الله لك وأجزل لك الأجر والمثوبة محاولة حلوة وجميلة جزيت من الخير أجزله

السلام عليكم هذه محاولة على قد الحال db1 (1).rar