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

h.xlsx اتفضل المعادلة لتفعيل المعادلة بتدوس ctrl+shift+enter ولو بتستخدم excel 2019 او 365 هتلاقى دالة maxifs بدل المعادلة دى

السلام عليكم و رحمة الله استخدم المعادلة التالية =IF(COUNTIFS($B$2:$B$220;B2;$C$2:$C$220;C2)>1;"مكرر";"")

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

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

السلام عليكم تفضل الحل You must remove filters from your data to be able to drag and increase numbers. It is possible to do this in a few ways. Firstly, select the tiny Filter icon in cell B4 and choose Clear Filters From “Names” and hit the OK button. Or, you can select Sort & Filter >> Filter from the Home tab. Besides clicking on the Filter icon from the Data tab gives the same result. Alternatively, you can use CTRL+SHIFT+L as a keyboard shortcut. But the last three ways completely remove all filters from the worksheet. محرك بحث ديناميكي.xlsm

طيب جرب المرفق ::::::::::::::::::: افتح الفورم frm_kanory طبعا لم ارحل ولا سنه .... فلذلك عند الضغط على رز السنوات الماضية تجد النموذج فارغ ..... الان اختر مثلا عام 2008 ثم اضغط على ترحيل سوف يتم ترحيل هذا العام ولا يمكن ان ترى هذه السنه الا بعد الضغط على السنوات الماضية وهكذا لجميع الاعوام ... جرب واعلمنا بالنتيجة <<<<<<< ‏‏ورشة عمل1.rar

خالص امتناني لدعائكم الكريم ..وانتم بالمثل يارب

السنة الطلوب ترحيلها !!! 1- من 365 يوم الى الأن ؟ 2- أم السنة السابقة 2022 ؟

وعليكم السلام-لابد ان تكون المعادلة هكذا =IF(AND(H7="الرابع",G7="نصف العام"),L7,IF(AND(H7="الخامس",G7="نصف العام"),L9)) ss.xlsx

استخدم المعادلة التالية =SUMIFS(C3:C11,B3:B11,"<="&D1,A3:A11,">="&D1)

السلام عليكم تفضل اخي الكريم الملف بعد التعديل DoCmd.OpenReport "تقرير1", acViewPreview, , "[ID] =" & Me.id اتمنى يكون المطلوب Database1.accdb

وعليكم السلام ورحمة الله وبركاتة اخي لما ذا لا تستخدم اله البحث .. فهذا الموضوع مكرر كثيراً انظر https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=53809 ايضاً https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=51564 ايضاً https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=63802

السلام عليكم ورحمة الله وبركاتة ..... كل عام وحضراتكم بخير بعد اذن .. اخي .. كريم تفضل محمد.xls

In the code you have this line x = ComboBox1.Value So if you don't select any option from the ComboBox1, you will get the `x` variable equals to empty and this will cause an error You can exit sub by adding this line If x = "" Then MsgBox "Select Option First":Exit Sub

وجزاكم مثله اخي جرب هذا التعديل Private Sub TextBox2_Change() If TextBox2 = "" Then AutoFilterMode = False Else Range("H1").AutoFilter , field:=8, Criteria1:=TextBox2.Text 'Right(TextBox2.Text, Len(TextBox2.Text)) & "*" Dim X X = Application.Match(Val(TextBox2), ورقة3.Columns(4), 0) If Not IsError(X) Then With ورقة3.Cells(X, "B") .Value = ورقة1.Cells(1, "I").Value .Interior.ColorIndex = 30 'From 1 to 56 لون الخلفيه .Font.ColorIndex = 20 'From 1 to 56 لون الخط End With End If End If End Sub

