أ / محمد صالح

أخي الكريم الموضوع بسيط جداً من خلال اللصق الخاص بعد وضع المعادلة في الخلايا قم بتحديدها ثم نسخها ثم على نفس الخلايا المحددة اضغط بزر الفارة الأيمن ثم اختر paste special لصق خاص ثم اختر منها values قيم

بعد إذن الأساتذة وبدون الاعتماد على أعمدة إضافية جرب أخي الكريم أن تضع هذه المعادلة في الخلية a2 =IF(SUM(COUNTIF(B2:E2,B2:E2))=COUNT(B2:E2),0,1) لا تنس الضغط على Ctrl+shift+enter بعد كتابة المعادلة لأنها معادلة صفيف

أخي الكريم جرب أن تكتب كود الصورة في التوقيع بأن ترفع صورة لك على الإنترنت ثم تضع كود html الخاص بالصورة في مربع التوقيع كالتالي: <img src="path_to_file.jpg" /> حيث أن path_to_file.jpg هو مسار الصورة التي رفعتها على الإنترنت

جرب هذا أخي الكريم ....... لاحظ أن المعادلة الموجودة في خلية العدد معادلة صفيف أي تكتبها ثم تضغط ctrl+shift+enter وليس enter فقط mas_unique_values.rar

يا حبيبي كل ما تقوله موجود باستثناء حكاية عند الضغط على زر p من لوحة المفاتيح لأنه يتم تسجيله عند الضغط على زر الاختيار مباشرة (فلا تحتاج بعدها لضغط p )

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

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

ماذا تقصد بتحضير أو تغييب موظف؟ هل تقصد كتابة حرف غ مثلا في الخلية المجاورة لاسمه في اليوم المحدد أم ماذا؟؟ وفي حالة الحضور هل يكتفى بكتابة عدد ساعات العمل أم ماذا؟؟

ممكن ترفع الملفين وبإذن الله سيتم المطلوب

أخي الكريم أبو عاصم وبعد إذن الأساتذة تم تعديل الكود لقراءة اسم الملف من الخلية a1 وإذا كنت تقصد بـ : إضافة مسار ملف الاكسيل ليحفظ فيه ملف الـ PDF أن يحفظ الكود في نفس مسار ملف الإكسل بدون استعراض للمجلدات لاختيار واحد منها يمكنك استبدال كود Macro1 بما يلي: Sub Macro1() Dim WB As Workbook Dim WS As Worksheet On Error Resume Next Set WB = ActiveWorkbook For Each WS In WB.Worksheets WS.Unprotect Next ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "\" & ActiveSheet.Range("a1").Value & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True For Each WS In WB.Worksheets WS.Protect Next End Sub لاحظ أن كلمة ThisWorkbook.Path & "\" هي المسئولة عن مسار الملف الحالي وكلمة ActiveSheet.Range("a1").Value & ".pdf" هي المسئولة عن قراءة اسم الملف من الخلية a1

بارك الله لك أخي جلال الحل صحيح ولكن أنا شخصياً لم أفهم معادلاتك ........... تصوري للحل: ثلث الدقائق التي مضت بعد الحادية عشرة صباحاً=28 ما بعد الحادية عشرة وقبل 28 الأخيرة = 2*28=48 (ثلثين وما بقي من الحادية عشرة وما بعد الثانية عشرة هو الثلث الثالث ويساوي 28) ما بقي حتى الثانية عشرة = 60-48=12 ما بعد الثانية عشرة = 28-12=16

بالفعل أخي عبد الفتاح يبدو أن الإخوة أضافوا من عندهم (وبما فيهم أنا) ما لا يطلبه الأخ صاحب الموضوع المطلوب حسب السؤال هو دالة ceiling

أخي الكريم أنا استعملت في الكود أن اسم النموذج userform1 فإذا كان النموذج لديك له اسم مختلف يمكنك كتابة اسم النموذج ثم الوسيلة show فمثلا إذا كان النموذج لديك اسمه form1 يمكنك فتحه بعد المدة المحددة بالكود التالي form1.show وليس userform1.show أتمنى أن يكون الأمر واضحاً

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

شكرا للأخوين عبد الله ويحيى حسين ولإثراء الموضوع هذا رابط لموضوع مشابه ودالة من تأليفي لهذا الغرض http://www.officena....80

لتحديد المدة التي يتم تنفيذ الإجراء بعدها نغير في هذا السطر من sub timer vartimer = Format(Now + TimeSerial(0, 2, 0), "hh:mm:ss") حيث أن الدالة timeserial تضيف على الوقت الحالي وأول رقم للساعات وثاني رقم للدقائق وثالث رقم للثواني ............... ولإظهار نموذج إسمه userform1 بعد انتهاء المدة المحددة نغير الكود داخل الإجراء Sub yahm() إلى userform1.show ليصبح Sub yahm() userform1.show end sub مع حذف الكود الخاص بحفظ الملف وإطفاء الجهاز

أخي الكريم لإضافة صباحاً ومساء لكود الأستاذ الحسامي غير كود الدالة UpdateForm لما يلي: Public Function UpdateForm() frmTimer.lblNow = Format(Now, "hh:mm:ss ampm") End Function تجدها في الموديول الثاني وإذا استعملتها في نموذج جديد يجب جعل خاصية مشروط في خصائص النموذج show modal تساوي false

