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

اسطوانة تحفيظ القران الكريم لكم ولاولادكم واحفادكم الجذء الثلاثون بصوت الشيخ محمد صديق المنشاوى وبصوت طفل يردد وراءه ويمكن تكرار الاية للحفظ وفيديو دعاء ختم القران من الحرم على الرابط التالىhttp://yonis.arab.st/t26-topic#29ملحوظة : سجل بالمنتدى لتحميل الاسطوانة وهى على 4 روابط مضغوطة يتم تحميلها فى فولدر ثم فك الضغط بعد اكتمال تحميل 4 أجزاء الاسطوانة هدية للمنتدى نتمنى الدعاء لنا بالخير الجزء 29 تبارك فى تكملة الموضوع الجزء 28 قد سمع الجزء 27 قال فما خطبكم هدية اخرى للسادة الزملاء اسطوانة برامج بها اوفيس 2003 و 2010 عربى لحين رفع باقى اجزاء تحفيظ القران الكريم الجزء 26 الجزء 25 مسابقة دينية

السلام عليكم ورحمة الله وبركاته أحبكم الله الذي أحببتمونا لأجله...أصبحت مشاركاتكم عطرة أكثر بهذه الفكرة المتميزة...بل أصبحتم حاملين للمسك وانظروا لقول النبي عليه الصلاة والسلام : (( إِنَّمَا مَثَلُ الجليس الصالحُ والجليسُ السوءِ كحامِلِ المسك، ونافخِ الكِيْرِ فحاملُ المسك: إِما أن يُحْذِيَكَ، وإِما أن تبتاع منه، وإِمَّا أن تجِدَ منه ريحا طيِّبة، ونافخُ الكير: إِما أن يَحرقَ ثِيَابَكَ، وإِما أن تجد منه ريحا خبيثَة ))

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

أخي الحبيب الغالي حسام خطاب أحبك الله الذي أحببت فيه أخاك .. تقبل وافر تقديري واحترامي

السلام عليكم ورحمة الله وبركاته في احد البرامج التي اشتغلت عليها ، كان المطلوب احد الاشياء التالية مثلا: مدة الخدمة ، من تاريخ التوظيف الى اليوم ، إضافة خدمة (سنوات/اشهر/ايام) الى تاريخ التوظيف ، خصم مدة (سنوات/اشهر/ايام) من تاريخ التوظيف ، فبدل الحساب اليدوي ، عملت نموذج لآلة حاسبة ، للتواريخ النموذج frm_Date_Diff : حساب الفرق بين تاريخين: 1. ادخل التاريخ الاكبر في الحقل 1 ، وعند تغيير التاريخ سنرى الفرق بين التاريخين في الحقول سنة/شهر/يوم ، 2. ادخل التاريخ الاصغر في الحقل 2 ، وعند تغيير التاريخ سنرى الفرق بين التاريخين في الحقول سنة/شهر/يوم ، وعند النقر المزدوج على 1 او 2 ، فان القيم سيتم حفظها في الحقول 11 و 22 مؤقتا ، بحيث تستطيع ان تقوم بعمليات اخرى وتغيير التواريخ ، بينما تحتفظ بأصل التواريخ في 11 و 22 ، إضافة / طرح (سنوات / اشهر / ايام) من تاريخ: 1. احذف التاريخ من الحقل 2 ، 2. ادخل سنة/شهر/يوم الى الخانات 3 و4 و5 ، 3. حسب الحاجة ، اختر 6 لإضافة السنة/شهر/يوم الى التاريخ الاول ، وسترى النتيجة في الحقل 2 ، 4. حسب الحاجة ، اختر 7 لطرح السنة/شهر/يوم من التاريخ الاول ، وسترى النتيجة في الحقل 2 ، وعند النقر المزدوج على 3 او 4 او 5 ، فان القيم سيتم حفظها في الحقول 543 مؤقتا ، بحيث تستطيع ان تقوم بعمليات اخرى وتغيير السنوات/الاشهر/الايام ، بينما تحتفظ بالاصل في 3 و4 و5 وهنا مثال متحرك: جعفر 301.Dates_Calculations.mdb.zip

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

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

