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

وعليكم السلام تفضل هذه الفاتورة أتمنى ان تنال اعجابك وهذه أيضا فاتورة مصممة على الإكسيل وكمان هذه فاتورة خبورية مصممة على الإكسيل فاتورة احترافية.rar فاتورة مبيعات اوفيسنا.xls فاتورة خبورية.xls

وعليكم السلام-بارك الله فيك وجزاك الله كل خير

بارك الله فيك وزادك الله من فضله

بارك الله فيكم جميعا وزادكم الله من فضله

تفضل الأمر سهل وبسيط يمكنك مشاهدة هذا الفيديو https://www.youtube.com/watch?v=JOGUVtuJAQ4

استادي سليم الف الف تحية اخي لا يمكن لي كتابة مثل هذا الماكرو مازلت مبتدءا في الاكسيل ومعرفتي في الميدان محدودة ، انتم اساتذتنا تعلمنا منكم وما زلنا ماكرو رائع كعادتك دائما وابدا نستمتع بأعمالك جزاك الله خيرا وحفظك وزادك علما . تحياتي لجميع الاساتدة في المنتدى اخوكم في الله حسين مامون من المغرب

تفضل هذا الاقتراح برنامج ارشفه.accdb

لأن الأسماء المركبة في الدالة ("سيف", "عبد", "أبو", "ابو", "عز", _ "صدر", "نور", "فضل") فأي اسم من هذه الأسماء يأتي معه الاسم الذي يليه يمكنك حذف كلمة سيف إذا أردت

جرب هذا za-font style and align-LAST.mdb

اتفضل اتمنى يكون المطلوب za-font style and align-LAST.mdb

بعد اذن استاذ عبدالله الصارى جرب هذا المرفق لعله يفى بالغرض وهو بالمعادلات فصل الاسم الأخير.xlsx

بارك الله فيك أستاذ عبدالله وجزاك الله كل خير

بارك الله فيك استاذى الكبير بن علية ولإثراء الموضوع هناك معادلة اخرة وهى معادلة صفيف -اى يجب الضغط على Ctrl+Shift+Enter وليس Enter فقط وهذه هى معادلة الكمية بالطن-وعليك سحبها للأسفل SUM(IF(($B$16:$B$10000>=$H$2)*($B$16:$B$10000<=EOMONTH($H$2,0))*($C$16:$C$10000=$C5),$H$16:$H$10000,"")) اما معادلة عدد النقلات لكل سيارة فهى : SUM(IF(($B$16:$B$10000>=$H$2)*($B$16:$B$10000<=EOMONTH($H$2,0))*($C$16:$C$10000=$C5),$F$16:$F$10000,"")) بارك الله فيكم جميعا

السلام عليكم استخدم هذا الكود DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "zaher", CurrentProject.Path & "\xx.xls", True, "A7:K164" DoCmd.RunSQL "delete from zaher Where isnull([رقم الصنف]) and isnull([اسم الصنف])"

تفضل هذا المثال للتوضيح تصدير و استيراد.accdb

السلام عليكم تفضل اخي الكريم .. تعديل-حذف بشرط M.S.rar

جرب هكذا Me.HdihSr = Nz(DSum(" [PriceSB] ", "00KashfTodayRsdCkdm", "[Movement] = 'هدية' or 'تالف' or 'مفقود' and [ItemAAID] = 110 and [OutDate] Between forms!KashfToday_F!Date1 And forms!KashfToday_F!Date2"), "0") 'Private Declare Sub apiZeroMemory Lib "kernel32" _

معذرة الأستاذ / ليث ليث المرفق بعد التعديل الأخير مندوبي المبيعات بعد التعديل.rar

السلام عليكم و رحمة الله و بركاته في المثال المرفق آلة حاسبة بمميزات رائعة الة حاسبة.rar

@Ali Mohamed Ali و إياكم أستاذي الكريم علي .. كل الاحترام و التقدير لحضرتك

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

شوف عملت لك توسط وحفظ لون الخط كمل الباقي لان وقتي والله مايسمح هي نفس الفكرة za-font style and align-LAST.mdb

