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

السلام عليكم إخوتي الكرام بعد إذن الأخ الكريم الذي وصل إلى النتيجة ، إليكم طريقة أخرى بمعادلة واحدة فقط =IF(1*TEXT(EOMONTH(TODAY();0);"dd")>30;EOMONTH(TODAY();0)-4-TODAY()&"يوم";IF(1*TEXT(EOMONTH(TODAY();0);"dd")=30;EOMONTH(TODAY();0)-3-TODAY()&"يوم";IF(1*TEXT(EOMONTH(TODAY();0);"dd")=29;EOMONTH(TODAY();0)-2-TODAY()&"يوم";IF(1*TEXT(EOMONTH(TODAY();0);"dd")=28;EOMONTH(TODAY();0)-1-TODAY()&"يوم")))) وهناك معادلة أخرى فقط للملاحظة قد لا يحتاجها الأخ السائل: =" باقي"&$C$5&" "&"بناء على تاريخ نزول الراتب والذي يوافق يوم 27 من كل شهر ميلادي" والله ولي التوفيق ..والسلام عليكم موعد الرواتب.xlsx

السلام عليكم و رحمة الله اجعل الكود هكذا Sub y() Dim sumRange As Range, criteriaRange As Range Dim result As Double Dim i As Integer Dim lastrow As Long Dim R As Range Dim criteria As Variant Set criteriaRange = Range("D4:D20") criteria = Array("اجمالي صنف1", "اجمالي صنف2") j = 1 Do While j <= 6 Set sumRange = Range("E4:E20").Offset(0, j - 1) For i = 0 To UBound(criteria) result = WorksheetFunction.Sum(result, WorksheetFunction.SumIfs(sumRange, criteriaRange, criteria(i))) Set R = ActiveSheet.Cells.Find("اجمالي الأصناف", , xlValues, xlWhole) If Not R Is Nothing Then R.Select ActiveCell.Offset(0, j).Select ActiveCell.Value = result Next i result = 0 j = j + 1 Loop Range("D3").Activate End Sub

السلام عليكم و رحمة الله استخدم الاكواد الآتية كلها انسخها و ضعها كما هى Private Sub CommandButton5_Click() Dim ws As Worksheet, C As Range Set ws = Sheets("Sheet1") For Each C In ws.Range("C2:C" & ws.Range("C" & Rows.Count).End(3).Row) If C.Value = Val(Me.TextBox2.Value) Then C.Offset(0, 1).Value = Me.TextBox3.Value End If Next End Sub Private Sub CommandButton6_Click() Unload Me End Sub Private Sub TextBox2_Change() If Len(Me.TextBox2.Value) <> 14 Then Exit Sub Dim a As Single, b As Single, C As Single Dim m As Single, n As Single, cd, sn cd = Val(Me.TextBox2.Value) m = Left(cd, 1) If m = 2 Then n = 19 Else n = 20 End If a = Mid(cd, 2, 2) b = Mid(cd, 4, 2) C = Mid(cd, 6, 2) sn = n & a & "/" & b & "/" & C Me.TextBox3.Value = sn End Sub

السلام عليكم ..تفضل اخي الكريم ما عليك فقط غير ان اول خانه تكتب رقم الشهر فقط و الخانة الثانية في التاريخ تذكر اول يوم من اول تاريخ في السنه الحالية ..تحياتي ♥ موعد الرواتب.xlsx

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

بارك الله فيك ولكن ليس هناك اى حل لطلبك سوى من مسؤل الكمبيوتر بالشركة وهو IT ..فلابد من فتحه من قبل هذا الشخص فقط .. وشكراً

يا اخي الكريم ابحث عن تاريخ موجود .... لكن جرب المرفق تم تعديل الرسالة .... test print.rar

غير هذا ..... بهذا .... Vl = Forms!test1!dateprint

تفضل اخي جرب Imprimer-3.xlsm

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

السلام عليكم =IF(F3>=80%;"ممتاز";IF(F3>=60%;"جيد";IF(F3<60%;"ضعيف"))) تفضل كتابة دالة شرطية.xlsx

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

جرب وخبرنا list_03.xlsx

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

تفضل اخي تم تعديل الملف ليتناسب مع طلبك مع بعض الاضافات البسيطة اتمنى ان تلبي المطلوب بادن الله Sub Copie_Sheets_Numérotée_MH() Dim Ind As Integer Dim FlgExist As Boolean, Test As String Application.ScreenUpdating = False Sheet3.Copy After:=Sheets(Sheets.Count) Ind = 2 Do On Error Resume Next Test = Sheets("hakan" & Ind).Range("A1").Value If Err.Number = 0 Then FlgExist = True: Ind = Ind + 1 Else FlgExist = False Loop While FlgExist On Error GoTo 0 ActiveSheet.Name = "hakan" & Ind Sheet2.Select Application.Calculation = xlAutomatic Application.ScreenUpdating = True End Sub mango_MH3.xlsm

اذهب أخي إلى file --options -- بالأسفل اللائحة تجد Trust center ..ثم اذهب من قائمة اليسار إلى Trusted Locations وانقر على Allow trusted locations on my network

أضفت لك أكواد تقويم أم القرى من موقع أبو هادي مع تصرف بسيط مني في دالة UmDateDiff. حساب الترقيات.xlsm

هذا ملفك بعد التطبيق New Microsoft Excel Worksheet.xlsb