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

و ما الحاجة الى ملفين لهذه الغاية يكفي في الملف الاساسي وضع صفحة مخصصة للحصول على البيانات مثل هذا (الصفحة Salim) Employ_data.xlsx

ممكن عن طريق تنسيق مربع النص @;"فضلا ادخل جملة البحث"

بسم الله الرحمان الرحيم السلام عليكم اصدقائي قررت في الفترة الاخيرة اعتزال البرمجة بالاكسل و vba ولا اظن اني ساعود له بما اني كنت اعمل على بعض المشاريع بواسطة الاكسل و لاكن للاسف لم اجد الوقت الكافي لانهائها قررت ايضا طرح تلك المشاريع لربما لتستفيدون منها لذاى ساقوم في كل مرة يتاح لي الوقت فيها برفع مشروع او اثنين ان شاء الله كاول مشروع هذا برنامج مبيعات /كودبار/يعتمد ايضا القطعة و العلبة تقريبا انجز 80% منه لم يتبقى له سوى التقارير و بعض الاشياء الاخرى تحياتي للجميع Pr Commercial.rar

تفضل Sub NTAx() Dim lr As Integer lr = ActiveSheet.Cells(Rows.Count, 13).End(xlUp).Row For i = 2 To lr Select Case Cells(i, 13).Value Case Is > 83333.33 Cells(i, 14).Value = 7500 + (Cells(i, 3).Value - 33333.33) * 25 / 100 Case Is > 75000 Cells(i, 14).Value = 3333.33 + 3750 + (Cells(i, 13) - 33333.33) * 25 / 100 Case Is > 75000 Cells(i, 14).Value = 3333.33 + 3750 + (Cells(i, 13) - 33333.33) * 25 / 100 Case Is > 66666.67 Cells(i, 14).Value = 750 + 2333.33 + 3750 + (Cells(i, 13) - 33333.33) * 25 / 100 Case Is > 58333.33 Cells(i, 14).Value = 375 + 187.5 + 2333.33 + 3750 + 7291.67 + (Cells(i, 13) - 33333.33) * 25 / 100 Case Is > 50000 Cells(i, 14).Value = 62.5 + 125 + 187.5 + 2333.33 + 3750 + (Cells(i, 13) - 33333.33) * 25 / 100 Case Is > 41666.67 Cells(i, 14).Value = 31.25 + 125 + 187.5 + 2333.33 + 3750 + (Cells(i, 13) - 33333.33) * 25 / 100 Case Is > 33333.33 Cells(i, 14).Value = 31.25 + 125 + 187.5 + 2333.33 + 3750 + (Cells(i, 13) - 33333.33) * 25 / 100 Case Is > 16666.67 Cells(i, 14).Value = 3750 + 2333.33 + 187.5 + 125 + 31.5 + (Cells(i, 13) - 16666.67) * 25 / 100 Case Is > 5000 Cells(i, 14).Value = 2333.33 + 187.5 + 125 + 31.25 + (Cells(i, 13) - 5000) * 22.5 / 100 Case Is > 3750 Cells(i, 14).Value = 187.5 + 125 + 31.25 + (Cells(i, 13) - 3750) * 20 / 100 Case Is > 2500 Cells(i, 14).Value = 125 + 31.25 + (Cells(i, 13) - 2500) * 15 / 100 Case Is > 1250 Cells(i, 14).Value = 31.25 + (Cells(i, 13) - 1250) * 10 / 100 Case Is < 1250 Cells(i, 14).Value = Cells(i, 13) * 2.5 / 100 End Select Next End Sub معادلة الضرائب الجديده.xlsm

احد الاسباب فقط ، وإلا فالمقام يطول : عدم عمل برنامجك على كمبيوتر العميل ، او لما تنصب نسخة اكسس 2007 فما فوق . . . وقام الكثير بمحاولة التغلب على هذه المشكلة: . . . مع ان المشكلة كانت بسيطة ، وهي نموذج منبثق 🙂 جعفر

وعليكم السلام 🙂 نعم ، لا يوجد طريقة لتدوير الصورة كجزء من الاكسس ، ولكن الاكسس يمكنه الاعتماد على اكواد مثل: https://www.devhut.net/2017/05/14/vba-wia-rotate-an-image/ او الاعتماد على برامج خارجية ، مثل البرنامج المرفق ، بحيث يتم حفظ التدوير خارج الاكسس ، ويتم تحديث الصورة في الاكسس: جعفر يمكن انزال برنامج فك الضغط المجاني من https://www.7-zip.org/ irfanview_Imagining.7z

السلام عليكم ورحمة الله تم عمل المطلوب في الملف المرفق بإضافة بعض المعادلات والصفوف/الأعمدة المساعدة مع كود للطباعة... أرجو أن يفي الغرض المطلوب... 1111111.xlsm

وعليكم السلام ورحمة الله وبركاته برنامج المعتمرين2020.rar

السلام عليكم لدي طريقة عن طريق فتح مستعرض الصور ومن ثم تدوير الصورة وعمل تحديث للنموذج او اغلاقه اتمنى ان يكون المطلوب تحياتي FAILURE.rar

احسن الله اليك .. ❤❤

تفضل -------->>>> account walid.accdb

السلام عليكم اريد تلوين الازرار حسب الشرح الذي في الفيديو في المرفقات وتجدون البرنامج وعند فتح البرنامج تظهر النموذج الذي اريد وضع الماوس يتم تلوين الازرار 88.rar

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