بارك الله لك أخي محمد يحياوي وأثناء بحثي على الإنترنت كنت قد وجدت هذا الملف بخصوص التحكم في النموذج وبه الكثير من الدوال: منها عرض وإخفاء أزرار الغلق والتكبير والتصغير وشفافية النموذج وإمكانية تحجيمه و ..... و ..... و ...... أترككم مع المرفق الذي يجعل نماذجكم قمة في الروعة UserFormControl.rar

أخي الكريم بدون إرفاق ملفات يمكنك استعمال ميزة ضمن الإكسل تسمى السماح للمستخدمين بتحرير النطاقات Allow Users to Edit Ranges الموجودة في قائمة أدوات tools ثم حماية protection (وفي أوفيس 2007 أو 2010 توجد في تبويب مراجعة review) وعند ظهور النافذة الخاصة بالسماح اضغط على جديد new ثم حدد المدى المطلوب ثم اكتب كلمة المرور إذا رغبت ثم اضغط على موافق ok وفي النافذة الأولى اضغط على حماية ورقة البيانات protect sheet ثم ok

بسم الله الرحمن الرحيم أخي جلال محمد شكرا لك على هذا الرابط أخي عبد الله فكرته بسيطة جداً وهي: أن الفرق بين أي رقم مكون من رقمين ( من 10 إلى 99) وحاصل جمع الرقمين ........... دائماً يساوي مضاعفات العدد 9 يعني 9 أو 18 أو 27 أو 36 أو 45 أو 54 أو 63 أو 72 أو 81 وبالنظر في الفلاش نجد أن كل هذه الأرقام رموزها واحدة (صورة واحدة) وعندما نضغط على العين يعرض هذه الصورة التي يتم تعريفها مسبقاً بالكود أن تكون في كل هذه الأرقام ولذلك نجد أن أي رقم تقوم بحسابه سيكون نتيجته صورة واحدة وهكذا هل وضحت الفكرة؟؟!! ........ ملحوظة : هذه الفكرة يمكن تنفيذها على أي عدد من الأرقام وليس عدد مكون من رقمين فقط

بالفعل أخي الكريم قم بإلغاء تثبيت الأوفيس ثم شغل أي برنامج لفحص وتنظيف الريجيستري مثل CCleaner أعد تثبيت أوفيس 2007 مع مراعاة اختيار all from this computer الكل من هذا الجهاز أثناء التثبيت ليتم تثبيت الأوفيس كاملاً ............... ملحوظة ليست كل نسخ أوفيس 2007 بها ميزة الحفظ ك pdf لذلك يلزمك تثبيت ملف مساعد لحفظ الملف ك pdf جرب وأخبرنا بنتيجة

أخي الكريم أبو الحسن أولا : لعرض الساعة في نموذج يفضل أن توضع في تسمية label وليس في مربع نص textbox ثانياً : عرض الساعة باللغة العربية أو الإنجليزية مرتبط بتنسيق التاريخ في جهاز المستخدم ولغة هذا التنسيق ثالثاً : تم معالجة عرض صباحاً ومساءً في المرفق مرفق ملف بكود بسيط يعالج موضوع المؤقتات في الإكسل من خلال الحدث ontime الخاص بالتطبيق mas_clockform.rar

بارك الله لك استاذ عماد كنت متوقع إنك انت اللي هتجيب الحلين ولحل مثل هذه الألغاز أنا شخصياً استعملت أكواد vba هذا هو Sub mas() Dim n, cm, cw, ch As Integer n = 1 For cm = 1 To 98 For cw = 1 To 98 For ch = 1 To 98 If cm * 5 + cw + ch / 10 = 100 And cm + cw + ch = 100 Then ActiveSheet.Cells(n, 1).Value = "عدد الجمال : " & cm & " عدد البقر : " & cw & " عدد الخرفان : " & ch n = n + 1 End If Next ch Next cw Next cm MsgBox "تمت بحمد الله" End Sub وحصلت على المطلوب خلال ثانيتين بعد تفكير دقيقتين في ترتيب الكود ........... بانتظار ألغاز حسابية جديدة

أخي الكريم بما أنك تستخدم أوفيس حديث 2007 أو 2010 اكتب في الخلية i9 طبيب ثم اكتب هذه المعادلة في الخلية i10 =COUNTIFS(D$4:D$25,$I$9,E$4:E$25,G10) ثم انسخ المعادلة رأسياً لباقي المواقع ..... ومرفق ملفك بعد التعديل المعادلة في العمودين الأولين تنفع في أوفيس 2007 و 2010 والمعادلة في العمودين الآخرين تنقع مع أوفيس 2003 وما قبله العد بأكثر من شرط2003-2007.rar

فزورة أخرى: لدينا 100 جنيه نريد أن نشتري بها 100 حيوان من السوق مع العلم بأن سعر الجمل 5 جنيهات وسعر البقرة 1 جنيه وسعر الخروف 0.10 جنيه ( 10 قروش) ويجب أن نشتري من الثلاثة أنواع ....... فكم يكون عدد كل نوع من الحيوانات؟؟!! ....... ملحوظة : الفزورة لها أكثر من حل وأتمنى التوثيق بمعادلات