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

اكتشفت خلل في كود البحث تم استبداله DoCmd.SearchForRecord , "", acFirst, "[Nm] = " & Str(Nz(Screen.ActiveControl, 0)) Example3.accdb

استكمالاً لتطوير برنامج المطاعم أرفق لكم النسخة مفتوحة المصدر آملاً أن تحوز على رضاكم وستحسانكم ولا تنسونا ومعلمينا من دعائكم ،،، كما أشكر مساهمة أستاذي @ابو عارف أنقر هنا للتحميل بدون ضغط Restaurant.rar

وعليكم السلام-يمكنك استخدام هذا الكود Sub print_out() Sheets("Sheet2").Range("g1:l20").PrintOut End Sub ولا تنسى فى المرات القادمة عندما تريد الحل بإستخدام الأكواد فعليك برفع الملف بإمتداد XLsm Print.xlsm

السلام عليكم طال غيابي عنكم احبتي في الله لسببين اولهما ظروف خاصة وثانيها لتوجهي الى تعلم لغات برمجة اخرى و ابتعادي عن الاكسل العشق فلما اخذني الحنين للاكسل فكرة لمذا لا استخدمه كما تعلمت مع اللغات الاخرى فرفعت التحدي و عملت هدا البرنامج البسيط البرنامج عبارة عن تسجيل عمليات استلام وتسليم الوصلات واظهار كشف الحساب لكل مورد على حده او تقرير عام بصفة عامة البرنامج بسيط ما يهم هو ما يخفيه من اكواد و مايظهره من جمال للفورم اما الثانية ما يظهره من جمال الفورم حاولت ان اعمل ما يستخدم في c# ui design و النتيجة هي اما الاولى مايخفيه من اكواد هي قاعدة البيانات هي اكسيس بحيث برمجة كلاس يمكنك استخدامه لتتعامل مع ملفات الاكسيس بكل سهولة ابتداءا بجملة الاتصل فتح الاتصال اغلاق الاتصال الى تنفيذ الكموند تماما كما هو الحال مع c# او غيرها من لغات اخرى الى كل من يبحث عن كيفية العمل على برنامج واحد باكثر من جهاز او مستخدم في نفس الوقت هذا الملف يمكنك من ذلك وذالك برفع قاعدةالبيانات الاكسيس على اي استضافة كقوقل دريف او دريفبوكس وتسليم ملف الاكسل للمستخدمين سيستطيعون جميعهم العمل عليه في نفس الوقت كل ما تحتاجه هو تغيير مسار الملف في كلاص الاتصال المسمى ClsConnctionDB في الاخير تحياتي للجميع تم تعديل الملف ليشتغل على ويندوز 7 WPFVBA_Win7.rar WPFVBA_Win10.rar

وذلك لأنك أخطأت فى المعادلة الموجودة بالعمود V الخاصة بجلب أرقام الشيكات فهذه معادلة مصفوفة وليس معادلة عادية فلابد من الضغط على Ctrl+Shift +Enter وليس Enter فقط كباقى المعادلات تجميع المكررات1.xlsx

تفضل لك ما طلبت تجميع المكررات1.xlsx

وعليكم السلام-تفضل samples1.xlsm

