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

السلام عليكم اخي العزيز من الافضل تسمية الازرار باللغة الانكليزية تفضل اخي الكريم اتمنى يكون المطلوب تحياتي moh2.rar

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

الاخ الفاضل @مداد_1423 لا يجوز يا اخى طريقتك فى الحساب فانت تجمه 4200+450وتريد الناتج 4500 وتلك المعادلة لا تصح ابدا فأما ان تثبت ان يوم الغياب = 150 جنيها وبالتالى قيمة ايام الحضور ستكون اقل من 4200 او ان تعدل قيمة يوم الغياب بشكل ديناميكى مرفق شيت تم التعديل به ليناسب كل شهر حسب عدد ايامه يتغير مبلغ يوم الغياب مثلا الشهر الحالى 31 يوم لذلك ستجد ان مبلغ يوم الغياب هو 135 جنيها وليس 150 معادلة الحضور عدد ايام الشهر ديناميكى.xlsx

بعد اذن أخي FoMaNsHeE معادلتك جيدة لكن الخطأ في ملف الاخ مداد_1423 المعادلة لا تصح . لأنك ادا وضعتها في المستحق الأول . تظهر المستحق 4500 و هو عنده غياب 1 يوم؟ كيف يحصل على االراتب كاملا و هو عنده 1 غياب ؟؟؟ و لو نزلت الى الثاني تطهر 450 +4200 = 4650 . و هي لا تساوي 4500 الراتب الشهري ؟؟ الخطأ هنا المشكل في ملف الطلب بحد ذاته . يحسب الايام 30 و يريد ناتج 28 +3 =30 ؟ كيف حضور 3 أيام و غياب 28 = 30 ؟ الاخ مداد_1423 اذا كنت تريد الحساب الصحيح . كيف 28 +3 =30 ؟ يجب أان تكون غياب 28 حضور 2 . أو حضور 3 أيام و غياب 27 و هذ المنطقي و تجد أن أصلا معادلتك أنت في ملف الطلب صحيحة. أو ضع 4500 على 31 و تجد الناتج بالتدقيق و الله أعلم

مشاركة مع الاخ الفاضل يمكنك ايضا بعد مشاهدة ما اشار اليه الاستاذ / محب العقيدة ان تشاهد التالى https://www.youtube.com/watch?v=8ghsbRvIv5U&t=626s فهو باللغة العربية ـ مع انى لا احب هذه الطرق

https://m.youtube.com/watch?v=RCEDeiHo0bg&list=PL74DkfdscvwRv6lwrU5ZkY0y43gyUsykS&index=50&t=0s انظر لكن بالفرنسي قناة فد واستفد وهي مفيدة جدا انصح كل من يريد الاحتراف آن يتابعها حتى بالصورة فقط ينظر الى الاكواد

تحية طيبة للجميع الراتب في شركة على الشهر (30) يوماً ، سواء كان الشهر 31 أو 28 والحراسات الأمنية رواتبهم 4500 غياب اليوم الواحد 150 ريال لكن حصل عندي هذا الشهر مشكلة ما قدرت أحلها موظف حضر فقط ثلاثة أيام صار الغياب عنده 28 يوماً ، فما نزل له راتب إلا يومين ، والصواب ينزل له راتب ثلاثة أيام الرجاء المساعدة في تعديل المعادلة تحياتي للجميع معادلة الحضور.xlsx

السلام عليكم هل هذا هو المطلوب 2222.rar

تفضل أخي . اضافة زر لضغط كل ملفات الموظف في مجلده بتعديل كود Ron ليناسب طلبك و رز للارسال الملف المضغوط عبر الايميل أنا وضعت هدا المسار الدي يحتوي على معلومات الموظفين C:\empfiles غير ما يناسبك داخل االاكواد TEST ATTACEHDfin.xlsm

هذا الكود البسيط Sub Show_all() Sheets("Sheet1").Rows.Hidden = False End Sub

نعم هو المطلوب جزاكم الله خيرا وحفظك الله ونفع بك أخي الفاضل

وعليكم السلام اخى حسين هل هذا ما تريد Documents.rar

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