أخي الكريم عاشق الإكسيل كنت أتمنى أن تقوم بإضافة كود ولو بشكل مبدئي وليس كامل لتستطيع أن تقوم بالأمر بنفسك عموماً جرب الكود التالي وشوف هل يؤدي الغرض أم أن هناك مشاكل به Sub EditAfterRecall() Dim WS As Worksheet, SH As Worksheet Dim TargetRow As Long, LR As Long, RowsToInsert As Long Dim LastRow As Long, I As Long, Arr Set WS = Sheet1: Set SH = Sheet3 If IsError(Application.Match(WS.[M5].Value, SH.[A1:A2000], 0)) Then MsgBox "رقم الإذن غير موجود في ورقة الأرشيف", 64: Exit Sub Else With Application .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False End With TargetRow = Application.Match(WS.[M5].Value, SH.[A1:A2000], 0) LR = IIf(SH.Range("A" & TargetRow).End(xlDown).Row >= Rows.Count, SH.Range("I" & Rows.Count).End(xlUp).Row + 1, SH.Range("A" & TargetRow).End(xlDown).Row) SH.Rows(TargetRow & ":" & LR - 1).Delete Shift:=xlUp RowsToInsert = Application.WorksheetFunction.CountA(WS.Range("F20:F33")) SH.Rows(TargetRow).Resize(RowsToInsert).Insert Shift:=xlDown With SH.Rows(TargetRow).Resize(RowsToInsert) .Interior.Color = xlNone .Font.ColorIndex = xlAutomatic .Font.Size = 13 End With 'ترحيل البيانات LastRow = WS.Cells(33, "F").End(xlUp).Row Arr = Array("M5", "M2", "D6", "C10", "C12", "C16") For I = 0 To UBound(Arr) If IsEmpty(WS.Range(Arr(I))) Or LastRow < 20 Then MsgBox "البيانات غير مكتملة", vbCritical: Exit Sub Next I For I = 0 To UBound(Arr) SH.Cells(TargetRow, I + 1) = WS.Range(Arr(I)) Next I WS.Range("P20:R" & LastRow).Copy SH.Range("G" & TargetRow).PasteSpecial xlPasteValues MsgBox "تم تعديل البيانات بنجاح", 64 With Application .CutCopyMode = False .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True End With End If End Sub تقبل تحياتي

شكرا اخى ياسر موضوع متميز ومهم جداً

السلام عليكم و رحمة الله و بركاته هذا مايلقاه المؤمن ذخرا و خيرا أسأل الله أن أن ينفع المسلمين بما تقدمه وأن يجازيك خير الجزاء أخوك خيثر يعقوب .

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

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

الأخ الكريم رميلي كمال إليك الملف غير محمي وأرجو ألا يكون تعدي على حقوق الغير CERTIFICAT.rar

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

انسخ هذه المعادلة الى الخلية =IFERROR(LOOKUP(REPT("Z",100),$A$1:$A$1000),LOOKUP(REPT("و",100),$A$1:$A$1000))

وعليكم السلام أخي وحبيبي في الله سعيد بيرم أدام الله المحبة بيننا في الله جرب الكود التالي حسب ما فهمت ..للأسف أنا لا أجيد الفهم في كثير من الأحيان .. ولكن حسب ما فهمت جرب الكود التالي وقد تم التعديل على بعض أجزاء الكود .. Sub Print_All() Dim Sh As Worksheet, LR As Long Dim Stx1 As String, Stx2 As String, St1 As String, St2 As String Dim Texte1 As String, Texte2 As String Set Sh = Sheets("فاتورة") LR = Sh.Cells(Sh.Rows.Count, 1).End(xlUp).Row Stx1 = "جنيها ": Stx2 = "قرشا ": St1 = "و ": St2 = "لاغير" Texte1 = NoToTxt2(Cells(LR, "J")) Texte2 = NoToTxt2(Cells(LR, "I")) Range("del_range").NumberFormat = ";;;" ActiveSheet.PrintOut Copies:=1 With Cells(LR + 1, "B") .Value = "إجمالى الفاتورة : " .HorizontalAlignment = xlLeft If Cells(LR, "I") = 0 Then .Offset(, 1).Value = "فقط " & Texte1 & Stx1 & St2 Else .Offset(, 1) = "فقط " & Texte1 & Stx1 & St1 & Texte2 & Stx2 & St2 .HorizontalAlignment = xlRight End With Range("del_range").NumberFormat = "00" ActiveSheet.PrintOut Copies:=2 Range(Cells(LR + 1, "B"), Cells(LR + 1, "C")) = "" End Sub تقبل تحياتي

السلام عليكم ورحمة الله وبركاته وجزاكم الله خيراً على الإيضاح...تقبل تحياتي العطرة (حسام خطاب) الصقر الصقر عضو خبير 1,000 1,659 مشاركات Interests:لا تعطنى سمكه ولكن علمنى كيف اصطاد الحمد لله الذي بنعمته تتم الصالحات

استاذى الحبيب ابويوسف بخصوص سؤالك عن الرقم ادخل على شيت "البيانات " وفى الخليه B2 اكتب الوقت 8:30 ثم اضغط كليك يمين على الخليه واختر من القائمه تنسيق الخلايا ثم اجعل تنسيق الخليه رقم واجعل الارقام العشريه بعد الفاصله 9 مثلا وشاهد النتيجة ستجد هذا الرقم 354166667. هتقولى لماذا الوقت 8:30 تحديدا لان الاخ ابومهند طلب ان الوقت لو اقل من 8:30 يكون حضور بخصوص استفسارك الثانى ان اتفق معك تماما وهذا راى راجع المشاركات السابقه ستجد انى قلت كدا لابومهند لكن هو طلبه يكون الحضور فى صف والانصراف فى صف تالى لكن انا افضل انهم يكون فى صف واحد على عمودين كما تفضلت تقبل تحياتى ----------------------------------------------

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

