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

السلام عليكم -يمكنك ذلك بإستخدام هذه المعادلة داخل Data Validation =YEAR($C2)<=2000 عدم قبول ادخال تاريخ قبل سنة معينة.xlsx

وعليكم السلام يمكنك استخدام التحقق من الصحة أقل من أو يساوي تاريخ معين ثم تطلب منه إيقاف أي رقم يتجاوز هذا التاريخ لما بعده أرجو أن يكون الحل مناسباً عدم قبول ادخال تاريخ قبل سنة معينة.xlsx

Try this code Sub DrawCircles() Const SROW As Long = 7, EROW As Long = 11, SCOL As Long = 2, ECOL As Long = 10 Dim ws As Worksheet, sColName As String, i As Long, j As Long, n As Long, rd As Double Application.ScreenUpdating = False Call RemoveCircles Set ws = ActiveSheet For i = SROW To EROW With ws n = .Range("K" & i).Value For j = ECOL To SCOL Step -1 If .Range(.Cells(i, j).Address).Value <> Empty And n > 0 Then rd = 0.5 * Application.Min(.Cells(i, j).Height, .Cells(i, j).Width) sColName = Split(.Cells(1, j).Address, "$")(1) With ActiveSheet.Shapes.AddShape(msoShapeOval, Range(sColName & i).Left + 0.5 * (.Range(sColName & i).Width - 2 * rd), .Range(sColName & i).Top + 0.5 * (.Range(sColName & i).Height - 2 * rd), 2 * rd, 2 * rd) .Line.Weight = 1.5 .Line.ForeColor.RGB = RGB(0, 0, 255) .Fill.Visible = msoFalse End With n = n - 1 End If If n = 0 Then Exit For Next j End With Next i Application.ScreenUpdating = True End Sub Private Sub RemoveCircles() Dim shp As shape For Each shp In ActiveSheet.Shapes If shp.AutoShapeType = msoShapeOval Then shp.Delete Next shp End Sub Const SROW As Long = 7, EROW As Long = 11, SCOL As Long = 2, ECOL As Long = 10 In this line you can specify the start row SROW & end row EROW & start column SCOL & end column ECOL

لم أفهم جيدا المطلوب... أنظر الملف المرفق فيه تعديل حسب ما فهمت... ترتيب.xlsb

تفصل اخي عندما تكتب احمر او اخضر او ازرق او اصفر يتم التلوين وانا شغال في تصميم كنترول شيت للمرحلة الابتدائية كلها وهرفعه دوائر.xls

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

In cell D4 enter the formula =IF(MOD(C4,500)=0, C4/500*5, (INT(C4/500)+1)*5) for office 365 users =LET(div, C4/500, IF(MOD(C4,500)=0, div*5, (INT(div)+1)*5))

Steps to solve the problem using conditional formatting First: Select Range A1:A7 Second: From Home Tab Select Conditional Formatting & New Rule Third: Select Rule [Use a formula to determine which cells to format] - Type Formule [=B1=0] - Click [Format] Fourth: Select Tab >> Color DropDown >> Select [White, Backgrounds 1] >> Click [OK] Finally Click OK To Close [New FOrmatting Rule] Window

