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

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

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

السلام عليكم جزاكم الله خيرا شاهد المرفق 2003 سيناريو جدول 4.rar

السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير اطلب المسامحة ممن راسلني ولم يجد رد مني هديتي لكم بعد هذه الغيبة Option Explicit '========================================================" ' بسم الله الرحمن الرحيم " '========================================================" ' (دالة تحويل الرقم الى نص باللغة العربية (تفقيط " ' kh_TextNum " '========================================================" 'Num الرقم " '========================================================" 'sex جنس العملة " 'FALSE ( فارغ او صفر مذكر ) " 'TRUE ( أو اي رقم غير الصفر مؤنث ) " '========================================================" 'sNameCurr اسم العملة الرئيسية مفرد " 'pNameCurr اسم العملة الرئيسية جمع " 'NameCurrDec اسم العملة الكسرية " 'Decimal_Count طول الكسر افتراضـياً : بدون اظهار الكسر " '===============================================================================================================================================" 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" '===============================================================================================================================================" ' ملاحظات ' (اولاً : العملة الرئيسية مثنى (يقوم بها الكود تلقائيا ' مع ملاحظة اذا اسم العملة ينتهي بالتاء المربوطة ' يجب ان يكتب كذلك وليس بالهاء ' ----------------------- ' ثانياً : اذا كانت العملة الرئيسية مفرد فارغاً تعتبر ' اسماء العملات (الجمع والكسري) فارغة تلقائيا ' ----------------------- 'ثالثاً : الكلمة الابتدائية بامكانك تغييرها او تجعلها فارغة Private Const MyBegTx As String = "فقط " ' "" ' ----------------------- ' MyTNum رابعا : يمكنك التغيير (اضافة,حذف,تحرير) في الثابت ' للفئات الصفرية للرقم ادناه Private Const MyTNum As String = "ألف-آلاف/مليون-ملايين/مليار-مليارات/بليون-بلايين/بليار-بليارات/ترليون-ترليونات/تريليار-تريليارات/كدرليون-كدرليونات" '===============================================================================================================================================" 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" '===============================================================================================================================================" Function kh_TextNum(Num As String, Optional sex As Boolean = False, Optional sNameCurr As String = "", Optional pNameCurr As String = "", Optional NameCurrDec As String = "", Optional Decimal_Count As Byte = 2) As String Dim Spp, zt Dim i%, ii%, pr% Dim MyMid$, nCurr$, Txt$, Txt1$, Txt2$ '====================================== If Not IsNumeric(Num) Then GoTo kh_Exit Spp = Split("/" & MyTNum, "/") ii = UBound(Spp) If Num < 0 Then Num = Abs(Num) '====================================== If Val(Num) > Val(String((ii + 1) * 3, "9") & ".999") Then GoTo kh_Exit '====================================== nCurr = sNameCurr & "-" & IIf(pNameCurr = "", sNameCurr, IIf(sNameCurr = "", "", pNameCurr)) '====================================== Txt1 = Format(Num, String((ii + 1) * 3, "0") & ".000") For i = 0 To ii MyMid = Mid(Txt1, (i * 3) + 1, 3) If MyMid Then zt = Mid(Txt1, (i * 3) + 4, Len(Txt1)) zt = IIf(ii - i, Int(zt), zt) Txt2 = IIf(ii - i, Trim(Spp(ii - i)), nCurr) pr = 1 + IIf(ii - i, 1, CInt(sex)) Txt = Txt & IIf(Len(Txt), " و", "") & kh_nText(MyMid, Txt2, pr, zt, CBool(sNameCurr <> "")) End If If i = ii Then If MyMid = 0 Then Txt = Txt & IIf(Len(Txt), " ", "صفر ") & sNameCurr Next '====================================== Txt = MyBegTx & Txt & kh_dText(Num, sNameCurr, NameCurrDec, Decimal_Count) '====================================== kh_Exit: kh_TextNum = Trim(Txt) End Function ' معالجة العدد من 1 الى 999 لكل فئات الرقم Private Function kh_nText(ByVal iNum As String, ByVal oMm As String, ByVal ibs As Integer, ByVal z As Boolean, ByVal tCu As Boolean) As String Dim Sp Dim Num1%, Num2%, Num3% Dim oM$, S$, S1$, nT$, nT0$, nT1$, nT2$ '====================================== Sp = Split("واحد,إحدى,اثنتان,ثلاث,أربع,خمس,ست,سبع,ثمان,تسع,عشر,إحدى ,اثنتا ", ",") '====================================== If ibs Then S = "ة": Sp(1) = Sp(0): Sp(2) = "اثنان": Sp(11) = "أحد ": Sp(12) = "اثنا " Else S1 = "ة" oM = Trim(Split(oMm, "-")(0)) '====================================== Num1 = Left(iNum, 1) Num2 = Right(iNum, 2) Select Case Num1 Case 1: nT0 = "مائة" Case 2: nT0 = "مائتا" & IIf(ibs = 2, IIf(Num2 < 3, "", "ن"), IIf(Num2 = 0 And oM <> "", "", "ن")) Case 3 To 9: nT0 = Sp(Num1) & "مائة" End Select '========================================= Num1 = Right(iNum, 2) Select Case Num1 Case 1, 2: If nT0 <> "" Then If ibs = 2 Then nT0 = nT0 & " " & oM Case 11 To 99: If oM <> "" Then If ibs Then If z Then oM = oM & "اً" End Select '----------------------------------------- Select Case Num1 Case 1 nT = IIf(oM = "", Sp(0) & S1, oM) oM = IIf(ibs <> 2 And oM <> "", Sp(0) & S1, "") Case 2 nT = IIf(oM = "", Sp(Num1), Replace(oM, "ة", "ت") & IIf(z = 0 And ibs = 2 And tCu, "ا", "ان")) oM = IIf(ibs <> 2 And oM <> "", Sp(Num1), "") Case 3 To 10 oM = Trim(Split(oMm, "-")(1)) nT = Sp(Num1) & S Case 11, 12 nT = Sp(Num1) & Sp(10) & S1 Case 13 To 19 nT = Sp(Num1 - 10) & S & " " & Sp(10) & S1 Case 20 To 99 Num2 = Right(Num1, 1) Num3 = Left(Num1, 1) If Num3 = 2 Then nT1 = "عشرون" Else nT1 = Sp(Num3) & "ون" nT2 = Sp(Num2) & IIf(Num2 > 2, S, "") & " و" & nT1 If Num2 = 0 Then nT2 = nT1 nT = nT2 End Select '====================================== S = IIf(nT = "" Or iNum < 100, "", " و") nT = Replace(nT, Sp(8) & "ة", Sp(8) & "ية") kh_nText = Trim(nT0 & S & nT & " " & oM) '====================================== End Function ' معالجة الكسر Private Function kh_dText(ByVal dNum As String, ByVal NCur As String, ByVal Ndec As String, ByVal co As Byte) As String Dim Td$, Td1$ On Error GoTo 1 If NCur = "" Then Ndec = "" Td = Format(Round(CCur(dNum - Int(dNum)), co), "0." & String(co, "0")) If Td = 0 Or Td = 1 Then Td1 = "": GoTo 1 If Len(Ndec) Then Ndec = " " & Ndec: Td1 = Td * CVar("1" & String(co, "0")) Else Ndec = " " & NCur: Td1 = Td Td1 = " و " & Chr(40) & Td1 & Chr(41) & Ndec 1: kh_dText = Td1 End Function دالة تحويل الرقم الى نص عربي.rar ================================================= الملف المعدل: هذا المرفق بامكانية تفقيط الكسر وامكانية ادخال كلمة نهاية النص دالة تحويل الرقم الى نص عربي.rar ================================================= رابط مباشر للملف

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