Sub colorCells() Dim ws As Worksheet Dim lastRow As Long Dim lastColumn As Long Dim i As Long Dim j As Long Set ws = ActiveSheet ' تعيين الصفحة المفتوحة كـ ws ' تحديد عدد الصفوف والأعمدة في الصفحة lastRow = ws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row lastColumn = ws.Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column ' تكرار الصفوف والأعمدة وتحديد اللون الذي تريده لكل خلية For i = 1 To lastRow For j = 1 To lastColumn Select Case j ' يمكنك تغيير هذه الأرقام والألوان لتناسب احتياجاتك Case 1 ws.Cells(i, j).Borders.LineStyle = xlContinuous ws.Cells(i, j).Borders.Color = RGB(255, 0, 0) ' اللون الأحمر Case 2 ws.Cells(i, j).Borders.LineStyle = xlContinuous ws.Cells(i, j).Borders.Color = RGB(255, 255, 0) ' اللون الأصفر Case 3 ws.Cells(i, j).Borders.LineStyle = xlContinuous ws.Cells(i, j).Borders.Color = RGB(0, 255, 0) ' اللون الأخضر Case 4 ws.Cells(i, j).Borders.LineStyle = xlContinuous ws.Cells(i, j).Borders.Color = RGB(0, 0, 255) ' اللون الأزرق Case 5 ws.Cells(i, j).Borders.LineStyle = xlContinuous ws.Cells(i, j).Borders.Color = RGB(255, 0, 255) ' اللون الأرجواني Case 6 ws.Cells(i, j).Borders.LineStyle = xlContinuous ws.Cells(i, j).Borders.Color = RGB(0, 255, 255) ' اللون الأزرق الفاتح End Select Next j Next i End Sub

وعليكم السلام ورحمه الله وبركاته جرب هذا التعديل العملاء 2.xlsb

In worksheet module put the code Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim rng As Range Set rng = Range("F9:L13") If Not Intersect(Target, rng) Is Nothing Then Cancel = True Call VBA_Circle_Text Range("K17").Value = CountOvalShapes(rng) End If End Sub Sub VBA_Circle_Text() Dim cel As Range, m As Double, n As Double Set cel = Application.Selection DeleteShapesWithinRange cel With cel m = .Height * 0.1 n = .Width * 0.1 Application.ActiveSheet.Ovals.Add Top:=.Top - m, Left:=.Left - n, Height:=.Height + 2.25 * m, Width:=.Width + 1.75 * n With Application.ActiveSheet.Ovals(ActiveSheet.Ovals.Count) .Interior.ColorIndex = xlNone With .ShapeRange.Line .Weight = 2 .ForeColor.RGB = vbRed End With End With End With cel.Select End Sub Function CountOvalShapes(ByVal rng As Range) As Long Dim shp As Shape, cnt As Long For Each shp In ActiveSheet.Shapes If shp.Type = 1 And Not Intersect(shp.TopLeftCell.MergeArea, rng) Is Nothing Then cnt = cnt + 1 Next shp CountOvalShapes = cnt End Function Sub DeleteShapesWithinRange(ByVal rng As Range) Dim shp As Shape For Each shp In rng.Parent.Shapes If Not Application.Intersect(rng.Parent.Range(shp.TopLeftCell.Offset(1, 1).Address), rng) Is Nothing Then shp.Delete Next shp End Sub

وعليكم السلام - يمكنك استخدام هذه المعادلة =IFERROR(index($C$5:$C$51,match(0,index(countif($AF$4:af4,$C$5:$C$51),),0)),"") الحساب اليومي1.xlsx

أحسنت استاذ مجدى عمل ممتاز جعله الله فى ميزان حسناتك

بارك الله فيك استاذنا الجليل وكل عام وانتم بخير

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

كما اوضح لك الأستاذ علي العيدروس يبدو ان اعدادات اللغة لديك غير مضبوطة على اللغة العربية لابد من تنفيذ الخطوات كما بالصورة وذلك من لوحة التحكم(Control Panel)

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

أحسنت استاذ مجدى بارك الله فيك

بعد اذن استاذنا الكبير سليم ولإثراء الموضوع يمكنك تجربة هذا اكثر من شخص1.xlsx

جرب الكود الموجود بهذا الرابط من أعمال أستاذنا الكبير ياسر خليل ابو البراء https://pastebin.com/DdEr76jc

