عبد الفتاح كيرة

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

هو بخير إن شاء الله جاء ذلك فى رسالة رد على بها

هو بخير إن شاء الله جاء ذلك فى رسالة رد على بها

الناتج عندى 456371.21 إكسل 2010

إن شاء الله يكون بخير هذه الأحوال التى تمر بنا تفسد على الإنسان صفاء ذهنه وبالتالى لا يكون لديه رغبة فى المشاركة و الإبداع

أخى راجع هذه الموضوعات http://www.officena.net/ib/index.php?showtopic=34859 http://www.officena.net/ib/index.php?showtopic=28610

أخى مراد البرنامج اسمه CAMTASIA STUDIO http://www.techsmith.com/camtasia/ www.techsmith.com/camtasia/

semicolon طريقة معرفة اسم أى حرف أو رمز إدراج رمز ولما تحدد أى رمز يظهر اسمه بالأسفل لاحظ الصورة

شكرا لك أخى بارك الله فيك والحقيقة أن الكود منقول بارك الله فيك

شكرا أخى الأستاذ جمال بارك الله فيك

تفضل أخى هذا كود بحث محترم يبحث عن الكلمة فى كل الشيتات هنيئا لك به Sub FindItAll() Dim oSheet As Object Dim Firstcell As Range Dim NextCell As Range Dim WhatToFind As Variant WhatToFind = Application.InputBox("What are you looking for ?", "Search", , 100, 100, , , 2) If WhatToFind <> "" And Not WhatToFind = False Then For Each oSheet In ActiveWorkbook.Worksheets oSheet.Activate oSheet.[a1].Activate Set Firstcell = Cells.Find(What:=WhatToFind, LookIn:=xlValues, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) If Not Firstcell Is Nothing Then Firstcell.Activate MsgBox ("Found " & Chr(34) & WhatToFind & Chr(34) & " in " & oSheet.Name & "!" & Firstcell.Address) On Error Resume Next While (Not NextCell Is Nothing) And (Not NextCell.Address = Firstcell.Address) Set NextCell = Cells.FindNext(After:=ActiveCell) If Not NextCell.Address = Firstcell.Address Then NextCell.Activate MsgBox ("Found " & Chr(34) & WhatToFind & Chr(34) & " in " & oSheet.Name & "!" & NextCell.Address) End If Wend End If Set NextCell = Nothing Set Firstcell = Nothing Next oSheet End If MsgBox ("End of Search") ActiveWindow.ScrollWorkbookTabs Position:=xlFirst Sheets("TOC").Select End Sub كود ممتاز للبحث فى كل الشيتات.zip

أخى مراد قمت بالرد عليك من خلال القناة

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

غير المعادلة كما يلى =IF(F11="صفر";"راسب";IF(F11>=90;"ممتاز";IF(F11>=80;"جيد جدا";IF(F11>=70;"جيد";IF(F11>=60;"مقبول";IF(F11<60;"راسب";IF(F11="صفر";"راسب")))))))

تم التعديل فى ردى السابق

عليكم السلام و رحمة الله تعالى و بركاته استخدم الكود Sub clearSheets() For i = 2 To 19 Sheets(i).Range("c11:l36").ClearContents Next i End Sub

كلام ممتاز جدا أخ سعد هذا هو مفتاح القضية ======= عن أمير المؤمنين أبي حفص عمر بن الخطاب رضي الله عنه ، قال : سمعت رسول الله صلى الله عليه وسلم يقول : ( إنما الأعمال بالنيّات ، وإنما لكل امريء مانوى ، فمن كانت هجرته إلى الله ورسوله ، فهجرته إلى الله ورسوله ، ومن كانت هجرته لدنيا يصيبها ، أو امرأة ينكحها ، فهجرته إلى ما هاجر إليه ) . رواه البخاري و مسلم في صحيحهما =======

=ROUNDUP(A1;0)

هذا من عيوب دالة vlookup استخدم دالة index مع match =IF($E$6="";"";INDEX(data!$A$2:$E$22;MATCH(Feuil1!$E$6;data!$B$2:$B$22;0);1)) المرفقات بحث متشابه في دالة recherhevkemas.rar

أخى حسن أفضل أن يتدخل الأخ الأستاذ خبور لتنفيذ ما تريده فالكود خاص به و هو به أعلم وشكرا

كهذا؟ شهادات جديد مع اضافة صور للطلبة2222kemas.rar

لعله هذا؟ شهادات جديد مع اضافة صور للطلبة1kemas2.rar

عليكم السلام و رحمة الله تعالى و بركاته مرحبا أخى الدالة COUNTIF تقوم بعد الخلايا فى مدى بشرط معين فى مثالنا هذا الدالة تعد الخلايا فى المدى $C$5:$C$64 بشرط أن الخلية = C5 وطبعا المدى ثابت لا يتغير لكن C5 تتغير بسحب المعادلة لأسفل أخذنا ناتج المعادلة ووضعناه فى الشرط وهو ألا يزيد عدد الخلايا عن 1 و هذا لمنع التكرار فما دام هذا الشرط متحققا تقبل الخلايا القيمة و إلا ظهرت رسالة خطأ آمل أن أكون أفدتك وشكرا

لا أدرى هل هذا ما تريده؟ شهادات جديد مع اضافة صور للطلبة1kemas.rar

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