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

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

السلام عليكم لما تأخر الأخ ايمن بالرد على ابي جودي قلت يمكن لم يحقق مطلبه فرجعت للكود فوجدت انه ينقصه نقطة في هذا السطر ليصبح هكذا : NewFile = Me.StrNew & "\" & DBwithoutEXT & "-" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-Ss-AMPM") & "." & Right(DBwithEXT, 4)

السلام عليكم مشاركه مع اخى الفاضل @ابو محمد 316 جزاه الله خيرا 💐 اتفضل اخى @mrbakr ان شاء الله يكون ما تريد Private Sub Command405_Click() Dim strSql As String Dim TempQdf As QueryDef Dim db As DAO.Database Set db = CurrentDb strSql = "Select * from الموظفين" If Me.Fr_U.Form.Filter <> "" Then strSql = strSql & " WHERE " & Me.Fr_U.Form.Filter End If Set TempQdf = db.CreateQueryDef("ExportFiltered", strSql) DoCmd.OutputTo acOutputQuery, TempQdf.Name, acFormatXLSX, "", True, "", , acExportQualityPrint db.QueryDefs.Delete TempQdf.Name 'DoCmd.OutputTo acOutputQuery, "u", acFormatXLSX, "", True, "", , acExportQualityPrint End Sub بالتوفيق 123_1.accdb

من هنـــــــــــــــــــــــا مع ملاحظة أن بعض جمل الاس كيو ال لا تظهر سليمة فى الاكسبلورر ، لذا يرجي نسخها اذا أردنا تنفيذها أو مشاهدتها فى المثال المرفق Q3.zip

من هنا مرفق المثال Q5.zip

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

السلام عليكم ورحمة الله اجعل الكود هكذا Sub TEST() Dim Sh As Worksheet, LR As Long, Cel As Range Dim Stx1 As String, Stx2 As String, St1 As String, St2 As String, Texte1 As String, Texte2 As String For Each Sh In Worksheets(Array("DATA")) LR = Sh.Cells(Sh.Rows.Count, 17).End(xlUp).Row Stx1 = "جنيها ": Stx2 = "قرشا ": St1 = "و ": St2 = "لا غير" 'كيف يمكن تعديل هذين السطرين لتفقيط خانتى القرش والجنيه الملونه باللون الاصفر Texte1 = Ar_WriteDownNumber(Cells(LR, "Q")) Texte2 = Ar_WriteDownNumber(Cells(LR, "P")) With Sh.Cells(LR + 2, "C") ''' هنا حدد اين تريد يظهرالتفقيط 'وهذا السطر If Len(Texte2) > 0 Then .Value = "فقط " & Texte1 & Stx1 & St1 & Texte2 & Stx2 & St2 Else .Value = "فقط " & Texte1 & St2 End If End With ActiveWindow.SelectedSheets.PrintOut Copies:=1 ' Sh.Range(Sh.Cells(LR + 1, "A"), Sh.Cells(LR + 12, "C")).ClearContents Next Sh End Sub

أخى محمد بداية جزاكم الله خيرا وبارك فيكم لا حظت ذلك جيدا ولكن لا ينبغى أن يكون هناك علامة الدوت فى خلية القروش قد يبدو الأمر سهلا ولكن عندى ضبابية فى تصويب تلك الأسطر فى الوضع الطبيعى عندما نقوم بجمع خليتين للجنيهات والقروش فالمعادله المستخدمه على سبيل المثال هى =IFERROR(BE8+BD8/100;"") فكيف يمكن تضمين الخليتين معا فى الأسطر المراد تصويبها وفى جميع الأحوال شرف لى مشاركتكم الطيبة *** فهل من سبيل لتحقيق ذلك تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

طيب اتفضل فكرة بسرعة كده font (2).accdb

نعم استاذ قم بعمل استعلام اضافة كما بالمثال المرفق

جزاك الله كل خير وكان الله فى عونك اتأسف على كلامى لك شكرا وفقك الله

اتفضل empoyee - Copie.accdb

حضرتك 35 دولار انت حلبى صح انا مصرى شوف اخرها كام 100ج اشترى هههه

انا ضفت الميزة الممتازة دى البيان لكن كل الاوامر غير مفعلة

