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

وعليكم السلام-تفضل لك ما طلبت مواقيت 2الصلاة.xlsm

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اخوتي / اخواتي لي الشرف ان انظم الى هذا الصرح العلمي ، سائلاً المولى جل وعلا ان يوفقني لما فيه الخير للجميع 🙂 في اول مشاركة لي ، اضع بين يديكم برنامج مسقط التقارير (مسمى صانع التقارير متداول كثيرا ، لذا احببت ان اسمي برنامجي بإسم مميز ، إسم مسقطنا الحبيبة 🙂 ). البرنامج في نسخته الاولى ، لذا ، فلا تتوقعوا الكثير منه 🙂 في احد المشاريع التي عملت عليها قريبا ، كان العمل لسجلات شؤون الموظفين ، ولم يكن بالامكان عمل تقرير محدد ، حيث كانت التقارير المطلوبة من الادارة بشتى انواع البيانات ، طولا وعرضا. لذا اضطررت العمل على صانع للتقارير (في الواقع مسقط التقارير يعتبر برنامجا بحد ذاته ، فالعمل كان ، برنامج في برنامج 🙂 ). مع ان البرنامج بسيط في طريقة عمله (وطبعا عندي الكثير من الاشياء الاخرى التي اود ان اضيفها ، لكن في وقتها ان شاء الله ، وبما ان البرنامج مفتوح المصدر ، فانا ارحب بمن يضيف عليه خصائص جديدة 🙂 ) ، فمع بساطة البرنامج ، إلا ان نتائجه مرضية 🙂 العمل على البرنامج ابسط بكثير من شرحه 🙂 يمكنك نقل هذه الكائنات السته الى برنامجك الخاص ، ومسقط التقارير سيعمل بدون الحاجة الى اي تغيير او كود: مسقط التقارير يعمل على الجداول والاستعلامات فقط ، واليكم طريقة العمل: جدول او استعلام: اختر من ايهم تريد ان تعمل تقريرك ، جدول او استعلام ، الاسم: على اساس الاختيار السابق ، ستظهر لك قائمة بجداولك او استعلاماتك ، وعندما تختار اسم جدول او استعلام ، فان النموذج الفرعي الذي اسفل الاسم سوف يمتلئ باسماء الحقول من الجدول او الاستعلام ، وكلها عليها اشارة اخفي (اي كلها ستكون مخفية من الظهور في النموذج الفرعي الذي بالاسفل) ، احذف اشارة الاخفاء عن الحقول/الخانات التي تريدها ، وستظهر لك في النموذج الفرعي الذي في اسفل النموذج. هذا النموذج هو شكل مبسط من التقرير ، فكما ترى الحقول وعرضها ، وعدد السجلات ، ستراها في التقرير. هناك خطان فوق النموذج الفرعي ، باللون الاصفر والاخضر ، اذا كانت بياناتك اقل من الخط الاصفر ، سيكون التقرير بالطول ، وإلا فانه سيكون بالعرض ، وهناك خطان صفر ، فالمسافة بينهم ستكون للترقيم التلقائي للتقرير (لاحظ ان التقرير لبيانات النموذج ادناه سيكون بالعرض ، لأننا تخطينا الخط الاصفر 🙂 يمكننا ان نمسك الحقول/الخانات بالزر الايسر من الفأرة ونغير ترتيبها يمينا ويسارا ، كما ان البرنامج يحترم عرض الحقل الذي تقوم بتعديله ، (لاحظ ان التقرير لبيانات النموذج سيكون بالطول ، لأننا في حدود الخط الاصفر 🙂 وهذا هو التقرير لبيانات النموذج السابق ، ولاحظ ان البرنامج يقوم بتغيير ارتفاع الصف تلقائيا ، حتى يمكن مشاهدة جميع بيانات الحقل. اذا قررت ان تتعدى الخط الاصفر ، فنفس شروط الخط الاصفر تنطبق على الخط الاخضر ، وهنا نرى باننا اضفنا عنوان لراس صفحة التقرير ، واضفنا معلومات عن موضوع التقرير ، بالاضافة الى معلومات في ذيل التقرير: وهذا هو تقرير لبيانات النموذج السابق ، ولاحظ ان البرنامج يوسع عمود الترقيم التلقائي ليسد المسافة: بعد اختيار الحقول التي نريدها في التقرير ، نستطيع ان نفرز الحقول بالطريقة التي نريد: وكذلك تصفية البيانات حسب الحاجة: وهذا هو تقرير لبيانات النموذج السابق ، لاحظ عدد السجلات قد تغير ، لأني طلبت ان ارى السجلات التي مبالغها اكبر من 500: البرنامج لا يحفظ التقارير (نعم ، عمل طريقة لحفظ اسم لكل تقرير ، على قمة قائمة التحديثات ان شاء الله 🙂 ) ارجوا ان تتقبلوا مني هذا العمل المتواضع 🙂 اسئلة/اقتراحات ، سأحاول الرد على قدر استطاعتي ان شاء الله 🙂 جعفر ملاحظة1: عمود المجموع لا يعمل ، وكان يجب ان اخفيه 😞 ملاحظة2: في الاساس كان عندي كمية كبيرة من صور الشرح ، إلا ان المنتدى لا يسمح بأكثر من 10 مرفقات ، فاختزلت الموضوع 🙂 ملاحظة3: ادراج فيديو لطريقة عمل التقرير: Muscat_Reports.zip

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

أستخدم الكود دا فى حدث الورقة الرئيسية Private Sub Workbook_Open() Call MM End Sub 2.xlsm

السلام عليكم ارجو ان يساعدك هذا المرفق على العموم كود حفظ مسار الصورة Me.Image10.Picture = Trim(.selecteditems(1)) Me.PicFile = Trim(.selecteditems(1)) صوره.accdb

اداة تفعيل الماكرو لاكسيل 2003 2007 2010 2013 بضغطة واحدة علي هذه الاداة تفعل الماكرو لاكسيل لكل الاصدارات مع تحياتي ان اعجبتك الاداه لا تبخل علي بالرد khalednr.rar

بعد اذن اخي الوزير If Me.جدول2.Form.ActiveControl.Name = "دائن" Or Me.جدول2.Form.ActiveControl.Name = "مدين" Then MsgBox ("يجب عليك الخروج من حقل المدين او الدائن اولاً") مع التنبيه انك بالضغط هلى الزر قد خرجت في الاصل من العنصر تحياتي

معظم هذه الأدوات تكون فى اغلب الأحيان بمقابل

الف شكر لحضرتك اتعملت معايا

اتبع الخطوات دى مش المعادلة لو عاوز تبدأ باليوم الأول ليكون بالشكل التالى 29/11/2018 هتروح ل control Panel وتختار Region أو Region and language على حسب نسخة الويندوز الخاصة بيك ومن format أختار (English (United kingdom بدلا من united states ودوس أوك أو تسيب اللى فوق زى ما هى وتروح ل additional settings هتظهرلك قائمة تروح ل date وعند short time غيره إلى الشكل التالى غير الشكل M/d/yyyy إلى d/M/yyyy

السلام عليكم اخواني مشرقي المنتدى والاعضاء الكرام لدي استفسار كيف اكبر الخط في النموذج مثال كيف اتحكم بالخط عبر الكود Me.Caption = "ابو ياسين"

رسالة تنبيه عند تغير الوقت.xlsm

تفضل تم الحل بمعادلات المصفوفة استعلام.xlsm

حياك الله بالترتيب خيارات اكسس ... قاعدة البيانات الحالية ... رمز التطبيق ... تختار صورة تكون بإمتداد .ico وهنا رابط لأحد مواقع الأيقونات . http://www.iconarchive.com/ وهنا التعديل عن طريق الكود Dim db As Database Set db = CurrentDb ' هنا الأيقونة موجودة في مسار قاعدة البيانات ' ssab هو اسم الأيقونة db.Properties("AppIcon").Value = CurrentProject.Path & "\ssab.ico" ' هنا في حال رغبت في استخدام الايقونة للتقارير والنماذج تصبح القيمة true والعكس db.Properties("UseAppIconForFrmRpt").Value = True Application.RefreshTitleBar بعد ان يتضح المطلوب امسح الشرح . بالتوفيق

حيا الله أخي مراد 1. ان شاء الله ، 2. انت تستطيع اختيار/اخفاء اي حقل ، من النموذج ، اضغط على مربع "اخفي" على يسار اسم الحقل ، 3. ايش رايك في هذه الطريقة لكل الحقول ، مع رأس وتذييل التقرير ، لون وحجم ونوع الخط ، وتنسيق يمين/يسار/وسط: http://www.officena.net/ib/topic/59818-اعمل-برنامجك-بعدة-لغات-وببساطة/?do=findComment&comment=383548 جعفر

السلام عليكم ورحمة الله أخي الكريم، بالنسبة للسؤال الأول (تعيين القيمة الأكثر تكرارا) يمكنك استعمال دالة الصفيف التالية: =INDEX(C3:N3,MATCH(MAX(COUNTIF(C3:N3,C3:N3)),COUNTIF(C3:N3,C3:N3),0)) في الخلية O3 وتاكيدها(CTRL+SHIFT+ENTER) ثم سحبها إلى الأسفل... وقد وضعتها في الملف المرفق... أخوك بن علية اكبر قيمة مكررة1.rar

السلام عليكم أخي جبريل مرفق حل سريع يوجد دالة من دوال الإكسل مخصصة لهذا الغرض ولكنها تتعامل مع الأرقام وليس مع الحروف هي دالة MODE لذلك يمكنك التحايل علي ذلك كالتالي تستبدل كل حرف من حروف الإتجاه برقم مثلا 1 = E 2 = W 3 = N 4 = S عن طريق Ctrl-h كما فعلت أنا في المثال المرفق في الورقة الثانية ثم تستخدم الدالة MODE ومن الممكن أن تستبدل مرة أخري كل رقم بحرف من حروف الإتجاه تفضل المرفق الجزء الثاني من السؤال غير واضح اكبر قيمة مكررة.rar