السلام عليكم صراحتا لم افهم السؤال او الطلب جيدا لاكن صممت لك فورم ديناميكي حيث تكون اليبل او التكسات لكل ضرف مهما كان عددها ديناميكيا وزر للتعديل او الاضافة معا ارجو ان يلبي طلبك رصد الدرجات.rar

السلام عليكم ورحمة الله وبركاته الاستاذ الكريم الاستاذ // seko700 1 ) مرحبا بك في اول مشاركة لك في منتداك ومنتدى كل العرب وتشرفتنا بحضرتك كعضو جديد بيننا 2 ) نرجوا من سيادتكم فضلا وليس امرا ان تغيروا اسم الظهور الى اللغة العربية لسهولة التواصل بين الاعضاء كما انه من ضمن سياسة المنتدى 3 ) نرجوا ان تهتموا بعنوان الموضوع لان هذا العنوان مخالف لسياسة المنتدى وهذه قواعد المشاركة قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف 4 ) ممكن توضيح اكثر لمطلوبك ويا حبذا لو وضعت الحل الذي تريده يدويا على الملف المرفق ويكأن الملف به المعادلات التي تنفذ لك مطلوبك.. :fff: :fff:

الاستاذ // نادر سليم بارك الله فيك رائع وبداية موفقة باذن الله ونتمنى لك مزيد من التقدم واستاذنك أخي الحبيب وهذا هو عملك ولكن ما اقوم به الان ضبط هذه المعادلة وتقليصها لتكون اصغر حجما.. :fff: =IF(D3<=3000;"فقير";IF(D3<=5000;"محدود";IF(D3<=8000;"متوسط";"غنى")))

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

