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

لا يوجد مشكلة في هذا فقط كتابة مرجع جدول البحث من sheet1 بطريقة صحيحة يمكنك استعمال هذه المعادلة في الخلية B2 في sheet2 =IFERROR(VLOOKUP(A2,Sheet1!A:B,2,0),"") تم استعمال iferror حتى لا يظهر خطأ عند عدم وجود الاسم ومرفق ملفك بعد التعديل لمن لا يعرف كيف يضيف المعادلة في الملف الأصلي بسبب اختلاف نظام الفاصلة بين الأجهزة بالتوفيق عمل فيولوك اب علي صفحتين.xlsx

Database1.accdb

اخواني الافاضل تم شرح الخطوات بالصور ليسهل تطبيقها وتجدونها في المرفقات. اولاً اذا كانت قاعدة البيانات باللغة العربية حولها على الانجليزية ، واسهل وسيلة لعرض بيانات قاعدة بيانات SQL Server هي الاكسس و بما اننا نتكلم عن قاعدة بيانات على الاكسس انصح انك تبدء تصمم الواجهات على VB.Net او ASP.Net ، فهي لا تختلف كثيرا عن الاكسس ، لكن المميز فيها بأن المستخدم يستطيع الاستفادة من برنامجك على جميع الاجهزة كمبيوتر - لابتوب-موبايل - ايباد و غيرها ثانيا انشئ حساب على سيرفر SOMEE من : https://somee.com/default.aspx و اختر حزمة الاستضافة المجانية https://somee.com/DOKA/DOC/DOLoginOrRegister.aspx . . . . . عمل قاعدة بيانات SQL Server . . . . . . . برنامجك الاكسس : . . . . . . . . . . . . . . . . . في حال وجود اي استفسارات ارجوا كتابتها في التعليقات نشر قاعدة البيانات.zip

تفضل البحث بجزء من الإسم او الرقم دورة inputbox (1).accdb

تفضل تم العمل على اساس ان الاجازة الاسبوعية يومين فقط لكل اسبوع الغياب.accdb

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

السبب في البطء هو استعمال معادلة المصفوفات لأكثر من 70 مرة والصواب استعمالها مرتين فقط مع استثناء الصفوف الفارغة من المعادلة تم تعديل المعادلة في عمود البنات إلى =IFERROR(INDEX(الأسماء!$B$2:$B$1000,SMALL(IF(الأسماء!$C$2:$C$1000=$I$1,IF(الأسماء!$F$2:$F$1000="أنثى",ROW($1:$999))),ROW()-3)),"") لاحظ بداية ونهاية المدى 2:1000 يجب أن تكون متطابقة ما عدا الصف الذي يتم إرجاعه فيكون أقل ب 1 واستعمال row - 3 للترتيب مع العلم انه يجب تحديد الخلايا B4:B42 قبل لصق المعادلة في شريط الصيغة مع الضغط على. Ctrl+Shift+Enter وهكذا مع عمود البنين وهذا ملفك بعد التعديل بالتوفيق قوائم 2022 - قبل القسيم.xlsb

اسم النموذج الرئيسي مختلف عن المثال

وعليكم السلام تفضل ترحيل معدل.xlsm

لو المشكلة ناتجة من اختلاف النواه ادخل وضع التصميم وضيف كلمة ptrsafe بين كلمة declare و sub https://youtu.be/5QZ118ywDv0 ولكن انا شايف ان المشكلة ان في ملف ناقص عندك اسمه AUTHZAX. DLL ابحث عنه في جوجل ونزله

غير ال ى Dim db As DAO.Database

بسم الله ما شاء الله ... أستاذ محمد صالح جزاك الله خيرا وزادك الله من نور علمه ....

احتساب تاريخ نهاية الصلاحــــــــ( Expiration Report ) ـــــية ExpirationDate.mdb

السلام عليكم .. بغض النظر عن المقال فالكثير من المبرمجين حول العالم يستخدمون اكسس للمشاريع البسيطة والمتوسطة وهو شائع بشكل كبير اما من وجهة نظري المتواضعة فمن المهم بالنسبة (للشباب) ان يتعلموا لغات اخرى مثل الجافا والسي شارب تحياتي

https://youtu.be/GkNiKKLQX9k

السلام عليكم انظر للملف اتمنى ان يكون المطلوب لكن بدون Input Box دورة inputbox.accdb

كل الشكر استاذ محمد وزادك الله علما بعد التدقيق المشكله ليست في الفواصل المشكله عندما انتقل الي شيت 1 وارجع الى شيت 2 تلقائيا ينكتب في الفورموله Sheet2! هذه المشكله فقط ازلتها وانحلت هذا بعد ما ارسلت لي الملف وقارنت بين الاثنين