اهلا بك فى المنتدى-تفضل 1التسويات.xlsx

بارك الله فيك واحسن الله اليك ووسع الله فى رزقك

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

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

جرب كده نسخة_من_تطبيق_فرق_السعر_هيئة.xlsm

وعليكم السلام-تفضل لك ما طلبت بمجرد اختيار رقم السجل من القائمة المنسدلة Search.xlsx

وعليكم السلام-تفضل لك ما طلبت TEST1.xlsm

هذا تجميع لأهم الدروس والمواضيع المميزة بالمنتدى ضم روابط المواضيع المثبتة من أعمال معلمينا الفضلاء ومبدعينا في صفحة واحدة .. وذلك من باب التجديد والتغيير وإعطاء مساحة اكبر للمواضيع المتجددة .. *********************************************************************** أولا : توجيهات للأعضاء الجدد في المنتدى ثانيا : طلب من جميع الخبراء وجميع الاعضاء النشطاء الذين يتصدون للحلول وإجابة السائلين *********************************************************************** القسم الأول : الجداول والاستعلامات: الاستعلام الجدولي والمعايير القسم الثاني : النماذج: شرح أداة WebBrowser 1 2 شاشة انتظر من فضلك !! | سلسلة مهارات في أكسس | 06 | توسيط النماذج داخل النافذة أو الإطار طريقة إبداعية لتغيير خلفيات جميع النماذج إعادة تسمية العناصر الكثيرة دفعة واحدة في النموذج بأسماء متسلسلة مثل : ( Box2 , Box1 , ... ) ⭐ كيف تغير اللغة في برامجك ⭐ ✨💻 صفحة رئيسية متطورة بقائمة جانبية وأزرار فرعية ⭐ التحكم الكامل فى واجهة اكسس ( تصغير بجوار الساعة - توسيط - اخفاء - تغيير أيقونة شعار أكسس ) القسم الثالث : التقارير: مسقط التقارير او صانع التقارير انشاء شريط طباعة للتقرير القسم الرابع : الماكرو والوحدات النمطية VBA: إنشاء دروس VBA أكسس كشكول VBA ترجمة النصوص وتحويلها إلى صوت في vba باستخدام جوجل ( تجارب وفوائد ) :: دالة لحساب أيام الحضور والغياب .. وفكرة عد القيم النصية في حقول السجل الواحد :: اجعل برنامجك يعمل على النواتين 32بت و 64بت اجعل برنامجك يعمل على النواتين 32بت و 64بت _ طريقة ثانية شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( بداية مهمه لتسجيل الاخطاء) شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( FileDialog ) شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( بداية مهمه لتسجيل الاخطاء) شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( FileDialog ) شخابيط وافكار : اليوم اقدم اليكم منفعة لا غنى عنها (ImmediateWindowHelper) تفقيط عام متعدد : تحويل الارقام وقيمة ارقام العملة أو ( عملات متعددة ) الى نص مع التفقيط باللغة العربية ولغة اخرى منتقى التواريخ "Date pickers" القسم الخامس : قواعد البيانات SQL وما يتعلق بها: أكسس و اسكيوال سيرفر Access with Sql Server الأكسس و SQL جُمل SQL مشاركة قاعدة البيانات على الانترنت بواسطة SQL Server [تطبيق] تحويل قاعدة بيانات اكسس الى SQL Server (الجزء الاول _ الجزء الخامس) ربط الاكسيس ب php القسم السادس : البرامج والأدوات والإضافات: إدارة الجداول المرتبطة ، أداة وشروحات نظام مراسلة واشعارات شبيه بالفيس بوك معالج بحث وتصفح مسقط التصفح كارنيهات باستخدام باركود ماتركس - QR code محاكاة برنامج واتساب بالاكسس .. هدية لاوفيسنا القائمة المختصرة - Shortcut menu ارسال رسائل whatsapp (وتساب) بدون حفظ الرقم رسائل whatsapp (وتساب) في اكسس رسائل whatsapp (وتساب) بدون حفظ الرقم ( الكاتب الذكي لدوال المجال في أكسس Dloockup, DCount, DMax, DMin, Dfirst, DLast , DSum, DAvg) ⭐⭐(( مكتبة الأكواد الخاصة )) :: الإصدار الثاني 2.0 ⭐⭐ ، /// ، مكتبة الأكواد الخاصة | سلسلة هدايا الأكسس | 04 | 🎁 - 📟 آلة حاسبة 📟 - هدية مميزة مفتوحة المصدر 🎁 🖌️✏️👨😉🧑‍💻 ... برنامج دردشة بين المستخدمين على الشبكة ... 👨‍💻🧑‍💻✍️😊✏️🖊️ 🎁 :: هديتي لكم :: 🌷📨 >> برنامج مرسال الواتسأب - مع المرفقات - << ✉️ 🙂🌷💌 🎁 :: مرسال الواتسأب :: 📨 :: الإصدار الثاني 2.0 :: مطور :: 🧬🏹 🎁 هدايا الأكسس ✨ | 03| زاد المثابر للحصول على أسماء العناصر في أكسس | أداة رائعة للمطورين 🧛🏻‍♂️ [الاصدار الثاني] ارسال رسائل جماعية لعدد x من المستخدمين على الواتس اب في الاكسس هدية: برنامج تصدير بيانات من جداول/استعلامات اكسس الى اكسل ، 32بت و 64بت هداء لكم برنامج بسيط للديون والسداد 🟢 واتساب ويب web.watsapp 🟢 هدية : تصدير كائنات دفعة واحدة الى قاعدة أخرى أو حسب إختيارك 🧮 الكاتب الذكي لدوال المجال |::| 📜 نسخة مطورة ومحدثة |::| 😊 الإصدار الثاني 2.0 ⭐ كيف تغير اللغة في برامجك ⭐ القسم السابع : الأفكار والنصائح والتوجيهات: مواضيع مهمة .. قراءة وتفكيك بيانات الحقل الى حقول تطبيقات وأفكار وتلميحات تخفيض امان windows وتسجيل المكتبات عند تنصيب البرامج هام لمطورى ومصممى قواعد البيانات إنتبهوا حتى لا تواجهوا مشاكل مع العملاء خلاصة الأقوال .. حول مسائل الحماية 🔒🔑💪🏻 القسم الثامن : مواضيع متنوعة: ملف للبحث عن المواضيع في هذا المنتدى بعض المواضيع المتميزة والمهمة ( 8 ) الحماية برقم القرص الصلب والمعالج واللوحة الأم شرح أكسس 2003 - 2007 - 2010 - 2013 ( صوت وصورة ومرفقات ) رفع نسخة احتياطية على السحابة (google drive) ::💡 أفكار وفوائد 💡:: أسهل طريقة لعمل مربعات صح ✔ أو خطأ ✘ بالحجم واللون الذي تريده ❌☑️✔️✅❎ ⭐⭐ طريقة إبداعية لتحديث نسخة الواجهات FE 🖥️ لدى المستخدمين بدون برامج أو أدوات خارجية 😊👌⭐⭐ رمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية: ------------------------------------------------------ 1. https://www.officena.net/ib/topic/112126-موضوع-مهم-للنقاش-ماهو-مستقبل-الاكسس-بعد-تطبيق-المرحله-الثانيه-للفاتوره-الاكترونيه/ 2. الموضوع والمرفقات النهائية لرمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية 3. https://www.officena.net/ib/topic/112589-مكتبة-الموقع-الفاتورة-السعودية-المبسطة/ --------------------------------------------------------------------------------------------------------------------------------------------------------------- القسم التاسع : الدروس والشروحات والمشاريع : طريقة /اضافة صوت للاكسس مع التحكم فى (الايقاف/التشغيل) للصوت تصميم قاعدة بيانات احترافيه لإدارة يوميات وشئون العاملين