السلام عليكم اللي عملته هو: 1. يطبع التقرير صفحة واحدة بغض النظر عن عدد السجلات ، 2. التحكم في حجم الخط ، وتجعله في حجم مربع النص 1- بسبب ان اعدادات طابعتي تختلف عن طابعتك ، وطابعة المستخدم الاخير ، فجعلت الكود يحسب كل ارتفاعات الطابعة واقسام التقرير تلقائيا: hSum = Me.Section(1).Height + Me.Section(2).Height + Me.Section(3).Height + Me.Section(4).Height pSum = Me.Printer.TopMargin + Me.Printer.BottomMargin extra = 576 * 2.5 'to tighten the space h_p_t = hSum + pSum + extra 'in twips pPaper = 29.7 'Me.Printer.PaperSize A4 pPaper_t = pPaper * 576 hDetail = (pPaper_t - h_p_t) 'Me.StuName.Height = 23.2 * 576 / Me.mycount Me.StuName.Height = hDetail / Me.mycount اذا تلاحظ المتغير (والذي يساوي 2.5 سم ، والرقم هذا اتى بعد عدة محاولات) extra = 576 * 2.5 'to tighten the space وذلك حتى يرفع التقرير ويصبح صفحة واحدة بغض النظر عن عدد السجلات 2- من الرابط http://www.lebans.com/autosizefont.htm ، اضفت الوحدة النمطية modTextHeightWidth ، والتي تتحكم في حجم الخط ، وتجعله في حجم مربع النص ، وبما ان البيانات كان بالانجليزي ، فكل شيء كان تمام ، وقد اخبرتك انه قد يجب ان تتلاعب مع السطر التالي في الكود ، والذي يحدد حجم الخط .FontSize = .FontSize - 1 فقد تضطر ان تغير الرقم 1 الى رقم آخر ، ولكن بالتجربة ستتوصل فيما اذا كان يجب ان تقوم بالتغيير اصلا او لا جعفر 625.SH-16-17Ssss.accdb.zip

مميزات التقويم 1-هجري / ميلادي 2- يمكن البحث بالسنوات الهجرية ما بين 1318 و 1500 3- يوضح بالألوان فصول السنة 4-حسب تقويم أم القرى المعتمد من مدينة الملك عبدالعزيز للعلوم والتقنية 5-إمكانية إضافة المواعيد والمهام وتعديلها وحذفها 6-يوفر فرز للمواعيد والمهام القادمة والفائتة 7- يميز مواعيد والمهام المنفذة والفائتة 8- في التقويم يميز اليوم الموجود فيه موعد أو مهمة غير منفذة 9-يمكن تسجيل المواعيد والمهام بالتاريخ الهجري أو الميلادي تم تعديل الملف ليناسب الجميع التقويم.xlsx

اعرض الملف برنامج الاتصالات الادارية (وارد - صادر - متابعة المعاملات - أرشفة الكترونية) السلام عليكم ورحمة الله تعالى وبركاته الاصدار الاول من برنامج الاتصالات الادارية وارد .. صادر .. متابعة المعاملات .. أرشفة الكترونية للتواصل علي الواتساب:- 00201018156170 او الايميال:- soft.sample2014@gmail.com لتحميل نسخة تجريبية من الرابط التالى https://drive.google.com/open?id=1ze...qbrqm2L3yHmk-i مستخدم كامل الصلاحيات اسم المستخدم : user كلمة المرور : 1234 مستخدم صلاحيات محدودة اسم المستخدم : user1 كلمة المرور : 1234 صاحب الملف محمد سلامة تمت الاضافه 07 أكت, 2018 الاقسام قسم الأكسيس

جزاك الله خيرا اخى صالح @ابوآمنة تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم

هذا الرابط به سؤالك 🙂 جعفر

يعمل بشكل ممتاز . جزاك الله خيرا .... 🌺🌺

برنامج متعوب عليه أخي وحبيبي محمد بارك الله في جهودك وزادك الله من فضله في الدنيا والآخرة .

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

جرب هذا لجان الإختبارات.xlsm

عليك السلام ورحمة الله وبركاته جرب هذا 12-1.xlsm

استبدل الى هذا الماكرو Sub remov_dup_new() Dim r%, col%, COL_1%, i%, k%, m%: m = 2 Dim dic As Object Dim My_rg As Range Set My_rg = Range("a1").CurrentRegion r = My_rg.Rows.Count: COL_1 = My_rg.Columns.Count Set My_rg = My_rg.Offset(1).Resize(r - 1) 'My_rg.Select Cells(1, COL_1 + 2).CurrentRegion.ClearContents For i = 2 To r Set dic = CreateObject("Scripting.Dictionary") col = Cells(r, Columns.Count).End(1).Column Cells(m, COL_1 + 2) = Cells(i, 1) For k = 2 To col + 1 dic(Cells(i, k).Value) = vbNullString Next k Cells(m, COL_1 + 3).Resize(, dic.Count) = dic.keys m = m + 1 dic.RemoveAll Next i Set dic = Nothing End Sub