السلام عليكم ورحمة الله الاخ الكريم habub يجب تغييرالإسم للغة العربية طبقاً لقوانين المنتدى وإاليك الحل لعلة يكون المطلوب Book1.rar

وهو المطلوب يا ا \ محمد بارك الله فيك

السادة / أعضاء المنتدى المحترمين السلام عليكم ورحمه الله وبركاته ،،، اليكم نموذج لفورم بسيط من خلاله يتم إدراج تعليق للخلية النشطه أسأل الله عز وجل أن يتم الإستفاده منه ودمتم فى أمان الله وحفظه تقبلوا منى وافر الاحترام والتقدير ادراج تعليق للخلية النشطه من فورم.rar

قد يكون الموضوع مكرر (احتمال وارد ) وقد يكون منقول ( بالفعل منقول من مشاركة لاستاذن الغالي يحيي حسين في المنتدى الشقيق لمنتدانا الغالي منتدى excel4us ) ولكن اضعه هنا للفائدة والاستفادة من الدلة vlookup . ابو احمد دالة البحث من اليمين الى اليسار.rar

تفضل أخى ماطلبت لو أنى لاأريد الأنخراط فى عمل الكود معلش لأنى ليس لدى أوفيس 2007 البرنامج اللى عندى لايريد عمل " save " للماكرو لذلك تفضل الكود وأضغط على "alt+f11 " ثم "insert "ثم " module " ثم ضع هذا الكود Sub gamal() Dim Rng As Range Dim Dn As Range Dim q As String Dim cols As Variant Dim n As Long 'تغيير الألوان لتناسب cols = Array(0, 1, 3, 4, 5, 6, 7, 38, 46, 50) Set Rng = Range(Range("A1:c4"), Range("A" & Rows.Count).End(xlUp)) For Each Dn In Rng Dn = Replace(Dn, " ", "") q = StrConv(Dn, vbUnicode) Dn = Join(Split(Left(q, Len(q) - 1), vbNullChar), " ") For n = 1 To Len(Dn) With Dn.Characters(n, 1) .Font.ColorIndex = cols(Val(Dn.Characters(n, 1).Text)) .Font.Bold = True End With Next n Next Dn End Sub تقبل تحياتى تغيير لون الرقم.rar

استاذ محمد في هذه الحالة سوف تحذف التعليقات من جميع الخلايا /بما فيها التي تحتوي على معادلات

وباذن اذنك طبعا لدمج الكود سيكون هكذا Sub del_without_function() Dim wh As Worksheet Dim myrange As Range Application.ScreenUpdating = False Set wh = ActiveSheet Set myrange = wh.Range("a2:z100") For Each cel In myrange If cel.HasFormula = False Then cel.ClearContents End If Next Application.ScreenUpdating = True Cells.ClearComments End Sub

السلام عليكم و رحمة الله بين ايديكم لائحة منسدلة من نوع جديد توقعوا الأفضل لائحة افقية.rar

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

