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

استعمل .... Do Until rst.EOF بدلا من ..... DoCmd.GoToRecord , , acFirst For i = 1 To Me.kan + 1 جرب واعلمنا بالنتيجة

وعليكم السلام ورحمة الله وبركاته تصفير جميع السجلات ( وضع صفر لحقل chkdays ) DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE tblNumbers SET tblNumbers.chkdays = 0;" DoCmd.SetWarnings True ثم نحدد الارقام الفردية لوضع قيمة -1 لها mySQL = "Select * From tblNumbers WHERE [MyNumber] MOD 2 = 1" تنفيذ الامر For i = 1 To rst.RecordCount rst.Edit rst![chkdays] = -1 rst.Update rst.MoveNext Next الكود كامل DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE tblNumbers SET tblNumbers.chkdays = 0;" DoCmd.SetWarnings True Dim mySQL As String Dim rst As Recordset Dim i As Double mySQL = "Select * From tblNumbers WHERE [MyNumber] MOD 2 = 1" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst For i = 1 To rst.RecordCount rst.Edit rst![chkdays] = -1 rst.Update rst.MoveNext Next TestDB.rar تحياتي

جرب المرفق Database001.accdb

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

ممكن عن طريق وحدة نمطية واستعلامين 2 النتيجة النهائية في استعلام q_2 ConcatRelated("[q]";"nam4";"[nb] = " & [nb];"[id]";" - ") 0.accdb

فى ناس كتير بتكون فى أشغال فيها عد فلوس كتير مع العملاء أو المناديب - ومش بيكون عندهم ماكينة عد فلوس - او بيتعاملوا مع فلوس قديمة - الملف ده اكيد هايسهل عليهم عملية تجميع وتفقيط الفلوس بالعربي والانجليزي - بمجرد عد كل فئة وكتابة عددها باسوورد الملف 123 لأي صديق يريد تطوير الملف ليناسب أى عملات لأي دولة أخرى 0001 حاسبة النقود المصرية.xlsm

بعد اذن اخي محمد كود مختصر ممكن عن طريق كود استعلام على اساس الرقم الفردي يبقى صفر والرقم الزوجي اي ما يقبل القسمة على 2 يحدث ابى 1 DoCmd.RunSQL "UPDATE tblNumbers SET tblNumbers.chkdays = 1 " & vbCrLf & _ "WHERE (((IIf([mynumber] Mod 2=0,""Even"",""Odd""))=""Even""));" للتصفير DoCmd.RunSQL "UPDATE tblNumbers SET tblNumbers.chkdays = 0;" TestDB.accdb

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

أخي أحمد شكراً على هذه النداءات التي تقوم لها من أجلي و من أجل باقي الأعضاء الذين يقومون بالمساعدة دون اي بدل مادي و أعدك اي صاحب سؤال لا يستجيب لهذه النداءات سوف يضاف عندي الى "القائمة السوداء" التي تحتوي حالياً على حوالي 5 أشخاص بحيث امتنع عن تقديم مساعدة له

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

بارك الله فيك الاستاذ خالد و هذا طريقة تغير بسيط في جملة sql 0.accdb

قم اضافة ما بلي على الكود (حسب الصورة) الملف مرفق malak.xlsm

وعليكم السلام عليكم ورحمة الله تعالى وبركاته تفضل لعلة طلبك Database1.accdb

تم التعديل على الملف hassan rady_1.xlsb

نعم صحيح أخي @jjafferr بارك الله في اعتمامك

يعمل الكود بكفاءة .....

هذه لم افهما وخانة اخرى تقوم بترحيل الرقم الذى يكتب فيها الى العمود j بدا من j2 الباقي في الملف NewYARA_2User Uniqus..xlsm

المطلوب غير مفهوم اين تريد ادراج المعلومات؟؟؟؟ حاولت ان ادرجها لك في ListBox كما في المثال المرفق (اختر اسم الشيت من الــ ConboBox) aboezz623.xlsm

طابعة جيدة وتستخدم ورق مقاس 80 فقط اختار عرض 7.9 وفي تنسيق التقرير ضع العرض 6.5 انظر للصورة المرفقة بالنسبة لطول الورقة غير مهم الطابعات الحرارية تطبع الرول حسب طول التقرير ويتم قطع الورقة من خصائص الطابعة بشكل اتوماتيكي او يدوي حسب اعدادك لها

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

السلام عليكم سبب مشكلتك اظن هذا الكود فعندما تنتقل الى شيت "ملاك" ينشط الكود ويلغي عملية اللصق Private Sub Worksheet_Activate() ScreenOn End Sub Sub ScreenOn() Application.Calculation = xlAutomatic Application.EnableEvents = True Application.ScreenUpdating = True End Sub

شكرا لك استاذ @kha9009lid بارك الله فيك

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

السلام عليكم ورحمة الله لست أدري أين الخلل في الترحيل !! وبدلا من ذلك، تم عمل الترحيل بوساطة المعادلات مع عمود مساعد في شيت Data (العمود V)... أرجو أن تفي الغرض المطلوب... بن علية حاجي Ton travail.xlsm

جرب المرفق من مشاركة سابقة لاستاذنا الفاضل @jjafferr 0.accdb

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

هناك مسافة زائدة في اسم الصفحة "يناير "يجب ازالتها قم باضافة شيت تحت اي اسم مثلاً "Summation" بدون كود هذه المعادلة =SUM('يناير:مارس'!D4) أو هذا الكود Option Explicit Sub test() Dim First As Worksheet Dim Last As Worksheet Set First = Sheets("يناير") Set Last = Sheets("مارس") With Sheets("Summation").Range("D4") .Formula = "=SUM('" & First.Name & ":" & Last.Name & "'!D4)" .Value = .Value End With End Sub النلف مرفق Hissam.xlsm

