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

اكتشفت خلل في كود البحث تم استبداله 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

السلام عليكم هذا المرفق للاستاذة زهرة اتمنى ان يكون النطلوب تحياتيza-FullControlOfPrintReport2010.accdb za-FullControlOfPrintReport2010.rar

دالة NZ وهي اختصاراً لكلمتي : NULL Zero ومهمتها أن يتم التخلص من مشكلة وجود القيمة Null في بعض العمليات مما يعطي خطأ .. Nz(DSum("Qty";"tabl2";"barcode=" & [barcode]);0) السلام عليكم انظر للمرفق اخي الكريم اتمنى ان يكون المطلوب Qty in table - Qty on form.rar

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

جرب هذا الماكرو Private Sub CommandButton1_Click() insertbutton_Click End Sub '+++++++++++++++++++++++++++++++++ Sub insertbutton_Click() Dim x%, y%, nextRow%, rg_to_copy As Range Set rg_to_copy = Me.Range("b6").CurrentRegion x = rg_to_copy.Rows.Count If x = 1 Then Exit Sub y = rg_to_copy.Columns.Count nextRow = Me.Cells(Rows.Count, 2).End(3).Row + 1 Set rg_to_copy = rg_to_copy.Offset(1).Resize(x - 1) Me.Range("B" & nextRow). _ Resize(x - 1, y).Value = rg_to_copy.Value rg_to_copy.ClearContents End Sub الملف مرفق samples_BUTTON.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

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

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

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

استاذنا الفاضل @أبو عبدالله الحلوانى اقصد انك قمت بتغيير خحم ورق الطباعة الى a5 لكن التقرير ما زال محتفظ باعداداته والعناصر التي عليه بنفس المقاسات لم تتغير الحقيقة جربت الموضوع قبل ذلك فالذي وصلت اليه كتابة اسماء العناصر يدوياً Me.TextBox1.Width = Me.TextBox1.Width / 2 فارجو ان يحاول معنا الاخوة في هذا الموضوع الشيق لعلنا نصل الى نتيجة ان شاء الله تحياتي

جرب البحث الآن Example_2 (1).accdb

الاخ thewound22 شاهد المرفقات Test_1.rar

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

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

السلام عليكم هذا توزيع آخر مع التوزيع السابق... بن علية حاجي توزيع2.xlsx

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

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

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

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

جرب هذا Timer & Stopwatch.xlsm

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

السلام عليكم عملت لك نموذج بسيط لقتح وحفظ مسار pdf ضمن الاكسس اعلمنا النتائج image+pdf.rar

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

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

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

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

تفضل ولكن لتعلم ان الكمبوبوكس مختلف بالتأكيد عن طلبك الأول 1تجربة.xlsm

السلام عليكم-كان عليك قبل رفع المشاركة استخدام خاصية البحث بالمنتدى فهناك مشاركات تناولت طلبك هذا مثل عمل مقارنة بين البيانات الموجودة بصفحة معينة مع صفحة أخرى ولكنى قمت بعمل كل المطلوب فى ملفك مثال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

وعليكم السلام-تفضل بعد اذن الأستاذ حسين 12.xlsm

تفضل لك ما طلبت -يمكنك الإضافة كما تريد فى صفحة Data ver_1.xlsx

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

اهلا بك فى المنتدى -يمكنك استخدام هذه المعادلة =IF(COUNTIFS(Sheet1!$N:$N,$A2,Sheet1!$R:$R,$E2)>=1,"مدرج","غير مدرج") ملف مقارنه الاصناف مع الفاتوره1.xlsx

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

وعليكم السلام -الأمر فى غاية البساطة نبدأ بأول جزء بالمعادلة وهو Sum وهذه معادلة للمجموع كما تعلم اما بالنسبة Int وهذا لأن التاريخ مرتبط بوقت وكما تعلم ان الخلية A2 وهى اول خلية بها تاريخ ثم علامة الطرح ثم بعد ذلك نكتب المعادلة Weekday لحساب الأيام بين تاريخين اما الأرقام التى بين قوسين التنصيص وهى ارقام الأيام المراد حسابها بين التاريخين وعدم ذكر الرقم 1 والرقم 7 لأن 1 يعنى يوم الأحد رقم 7 يعنى يوم السبت وهذه الأيام التى تريد تجنب حسابها بين التاريخين اى حساب الفرق بين التاريخين بدون يومى السبت والأحد وباقى المعادلة اعتقد انه سهل وهو طرح التاريخ الكبير الموجود بالخلية B2- التاريخ الأصغر الموجود بالخلية A2 ثم بعد ذلك القسمة على 7 وهى عدد أيام الإسبوع واخيرا نطرح رقم 1

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

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

وعليكم السلام-تفضل =IF(ISNUMBER(E3),VLOOKUP(E3,$A$2:$B$500,2,0),INDEX($A:$A,MATCH(E3,$B:$B,0))) معادلة مزدوجة1.xlsx

هذه هى النتيجة 03:00 pm وليست 02:30 لا يوجد خطوات فقط اجعل تنسيق خلية الناتج كوقت وذلك كما بالصورة جمع ساعات 1العمل.xlsx

تفضل اخي هذا مثال قريب جداً لطلبك ارجو ان يفيدك Dur arb.rar ان واجهتك مشكلة في التطبيق ارفق مثال صغير ليتم التعجيل عليه ولك الشكر تحيايت

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