اخى الحبيب ابومهند لحين ما ترد على استفساراتى جرب المرفق ربما يكون طلبك تقبل تحياتى ---------------------------------------------- vlookup1.zip

صباحكم بركة وفضل من الله ونعمة سبحان الله وبحمده عدد خلقه ورضاء نفسة وزنة عرشة ومداد كلماته

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

اخى واستاذى الحبيب ابومهند لا داعى للاعتذار انا تحت امرك قدر استطاعتى وقدر علمى ومعرفتى فمن قال لا اعلم فقد أفتى بخصوص طلبك 1- عايز أسالك هل البيانات لما بتاخدها من البصمه وتحطها فى شيت " البيانات " بتكون مرتبه بمعنى بتكون كدا موظف 1 & موظف 1 & موظف 2 & موظف 3 & موظف 3 وهكذا أما ممكن تاتى غير مرتبه زى كدا موظف 1 & موظف 3 & موظف 1 & موظف 2 & موظف 1 وهكذا يعنى بتكون مرتبه ترتيب ابجدى سواء تصاعدى او تنازلى ام اناه تاتى بعشوائيه من البصمه حسب الوقت 2- فى شيت النتيجة هل ستكون اسماء الموظفين ثابته وكل اسم مذكور مرتين على صفين ؟ وبالتالى المعادلات ستكون ثابته أما كونك تطلبها بالداله Vlookup فقط فهذا مستحيل قولا واحدا ولكن يمكن عملها بدوال اخرى مثل offset أو INDEX وغيرها منتظر الرد عن استفسارى اعدك ان احاول بها جاهدا قدر استطاعتى ووقتى ومعرفتى وان شاء الله برضوا الاساتذه بالمنتدى ميقصروش معك تقبل تحياتى ------------------------------------------------------------------------------------------------

وعليكم السلام ورحمة الله انظر أخي هذه المشاركة

السلام عليكم ورحمة الله بعد إذن اخي عاشق الاكسل تفضل المرفق اخي ابو حمادة KHMB اضافة واستعلام.rar

أخي الكريم أبو حماده طالما أنك طرحت موضوع فلربما يكون هناك من الأعضاء من ينتظر الإجابة على تساؤلك وطالما أنك توصلت للحل بفضل الله ، فلما تبخل على إخوانك بما توصلت إليه من حل ؟ .. الكريم يجود بما عنده وإن شاء الله نحسبك كريماً جواداً (بتشديد الواو .. وليس بفتح الواو) تقبل تحياتي

السلام عليكم ورحمة الله اخي الغالي ابن الملك والله اشكرك علي ذوقك في الرد وحسن خلقك بارك الله فيك Grand Total ليس دالة هذا علي ما اظن انة نطلق او مدى او انة يقصد كان يريد يعمل ذلك من علي فورم وGrand Total هو اسم لتكسبوكس او ليبل والله اعلم. لك حبي وتقديري.

سلمت يمينك أخى الحبيب أ / سليم على كل أعمالك الرائعة وأتفق مع أخى الحبيب الغالى ياسر خليل لا تعطنى سمكة ولكن علمنى كيف أصطاد تقبل خالص تحياتى وتقديرى

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

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

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

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

السلام عليكم أنا حابب اشارك معاكم الموضوع وبالفعل انا عملت زى ما قال استاذنا ياسر خليل الان وليس بعد قليل الفكرة هى مسح الاذن القديم ولكن ليس Clear ولكن Delete Row وذلك للحفاظ على ترتيب الاسطر وأماكن البيانات الموجوده ولكن جيت عند تحيد النطاق اللى همسحه ووقفت معرفتش أفكر تانى أنا عملت رساله بتقول الاذن موجود , عاوز تعمل أستبدال , أيوة ولا , لا ..... مردش عليا مش عارف ليه وأدينا مع بعض لحد ما نوصل وشكرا

بسم الله ما شاء الله عليك يا أخي الغالي حسام حطاب (متدورش ع النقطة ..أنا هجيبهالك) عمل رائع ومتقن وإبداعي بشكل منقطع النظير تقبل وافر تحياتي

افتح موضوع جديد بهذا .. ويبدو انه سيستنزف ادمغه .. !!

السلام عليكم ليس لي سابق خبرة في هذه المسألة ولكني وجدت لك مثالا فآمل ان يكون فيه شيئا مما تبحث عنه FifoStock.rar

السلام عليكم أخواني الأعزاء أحييكم بتحية طيبة مباركة من عند الله ... كثيراً منا يعلم القدر اليسير من إمكانيات مفتاح الاختصار ALT .... بالمرفق كود يقوم باستدعاء اغلب الاختصارات الشائعة للمفتاح ALT ... تفضلوا المرفق ... AltKeyList.zip