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

جرب هذا الملف Special_Sum.rar

وعليكم السلام ورحمة الله وبركاته أبويوسف مبارك عليكم الشهر تفضل جرب المرفق GetClass1.rar

لا اعرف اذا كان هذا المطلوب بالضبط fahad5095_salim.rar

السلام عليكم ورحمة الله وبركاته اخواني الكرام عندي مشروع انني اعمل ارشفة الكترونية للوثائق في الادارة تبعنا فكرة الارشفة انني اضع اسماء ١- الموظفين ٢- رقم الهوية الوطنية الخاصة بهم ٣- وثائق الخاص بكل موظف الوثائق هي تكون ادخالها من الماسح الضوئي او استعراضها من الكمبيوتر وادراجها على الاكسس ليتم البحث عنها بٲسم الموظف او رقم الهوية ليتم طباعتها لاحقاً اما جميع الوثائق او اختيار مجموعة معينه من الوثائق على كامل الصفحة ٤- الوثائق لابد من تصنيفها بمجموعات مثلاً ( صورة رقم الهوية الوطنية ، صورة الشهادة الجامعية ) المشكلة انني لا اعرف كيف يتم ادخالها في الاكسس مع الانتباه ان الوثائق تكون اكثر من ١٠ وثائق للموظف هل هذه العملية تثقل برنامج الاكسس ارجوا من الله ثم منكم مساعدتي في عمل هذا حل او اي نصيحة لعمل هذا البرنامج للعلم انني مبتدىء لحد الان في برنامج الاكسس

ترقيم تلقائي يتجدد مع بداية كل سنة على النحو التالي 1300001 1300002 1300003 1400001 1400002 وهكذا ................. باعتبار الرقم 13 ، 14 هو السنة والترقيم لاشك سيكون تبعا للسنة الحالية Private Sub Form_BeforeInsert(Cancel As Integer) On Error Resume Next Dim xLast, xNext As Integer Dim prtyr, prtTxt As Integer prtyr = Right(DatePart("yyyy", Date), 2) prtTxt = Left(DMax("ID", "tbl1"), 2) xLast = DMax("ID", "tbl1", prtTxt = prtyr) If IsNull(xLast) Then xNext = 1 Else xNext = Val(Mid(xLast, 3, 5)) + 1 End If Me!ID = prtyr & Format(xNext, "00000") End Sub ترقيم تلقائي جديد كل سنة.rar

السلام عليكم ورحمة الله وبركاته أقدم لكم دالة معرفة UDF تقوم بدمج وجمع النصوص كما تفعل الدالة CONCATENATE ، ولكن مع اختلاف في النتائج ، حيث تتميز الدالة المعرفة بالحفاظ على تنسيق الخلايا التي يتم دمجها معاً. وقد وضحت بالأمثلة في الملف المرفق معظم الحالات للدالة المعرفة ، وكيف أن النتائج تكون مختلفة عن الدالة CONCATENATE ، وأترككم مع الملف المرفق ومع الأمثلة التي توضح الفرق بينهما. للمزيد حول الموضوع يرجى زيارة الرابط التالي رابط الموضوع من هنا

السلام عليكم ورحمة الله وبركاته كل الشكر والتقدير لهذا الصرح العظيم المنارة التي يهتدى بها الملف المرفق هو عبارةيومية صندوق مع كشف حساب.rarيومية صندوق مع كشف حساب.rar عن يومية صندوق(عملة) (قبض . دفع) يتم ادخال البيانات بالفورم . بالاضافة الى كشف حساب و رصيد الصندوق النهائي وقد عملت فيه عدة ميزات: 1- يتم ادخال البيانات بالفورم دون الحاجة لاستخدام الماوس عند اختيار الاسم (لأنني من الاشخاص الذين لايحبون استخدام الماوس أثناء العمل) 2-يظهر اليوم والتاريخ ضمن الفورم (لاننا في يومية صندوق . يعني يومية اليوم الحالي) وطبعا يمكن التعديل على التاريخ 3- بعد الانتهاء من التاريخ وضغط انتر يظهر فورم بحث عن اسم الحساب 4- تكست بوكس (مدين - دائن) يقبل الارقام فقط 5- كشف الحساب يتم باختيار الاسم من قائمة منسدلة او بالنقر دبل كليك على خانة الاسم لكن يوجد بعض التعديلات شرحتها في الملف الرجاء المساعدة من الاخوة الاكارم يومية صندوق مع كشف حساب.rar

السلام عليكم ورحمة الله وبركاته لدي ملف اكسل فيه تبويبات sheet متشابهة في المضمون وارغب نقل العمود AY , AX ,D,C في كل الشيتات الى ورقة عمل جديدة واحدة تتضمن كل الشيتات الملف مرفق GetClassInfoByDist (2).rar

بداية السب ورتين وليس بداية الموديول كما وضح اخونا ابوعبدالباري جزاه الله خير