اخي الكريم عدل كود الموجود في Browse ليظهر لك الملف .. لان في عبارة فلتر به ... ضع الكود هنا للتعديل

للمعاينة استخدم الامر التالي DoCmd.OpenReport "الشيك", acViewPreview للطباعة مباشرة بصيغة Pdf استخدم الامر التالي DoCmd.OutputTo acOutputReport, "الشيك", acFormatPDF, "E:\PDF01.pdf", False مع تغيير المسار تحياتي

السلام عليكم ورحمة الله جرب المرفق لعل فيه ما تريد... بن علية حاجي header.xlsm

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

السلام عليكم لقد وجدت هذة النماذج فى احد المواقع الاجنبية فأرت ان اشارك الجميع بيها عل تعم الفايدة للجميع ويستخدمها تحياتى للجميع PasswordLogin_RC4_v5.3(1).rar

واياك يا مستر خالد تحاتى لحضرتك

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

ماعندي اسكنر اجربها جرب وان شاء الله تضبط معك اعمل مجلد بجوار القاعد وسميه data وداخله مجلد سميه StPic New Microsoft Access قاعدة بيانات.rar

جزاك الله خيرا اخى واستاذى @محمد أبوعبدالله 💐 احسنت بالاستغناء عن المكتبه

بالاضافة الى ما تفضل به استاذنا الفاضل @الفلاحجى وله الشكر تفضل اخي الكريم Private Sub Command65_Click() With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Add "Pic Files", "*.jpg ; *.bmp" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then Me.IMG = .SelectedItems(1) End If End With End Sub FAILURE.rar تحياتي

بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم من جديد موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، ألا وهي جميع مفاتيح اختصارات الإكسل 2003 و 2007 و 2010 و 2013 و 2016 excel keyboard shortcuts فتابعونا. جميع مفاتيح اختصارات الإكسل 2003 و 2007 و 2010 و 2013 و 2016 و 2019 و 365 excel keyboard shortcuts الحمد لله الذي وفقنا في جمع وترتيب وتبويب جميع مفاتيح اختصارات الإكسل 2003 و 2007 و 2010 و 2013 و 2016 excel keyboard shortcuts مع توضيح فئة الاختصار ووصف عمله والمفتاح أو المفاتيح التي تقوم بهذا الإجراء ونتعرف أيضا على: أمثلة لكل اختصار وربطه مع باقي مفاتيح الاختصار والآن مع الجدول الذي يضم جميع مفاتيح اختصارات الإكسل 2003 و 2007 و 2010 و 2013 و 2016 excel keyboard shortcuts وهذا ملف Pdf يضم جميع مفاتيح اختصارات الإكسل 2003 و 2007 و 2010 و 2013 و 2016 excel keyboard shortcuts لمن يريد الاحتفاظ به وهذا الفيديو لنفس الغرض يمكن عمل إيقاف مؤقت Pause عند القراءة ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك ولا تنس تقييم المنشور

شرح ع قد حالى قمنا باستدعاء المكتبه كما بالصوره والرقم 16 يتغير على حسب الاوفيس لديك ثم On Error Resume Next Dim f As FileDialog Set f = Application.FileDialog(msoFileDialogFilePicker) f.Show Me.IMG = f.SelectedItems(1) Me.Image64 = Me.IMG قمنا بعمل متغير لفتح مربع الحوار f والذى تم تعريفه بالمكتبه السابقه ثم قمنا باسناد قيمه للمتغير f تساوى قيمه فايل ثم جعلنا حقل الباث يساوى المتغير ثم عرضنا الصوره واليك رابط للاستفاده ويوجد العديد من الشروحات القيمه هنا بالموقع ابحث عنها https://analystcave.com/vba-application-filedialog-select-file/ بالتوفيق اخى

وعليكم السلام-تم تعديل المعادلة كما تريد ... كما تم تقييد الإدخال بعمود الكمية Y على حسب نوع السيارة كما تم عمل قوائم منسدلة للأعمدة الضرورية فى العمل حتى تتجنب اى خطأ عند الكتابة , فقط عليك الإختيار من القوائم 07272431.xlsm

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

وعليكم السلام ورحمة الله وبركاته اعتقد ان عملية دمج الخلايا في الصفحة المرحل اليها (الكشف) يجعل من تطبيق اي كود شبه مستحيلا والله اعلم ملاحظة حسب تعليمات وزارة التعليم تم تغيير (وزارة التربية والتعليم) الى وزارة التعليم كذلك تم تغيير (ادارة الامتحانات) الى المركز الوطني للامتحانات كذلك ترتيب المواد يجب ان يكون متوافقا مع بطاقة تقدير الدرجات(الصحيفة) مرفقا لك ملف pdf به نموذج بطاقة تقدير الدرجات وبه ترتيب المواد حسب تعليمات الوازرة وهو للصف الاول الثانوي للعام 2019/2020م تحياتي بطاقة تقدير الدرجات أول الثانوي رقم 20000-(3).pdf

جزاك الله كل الخير وبارك الله فيك وغفر لك واحسن خاتمتك وادخلك فسيح جناته وغفر لك ولأحبائك جميعا وجعلك الله زخرا وعطاءاً لنا دائما -أحسنت ودائما إلى الأمام