اخر ما يمكنني عمله Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$B$4" And Target.Count = 1 Then Tranfer_data End If Application.EnableEvents = True End Sub '////////////////////////////////////////////// Sub Tranfer_data() Application.EnableEvents = False Dim R As Worksheet, A As Worksheet, K As Worksheet Dim start_Ro%, i%, m% Dim Start_date As Date, End_date As Date, mot$ Dim x As Boolean, y As Boolean, z As Boolean, t As Byte Dim KRg, Fixrow%, Actrow%, Find_rg As Range, Spec_Rg As Range Dim SF#, SG#, ALLROW% Set R = Sheets("repo") Select Case R.Range("F2") Case "الموردين": Set A = Sheets("Achat") Case "العملاء": Set A = Sheets("Mabi3at") Case Else: GoTo End_Me End Select Set K = Sheets("Kazina") K.Range("B3").CurrentRegion.Interior.ColorIndex = xlNone Start_date = R.Range("B2"): End_date = R.Range("B3"): mot = R.Range("B4") If R.Range("A8").CurrentRegion.Rows.Count > 1 Then _ R.Range("A8").CurrentRegion.Offset(1). _ Resize(R.Range("A8").CurrentRegion.Rows.Count - 1).Clear i = 5: start_Ro = 9 Do Until A.Range("B" & i) = vbNullString x = A.Range("B" & i) = mot: y = A.Range("D" & i) >= Start_date z = A.Range("D" & i) <= End_date t = Abs(x * y * z) If t Then R.Cells(start_Ro, 1).Resize(, 10).Value = _ A.Cells(i, 2).Resize(, 10).Value start_Ro = start_Ro + 1 End If i = i + 1 Loop i = 5 Set Find_rg = K.Range("B3").CurrentRegion.Columns(3) Set Spec_Rg = Find_rg.Find(mot, lookat:=1) If Not Spec_Rg Is Nothing Then Fixrow = Spec_Rg.Row: Actrow = Fixrow i = 9: m = 9 Do '================================== y = K.Cells(Actrow, "C") >= Start_date z = K.Cells(Actrow, "C") <= End_date t = Abs(y * z) If t Then R.Cells(m, "C") = _ IIf(IsDate(K.Cells(Actrow, "C")), K.Cells(Actrow, "C"), "") R.Cells(m, "K") = _ IIf(IsNumeric(K.Cells(Actrow, "G")), K.Cells(Actrow, "G"), "") K.Cells(Actrow, 2).Resize(, 7).Interior.ColorIndex = 40 m = m + 1 End If Set Spec_Rg = Find_rg.FindNext(Spec_Rg) Actrow = Spec_Rg.Row i = i + 1 Loop Until Fixrow = Actrow ALLROW = R.Range("A8").CurrentRegion.Rows.Count + 8 End If Set Spec_Rg = R.Range("A8").CurrentRegion If Spec_Rg.Rows.Count = 1 Then GoTo End_Me Set Spec_Rg = Spec_Rg.Offset(1).Resize(Spec_Rg.Rows.Count - 1) Set Spec_Rg = Spec_Rg.SpecialCells(2) With Spec_Rg .Borders.LineStyle = 1 .InsertIndent 1 .Font.Size = 14 .Font.Bold = True .Interior.ColorIndex = 40 End With R.Range("A8").CurrentRegion.Columns(3).NumberFormat = "[$-ar-LB] dddd d mmmm yyyy" R.Range("A8").CurrentRegion.Sort key1:=R.Cells(1, 3), Header:=1 End_Me: Application.EnableEvents = True ' '++++++++++++++++++++++++++++++++++++++ End Sub الملف للمرة الخامسة و الأخيرة SAL_My_data_5.xlsm

اخى الكريم @مداد_1423 المرفق سليم وهو بعد التعديل واذا اردت التأكد ادخل اغلق الملف ثم ثم بالدخول على اعدادات التاريخ الخاصة بالزيندوز وعد التاريخ الى شهر يونيو بدلا من مايو واعد فتح الملف ستجد الارقام تم تغيرها وعلى العموم كما شرحت انه لان شهرمايو 31 يوم ستجد ان فى حالة الموظف الاول غياب 1 يوم مبلغ الخصم 145 جنيها وليس 150 والمبلغ المستحق 4355 وليس 4350 فى حالة الموظف الثانى غياب 28 يوم مبلغ الخصم 4065 وليس 4050 والمستحق 435 وليس 450 برجاء المراجعة للتأكد