Const StudentData As String = "ÈíÇäÇÊ ÇáØáÈÉ" Const TopStudents As String = "ÇáÇæÇÆá" Private Sub Worksheet_Activate() ActiveSheet.Unprotect "123" Application.DisplayAlerts = False Sheets(TopStudents).Range("S:S").ClearContents Sheets(StudentData).Range("V5:V212").AdvancedFilter Action:=xlFilterCopy, copytorange:=Sheets(TopStudents).Range("S8"), unique:=True Sheets(TopStudents).Range("S9").Value = "Çáßá" With Sheets(TopStudents).Range("S8") .Interior.Pattern = xlSolid .Interior.Color = 65535 .Borders.LineStyle = xlContinuous .Borders.Weight = xlThin .Font.Size = 16 End With With Sheets(TopStudents).Range("S9:S100") .Interior.Pattern = xlSolid .Interior.ColorIndex = 0 .Borders.LineStyle = xlContinuous .Borders.Weight = xlThin .Font.ColorIndex = 0 .Font.Size = 16 End With Application.DisplayAlerts = True ActiveSheet.Protect "123" End Sub اخى الكريم ناصر سعيد ضعها فى هذا المكان

السلام عليكم جرب المرفق Book3.rar

وعليكم السلام مبارك عليكم الشهر تفضل جرب المرفق يا أبا عبدالرحمن جمع بيانات الاوراق 1.rar

آمين آمين كم نحتاج لهذه الدعوات خصوصا في هذا الشهر المبارك جزاك الله خير يالحبيب تم عمل جدول صغير فيه الشروط التي ذكرتها , قم بالتعديل على الارقام بما يناسبك GetClass2.rar

جمع الارقام يختلف عن جمع التاريخ جمع الارقام =SUM(IFERROR(--MID(B1;ROW($B$1:$B$20);1);0)) جمع التاريخ =SUM(IFERROR(--MID(--SUBSTITUTE(TEXT(B1;"dd/mm/yyyy");"/";0);ROW($B$1:$B$20);1);0)) معادلة صفيف . اي يجب الضعط علي كنترول شفت انتر

استخدم هذا الكود Docmd.RunCommand acCmdLinkedTableManager واخبرنا باانتائج كل عام انتم بخير

اسعدك الله اخي عيد وجزاك الله خيرااا طلب صغير : اريد ان اضيف معادلة لكل مدرسة تضاف في العمود الاخير F امام كل مدرسة بحيث اذا كان عدد الطلاب اكثر من 50 واقل من 150 تستحق المدرسة 300 ريال واذا كان عدد الطلاب اقل من 50 تستحق المدرسة 250 ريال واذا كان عدد الطلاب اكثر من 150 واقل من 200 تستحق 400 وبقية الشروط انا اكملها بس اعطني المفتاح فتحها الله في وجهك ويسر الله امرك اينما حللت

تفضل مثال لشجرة العائلة باستخدام المتصفح شجرة العائلة متصفح.rar

تفضل تم التعديل entdab2.rar

جرب هذا الملف ولا تنس (اغجبني) تم جماية المغادلات لعدم العبث بها عن طريق الخطأ وصل salim.rar

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

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

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

تفضل Book1.rar

تفضل اخي الكريم Book1.rar

السلام عليكم تعديلات جديدة على كود ترتيب العشرة الاوائل(بعدة اختيارات) الميزه الاولى يعمل تلقائيا من الاختيارات من القوائم نقل الكود الى ملفك: اضغط بيمين الماوس على تبويب الورقة اختار نقل ونسخ اختار المصنف الذي تريد نقل النسخة اليه وحفز انشاء نسخة سينتقل الكود بمعية الورقة لان موقع الكود في نفس الورقة راس وتذييل فارغ مكون من 8 صفوف اكتب ماتريده بدون تقييد المعطيات الضرورية والتي تناسب عملك مكانها بداية الكود وهو في موديل الورقة نفسها '============================================================ '============================================================ ' نطاق البيانات اما ان يكون اسم لنطاق ' او عنوان النطاق مع اسم الورقة Private Const My_Date As String = "الشيت!$A$11:$EA$1000" 'ارقام الاعمدة توضع بالنسبة لنطاق البيانات المسمى وليس للورقة ' عمود رقم الجلوس Private Const cSeat_Number As Integer = 2 ' عمود الاسم Private Const cStudents As Integer = 3 ' عمود الفصل Private Const cClass As Integer = 13 '============================================================ ' قيمة اصغر مجموع(الدرجة) يتم اظهاره Private Const MinDegree As Double = 50 '============================================================ '============================================================ الميزة الاكثر جمالا هي فرز تلقائي بالكود بدون استخدام الفرز الخاص ببيانات الاكسل سريع جدا في اظهار النتائج جمعه مباركة لكم ولنا ودمتم في حفظ الله ترتيب العشرة الاوائل5.rar

أخي الكريم / محمد عبدالباقي بارك الله فيك وجزاك خيرا ووفقك الله الي ماتريد تقبل تحياتي

ز اخي نارت : وتركك بشكل مبدئي مع الف شكر وفقك الله ... ياسر الحافظ " ابو الحارث "

السلام عليكم : اعمل فى شركة تعمل فى مجال الشحن البحرى-فى مصر- و نرغب فى برنامج يعمل على مستوى الفروع لإعداد الفواتير و يكون مصمم SQL و نحن فى حاجة اليه على وجه السرعة