السلام عليكم فورم لحفظ نسخة من الملف بامكانية تغيير اسم الملف والمسار يعمل على اكسل 2003-2007 افتراضيا يعطيك نفس مسار الملف مع نسخة بتاريخ اليوم واذا تكرر الخفظ يخفظ فوق النسخة المحفوظة لتاريخ اليوم اما اليوم الثاني ستكون لك نسخة اخرى بتاريخه وبعدين لك الحرية في كل الاستخدمات اذا لم تريد ذلك تغيير المسار تعيير الاسم كما تريد وفيه امكانيات ستعجبكم كثيرا هديتي لكم لان كنت مقلا معكم هذه الايام فورم لحفظ نسخة من الملف.rar

اخي صلاح ()Sub Remove_All_Comments_From_Worksheet Cells.ClearComments End Sub لحذف التعليقات استعمل الكود التالي

اكثر من رائع ممتاز ممتاز ممتاز تسلم يدك جعلها الله فى ميزان حسناتك

بسم الله الرحمن الرحيم وبه نستعين أخى العزيز الفاضل الاستاذ // محمد رزق السلام عليكم ورحمته الله وبركاته بداية جزاكم الله خيرا على التوضيح والشكر موصول لجميع السادة الزملاء المشاركين جزاهم الله تعالى خير الجزاء الذين يبذلون جهدا غير عادى فى تقديم مد يد العون ولكن ينبغى الاستفسار اولا عن أمور تبدو غير منطقية حتى لايكون هناك تشتيتا .... فما أسهل بناء المعادلات....... لذا كان استفسارى لدى سيادتكم ثانيا ارجو ان يتسع صدركم نحو هذا الموضوع المتعلق بالاجور المتغيره وسؤالى لحضرتك هل يدخل اساسى المرتب ضمن جملة الاجور المتغيره ؟؟؟؟ الاجابة بالطبع لا إذن لايجوز فنيا ولامحاسبيا ان نقول لو معلم او إدارى وأساسى مرتبه كذا يبقى ال 10% كذا معلومة تتمثل جملة الاجور المتغيرة فى العناصر التالية 1- ال 5 علاوات الغير مضافة 2- العلاوتين الاجتماعية والاضافية 3- الحوافز والبدلات " كلا حسب وضعه الوظيفى 4- المتوسط الشهرى لمكافأة ال 200 يوم والله لو جملة ماسبق ذكرة أكبر من أويساوى الحد الاقصى الشهرى للأجور المتغيرة وقدرة 1587.00 والمقرب الى 1590.00 علما بأن هذا التقريب غير قانونى وضد مصلحة الموظف فى هذه الحالة تعطى لحصة الموظف " 10% = 158.70 او 159.00 حسب التقريب المزعوم " وان لم يكن فجملة ماسبق ذكره * 10% ..... إذن المقصود ان الموضوع ليس له إرتباط بمسمى وظيفى بقدر ماهو مرتبط بجملة أجر وأخيرا ولنفرض ان جملة ماسبق ذكره بالخلية A2 ضع هذة المعادلة بالخليه c2 =IF(a2>=1587;158.7;ROUND(a2*10%;2)) او حسب التقريب ... ولا تتردد فى طلب أى أستفسار =IF(A2>=1590;159;ROUND(A2*10%;2)) هذا وبالله التوفيق ..... تقبل وافر احترامى وتقديرى وجزاكم الله خيرا

مشاء الله عمل رائع تقنية وتكنيك عالى جداً

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

ابو عمرو جزاك الله خيرا

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

السلام عليكم وهذا حل آخر باستخدام كود يعمل الكود من أى صفحة الأولى أو الثانية كما تريد Sub ragab() Dim cl As Range Dim ws1 As Worksheet, ws2 As Worksheet Set ws1 = Sheet1: Set ws2 = Sheet2 '==================================================== LR1 = ws1.Cells(Rows.Count, 2).End(xlUp).Row LR2 = ws2.Cells(Rows.Count, 2).End(xlUp).Row Application.ScreenUpdating = False ws2.Range("B7:I" & LR2).ClearContents '==================================================== T = 7 Set Rng = ws1.Range("I2:I" & LR1) For Each cl In Rng If cl = "Expire" Then x = cl.Row ws1.Range("B" & x).Resize(1, 8).Copy ws2.Range("B" & T).PasteSpecial xlPasteValues T = T + 1 End If Next Application.CutCopyMode = False Application.ScreenUpdating = True Set ws1 = Nothing: Set ws2 = Nothing End Sub نقل البيانات1.rar