شكرا لك أستاذي FoMaNsHeE : المعادلة رائعة إذا كان الشهر 31 أو 30 لكن إذا كان 28 أو 29 فتظهر المشكلة عموما : استفدت من المعادلة وإن شاء الله أحاول بفكرتك أضيف شرط الأقل من 30. تحياتي أستاذي الرائد: تحياتي لك وشكرا لحرصك على الإفادة دائما . لكن هذا الحاصل في كثير من الشركات يكون الشهر 30 يوماً وحساب الحضور والغياب لا يتعدى الـ 30 يوماً تحياتي لك هلا بك أستاذ أبو علي و سدره يبدو لي أن فكرتك هي الصح ....تحياتي

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

تحياتي أخي الكريم اتمنى يكون المطلوب كما بالمرفق تحط المعادلة في خانه المستحق حتظبط معاك أما بخصوص ان الايام ثابته على 30 فاعتقد الخانه الخاصة ب قيمة الغياب لاتلزم =IF(AI2>30,4500/30*30,4500/30*AI2) معادلة الحضور.xlsx

مع اني لا أحب التغامل مع اليوزرفورم اليك هذا الملف Private Sub CommandButton1_Click() Sheets("Sheet1").Rows.Hidden = False Sheets("Sheet1").Cells(2, "H").Resize(, 2) = "" If Me.TextBox1 = "" Or Me.TextBox2 = "" Then Exit Sub Dim Mx As Date, Mn As Date Mx = Application.Max(Me.TextBox1, Me.TextBox2) Mn = Application.Min(Me.TextBox1, Me.TextBox2) Dim I%, Ro% Ro = Sheets("Sheet1").Cells(Rows.Count, 1).End(3).Row Sheets("Sheet1").Cells(3, 1).Resize(Ro).Rows.Hidden = True For I = 3 To Ro If CDate(Sheets("Sheet1").Cells(I, 2)) >= Mn And _ CDate(Sheets("Sheet1").Cells(I, 2)) <= Mx Then _ Sheets("Sheet1").Cells(I, 1).EntireRow.Hidden = False Next Sheets("Sheet1").Cells(2, "H") = Mn Sheets("Sheet1").Cells(2, "I") = Mx: Unload Me End Sub الملف مرفق filter-date_Sal.xlsm

وعليكم السلام ورحمة الله وبركاته اجعل خاصية مربع النص BackStyle = Transparent تحياتي او ارفق المثال للاطلاع على المشكلة

الكود الاصلي في ملف dll لا يصل اليه. عندما تضع برنام لا .لم اقل أن البرنامج لا يمكن لاكثر من مستخدم ؟؟؟ قلت انشء برنامجك لشخص ما تريد بيعه له. ضع سيريال نمبر الجهاز الخاص به في كودك . ثم ششفر مللفك . الكود يصبح في ملف dll . لا يمكن الوصول له أاما الكود الذي تراه فهو مشفر لا يمكن نقله أو تغييره لجهاز آخر . و اذا أردت بيع برنامجك لشخص آخر غير معلوومات الجهاز ثم شفره . و ارسله له مع ملف dll و الله أعلم

اخي مصطفى تفضل على حسب ما فهمت رغم انه الشرح غامض يجب عليك كتابة الشهر في الخلية a2 =IFERROR(SUMPRODUCT(('2020'!$B$4:$B$6000=$A8)*(TEXT('2020'!$D$4:$D$6000&"-"&'2020'!$E$4:$E$6000;"YYYYMM")<=TEXT($A$2&"-"&D$6;"YYYYMM"));'2020'!$F$4:$F$6000);"") MMM1.xlsx

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

ضع هذا الكود في حدث عند النقر Dim a, s As String s = Me.eee.Column(0) a = "Table." & s Me.fff.SourceObject = a