تسلم اخي الكريم ناقل على اخيارك مشاركة استاذنا الفاضل عبداللطيف // ( هذا هو المطلوب )

نسخة جميلة بارك الله فيك اخي الكريم عبد اللطيف سلوم // لو فية الية اختيار مسار ومكان وضع النسخة فية - ( خاصة اذا كان هناك اكثر من قاعدة بيانات) شاكر ومقدر لك.

التلميح داخل مربع النص مع علامة مائية فى حالة كان مربع النص فارغ ويختفيان بمجرد التركيز داخل مربه النص او الكتابة ... ToolTip.mdb

تفضل هذا التعديل على بنود الفاتورة تلوين الحروف و الكلمات اثناء البحث فاتورة بشكل جديد.mdb

يمكنك استعمال دالتك وبعدها زائد واحد =DATEDIF(Start_date,End_date,"D")+1 بالتوفيق

جزاكم الله خيرا يا دكتور @د.كاف يار اولا اتوجه بكل الشكر والتقدير والامتنان لكم يا دكتور على تقديم يد العون وتلبية طلبى من سيادتكم بتقديم الحل المناسب واعتذر للاثقال على كاهلكم جزاكم الله خيرا ورزقكم البركة فى العمر والعلم والاهل واسال الله تعالى لكم القبول وكل اساتذتى العظماء واسمح لى يا دكتور بتقديم فكرتى المتواضعة اثراء للموضوع Database_test1.accdb

شفافيــــــــــــTransparent Formsــــــــــــة النماذج Transparent Forms.mdb

التلميح داخل مربع النص مع علامة مائية فى حالة كان مربع النص فارغ ويختفيان بمجرد التركيز داخل مربه النص او الكتابة ... ToolTip.mdb

جرب الكود التالى Sub NEWSH() On Error Resume Next ActiveSheet.Copy After:=ActiveSheet ActiveSheet.Range("C9:V300").ClearContents ActiveSheet.Name = [G5] End Sub

أخي الكريم يرجى تغيير اسم الظهور للغة العربية تفضل الملف المرفق التالي وقم بدراسته جيداً ..فيه أمثلة متعددة لاستخدامات الدالة VLOOKUP داخل الـ VBA .. كنت من فترة قد اطلعت على مقالة فيها هذه الأمثلة وقمت بتطبيقها على ملف مرفق ... إن شاء الله يفيدك الملف تقبل تحياتي VLOOKUP In VBA With Examples YasserKhalil.rar

طيب ع العموم استنى المرفق اهو انا اسف انا كنت لاغى القوائم كل الاكواد داخل الفورم mainfrm إخفاء واظهار الجداول والكائنات.rar

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

السلام عليكم أخ محمد يمكنك الحل بدون إستخدام معادلة صفيف و بدون الحاجة لأي أعمده مساعده بإستخدام المعادلة التالية =LOOKUP(2,1/((B9:B59=C2)*(C9:C59=C4)),D9:D59) دمتم في حفظ الله

بارك الله فيك أستاذ محمد الريفي واسمح لي إذا لم يكن يضايقك طبعا (أما لو ضايقك هعمل حذف علطول أو على عرض) لإثراء الموضوع هذه دالة توضع في موديول تقوم بالمهمة Function Two_Con_Vlookup(Table_Range As Range, Return_Col As Long, Col1_Fnd, Col2_Fnd) Dim rCheck As Range, bFound As Boolean, lLoop As Long On Error Resume Next Set rCheck = Table_Range.Columns(1).Cells(1, 1) With WorksheetFunction For lLoop = 1 To .CountIf(Table_Range.Columns(1), Col1_Fnd) Set rCheck = Table_Range.Columns(1).Find(Col1_Fnd, rCheck, xlValues, xlWhole, xlNext, xlRows, False) If UCase(rCheck(1, 2)) = UCase(Col2_Fnd) Then bFound = True Exit For End If Next lLoop End With If bFound = True Then Two_Con_Vlookup = rCheck(1, Return_Col) Else Two_Con_Vlookup = "#N/A" End If End Function وهذا ملف مرفق مثال على الدالة VLOOKUPTwoCriteria.rar

السلام عليكم ورحمة الله وبركاته بارك الله بالأخوة الكرام حل اخر بالمعادلات اخي السائل جرب المعادلة التالية =SUMPRODUCT(($B$2:$B$17=A20)/COUNTIFS($A$2:$A$17;$A$2:$A$17&"";$B$2:$B$17;$B$2:$B$17&"")) في امان الله