يظهر معك السعرين في القائمة لكن في حال كانت الفاتورة بيع يتم إدراج سعر البيع في حقل السعر وهكذا

بسم الله ما شاء الله اخى بارك الله فيك ووسع من رزقك وجزاك خيراً .

السلام عليكم من بعد اذن السيد خالد شوف هذا الملف عملتة على عجالة هل هو المطلوب ؟ Test1.accdb

فقط يمكنك استخدام هذه المعادلة =SUMIF(ورقة1!$A:$A,$A2,ورقة1!$C:$C) test1.xlsx

اشكرك اخي علي جزيل الشكر هذا المطلوب

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

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

الكود النهاني (مع الفرز حسب اللجان) و ادراج عدد اللجان اوتوماتيكياً حسب عدد الطلاب الاجمالي و عدد الطلاب في كل لجنة تغيير اسم الصفحة الى SALIM لحسن عمل الكود وعدم ظهور احرف غريبة في الكدو مما يؤثر على عملية نسخه ولصقه Option Explicit Sub Ahmed_Salim_Final() If ActiveSheet.Name <> "SALIM" Then Exit Sub Dim AA%, N%, i%, k%, Last_Row% Dim tt%: tt = 1 Dim m%: m = 8 With ActiveSheet AA = .Cells(Rows.Count, 2).End(3).Rows Last_Row = AA + 7 .[d2] = AA N = IIf([d2] Mod [d4] = 0, [d2] / [d4], Int([d2] / [d4]) + 1) .Range("D8", .Range("D7").End(4)).ClearContents For k = 1 To N For i = 1 To .[d4] .Cells(m, 4) = k m = m + 1 If m = Last_Row + 1 Then GoTo End_Me Next i Next k End_Me: .Range("D3") = Evaluate("=max(D8:D1000)") End With End Sub الملف النهائي distribution_Final.xlsm

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

ما هو الأفضل الذي تتطلع إليه من الزملاء والخبراء الباقين؟؟ حدد مطلوبك بدقة لننظر ما يمكن فعله؟

اخي الكريم بما ان جدول tbl_sheet فارغ فانت ستحتاج الى 1 - استعلام الحاق 2 - استعلام تحديث سيتم تنفيذ الاستعلام Query1 اولاً لالحاق البيانات واذا كان رقم الموظف موجود مسبقاً بالجدول يتم تنفيذ الاستعلام Query2 لتحديث البيانات انظر المرفق تحديث من نموذج الي جدول بشرط.rar تحياتي

السلام عليكم جرب المرفق Ali_Tst _1.xlsm

جرب هذا Timer & Stopwatch.xlsm

تفضل تم عمل المطلوب الباقي في المخزن1.xlsx

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

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

تفضل لك ما طلبت محمد_2020.xlsm

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

تفضل اخي انا شرحت لك هذا ورقفت لك صورة سابقا ( من خصائص الحقل المطلوب اجعل العمود المنظم عدد /2) بدلا من واحد Library.rar

السلام عليكم-كان عليك قبل رفع المشاركة استخدام خاصية البحث بالمنتدى فهناك مشاركات تناولت طلبك هذا مثل عمل مقارنة بين البيانات الموجودة بصفحة معينة مع صفحة أخرى ولكنى قمت بعمل كل المطلوب فى ملفك مثال2.xlsx