بيان العجز والزيادة للعام 2021.xlsx أستاذ جرب المرفق لعله المطلوب إن شاء الله أو جزء منه

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

الان فهمت ماذا تريد =IF(NOT(ISNUMBER(A2)),"",DATE(YEAR(A2)+B2,MONTH(A2),DAY(A2)-1)) أو =IF(NOT(ISNUMBER(A2));"";DATE(YEAR(TODAY())+B2;MONTH(A2);DAY(A2)-1)) الملف من جديد Hasan_1.xlsb

العفو أخي @kanory 🙏 وبارك الله فيك و زادك الله علماً وعملاً صالحاً.

وعليكم السلام-تفضل قوائم 2021-.xlsb

أخي الكريم تابع هذا الموضوع هنا ... التكمله هنا

وعليكم السلام-فقط يمكنك وضع هذا الكود فى حدث ThisWorkBook Private Sub Workbook_Open() If Range("C5").Value = Range("C12").Value Then Sheet1.Range("e5:e12").ClearContents End If End Sub كود بشرط.xlsm

توضيح

1-تغيير اسم الصفحة الأولى الى Main من اجل نسح الكود بطريقة صحيحة دون مشاكل اللغة العربية 2- الماكرو اللازم عدد (2) Option Explicit Sub From_One_to_ALL() Dim sh As Worksheet Dim Itm, m% Dim Filter_Range As Range Dim AR() Application.ScreenUpdating = False Set Filter_Range = _ Sheets("Main").Range("A1").CurrentRegion m = 1 For Each sh In Sheets If sh.Name <> "Main" Then ReDim Preserve AR(1 To m) AR(m) = sh.Name m = m + 1 End If Next For Each Itm In AR Sheets(Itm).Range("A1").CurrentRegion.Clear Filter_Range.AutoFilter 1, Sheets(Itm).Name Filter_Range.SpecialCells(12).Copy _ Sheets(Itm).Range("A1") Next Application.CutCopyMode = False If Sheets("main").AutoFilterMode Then Sheets("Main").Range("A1").AutoFilter End If Erase AR Application.ScreenUpdating = True End Sub '+++++++++++++++++++++++++++++++++++ Sub Clear_all() Dim sh As Worksheet For Each sh In Sheets If sh.Name <> "Main" Then sh.Range("A1").CurrentRegion.Clear End If Next End Sub الملف مرفق GROUPING_SHEETS.xlsm

جرب الآن الدورات التدريبية3.xls

مرفق الملف بعد التعديل المطلوب وبالتوفيقhamed 2.xls

مرفق ملف به إيجاد رمز البلديات من خلال معادلة vlookup code departement.xlsx

وهذه طريقتين أخريين لإيجاد المطلوب وبالتوفيق code departement.xlsx

مرفق ، وبالتوفيق لاحظ أن المعادلة هي: =INDIRECT(ADDRESS(3;COLUMN()-2;;;$D3)) والرقم -2 جاء من فرق مكان الخلايا في الشيتات عن مكانها في الشيت الرئيسي المبيعات.xlsx

من المعروف ان دالة INDIRECT غير موجودة في الـــ VBA لكن بواسطة دالة معرفة يمكن الزامها على العمل شاهد هذا الملف iNDIRECT_VBA.rar

السلام عليكم اخي الكريم ديو05 توجد عدة مشاكل في مثالك مثلا لا يتم الجمع في الجداول لمعرفة الرصيد ولكن في الاستعلامات نقوم بالعمليات الرياضية ( جمع - طرح - قسمة ) فينتج الرصيد بعد ذلك من ناتج طرح كمية الشراء - كمية البيع ثانياً المفروض ان يوجد 1 - جدول خاص ببيانات الاصناف 2 - جدول خاص ببيانات الموردين 3 - جدول خاص ببيانات العملاء 4 - جدول خاص بفواتير الشراء 5 - جدول خاص بتفاصيل فواتير الشراء 6 - جدول خاص بفواتير البيع 7 - جدول خاص بتفاصيل فواتير البيع جهزت لك ملف سريع لبيان جداول العملاء والاصناف وفاتورة بيع وتفاصيل فواتير البيع وجهزت لك نموذج فاتورة بيع اكمل على نفس هذه الطريقة وستفيدك جداً باذن الله تعالى تحياتي db5.rar

في النموذج المستمر لم استطع للتوصل إلى حل ( وعلى حد علمي انه لا يمكن عمل ذلك في النموذج المستمر ) فجرب الطريقة التالية في النموذج المفرد single form تغير لون الزر.rar

انا استعملها فى اوفيس 2007 INSERT ثم DATA ثم FROM WEB وتضع رابط الصفحة المراد جلي البيانات منها ثم GO ثم تختار الجدول المطلوب فى الصفحة ثم تضغط IMPORT

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

يفضل وضع مثال به ملف الإكسل وتوضيح موضوع قاعدة البيانات أكثر حتى يتم بإذن الله الوصول للمطلوب

جزاك الله خيراً أخي يحيي

السلام عليكم و رحمة الله اخي انت لست بحاجة لاي Add-in من تاب dara اختر from web ضع رابط الموقع ثم اضغط Go و سيظهر لك الموقع بعد ان تختار الجدول داخل صفحة الموقع حيث ستظهر لك اسهم صفراء ستساعدك في عملية التحديد ثم اضغط Import دمت في حفظ الله

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