يحيى حسين

السلام عليكم و رحمة الله أخي حسب طلبك يجب ان يكون تنسيق الارقام في العمود الذي يحتوي ترقيم على انها نص و لعمل بأفضل طريقة : 1) قم بإضافة ' فاصلة علوية واحدة قبل الرقم لنفرض الخلية A1 ثم اكتب الرقم 1 2) قم بسحبها بالماوس بدون الضغط على Ctrl . 3)عند اضافة سطر جديد انت لست بحاجة الا لخطوة واحدة فقط أمسك الخلية التي تعلو السطر المضاف ثم اسحبها بالماوس . أتمنى ان تكون قد اتضحت الفكرة دمت في حفظ الله

السلام عليكم و رحمة الله إضافة لحل الأخ كيماس هذه معادلة أخرى يمكنك الإستفادة منها ضعها في الخلية H7 =INDEX('سنة 2009'!$D$7:$H$23,MATCH(1,IF('سنة 2009'!$B$7:$B$23='سنة 2010'!$B7,IF('سنة 2009'!$C$7:$C$23='سنة 2010'!$C7,1)),0),MATCH(TRIM(LEFT(H$6,FIND(" ",H$6)-1)),'سنة 2009'!$D$6:$H$6,0)) و هي معادلة صفيف فلا تنسى الضغط على Ctrl+Shift+Enter ============ دمتم في حفظ الله

السلام عليكم و رحمة الله و بركاته اخي سامي يوجد مشاركة في المنتدى للاخ ابو تامر تقوم بعملية تغيير لغة الإدخال تلقائياً من عامود الى عامود استخدم خاصية البحث في المنتدى و ستجدها ان شاء الله

السلام عليكم و رحمة الله اخي رضا في جدولك في الخلية G7جرب هذه المعادلة =SUM(D7:F7)/COUNT(D7:F7) دمت في حفظ الله

السلام عليكم و رحمة الله اخي حسين في الصفحة الثانية اذا كنت تقصد ان يتم احتساب المتوسط للعلامات التي تجاوزت نص حد العلامة الكبرى جرب هذه المعادلة =AVERAGE(IF(C7:C36>=(C5/2),C7:C36,"")) و هي معادلة صفيف يجب ادخالها بالضغط على Ctrl+Shift+Enter ========== دمت في حفظ الله

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

السلام عليكم و رحمة الله اخي خالد جرب هذه الحلول لمعرفة الفرق بالايام استخدم هذه المعادلة =DATEVALUE(LEFT(F2,2)&"/"&MID(F2,3,3)&"/"&RIGHT(F2,2))-DATEVALUE(LEFT(D2,2)&"/"&MID(D2,3,3)&"/"&RIGHT(D2,2)) و ملعرفة الفرق بالساعات =(DATEVALUE(LEFT(F2,2)&"/"&MID(F2,3,3)&"/"&RIGHT(F2,2))-DATEVALUE(LEFT(D2,2)&"/"&MID(D2,3,3)&"/"&RIGHT(D2,2)))*24 و لمعرفة عدد الموظفين في الكشف المرفق بدون تكرار =SUMPRODUCT(1/COUNTIF(B2:B193,B2:B193)) ============ دمتم في حفظ الله

السلام عليكم و رحمة الله اخي ولد المجرب اضافة لإقتراحات الاخ كيماس جرب هذا الكود حيث يقوم بتغيير رأس الصفحة و التذييل في الوسط الى اسم يحيى قبل الطباعة جربه لعله يفيدك Private Sub Workbook_BeforePrint(Cancel As Boolean) With ActiveSheet.PageSetup .CenterHeader = "Yahya" .CenterFooter = "Yahya1" End With End Sub

السلام عليكم و رحمة الله يمكنك اي ايضاً مشاهدة هذا الرابط http://www.officena.net/ib/index.php?showtopic=26670&hl= به بعض شروحتا تنسيق الخلايا دمتم في حفظ الله

السلام عليكم و رحمة الله اضافة لحل الاخ الحبيب طارق جرب المعمادلة التالية في الخلية D2 =IF(ROW(1:1)<=COUNTIF($D$12:$D$19,$E$2),INDEX($E$12:$E$19,SMALL(IF($D$12:$D$19=$E$2,ROW($D$12:$D$19)-ROW($D$12)+1),ROW(1:1))),"") و لا تنسى ان تضغط Ctrl+Shift+Enter و ثبت معيار البحث في الخلية E2 بأن يكون مثلاً فرساتشي ثم اسحب المعادلة للأسفل

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

السلام عليكم و رحمة الله هل تقصد اخي عند تكرار معيار البحث

السلام عليكم و رحمة الله أخي هل نفذت معادلتي ما هو مطلوب ام ان الامور لم تحل معك

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

السلام عليكم و رحمة الله أخي ابو علاء جرب هذا لاكود Sub Yahya() Range("b5:b91").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True ActiveSheet.PrintOut End Sub