ربما ينفع هذا الكود Option Explicit Sub remov_dup() Dim r%, col%, i%, k%, m%: m = 2 Dim dic As Object r = Cells(Rows.Count, 1).End(3).Row Cells(2, "j").CurrentRegion.ClearContents For i = 2 To r Set dic = CreateObject("Scripting.Dictionary") col = Cells(r, Columns.Count).End(1).Column Cells(m, 10) = Cells(i, 1) For k = 2 To col dic(Cells(i, k).Value) = vbNullString Next k Cells(m, 11).Resize(, dic.Count) = dic.keys m = m + 1 dic.RemoveAll Next i Set dic = Nothing End Sub الملف مرفق Salim 3.xlsm

اخي العزيز emam1424 لاحظت انك تسال نقس السؤال اكثر من مرة بخصوص التاكد من ادخال البيانات بالجدول واظهار الرسالة Beep MsgBox ("تم حفظ البيانات بنجاح"), , "مبروك" ان الكود هو يقوم اصلا بحقظ البيانات في الجدول ومن ثم ينتقل للسجل التالي بالجدول DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.GoToRecord , , acNewRec افضل مكان للتاكد من ادخال وحفظ البيانات هي وضع الرسالة بعد التحديث After Update كما في الصورة ( يعني لاتظهر الرسالة الا بعد حقظ البيانات ) وهذا ينطبق على كل النماذج

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

وعليكم السلام-جرب هذا عداد دوري تصاعدي تنازلي من روائع الاكسل عداد (كرونو) مطلوب عداد تنازلي يعمل مباشرة والملف مفتوح عداد بالثواني بشكل جميل من تصميمي Timer عمل عداد أرقام في الإكسيل

تفضل لك ما طلبت Sub t() Dim i, itotalrows As Integer Dim strRange As Range, strRange2 As Range Dim col As Long itotalrows = ActiveSheet.Range("a65536").End(xlUp).Offset(1, 0).Row For col = 1 To 1 Do While i <= itotalrows i = i + 1 Set strRange = Cells(i, col) Set strRange2 = Cells(i + 1, col) If strRange.Text <> strRange2.Text Then Rows(i + 1).EntireRow.Insert itotalrows = ActiveSheet.Range("a65536").End(xlUp).Offset(1, 0).Row i = i + 1 End If Loop Next col End Sub وهذا كود اخر اصغر Sub InsertBlankRows() Dim LastRow As Long Dim i As Long LastRow = Cells(Rows.Count, "A").End(xlUp).Row For i = LastRow To 2 Step -1 If i = 1 Then 'Do nothing ElseIf Cells(i, "A") <> Cells(i - 1, "A") Then Cells(i, "A").Insert End If Next i End Sub ادراج 1صفوف.xlsm

وعليكم السلام-تفضل تم عمل المطلوب بمعادلات الصفيف بعد ضبط تسمية صفحات الملف برنامج التنسيق 1.xlsm

تفضل اخى الكريم يمكنك استخدام هذه المعادلة =SUM(INT((WEEKDAY(A2-{2,3,4,5,6})+B2-A2)/7))-1 1معادلة لطرح التاريخ والوقت معا مع عدم احتساب ايام الاجازات.xlsx

بارك الله فيك استاذ احمد وبعد اذن حضرتك ولإثراء الموضوع تم التعديل على الملف الأصلى للأستاذ ahmedhossin ونصيحة من اخ لك لابد من البداية رفع الملف الأصلى لك تجنبا لعدم اهدار الوقت فهذا ذنبك انت بالتأكيد لأنك من البداية رفعت ملف مختلف عما تريد-تفضل تم التعديل مرة اخرى Book2.xlsm

تفضل بالتأكيد بعد اذن استاذنا الكبير سليم-تم تغيير اسم الصفحة تجميع الى Collection لحسن عمل الكود وذلك ما ينبه اليه استاذنا الكبير سليم دائماً الى جعل اسماء الصفحات بالإنجليزية لحسن وكفاءة عمل الكود All_sh2.xlsm

وعليكم السلام-هذا فيديو للشرح https://www.youtube.com/watch?v=Sh5WG2yZLlE

أحسنت استاذ شوقى عمل ممتاز بارك الله فيك وزادك الله من فضله

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