السلام عليكم قمت بعمل دالة معرفة للقيام بما تريد Function MyCont(Compny_Rng As Range, Country_Rng As Range, MyCtry As String) Application.Volatile For i = Country_Rng.Row To Country_Rng.Rows.Count If Cells(i, Country_Rng.Column) = MyCtry Then If Application.CountIf(Range(Cells(i, Compny_Rng.Column), Cells(Country_Rng.Rows.Count, Compny_Rng.Column)), Cells(i, Compny_Rng.Column)) = 1 Then x = x + 1 End If End If Next MyCont = x End Function لديك ثلاثة متغيرات 1. Compny_Rng وهو مدى الشركات 2. Country_Rng مدى اسماء الدول 3. MyCtry الخلية التي بها اسم الدولة المرد معرفة العدد بدون تكرار اسم الشركة اليك المرفق العد بدون تكرار.rar

جزاك الله خيرا وبارك فيك تقبل تحياتي وشكري

ما شاء الله شرح رائع أخي ياسر بارك الله فيك كل عام أنتم وجميع الإخوة بكل خير مناسبة شهر رمضان الكريم

بارك الله فيك أخي طارق وجزاك الله خيرا وكل عام أنتم جميعا بكل خير

أخي الكريم الطرابلسي يبدو أنك لم تقم بتجربة الثلاثة حلول بطريقة صحيحة فهذا ملفك به الحلول الثلاثة اختر أيها شئت للعلم حلي وحل الأستاذ يحيى حسين بنفس المعنى + تفوق الأستاذ يحيى في جانب يجعله الأستاذ ونحن تلامذته وهو الاختصار أما معادلة الأخ كيماس فعذرا ليست دقيقة كما ينبغي رغم محاولة تفادي عدد الشهور الزائد عن 31 يوم ******** mas-dt-add-mnths.rar

بسم الله الرحمن الرحيم لدي مجموعة من الملفات الفيديو لشرح إكسل 2003 فقمت بتحويلها إلى صورة موقع ورفعتها في صفحتي في موقعنا الحبيب أوفيسنا تجدوها في توقيعي وهذا رابطها هنــــــــــــــــا ولا ينقصني سوى دعاؤكم

سعيد جدا بمجرد مرورك أخي عادل جعلنا الله وإياكم من العادلين

وإياك أخي سالم سلمك الله من كل سوء

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

أخي الكريم استعمل هذه المعادلة في الخلية C5 =DATE(YEAR(A5),MONTH(A5)+B5,DAY(A5)) وأخبرني بالنتيجة كل عام وجميع الإخوة بخير

شكرا لك أخي الحسامي فعلا معلومات رائعة حول حلقة التكرار ب for و next والشكر موصول للأخ kemas لتحويله للملف إلى فيديو تعليمي وأود التنبيه إلى أنه يمكن تداخل حلقات التكرار فمثلا لو أردنا عمل جدول الضرب يجب علينا عمل حلقة تكرار لجميع الأعداد التي نريد عمل جدول الضرب لها مثلا من 1 إلى 12 وداخل كل رقم من هؤلاء نقوم بضربه في الأرقام من 1 إلى 10 ونضع ناتج الضرب في عمود مستقل يمكننا استعمال ذلك الكود Sub mas() For n = 1 To 12 Cells(1, n).Value = "جدول ضرب " & n For m = 2 To 11 Cells(m, n).Value = m - 1 & " x " & n & " = " & (m - 1) * n Next m Next n End Sub تحياتي للجميع

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

لم تثقل علي أخي كيماس بل بالعكس لقد كنت مستمتعاً بالشرح و جزاك الله خيرا على إضافتك و للعلم [color="#666600"]=[/color]MATCH[color="#666600"]([/color][color="#006666"]9.99999999999999E+307[/color][color="#666600"];[/color]A[color="#666600"]:[/color]A[color="#666600"])[/color] 9.99999999999999E+307 يعرف بالـ BigNumber و هو أكبر رقم ممكن أن يتعمل معه الإكسيل و هناك من يشير اليه بطرق مختلفة 1e100

شكرا جزيلا للأخ يحيى و قد بحثت فى الموضوع لأننى أثقلت عليه لكن له الفضل بعد الله فى اكتشاف هذه الألغاز و قد توصلت للآتى الحرف z مكررا 255 مرة هو أكبر قيمة لخلية نصية يمكن تخزينها فى إكسل 2003 بالبحث عن هذه السلسلة طبعا تكون غير موجودة عندئذ ترجع دالة البحث أقرب قيمة لها أو مساوية لها إن وجدت بشرط أن تكون نصا و هى آخر خلية نصية فى المرجع مع تجاهل الخطأ ==== وهناك إضافات * يمكنكم تجربتها * موقع آخر خلية بها نص فى العمود a =MATCH(REPT("z";255);A:A) و لجلب الخلية نفسها =LOOKUP(REPT("z";255);A:A) طريقة أخرى =INDEX(A:A;MATCH(REPT("z";255);A:A)) و لجلب موقع آخر خلية رقمية فى عامود =MATCH(9.99999999999999E+307;A:A) و غير ذلك أرفقت ملفا وأكرر شكرى للأخ يحيى جزاه الله خيرا Book1.zip