تم التعديل Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$B$4" And Target.Count = 1 Then Tranfer_data End If Application.EnableEvents = True End Sub '////////////////////////////////////////////// Sub Tranfer_data() Application.EnableEvents = False Dim R As Worksheet, A As Worksheet, K As Worksheet Dim start_Ro%, i%, m% Dim Start_date As Date, End_date As Date, mot$ Dim x As Boolean, y As Boolean, z As Boolean, t As Byte Dim KRg, Fixrow%, Actrow%, Find_rg As Range, Spec_Rg As Range Dim SF#, SG#, ALLROW% Set R = Sheets("repo"): Set A = Sheets("Achat") Set K = Sheets("Kazina") K.Range("B3").CurrentRegion.Interior.ColorIndex = xlNone Start_date = R.Range("B2"): End_date = R.Range("B3"): mot = R.Range("B4") If R.Range("A8").CurrentRegion.Rows.Count > 1 Then _ R.Range("A8").CurrentRegion.Offset(1). _ Resize(R.Range("A8").CurrentRegion.Rows.Count - 1).Clear i = 5: start_Ro = 9 Do Until A.Range("B" & i) = vbNullString x = A.Range("B" & i) = mot: y = A.Range("D" & i) >= Start_date z = A.Range("D" & i) <= End_date t = Abs(x * y * z) If t Then R.Cells(start_Ro, 1).Resize(, 10).Value = _ A.Cells(i, 2).Resize(, 10).Value start_Ro = start_Ro + 1 End If i = i + 1 Loop i = 5 Set Find_rg = K.Range("B3").CurrentRegion.Columns(3) Set Spec_Rg = Find_rg.Find(mot, lookat:=1) If Not Spec_Rg Is Nothing Then Fixrow = Spec_Rg.Row: Actrow = Fixrow i = 9: m = 9 Do '================================== y = K.Cells(Actrow, "C") >= Start_date z = K.Cells(Actrow, "C") <= End_date t = Abs(y * z) If t Then R.Cells(m, "k") = _ IIf(IsDate(K.Cells(Actrow, "C")), K.Cells(Actrow, "C"), "") R.Cells(m, "k").NumberFormat = "[$-ar-LB] dddd d mmmm yyyy" R.Cells(m, "L") = _ IIf(IsNumeric(K.Cells(Actrow, "G")), K.Cells(Actrow, "G"), "") K.Cells(Actrow, 2).Resize(, 7).Interior.ColorIndex = 40 m = m + 1 End If Set Spec_Rg = Find_rg.FindNext(Spec_Rg) Actrow = Spec_Rg.Row i = i + 1 Loop Until Fixrow = Actrow ALLROW = R.Range("A8").CurrentRegion.Rows.Count + 8 '++++++++++++++++++++++++++++++++++++++++++ R.Cells(ALLROW, "K") = "المجموع" R.Cells(ALLROW, "L") = _ Evaluate("=SUM(L9:L" & ALLROW - 1 & ")") '++++++++++++++++++++++++++++++++++++++++++ End If Set Spec_Rg = R.Range("A8").CurrentRegion If Spec_Rg.Rows.Count = 1 Then GoTo End_Me Set Spec_Rg = Spec_Rg.Offset(1).Resize(Spec_Rg.Rows.Count - 1) Set Spec_Rg = Spec_Rg.SpecialCells(2) With Spec_Rg .Borders.LineStyle = 1 .InsertIndent 1 .Font.Size = 14 .Font.Bold = True .Interior.ColorIndex = 40 End With End_Me: Application.EnableEvents = True ' '++++++++++++++++++++++++++++++++++++++ End Sub الملف مرفق SAL_My_data_3.xlsm

