أ / محمد صالح

أخي الكريم أبو عاصم وبعد إذن الأساتذة تم تعديل الكود لقراءة اسم الملف من الخلية 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 قروش) ويجب أن نشتري من الثلاثة أنواع ....... فكم يكون عدد كل نوع من الحيوانات؟؟!! ....... ملحوظة : الفزورة لها أكثر من حل وأتمنى التوثيق بمعادلات

بارك الله فيك أخي مجدي أشك في صحة الشرط الثالث لأن هذا ما توصلت إليه ......... الكتاب: التجاريب - المؤلف : ولي الدين - عدد الصفحات: 142 - الطالب: منير الكتاب: الآثار الباقية - المؤلف : رشيد أيوب - عدد الصفحات: 154 - الطالب: كامل الكتاب: أعاني الدرويش - المؤلف : أبو الريحان البيروني - عدد الصفحات: 137 - الطالب: بسام

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

أخي الكريم أبو الحسن أوفيس 2003 لا يقوم بتصدير الملفات بصيغة pdf ولعمل ذلك يمكن التحايل على ذلك بما يلي: تثبيت طابعة وهمية على الجهاز تقوم بحفظ ما تقوم بطباعته بصيغة pdf وأفضل طابعة في هذا المجال في رأيي هي pdf creator لتحميلها http://sourceforge.net/projects/pdfcreator/ واستعملها كطابعة عادية جداً ويمكنك استعمال كود الطباعة العادي معها

جنيهان

ما شاء الله الموضوع ازداد حماساً كما توقعت له بارك الله لكم جميعاً واسمحوا لي بإضافة بسيطة في موضوع المهر والمتوالية الهندسية لحل مثل هذه المتواليات وبثلاثة متغيرات هي: أول رقم في المتوالية (في حالتنا 1 ) الرقم الذي يتم الضرب فيه (في حالتنا 2 ) عدد مرات التكرار ( في حالتنا 30) تكون المعادلة كالتالي: =1*(2^30-1)/(2-1) بصورة أخرى = أول رقم في المتوالية * (الرقم المضروب فيه ^ عدد مرات التكرار - 1) / (الرقم المضروب فيه - 1) العلامة ^ تعني الأُس ويتم كتابتها ب shift+6 وجرب أن تغير طريقة اللغز بأرقام جديد وعدد مرات جديد وطبق المعادلة ستجد بإذن الله الحل صحيح ************** وأود أن أضيف إضافة بسيطة في هذا الأمر وهي أنه يمكنك عملها من خلال مقبض التعبئة fill handle بدون معادلات إلا للجمع فقط وذلك من خلال: اكتب في a1 الخلية الأولى 1 وفي a2 الخلية الثانية 2 ثم حدد الخليتين معاً ثم اسحب مقبض التعبئة بزر الفارة الأيمن إلى الصف 30 ثم اختر من القائمة "اتجاه نمو" growth trend ستجد المتوالية كاملة فقط يلزمك جمعها بـ sum ======== ولا ينقصني سوى دعاؤكم

بارك الله لك أخي عماد بالفعل المهر : 10,737,418.23 10 مليون و 737 ألف و 418 جنيه و 23 قرش كان ينقص إخواني عبد الله والأنيس ويوسف فقط تجميع هذه الأيام لأنه يدفع في أول يوم ثم يضيف عليه في ثاني يوم ولا يسترد ما دفعه سابقاً ............... وبانتظار وجهات نظر أخرى في الوصول للحل

إخواني الكرام للأسف الحل خطأ برجاء مراجعة اللغز مرة أخرى

بانتظار حلول الإخوة وطريقة حلهم وتوضيح مدى صحة أوخطأ الحلول السابقة للأخ الكريم عبد الله والأخ الكريم الأنيس

أخي الكريم جمال دغيدي النطاق الذي يتم طباعته محدود ويتم استدعاء بيانات بداخله لذا لا يمكن أن يتم احتواء جميع الصفحات في أمر طباعة واحد ولكن يتم ما قام به أخونا عبد الله وهو كالتالي: تحديث لقيمة الخلية التي هي سبب تحديث البيانات ثم إعطاء أمر لطباعة الصفحة الحالية فقط ......... وبالفعل هذا الأمر مرهق جداً للطابعة وخصوصا في حالة كثرة أعداد الصفحات التي تتم طباعتها ........ أنا شخصيا استعمل عدد معين من الصفحات وذلك بالتعديل على الكود في الأرقام الموجودة في أمر التطرار for يعني مثلا طباعة من 1 إلى 10 في مرة واحدة ومن 10 إلى 30 مثلا في مرة أخرى وهكذا