أخي كيماس لقد أسعدني ردك و طريقة ردك الجميلة جزاك الله كل خير أخي ================== بخصوص هذه الدالة و هي دالة وليست ألغاز استخدمنا الدالة LOOKUP للبحث عن القيمة الرقمية التي نريدها و لكن معيار البحث كان هو الدالة REPT("z",255 و التي ستقوم بتكرار الحرف Z 255 مرة و الهدف هو حتى تقوم الدالة LOOKUP بالبحث عن اخر قيمة نصية في السلسلة مع ملاحظة ان هذه الدالة تتجاهل الخطأ إن وجد أما الدالة CHOOSE إستخدمناها كمرجع للدالة LOOKUP حيث تقوم ببناء سلسلة من اول نتيجة و التي هي ثابته لدينا "Not Found" و من ثم إرجاع القيمة من خلال الدالتين VLOOKUP حيث ستعيد أحدهما نتيجة البحث في حين تعيد الأخرى نتيجة خطأ #N/A و لتصوير ذلك لو قمنا بوضع اسم محمد في الخلية A4 Mohammed ستصبح الممعادلة بعد تنفيذ الخطوات السابقة =LOOKUP(REPT("z",255),CHOOSE({1,2,3},"Not Found",#N/A,"Pass")) و بعد تنفيذ المعادلتين التليتين ستصبح المعادلة =LOOKUP("zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz",{"Not Found",#N/A,"Pass"}) و من ثم ستقوم الدالة الأساسية LOOKUP بالبحث عن اخر قيمة نصية مع تجاهل الخطأ ========================================== طبعاً يمكننا اختصار المعادلة REPT("z",255) و لكن استخدامها هكذا حتى تبحث عن أكبر قيمة محتملة مهما بلغ عدد أحرفها مع العلم أيضاً انه في النسخ الحديثة 2007 و 2010 نظراً لزيادة عدد الأحرف المسمومح بها داخل الخلية يمكن استخدام المعادلة التالي حتى تعييد اكبر قيمة نصية ممكنة =REPT("z",(2^15)-1) ========================================= أتمنى أن أكون قد وفقت في الشرح و أن يكون لي نصيب من دعائكم و دمتم في حفظ الله و رعايته

شاهد المرفق، Vlookup____________________.rar

بسم الله الرحمن الرحيم تحياتى الى الجميع احتفالا منى بالثوب الجديد للمنتدى . قررت المساهمة بمشاركة ذهبية حصلت عليها فى احدى ابحاراتى الاولية وكانت على سفينة الصحراء وليست جوية او بحرية بل كانت على الجمال . مش راح تصدق ...............................................! دالة "IFYES" مع 112 احتمال ...................................! فى معادالة واحدة معقول !!! ده يبقى جنان فى جنان ونبقى محتاجين علام من جديد . حقيقى لم نقدم للاكسل اى شئ حتى الان غير الكـــــــــــــلام . دالة "IF" فى الوضع العادى تعطى شرط واحد و احتمالين اثنين فقط وفى الوضع المركب منها بأمكانها ان تصل بنا الى سبعة "IF" مع ثمانية احتمالات . ويمكن الوصول بها الى مئات الاحتمالات فى حالة تمرير النتيجة الى خلايا اخرى ثم حصد النتيجة النهائية . دالة اليوم اسمها " إف_صح " فى الوضع العادى منها تعطى 18 ثمانية عشر احتمال . وفى الوضع المركب منها فقط تعطى 112 مئه واثنى عشر احتمال . اما فى حالة التمرير تعطى الآف الاحتمالات . سوف تجد الدالة مع الدوال فى ( معرفة بواسطة المستخدم ) . وطريقة عملها اسهل من "IF" بدون تكرار اسم الدالة زى "IF" العقيمة . ومرفق لكم ملف به مثال للتدريب عليها احتفالا بالثوب الجديد للمنتدى . واذا عجبكم الموضع نبدأ فى تجهيز دالة " إف_خطأ " وهى معكوس دالة " إف_صح " مع تحيات تامر عمر المرفقات دالة ( IFYES ) احتمالات اكثر من دالة ( IF ) العادية مع سهولة اكثر فى التعامل IFYes.rar

شاهد المرفق، _________________________________.rar