اكتب فى قائمة الطباعة 2-1 بدلا من 1-2

أخى فى الله أستاذى القدير // ضاحى الغريب بارك الله فيكم وزادكم الله من فضله ومن نعمه وكل عدد من تقدم الى تقدم أفكار ولقاءات ودروس أكثر من رائعة دمتم فى أمان الله وحفظه وتقبلوا منى وافر الاحترام والتقدير

استاذ طارق اليك هذا الكود عسى ان ينال اعجابك Sub del_without_function() Dim wh As Worksheet Dim myrange As Range Set wh = ActiveSheet Set myrange = wh.Range("b2:z100") For Each cel In myrange If cel.HasFormula = False Then cel.ClearContents End If Next End Sub

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

السلام عليكم تفضل أخى نقل البيانات.rar

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

مجلة أوفيسنا الدورية عدد مايو / آيار 2014 م للانتقال الي العدد المسابقة الثقافية من هنا

الأستاذ / elouaadoudi السلام عليكم ورحمة الله وبركاته حضرتك لم تجاوب على أسئلة الأستاذ الفاضل / أبو إيمان جزاه الله خيراً لأنها شرط الترحيل وحاولت فهم ما تقصده من الملف هل على تاريخ المغادرة أم المدة المتبقية وحاولت ربط بين تاريخ المدة المتبقة من التاريخين الممثلة في العمود Fوالمدة الفعلية الموجودة بالعمود C على أقل مثلاً من يوم او يومين لاحظت أنه يوجد حالات متشابهة ولم يتم تلوينها فذلك يكون حل الأستاذ الفاضل /او إيمان هو الحل فقط غير تنسيق العمودين G , H من تنسيق الخلايا اختار من رقم اختار تاريخ . أو حضرتك حدد على أي أساس تم التلوين.

اتفضل mohamed saad.rar

أخى الكريم اقتراحكم فى غاية الروعه ولكن المشكله تنحصر فى الآتى : هناك الكثير من الدروس والشروحات والأعمال المشروحه بشكل كبير وبطريقة مبسطه ولكن هناك من لا يهتم بتحصيل المعرفة والعلم وهدفه هو محاوله حل مشكلته بأى طريقة سريعة وهناك عدد كبير من الأعضاء هدفه تحصيل العلم والمعرفة فتجده يسأل فى كل نقطه وكيف تم ذلك .... وما الى آخره .. لأن هدفه هو ايجاد اجابه لسؤاله يستطيع أن يطبقها بنفسه وحاول الكثير لفت نظر الآخرين الى روابط بها شرح أو أعمال مشروحه أو نماذج قام بها الأساتذة بالمنتدى ولكن دون جدوى وإحقاقا للحق لم تبخل إدارة المنتديات والأقسام والمشرفين والأعضاء الفعالين عن تقديم كل عون ومساعدة للجميع بل ما زالوا مستمرون فى عطائهم ومنحهم ما تحصلوا عليه من علم للجميع رغم مشاغلهم الخاصة ولى رجاء فى حاله رغبتكم بإضافة مقترح أو طلب أن يتم تدوينه فى قسم الإقترحات وهو قسم مستقل بالمنتدى وهذا رابطه http://www.officena.net/ib/index.php?showforum=159 أسأل الله عز وجل أن يوفق الجميع لما يحبه ويرضاه وتقبل منى وافر الاحترام والتقدير

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

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

أخي العزيز mazin99 هذه نفس الدالة للأستاذ الكبير الحسامي وفيها طلبك إن شاء الله TOPTEN.rar

وهذه محاوله أخرى لتحميل الملف للمنتدى أرجو أن تنجح وإن لم توفق يرجى ممن يريد نسخه من ملف الدوري السعودي الذي صممه الأخ ( Band ) أن يضع أيميله هنا وسأرسله له وشكراً الدوري السعودي.rar