تم معالجة الامر و عسى ان يكون المطلوب الكود Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$B$4" And Target.Count = 1 Then Tranfer_data End If Application.EnableEvents = True End Sub '////////////////////////////////////////////// Sub Tranfer_data() Application.EnableEvents = False Dim R As Worksheet, A As Worksheet, K As Worksheet Dim start_Ro%, i%, m% Dim Start_date As Date, End_date As Date, mot$ Dim x As Boolean, y As Boolean, z As Boolean, t As Byte Dim arr() Dim KRg, Fixrow%, Actrow%, Find_rg As Range, Spec_Rg As Range Dim SF#, SG#, ALLROW% Set R = Sheets("repo"): Set A = Sheets("Achat") Set K = Sheets("Kazina") K.Range("B3").CurrentRegion.Interior.ColorIndex = xlNone Start_date = R.Range("B2"): End_date = R.Range("B3"): mot = R.Range("B4") arr = Array("الصرف", "الوارد", "الرصيد") If R.Range("A8").CurrentRegion.Rows.Count > 1 Then _ R.Range("A8").CurrentRegion.Offset(1). _ Resize(R.Range("A8").CurrentRegion.Rows.Count - 1).Clear i = 5: start_Ro = 9 Do Until A.Range("B" & i) = vbNullString x = A.Range("B" & i) = mot: y = A.Range("D" & i) >= Start_date z = A.Range("D" & i) <= End_date t = Abs(x * y * z) If t Then R.Cells(start_Ro, 1).Resize(, 10).Value = _ A.Cells(i, 2).Resize(, 10).Value start_Ro = start_Ro + 1 End If i = i + 1 Loop R.Cells(8, "K").Resize(, 3).Value = arr: Erase arr i = 5 Set Find_rg = K.Range("B3").CurrentRegion.Columns(3) Set Spec_Rg = Find_rg.Find(mot, lookat:=1) If Not Spec_Rg Is Nothing Then Fixrow = Spec_Rg.Row: Actrow = Fixrow i = 9: m = 9 Do '================================== y = K.Cells(Actrow, "C") >= Start_date z = K.Cells(Actrow, "C") <= End_date t = Abs(y * z) If t Then R.Cells(m, "k") = _ IIf(IsNumeric(K.Cells(Actrow, "F")), K.Cells(Actrow, "F"), 0) R.Cells(m, "L") = _ IIf(IsNumeric(K.Cells(Actrow, "G")), K.Cells(Actrow, "G"), 0) R.Cells(m, "M") = _ R.Cells(m, "L") - R.Cells(m, "k") K.Cells(Actrow, 2).Resize(, 7).Interior.ColorIndex = 40 m = m + 1 End If Set Spec_Rg = Find_rg.FindNext(Spec_Rg) Actrow = Spec_Rg.Row i = i + 1 Loop Until Fixrow = Actrow ALLROW = R.Range("A8").CurrentRegion.Rows.Count + 8 '++++++++++++++++++++++++++++++++++++++++++ R.Cells(ALLROW, "k").Resize(, 3).Formula = _ "=SUM(K9:K" & ALLROW - 1 & ")" R.Cells(ALLROW, "k").Resize(, 3).Value = _ R.Cells(ALLROW, "k").Resize(, 3).Value '++++++++++++++++++++++++++++++++++++++++++ End If Set Spec_Rg = R.Range("A8").CurrentRegion If Spec_Rg.Rows.Count = 1 Then GoTo End_Me Set Spec_Rg = Spec_Rg.Offset(1).Resize(Spec_Rg.Rows.Count - 1) Set Spec_Rg = Spec_Rg.SpecialCells(2) With Spec_Rg .Borders.LineStyle = 1 .InsertIndent 1 .Font.Size = 14 .Font.Bold = True .Interior.ColorIndex = 40 End With End_Me: Application.EnableEvents = True ' '++++++++++++++++++++++++++++++++++++++ End Sub الملف مرفق للمرة الثانية SAL_My_data_2.xlsm