السلام عليكم lionheart اعتقد ان صاحب الملف كما قال انه لم يعطى له نتائج بسبب عدم اضافة الكود Get_Data_By_Subject الى زر او الى صفحةLagna فيكون كالاتي Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$L$3" Then Application.ScreenUpdating = False Range("B9:I28").ClearContents Application.ScreenUpdating = True End If Get_Data_By_Subject End Sub وهذا ملف كامل به كود استاذنا lionheart وقمت بالتجربة فتم استدعاء الطلبة حسب المادة حقيقة سرعة ابداع اتقان زادك الله رفعة وعلما استاذنا الفاضل الملف قوائم لجان الدور الثاني - Copy.xlsb

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

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي اسم المستخدم : admin كلمة المرور : 1989 Option Compare Text Dim f, Rng, MH(), WS_Rng, DataRng Private Sub UserForm_Initialize() DataRng = "Tableau1" WS_Rng = Range(DataRng).Columns.Count MH = Range(DataRng).Resize(, WS_Rng + 1).Value For i = 1 To UBound(MH): MH(i, WS_Rng + 1) = i: Next i Me.ListBox1.List = MH Me.ListBox1.ColumnCount = WS_Rng + 1 Me.ListBox1.ColumnWidths = "70;110;100;100;100" Me.ComboBox1.List = Application.Transpose(Range(DataRng).Offset(-1).Resize(1)) Me.ComboBox1.ListIndex = 0 Me.B.Caption = "فلترة ب:" & Me.ComboBox1 Set d = CreateObject("scripting.dictionary") For i = 1 To UBound(MH) d(MH(i, 1)) = "" Next i WSdata = d.keys Me.ComboBox2.List = WSdata Sht = Application.Transpose(Range(DataRng).Offset(-1).Resize(1)) For i = 1 To WS_Rng Me("label" & i) = Sht(i, 1) Next i For i = WS_Rng + 1 To 6 Me("label" & i).Visible = False: Me("TextBox" & i).Visible = False Next i Me.ComboBox2 = "*" T_resultat = "عدد الموظفين" & "/" & ListBox1.ListCount + 0 Count = ListBox1.ListCount End Sub '''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Combobox1_click() Me.ListBox1.List = MH Me.B.Caption = "فلترة ب:" & Me.ComboBox1 Me.T.Caption = "بحث ب:" & Me.ComboBox1 Set Titre = Range(DataRng).Offset(-1).Resize(1) colFiltre = Application.Match(Me.ComboBox1, Titre, 0) Set d = CreateObject("scripting.dictionary") For i = 1 To UBound(MH) d(MH(i, colFiltre)) = "" Next i WSdata = d.keys Me.ComboBox2.List = WSdata Me.ComboBox2 = Empty End Sub ''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub TextBoxRech_Change() On Error Resume Next WSdest = Me.ComboBox1.ListIndex + 1 clé = "*" & Me.TextBoxRech & "*": n = 0 Dim Tbl() For i = 1 To UBound(MH) If MH(i, WSdest) Like clé Then n = n + 1: ReDim Preserve Tbl(1 To UBound(MH, 2), 1 To n) For k = 1 To UBound(MH, 2): Tbl(k, n) = MH(i, k): Next k End If Next i If n > 0 Then Me.ListBox1.Column = Tbl Else Me.ListBox1.clear End Sub منظومة-الشؤون-الادارية.xlsm

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

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

كيف يتم تحديد العمولة بناء على المبلغ يعنى لكل 500 ج /5 ج عمولة وكسر المبلغ 5 ج اخرى يعنى مبلغ 501 / العمولة 10 ج وهكذا مرفق ملف مبلغ العمولة .xlsx

مرحبا شباب أتمنى أن تكونوا في أحسن حال كيف لي أن أمنع إدخال تاريخ بعد سنة 20000 في تاريخ الميلاد مرفق ملف عدم قبول ادخال تاريخ قبل سنة معينة.xlsx

أشكركم كثيراً ما قصرتم إجابات رائعة

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

شكرا أستاذ كريم 🌹 شكر أستاذ حسونة🌹

السلام عليكم قمت بتصميم برنامج اكسل لحساب عداد البنزين والمازوت في محطات الوقود / محاسبة مبيعات المحطة من تعبئة السيارات في كل وردية عمل / = الفكرة تعتمد على ارقام العدادت الموجودة في مضخات التعبئة حيث ان الرقم الموجود لا يتكرر ولا يرجع الى الخلف ولكن يعد بمجرد تعبئة السيارة بالوقود لنفرض ان العداد كان صباحا 15600 ومساءا 16200 هاذا يعني انا كمية المبيع اليومي هي 16200-15600=600 ليتر وسعر اللتر 1070 يصبح الرقم 600*1070=642000 هذا المبلغ الذي يجب ان اقبضه من العاملهذه الفكرة مبسطة وقمن انا بتجميعها بالاكسل بطريقة الفورم البرنامج مكتما بنسبة 90% باقي اضافة البونات واسعارها لتنخصم من المبيع ارجو من الجميع تجربتها واعطائي الملاحظات عن العمل او اذا كام هناك اخطا انا غفلت عنها وهل هناك طريقة لتطويره بشكل افضل والسلام عليكم لؤي AMS FORM.rar