السلام عليكم و رحمة الله أخي ماجد اهلا و سهلا بك بيننا أخي لتنفيذ طلبك في الصفحة الأخير في الخلية E1 ضع هذه المعادلة =SUM(IF(FREQUENCY(IF(1-ISNUMBER(MATCH(Sheet2!$A$2:$A$6,Sheet1!$A$2:$A$4,0)),MATCH(Sheet2!A2:A6,Sheet2!A2:A6,0)),ROW(Sheet2!A2:A6)-ROW(Sheet2!A2)+1),1)) و في الخلية A2 ضع هذا المعادلة =IF(ROW(1:1)<=$E$1,INDEX(Sheet2!A$2:A$6,SMALL(IF(1-ISNUMBER(MATCH(Sheet2!$A$2:$A$6,Sheet1!$A$2:$A$4,0)),ROW(Sheet2!$A$2:$A$6)-ROW(Sheet2!$A$2)+1),ROW(1:1))),"") ثم اسحبها للأسفل و لليمين و هذه المعادلات معادلات صفيف يجب ادخالها بالضغط على Ctrl+Shift+Enter و هذا رابط على مدونتي بنفس الفكرة http://excel4us.com/blog/?p=161 شاهد المرفق دمت في حفظ الله Majid.rar

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

السلام عليكم و رحمة الله و بركاته أخي لو ارفقت ملف لإتضح طلبك بشكل اكبر و لكن جرب هذا الحل ربما يلبي طلبك لو فرضنا ان الخلية A1 بها تاريخ بداية الرحلة 05/11/2010 01:34:14 ص و ان الخلية B1 بها تاريخ نهاية الرحلة 05/12/2010 10:34:14 ص ضع الخلية C1 هذه المعادلة ="الرحلة استغرقت " &TRUNC(B2-A2)& " يوم و " & ROUND((B2-A2-TRUNC(B2-A2))*24,1) & " ساعات "

السلام عليكم و رحمة الله و بركاته حسب معلوماتي انه لا يمكنك التحكم بتنسيق الخلايا بواسطة هذه الشروط فالشروط التي تطبق على تسيق الخلايا تكون مرتبطه بقيم الخلايا نفسها و ليس القيم الموجودة في عامود اخر و لكن كحل اخر بإستخدام الأكواد لو فرضنا ان كلمة الدينار Dinar او كلمة الدولار Dollar موجودة في العامود A و القيم التي نرغب في تطبيق التنسيق عليها موجودة في العامود B جرب هذا الكود Sub Excel4Us() Dim c As Range, LR As Integer LR = Range("a" & Rows.Count).End(xlUp).Row For Each c In Range("a2:a" & LR) Select Case c.Value Case Is = "Dollar" c.Offset(, 1).NumberFormat = "[$USD] #,##0.00" Case Is = "Dinar" c.Offset(, 1).NumberFormat = "[$JOD] #,##0.000" Case Else c.Offset(, 1).NumberFormat = "General" End Select Next c End Sub

اهلا و سهلا بك اخي بيننا و نحن جاهززون لأي إستفسار دمت في حفظ الله

السلام عليكم و رحمة الله أخي عملية التنسيق الشرطي في الرسومات البيانية محدودة و تحتاج أحيانا لبعض الإضافات حتى تتم ففي حالتك و حسب طلبك قمت بإضافة بيانات جديدة في جدولك الأصلي حتى يتم تقسيم القيم كما طلبت الى قيم مساوية ل 60 اقل من 60 اكبر من 60 و ذلك حتى نتمكن من التحكم في Series شاهد المرفق و أتمنى ان يكون هو المطلوب يحيى حسين.rar

السلام عليكم و رحمة الله اخي يمكنك استخدام الكود التالي لإخفائهم Sub HideHeading() ActiveWindow.DisplayHeadings = False End Sub

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

السلام عليكم و رحمة الله و بركاته أخي علي اهلا و سهلا بك بيننا يا ريت لو توضح لنا بمثال بسيط او ملف صغير ما هي آلية الربط التي ترغب فيها هل هو رط خلية واحدة او ربط جدول تحديد الحالة سيسهل علينا مساعدتك و اعطائك الحلول التي ترضيك ============ دمت في حفظ الله

السلام عليكم و رحمة الله و بركاته اضافة لحلول الاخوة الجميلة هذا كود قد يفيدك اخي و على فرض ان الصفحة التي بها الاسماء اسمها Data و الصفحة التي بها الاستمارات اسمها PrintPage جرب هذا الكود Sub Yahya() Dim c As Range, ws As Worksheet, LR As Integer LR = Sheets("Data").Range("a" & Rows.Count).End(xlUp).Row Set ws = Sheets("PrintPage") For Each c In Sheets("Data").Range("b3:b" & LR) With ws .Range("c2").Value = c.Value .Range("c3").Value = c.Offset(, 1).Value .Range("c8").Value = c.Offset(, 2).Value .Range("a8").Value = c.Offset(, 3).Value .PrintOut End With Next c End Sub