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

السلام عليكم استخدم الكود التالي في موديل الورقة Sheet1 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A5:A17")) Is Nothing Then If Target.Value = 1 Then Target.Offset(0, 1).Select ElseIf Target.Value = 0 Then Target.Offset(0, 2).Select End If End If End Sub شاهد المرفق 2010 Sample.rar

أحي العزيز / الأستاذ محمد الأسيوطي وكما أشارت الأستاذة الكريمة / أم عبد الله وكذلك الأستاذ الكبير / حمادة باشا أنه لا بد من تحديد وقت يكون مسموح به للتأخير وقد تكون هماك شروط وتجاوزات لابد ممن الإشارة إليها أرفق لك الملف الأول وقد عدلت المعادلات بحيث يتم الحساب على النحو الآتي : 1- يتم حساب الإضافي الذي قبل بدء الدوام زايد الإضافي بعد الدوام وذلك بشرط أن يكون وقت الحضور قبل بدء الدوام ووقت الإنصراف بعد نهاية الدوم حتى لايحسب وقت إضافي من ساعات العمل الأصلية 2- يتم حساب ساعات العمل فقط التي بعد بدء الدوم المحدد إلى نهاية الدوام المحدد وتم وضع شرط إذا تقدم في الحضور قبل الدوام يحسب الوقت فقط من بدء الدوام الرسمي لأن الوقت الذي قبل الدوام سوف يحسب مع الإضافي ونفس الطريقة بالنسبة لنهاية الدوام لا يحسب الوقت الذي بعد الدوام الرسمي لأنه محسوب مع الإضافي أيضا وفي حالة أن يكون الحضور قبل الدوام والإنصراف بعد الدوام يحسب الدوام الرسمي فقط وه (8 ساعات ) المحددة في الوردية أرجو الإطلاع على الملف وإبداء الراي منكم ومن الأخوة الأساتذة الكرام حساب عدد ساعات العمل ثم الاضافى 1.rar

السلام عليكم تفضل أخى =LOOKUP(2;1/(Table1[العميل]=[@العميل]);Table1[التاريخ]) كشف حساب.rar

لقد طرح أخي ومعلمي الجليل الأستاذ // عبدالله باقشير "حفظه الله " وجزاه عنا خير الجزاء , في ابداع سابق له (( قــوائم مخصصة علي الفورم باستخدام - CommanBars)) علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=44506 وعمله الذي فتح بوابة كبيرة امام استخدمات الاكسيل وتمكنه من التحكم بالاكواد وتطويعها جزاه الله خيرا وجعل كل اعماله في ميزان حسناته وارجوا منه السماحة انني استخدمت عمله وطبقته علي موضوع شئون الموظفين الاصدار الثاني - النسخة التجريبية لوجود اخطاء بالنسخة الاولي فاهدي عملي المتواضع كلمة المرور 2300 جعل الله جميــــــع اعمالنا خالصة لوجه الكريم والله ولي التوفيق شئـون الموظفيين الاصدار الثاني نسخة تجريبية.rar

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

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

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

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

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

أخى الحبيب ( أسلام الشيمى ) بعد حل أساتذتى الأفاضل بهذه المعادلات الرائعة ألى حضرتك حل عام يمكن تنفيذة للحصول أكبر تاريخ بنائا على شرط وليكن ( أسم العميل ) وهى كالأتى : =MAX(IF(B9=name;date;"")) والمعادلة معادلة صفيف وللحصول على أكبر تاريخ فى العمود سيتم تغير الشرط فى المعادلة السابقة ليصبح مدى الأسماء لتصبح كالأتى: =MAX(IF(name=name;date;"")) وهى أيضا معادلة صفيف تقبل تحياتى وأعذرنى لأن الأوفيس المستخدم عندى هو أوفيس ( 2003 ) لذلك أرسلت المعادلة بشكل عام

السلام عليكم ورحمة الله وبركاته بعد اذن اخي الحبيب رجب هذه المعادلة تعطيك اكبر تاريخ للعميل حتى اذا كانت التواريخ غير مرتبة =SUMPRODUCT(MAX((Table1[العميل]=[@العميل])*(Table1[التاريخ]))) تحياتي

جارى اعداد موضوع جديد رواتب العاملين بالتربية والتعليم على ضوء علاوة الحد الادنى للأجور والله المستعان

أخى الفاضل فى هذه الحالة يجب تثبيت مدى البحث عن طريق تحيد المدى داخل المعادلة ثم الضغط على F4 كالآتى =VLOOKUP(W6;JZN!$1:$1048576;1;0) ثم بعد ذلك يتم سحبها لأسفل

أخى الفاضل / أحمد فى هذه الحالة يجب أن تغير الرقم 1 الموجود فى نهاية الدالة vlookup الى الرقم صفر حتى تغير نوع البحث الى تطابق تام ( 0 ) بدلا من التطابق التقريبى ( 1 ) حتى تكون الدالة على الصورة الآتية =VLOOKUP(W6;JZN!1:1048576;1;0) بدلا من =VLOOKUP(W6;JZN!1:1048576;1;1) dاl.rar

الأخ الكريم/ ابراهيم الشال السلام عليكم ورحمة الله وبركاته ضع الكود التالي داخل ThisWorkbook Private Sub Workbook_BeforePrint(Cancel As Boolean) Style = vbYesNo + vbQuestion + vbDefaultButton2 Title = "خيارات الطباعة" msg = "هل تود الطباعة أسود وأبيض" Response = MsgBox(msg, Style, Title) If Response = vbYes Then Me.ActiveSheet.PageSetup.BlackAndWhite = True Else Me.ActiveSheet.PageSetup.BlackAndWhite = False End If End Sub تقبل تحياتي

أخى الكريم على ما أعتقد حاول أن تتبع الآتى data option calculation manual وبعد اتمام عملك اضغط f9 أو حاول الإستغناء عن بعض المعادلات وإستبدالها بالأكواد أو حاول ترفق الملف حتى يستطيع أحد الأساتذة المختصين بالأكواد بإستبدال المعادلات بالأكواد

الأخ الكريم/enterco السلام عليكم ورحمة الله وبركاته أبدأ بإستئذان الأساتذة الأفاضل من شاركوا في الحل قبلي - بترتيب المشاركة - مع حفظ الألقاب والمقامات الأستاذ/رجب جاويش والأستاذ/م / ياسر فتحى البنا والأستاذ/محمود الاسيوطى والأستاذ/أبو حنين والأستاذ/احمد عبد الناصر المرفق تصور لتوجيه البحث ناحية الحروف المدخلة - لعل به إفادة - تقبل تحياتي ComboBox as Validation List.rar

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

بالنسبة لاكسس هناك بيانات ثابته متشابهة تشتمل عليهل جميع الورقات فهذه يمكن توحيدها في سجل واحد وبالمقابل يوجد بيانات تخص المدن يجب اثباتها ، كل مدينه وما يخصها .

هل هذا هوا المطلوب New Microsoft Office Excel Worksheet.rar