اتفضل جرب الكود الاتى Dim StrNew As String Dim StrOld As String Dim DBwithEXT As String Dim NewFile As String Dim CopyMyDB As String StrNew = "D:\LaundrySoftware\" StrOld = CurrentDb.Name DBwithEXT = Dir(StrOld) NewFile = StrNew & "\" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-Ss-AMPM" & "-") & DBwithEXT CopyMyDB = "cmd.exe /C copy " & """" & StrOld & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0

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

اخوي احمد ساعدني بوضع جميع الحقول المحسوبة في وحدة نمطية واحدة ، معادلة تحت الاخرى ، بالمسميات الموجودة في الجدول ، لأنك عملت تغيير على معادلات المعادلات اللي كانت موجودة في اول مشاركة 🙂 جعفر

جرب هذا الملف Smil.xlsx

استاذ محمد يوسف ابو يوسف الله يعطيك العافية اشكرك على سرعة الرد واشكرك على الاجابة المطلوبة نفعك الله بعلمك وزادك علما

وعليكم السلام-تفضل يمكنك استخدام هذه المعادلة لطلبك =IFERROR(VLOOKUP($B$2,البيانات!$A$2:$E$100,1,0),INDEX(البيانات!$A$2:$A$100,MATCH($B$2,البيانات!$B$2:$B$100,0))) test1.xlsx

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

عليكم السلام تفضل يا اخى اخفاء اعمدة.xlsm

وعليكم السلام-يمكنك استخدام هذه المعادلة =IFERROR(LOOKUP(2,1/('تفاصيل الحجز'!$E:$E=$B6)/('تفاصيل الحجز'!$D:$D=$C6)/('تفاصيل الحجز'!$G:$G=D$5),('تفاصيل الحجز'!$A:$A)),"") كشف حجوزات الملاعب -ماكرو.xlsm

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

ربما تحناح الى هذا الملف (النتيجة في الصفحة ALL) Sub Filter_All() Dim sh As Worksheet Dim A As Worksheet Dim AR_comp() Dim Ro%, K%, x%, t%, I% With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Set sh = Sheets("2021-3") Set A = Sheets("ALL") Set RG_Filter = sh.Range("B8").CurrentRegion If sh.AutoFilterMode Then RG_Filter.AutoFilter A.Range("A10:R1000").Clear Ro = RG_Filter.Rows.Count AR_comp = Array("شركة", "بنك مصر", "معاش") t = 10 For I = LBound(AR_comp) To UBound(AR_comp) RG_Filter.AutoFilter 4, AR_comp(I) RG_Filter.Cells(2, 1).Resize(Ro - 1, 18) _ .SpecialCells(12).Copy With A .Range("A" & t).PasteSpecial (8) .Range("A" & t).PasteSpecial (12) x = _ .Cells(Rows.Count, 1).End(3).Row + 1 .Cells(x, 1) = "Sum" .Cells(x, "G").Resize(, 12).Formula = _ "=SUM(G" & t & ":G" & x - 1 & ")" .Cells(x, 1).Resize(, 6).HorizontalAlignment = 7 .Cells(x, 1).Resize(, 18).Interior.ColorIndex = 35 t = x + 1 End With Next I If t = 10 Then GoTo End_me With A.Cells(t, 1) .Value = "TOTAL SUM :" .Resize(, 6).HorizontalAlignment = 7 .Resize(, 18).Interior.ColorIndex = 40 .Offset(, 6).Resize(, 12).Formula = _ "=SUM(G10:G" & t - 1 & ")/2" End With With A.Range("A10").CurrentRegion .Borders.LineStyle = 1 .Font.Size = 14 .Font.Bold = True .Value = .Value End With End_me: If sh.AutoFilterMode Then RG_Filter.AutoFilter With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic .CutCopyMode = False End With A.Activate Range("A10").Select End Sub الملف مرفق Nafal_1.xlsm

تفضل هذا الموضوع

=IFERROR(IF(TODAY()=I48;"العقد إنتهى اليوم";IF(TODAY()>I48;"العقد منتهي";IF(TODAY()<H48;"لم يتم تداوله";"العقد ساري")));IF(LEFT(CELL("format";M48);1)="D";"سداد مبكر";"") )

اتفضل اخى ان شاء الله يكون ما تريد بالتوفيق a21.accdb

عليك برفع الملف الذى يحدث به خطأ معك ... فالملف عندى يعمل بكل كفاءة حتى مع زيادة اى إدخلات جديدة وراجع الملف من فضلك مرة أخرى وهذه هى المعادلة المستخدمة بالتنسيقات الشرطية -مع ضبط تنسيقات اليوم داخل التقويم =MATCH(A5,BSD,0)

موعدنا اليوم مع شرح طريقة كيف تعرف أسعار العملات اليوم بدون مغادرة برنامجك في VBA اوفيس 2003 أو 2007 أو 2010 أو 2013 أو 2016 أو 2019 سواء برنامج اكسس أو اكسل أو وورد أو باوربوينت مع التعرف على أكواد عملات العالم وكذلك اسماء العملات باللغة العربية والانجليزية التعرف على نسخ النص الموجود في مربع النص إلى الحافظة والكثير من المفاجآت اكتشفها بنفسك ثالثا لمن يريد تحميل الملف الذي تم استخدامه في الشرح يمكنكم التعليق سواء هنا في المدونة أو في اليوتيوب وسيصلكم رابط الملف بإذن الله والآن مع فيديو الشرح ************** ولا تنسوا أحبابي الدعاء لغيركم بظهر الغيب حتى يقول لك الملك: آمين ولك مثلها إن شاء الله وتذكر لو بخل بها غيرك ما وصلت إليك فشارك المعلومة مع جميع أصدقائك في جميع مواقع التواصل الاجتماعي ============ القادم أفضل بإذن الله

تفضل كود لأحد اساتذة هذا المنتدي الجميل فواتير٣٣٣.xlsm

الاستعلامات الاستعلامات هي أهم كائنات قواعد البيانات ، من خلال الاستعلام يمكنك عمل الكثير كما سنري بإذن الله و لدينا عشرة أنواع من الاستعلامات خمسة منها لها واجهة رسومية يمكن استخدامها لتكوين الاستعلام باستخدام الفأرة أو كتابة الاستعلام يدويا و الخمسة الأخري سنكتب فيها جمل ال SQL مباشرة و الأصل فى الاستعلامات أنها جميعا فى النهاية عبارة عن جمل و تعبيرات SQL و قبل أن نعرض الي تعريف الانواع العشرة ، تعالوا نتعرف الي ما تعنيه هذه الحروف الثلاثة SQL Structured Query Language السي كيو ال هو لغة التعامل مع قاعدة البيانات و ينقسم الي 3 أقسام لغة معالجة البيانات DML Data manipulation language لغة تعريف البيانات DDL Data Definition language لغة التحكم فى البيانات DCL Data Control language لغة معالجة الييانات ادراج بيانات تحديث بيانات حذف بيانات استرجاع بيانات لغة تعريف البيانات هي إنشاء قاعدة البيانات فى البداية كان يتم انشاء قاعدة البيانات باستخدام جمل SQL ثم بعد ظهور نظم ادارة قواعد البيانات مثل الاكسس أصبحت هذه العملية تتم من خلال واجهة رسومية سهلة الاستخدام قادرة علي انشاء و التحكم أيضا فى قواعد البيانات و هذه اللغة مسئولة عن : إنشاء جدول الغاء جدول تعديل جدول العلاقات لغة التحكم تتولي معالجة صلاحيات المستخدمين و هذه العمليات أيضا أصبحت تتم من خلال الواجهة الرسومية لنظم ادارة قواعد البيانات و نعود ثانية الي الأكسس : :d سنبدأ فى هذا الموضوع بتعريف أنواع الاستعلامات ، كتعريف عام قبل أن نعرض اليها بالتفصيل بإذن الله تعالي: 1. استعلامات الاختيار : select query 2. استعلامات الجداول المحورية : ؛Cross Tab Query 3. استعلام تحديث : Update Query 4. استعلام إضافة : Append Query 5. استعلام حذف : Delete Query 6. استعلام إنشاء جدول : Make Table Query 7. استعلامات التوحيد : Union Query 8. استعلامات التمرير : Pass-Trough Queries 9. استعلامات تعريف البيانات : Data definition queries 10. الاستعلامات الفرعية : Sub-query استعلامات الاختيار : select query تكوين مجموعة من السجلات المبنية علي جدول أو أكثر من بحيث تمثل كل الببيانات أو المجموعة من السحلات التي تحقق شروط معينة. بالاضافة الي امكانية التحكم فى ترتيب السجلات . – مثل جميع الطلاب الذين تتعدي درجاتهم 90 و بلدهم القاهرة و عدد أيام الغياب لديهم أقل من خمسة – مع كون الشروط الثلاثة نخص بيانات مسجلة فى ثلاث جداول مختلفة. و كما تكلمنا سابقا ، يمكن عمل ذلك باحدي طرق تصفية الجداول ، و لكن هنا سيكون لدينا كائن استعلام محفوظ ، يمكن استخدامه فى أي وقت . أيضا يمكن استخدامه لتجميع البيانات التي تشترك فى خواص معينة ، أي تلخيص البيانات و في هذه الحالة يطلق عليها استعلام تجميع استعلامات الجداول المحورية : ؛Cross Tab Query و هي أداة تحليلية تستخدم لتحليل البيانات بناء علي الخاصية المطلوبة ، فيتم فيها تجميع البيانات التي تجمعها خاصية معينة و تحليلها بالنسبة لخاصية أخري و تقديم الاحصائية المناظرة بمعني : لو لدينا بيانات عدد من الطلاب ، و تقديرهم و الجنسية ، و نريد احصائية تكون الصفوف فيها هي البلد و الأعمدة هي التقدير و محتويات الجدول عدد الطلاب الذين ينتمون الي كل بلد و كل تقدير أو مثلا بدلا من العدد نريد البيانات مجموع المصروفات المناظر ، أو أكبر تاريخ ميلاد لكل بلد و لكل تقدير فنحن نتحدث عن تطبيق مباشر للاستعلامات من نوع Cross Tab استعلام تحديث : Update Query تحديث كل أو بعض قيم بيانات فى جدول بشروط او بدون استعلام إضافة : Append Query اضافة سجلات الي جدول بشرط و بدون استعلام حذف : Delete Query حذف كل أو بعض السجلات من جدول بشرط أو بدون استعلام إنشاء جدول : Make Table Query إنشاء جدول جديد يحوي بيانات مختارة استعلامات السي كيو ال المحددة SQL Specific Queries استعلامات التوحيد : Union Query مثل استعلامات الاختيار ـ، و لكن تتميز عليها بامكانية توحيد أو ضم بينات أكثر من جدول فى نفس الحقل فمثلا لو لدينا جدول به أوامر البيع و آخر به أوامر التوريد ، و كلاهما به حقل رقم الامر و القيمة و أردنا أن ننشيء استعلام واحد يجمع بيانات الجدولين بحيث يكون به ثلاث حقول الاول يوضح نوع الامر و الثاني رقمه و الثالث القيمة و تكون القيمة موجبة فى حالة اوامر التوريد و سالبة فى حالة اوامر الصرف ، فنحن نتحدث عن تطبيق مباشر لاستعلامات التوحيد استعلامات التمرير : Pass-Trough Queries تستخدم لارسال أوامر بلغة اس كيو ال ، الي خادم قاعدة بيانات مباشرة من خلال ال ODBC ، و قد يكون لها مردود باعادة عرض سحلات و قد لا يكون لها ، و تفاصيل كتابة الاوامر فيها تعتمد علي قاعدة البيانات التي سنقوم بالتمرير اليها و نمر سريعا علي تعريف ال ODBC : Open Database Connectivity (ODBC): A standard method of sharing data between databases and programs. ODBC drivers use the standard Structured Query Language (SQL) to gain access to external data.) امكانية الاتصال بين قواعد البيانات ، و مشاركة البيانات بينها ، و تعتمد علي لغة الاستعلامات البنائية ( اس كيو ال) النمطية للتعامل مع البيانات استعلامات تعريف البيانات : Data definition queries و هي تستخدم لانشاء و حذف و تعديل الجداول و الفهارس الاستعلامات الفرعية : Sub-query و هو ليس نوع جديد ، و لكنه تطبيق لاستخدام استعلامات الاختيار ، و لكن هذه المرة لتعريف حقل أو معيار لحقل و طبعا هذا تعريف عام ، كبداية للحديث ، و يلي ذلك عرض الموضوع بالتفصيل بإذن الله

عسى ان يكون المطلوب جرب هذا الكزد Sub talween() ro = Cells(Rows.Count, "O").End(3).Row Range("a1:o" & ro).ClearFormats For Each cell In Range("o1:O" & ro) If IsNumeric(cell) And cell.Value < 0 Then cell.Offset(0, -14).Resize(1, 15).Interior.ColorIndex = 3 End If Next End Sub حاجة سهلة كل شيء بالكود متعلق بالحرف O استبدله الى M و استبدل الرقم 14- ب 12- و الرقم 15 ب 13 وأخيراً اين الاعجاب بالكود

عسى ان يكون المطلوب جرب هذا الكود Sub talween() For x = 1 To Sheets.Count With Sheets(x) ro = .Cells(Rows.Count, "O").End(3).Row .Range("a1:o" & ro).ClearFormats For Each cell In .Range("o1:O" & ro) If IsNumeric(cell) And cell.Value < 0 Then cell.Offset(0, -14).Resize(1, 15).Interior.ColorIndex = 3 End If Next End With Next End Sub

أخي الفاضل إبراهيم السيد أهلا بيك في المنتدى ونورت بين إخوانك يرجى الإطلاع على رابط التوجيهات للضرورة .. مش مجرد روتين http://www.officena.net/ib/index.php?showtopic=60147 بالنسبة للفيل اللي نزلته (قدرت تنزله لوحدك ..بسم الله ما شاء الله .. بس الفيل تقيل يا جميل إزاي قدرت تنزله هههه ) بالنسبة لطلبك الموضوع في منتهى البساطة والشياكة إنت عندك في الخلية P1 موجود تاريخ حلو الكلام (قول حلو بس اوعاك تاكله ..) اللي حصل كالآتي .. الأخ اللي عمل الفايل حدد النطاق بالكامل من $A$1:$N$1000 من التبويب Home لو عندك إصدار أوفيس 2007 فما فوق .. هتلاقي Conditional Formatting أو بالعربي التنسيق الشرطي (بس دا ملوش علاقة بالشرطة ) افتح القايمة المنسدلة اللي جنب الكلمة واختار New Rule .. دا لو لسه مكانتش اتعملت اختار آخر اختيار في النافذة اللي اسمها New Formatting Rule والخيار اسمه Use a formula to determine which cells to format وهتكتب المعادلة التالية في الحقل اللي على يمينه سهم أحمر يا أهلاوي =$A1>=$P$1 المعادلة بتقول إن الخلية A1 أكبر من أو يساوي الخلية P1 (يعني التاريخ في A1 أكبر من أو يساوي التاريخ في الخلية P1 ..) لاحظ إن الخلية P1 قبلها علامة الدولار قبل اسم العمود وقبل رقم الصف (أصلها لسه خارجة من البنك ...) طبعاً لأن الخلية دي ثابتة ...أما الخلية A1 متغيرة يعني لما المعادلة تنطبق على باقي الخلايا طبيعي إننا نختبر كل الخلايا مش الخلية A1 بس عموما المعادلة بتكون نتيجتها يا أبيض يا إسود ..أقصد يا صح يا غلط .. أقصد يا True يا False يعني لما الشرط يتحقق ويكون التاريخ الموجود في الخلية A1 أكبر من التاريخ في P1 بيكون الناتج Tue ولما الناتج يكون صح بكدا الإكسيل هيسمع الكلام وينفذ المطلوب منه طيب ايه المطلوب من الإكسيل (دا إنت اللي بتحدده) إزاي هقولك ..ركز معاايا آخر حاجة كتبنا المعادلة ..دلوقتي هتلاقي زر أمر اسمه Format (عينك تاااااااهت ليه ) تحت الحقل اللي كتبت فيه المعادلة لما تنقر Format (اشرب فوسفات وانسى اللي فات) هتلاقي فيه تبويبات في النافذة اللي طلعت (تدخل على أي تبويب ... والمشهور التبويب Fill بتاع تلوين الخلية) واختار اللون اللي يعجبك وبعدين تضغط أوك 3 مرات .... أرجو أن تكون قد استفدت أخوك أبو البراء

السلام عليكم الأخت الفاضلة samia84 أرجو أن أكون فهمت ماتريدين بالمرفق تجدين التالي العمود الأول به الإسم باقي الأعمدة بيانات مختلفة (مثلا : العمر ، الطول ، الراتب ... إلخ) التلوين يتحقق إذا تحقق الشرطان 1- كانت خانة العمود الأول ليست فارغة 2- عدد البيانات في باقي العمدة يقل عن 4 (فرض من عندي كي لا يزيل اللون إلا بعد عدد بيانات معين) وتستطيعين طبعا تغييره كما تريدين شرط التنسيق هو كما بالمرفق =AND(ISBLANK($A3)=FALSE,COUNTA($B3:$K3)<4) دفتر التنقيط.rar

السلام عليكم أخي العزيز / يوسف عطا أخي العزيز / ابو ريم 77977 تفضلا المرفق تلوين2.rar

طريقة خامسة في شكل شطرنجي في شكل شطرنجي.rar

طريقة أخري كل صفين تظليل كل صفين.rar

طريقة أخري كل 4 صفوف تظليل كل أربع صفوف.rar

أليك بالأضافة إلي حلول أساتذتي الأفاضل حل بطريقة أخري تظليل سطر وترك سطر.rar

السلام عليكم هذه طريقة تحايل بسيطه لاسترجاع بعد تنفيذ الكود لاكن فيها بطئ فرضاً هذا الكود المستخدم Sub XXXXXX_A() '*************** ' تحط هذا بداية الكود لحفظ النطاق قيل التنفيذ Sav_Ali '*************** [A2:A10].Clear End Sub وهذا كود حقظ بيانات النطاق Type S_Ali V_A As Variant D_A As String End Type Public ACT_BOOK As Workbook Public ACT_SH As Worksheet Public ACT_R() As S_Ali Sub Sav_Ali() Application.ScreenUpdating = False Dim R As Range Set R = [A1:Z500] If TypeName(R) <> "Range" Then Exit Sub ReDim ACT_R(R.Count) Set ACT_BOOK = ActiveWorkbook Set ACT_SH = ActiveSheet I = 0 For Each CE In R I = I + 1 ACT_R(I).D_A = CE.Address ACT_R(I).V_A = CE.Formula Next CE Application.ScreenUpdating = True End Sub وهذا الكود للاسترجاع ماقبل تنفيذ الكود Sub UO_Ali() With Application .ScreenUpdating = False .EnableEvents = False On Error GoTo Err Application.ScreenUpdating = False ACT_BOOK.Activate ACT_SH.Activate For I = 1 To UBound(ACT_R) Range(ACT_R(I).D_A).Formula = ACT_R(I).V_A Next I .ScreenUpdating = True .EnableEvents = True End With Exit Sub Err: MsgBox "حدث خطاء لايمكن الإسترجاع" End Sub ربما تفيد البعض هذه الطريقة

أخي العزيز بالمرفق تم عمل المطلوب من خلال التنسيق الشرطي بمعادلة ستظهر لك بمراجعة التنسيق الشرطي الموجود بالنطاق (A1:1000) وقد تم ربط التاريخ بالمعادلة في النطاق بالتاريخ الموجود بالخلية P1 كما تري في معادلة التنسيق الشرطي ويمكنك تغيير الحالة من تغيير التاريخ ب P1 كم يمكنك التحكم في نطاق الخلايا التي ستظلل من الصف بتعديل الشرط بالتنسيق الشرطي الخاص بنطاق الخلايا المتأثرة بالشرط ، هذا ما أسعفني به الوقت في حدود ما فهمته من طلبك . تحياتي أبو عبدالله تنسيق شرطي على أساس تاريخ.rar

شرح استعلامات التوحيد من هنا مرفق المثال Q8.rar

استعلام انشاء جدول من هنا و المثال : Q7.rar

من هنا مرفق المثال Q6.rar

من هنـــــــــــــــــــــــا و مرفق المثال Q4.zip

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

الجزء االثاني - محتوبات الموضوع : إنشاء إستعلام إختيار باستخدام المعالج تمثيل العلاقات المختلفة بجمل الاس كيو ال استعلام الجداول المحورية إٍستعلام إيجاد القيم المتكررة إستعلام إيحاد القيم الغير متماثلة المجموعات فى الأكسس الموضوع من هنا و المثال التطبيقي مرفق Q2.zip

3-2 إستعلامات الاختيار - 1 Select Queries - Part1 فى هذا الموضوع ستبدأ بإذن الله الحديث عن أول و اهم انواع الاستعلامات ،ـ و الاكثر استخداما الا و هو استعلام الاختيار Select Query و سنخصص له حلقتين بإذن الله و هذه اولاهما و محتوياتها كالتالي : إنشاء استعلامات الاختيارمن وضع التصميم Creating Select Queries From Design View وضع عرض البيانات Datasheet View ترتيب السجلات Sorting Records وضع الشروط Conditions لقيم المستنتجة و اجراء الحسابات استخدام دالة داخل الاستعلام Using a Funcion in the Query تجميع أو تلخيص البيانات Grouping Records و الموضوع من هنا و المثال المرفق : Q1.zip