الكود المطلوب Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$B$4" And Target.Count = 1 Then Tranfer_data End If Application.EnableEvents = True End Sub Sub Tranfer_data() Dim R As Worksheet, A As Worksheet, K As Worksheet Dim start_Ro%, i% Dim Start_date As Date, End_date As Date, mot$ Dim x As Boolean, y As Boolean, z As Boolean, t As Byte Dim arr() Set R = Sheets("repo"): Set A = Sheets("Achat") Set K = Sheets("Kazina") Start_date = R.Range("B2"): End_date = R.Range("B3"): mot = R.Range("B4") arr = Array("التاريخ", "العميل", "البيان", _ "الوارد", "الصرف", "الرصيد") If R.Range("A8").CurrentRegion.Rows.Count > 1 Then _ R.Range("A8").CurrentRegion.Offset(1). _ Resize(R.Range("a8").CurrentRegion.Rows.Count - 1).ClearContents i = 5: start_Ro = 9 Do Until A.Range("B" & i) = vbNullString x = A.Range("B" & i) = mot: y = A.Range("D" & i) >= Start_date z = A.Range("D" & i) <= End_date t = Abs(x * y * z) If t Then R.Cells(start_Ro, 1).Resize(, 10).Value = _ A.Cells(i, 2).Resize(, 10).Value start_Ro = start_Ro + 1 End If i = i + 1 Loop R.Cells(start_Ro, 1).Resize(, 6).Value = arr i = 5 start_Ro = start_Ro + 1 '++++++++++++++++++++++++++++++++++++++ Do Until K.Range("C" & i) = vbNullString x = K.Range("D" & i) = mot: y = K.Range("C" & i) >= Start_date z = K.Range("C" & i) <= End_date t = Abs(x * y * z) If t Then R.Cells(start_Ro, 1).Resize(, 6).Value = _ K.Cells(i, 3).Resize(, 6).Value start_Ro = start_Ro + 1 End If i = i + 1 Loop '+++++++++++++++++++++++++ End Sub الملف مرفق SAL_My_data.xlsm

بعض الأخطاء التي اكتشفتها (على السريع)

لقد توصلت إلى حل ممتاز لذلك ... وأحب مشاركتكم به ... أغلب الرموز الموجودة في الأوفيس تتبع لخطين اسمهما Segoe UI Emoji Segoe UI Symbol بالتالي في خانة البحث أختار المزيد ثم أختار الخط ثم أكتب اسم الخط الأول Segoe UI Emoji وأترك خانة استبدال ب ... فارغة فيتم استبدال كل شيء مكتوب بهذا الخط ... وأكرر نفس الشيء بالنسبة للخط الآخر Segoe UI Symbol فأتخلص من كل الرموز .... ما رأيكم ...

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

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

السلام عليكم نموذج فواتير منوع (مبيعات /مشتروات/ مردوات المبيعات/مردودات المشتروات) بامكانية: الترحيل والبحث والتعديل وحذف الكل طلب للاخ تامر جمال جعلته هنا لفائدة الجمع الكريم ______________.rar

بسم الله الرحمن الرحيم السلام عليكم اقدم هذا البرنامج البسيط برنامج : شئون العاملين (التربية والتعليم ) وهوا يهتم بكل ما يخص العاملين بالتربية والتعليم ووحدة التدريب بالمدرسة والبرنامج تم بمساعدة الاساتذة الكبار فى هذا المنتدى الجميل والذى لا ننكر ابدا فضل اساتذته الكبار بارك الله فيهم --------------------------------------- والبرنامج قابل للاضافة والتعديل فى مخرجاته وارجوا من الاساتذة فحص البرنامج وتحديد ان كان به اخطاء ام لا وفى النهاية تحية حب وتقدير الى جميع اعضاء هذا الصرح الجميل شئون العاملين.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل / عبدالله باقشير و لا تنسونا من صالح الدعاء Invoice (عبدالله باقشير).rar

بارك الله فيكي اجابة شاملة كاملة

الأستاذ / لن تركع سوريا السلام عليكم ورحمة الله وبركاته اذهب إلى إعداد الصفحة واختار صفحة يظهر أسفل المربع رقم الصفحة الأولى اكتب بها بداية الترقيم الذي تريده وليكن 77 ثم اختار رأس / تذييل الصفحة يظهر لك رأس مخصص او تذييل مخصص اختار إحداهما الرأس لظهور الترقيم أعلى الصفحة والتذييل لظهور الترقيم أسفل الصفحة ثم بعد الاختيار يظهر لك مربع به المقطع الأيمن المقطع الأوسط المقطع الأيسر اختار منه لظهور الترقيم به ثم تضغط على الأيقونة التي بجوار حرف A لإدارج الترقيم ويمكنك اختيار ما تشاء بعد ذلك من الخط وحجمه وهكذا ثم تضغط موافق يظهر الترقيم تلقائياً بداية من الرقم 77 فأعلى إلى ما شاء الله حسب عدد الصفحات.

تفضل المرفق za_C_R.rar