اخي العزيز حسين أرى انه لا ضرورة لحلقة تكرارية من ثاني صف في العامود C الى ان تجد ما نفتش عنه (ممكن ان يكون الرقم في الصف رقم 5000 مثلاً اذا كانت البيانات كثيرة) يكفي ان نستعمل دالة Find في VBA لايجاد الرقم بسرعة اكبر بكثير ، لان هذه الدالة تضع يدها على الصف المطلوب مباشرة باستعمال هذا الماكرو Sub Find_Me() Dim rng, r% On Error Resume Next With Sheets("Sheet1") .Range("H2") = vbNullString If .Range("G2") = "" Then End Set rng = .Range("c2", Range("c1").End(4)) r = rng.Find(.Range("G2"), lookat:=1).Row If r > 0 Then .Range("H2") = .Cells(r, "D") End With End Sub

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

وذلك تعديل جديد لعرض الشعار فى كل زوايا القاعدة imgLogo.Picture = MyLogo() على ان يتم استبدل كلمة imgLogo باسم عنصر التحكم الخاص بالصورة كما تسميه انت Logo Company (Up 3).mdb

تفضل لك ما طلبت ربط قائمة منسدلة بأخرى.xlsm

السلام عليكم ورحمة الله و يمكنك ايضا ان تجرب هذا الملف ربما يفيدك توزيع رغبات2.xlsm

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

احسنت استاذى الكريم بارك الله فيك

تفضل اخى الكريم لماذا تكرر نفس الطلب هذه معادلة الأستاذ بن علية example.xlsx

اخى الكريم يمكنك اضافة معادلة if على معادلة استاذ بن علية والمعادلة هى -ولكن هذه المعادلة لا تقوم بحساب المعادلة الا بعد اكتمال الأربع اختبارات واذا كان هناك خلية واحدة فارغة لا تقوم المعادلة بحساب المعادلة واذا لم تريد هذا فيمكنك استبدال كلمة or فى المعادلة ب and =IF(OR(C6="",D6="",E6="",F6=""),"",SUM(C6:F6)/5)

بارك الله فيك استاذى الكريم بن علية وهذه طريقة لإخفاء المعادلات Select the range of cells whose formulas you want to hide. ... Click Home > Format > Format Cells. On the Protection tab, select the Hidden check box. Click OK. Click Review > Protect Sheet. Make sure the Protect worksheet and contents of locked cells check box is selected, and then click OK.

وعليكم السلام-اهلا بك اخى الكريم بالمنتدى قسيمة مشترك.xlsm

وعليكم السلام تفضل Attendance Report.xlsx

عمل ممتاز بارك الله فيك وجزاك الله كل خير

اهلا بك اخى الكريم بالمنتدى-حل هذه المشكلة بهذا الفبديو : https://www.youtube.com/watch?v=lJ4bzIUporE

فى الملف ثانية أسماء المستخدمين موجودة فى العمود AB من الصف الرابع فى الصفحة الرئيسية -والعمود التالى وهو AC عمود كلمة المرور ,ويمكنك تغيير هذا الى ما تريد وهذا موضع بالصورة ونفس الحكاية موجودة فى الملف الأخر ملف اولى من صفحة Main مع نفس ارقام الأعمدة والصفوف

اهلا بك اخى الكريم بالمنتدى تفضل 2.xlsx

تفضل اخى الكريم المشكلة من عندك تم تطبيق المعادلة بملفك بارك الله فيك مديونية.xlsx

.

وعليكم السلام اهلا بك اخى الكريم فى المنتدى نظرا لأنك لم ترفع ملف بالمطلوب فعليك بفتح مديول جديد ووضع هذا الكود به وعمل زر بصفحة الإكسيل لربطه بالكود Sub FORM() Userform1.Show End Sub

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

تفضل تجربة.xlsx

تفضل index2.xlsm

وعليكم السلام-تفضل find date Total général.xlsm

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

تفضل لك ما طلبت بسم الله1.xlsm

تفضل اخى الكريم بسم الله1.xlsm

بارك الله فيكم جميعا وجزاكم الله كل خير مجهودات ممتازة وعمل رائع

وعليكم السلام تفضل ارشيف.rar