Ali Mohamed Ali

اهلا بك فى المنتدى هناك عدة أكواد يمكنها عمل ذلك , عليك بإختيار الأنسب لك Public Sub PrintOneLine() Dim rng As Range For Each rng In Range(Range("A5"), Cells(Rows.Count, "A").End(xlUp)) With rng.Parent .PageSetup.PrintArea = rng.EntireRow.Address '.PrintOut 'remove the apostrophy .PrintPreview 'Add an appostrophy End With Next rng End Sub وثانى كود Sub PrintOneLine() Dim Rng As Range Dim WorkRng As Range Dim xWs As Worksheet On Error Resume Next xTitleId = "Officena" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Set xWs = WorkRng.Parent For Each Rng In WorkRng xWs.PageSetup.PrintArea = Rng.EntireRow.Address xWs.PrintPreview Next End Sub وهذا ثالث واخر كود Sub Printseprete() Dim c As Range For Each c In ActiveSheet.Range("A5:A105") ActiveSheet.PageSetup.PrintArea = c.EntireRow.Address ActiveSheet.PrintOut Next c End Sub Print.xlsm

يمكنك استخدام هذه المعادلة =IF(AND(WEEKDAY($B4)=6,$C4="حضور"),1,"") حساب يوم الجمعة2.xlsx

تفضل لو حابب الحل بالأكواد 1ترتيب ابجدى.xlsm

تفضل على الرغم ان هناك اختلاف بين الصورة والملف , فيمكنك استخدام هذه المعادلة =COUNTIF(B4:AF4,TRUE) جدول العصافير.xlsx

أحسنت استاذ صالح بارك الله فيك وزادك الله من فضله

تفضل تم تعديل الملف السابق

وعليكم السلام-لك ما طلبت فقط عليك لجعل المعادلة هكذا طالما تريد نطاق الجدول =SUMIFS(تحليل!$C:$C,تحليل!$E:$E,$B3,تحليل!$F:$F,C$2) Sumifs.xlsx

وعليكم السلام-فقط يمكنك استخدام هذه المعادلة =IFERROR(INDEX($R$8:$AA$12,MATCH($E7,$Q$8:$Q$12,0),MATCH(F$6,$R$7:$AA$7,0)),"") ww2.xlsx

وعليكم السلام-تفضل Middle East1(1).xlsx

فقط يمكنك ببساطة من خلال هذه الصورة

بعد اذن الأستاذ سليم , يمكنك استخدام هذه المعادلة =TRIM(LEFT(RIGHT(SUBSTITUTE(SUBSTITUTE(E7,".","/"),"/",REPT(" ",200)),400),200)) وايضا يمكنك استخدام هذه المعادلة =IFERROR(LOOKUP(99^99,--RIGHT(LEFT(E7,SEARCH("/",E7)-1),ROW($2:$16))),"") وهذه معادلة ثالثة =-LOOKUP(1,-RIGHT(LEFT(E7,FIND("/",E7)-1),ROW($1:$9))) Microsoft Office Excel Worksheet 1.xlsx

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

رائع .. احسنت استاذ سليم بارك الله فيك

وعليكم السلام-اذا كان المطلوب كما قلت فتكون المعادلة كالتالى بالخلية I4 =IFERROR((Y4/X4)*H4,"") New ورقة عمل Microsoft Excel (2).xlsx

أحسنت استاذ صالح هدية بالطبع مقبولة وعمل ممتاز جعله الله فى ميزان حسناتك

أستاذى الكريم-حاول دائما توضيح المطلوب بكل دقة فهل عمود التاريخ المطلوب الإستعلام من خلاله هو تاريخ Start أى العمود D وان كان الأمر هكذا فكان عليك محاولة عمل هذا بنفسك كما تم بالملف السابق حتى تتمكن من تعلم هذا ,فالهدف الأساسى من المنتدى التعلم دائما وليس تقديم الحل الجاهز تفضل هذه المرة ايضا لك ما طلبت , واتمنى محاولتك تتم بنجاح بالإعتماد على نفسك فى المرات والطلبات القادمة استعلام2.xlsm

تفضل -بعد اذن استاذنا حسين -لك ما طلبت بمعادلات المصفوفة 1استعلام.xlsm

وعليكم السلام ,وهذا يتم بهذه الطريقة بالضغط على : File ثم Option ثم بعد ذلك Advanced ثم الضغط على Edit Custom Lists ثم بعد ذلك عليك بلصق القائمة التى تريدها ثم الضغط على Add ثم ok ورقة عمل Microsoft Excel جديد __.xlsx

بارك الله فيك اخى الكريم

وعليكم السلام-فقط يمكنك استخدام هذه المعادلة وتم اضافة قائمة منسدلة لسهولة اختيار الإسم بالإنجليزية ولحسن عمل المعادلة لضمان مطابقة الإسم =IFERROR(INDEX(Sheet1!$B:$B,MATCH($B2,Sheet1!$C:$C,0)),"") move arabic name1.xlsx

وعليكم السلام-كان عليك استخدام خاصية البحث بالمنتدى-تفضل تفقيط مساحة ارض

وعليكم السلام-تفضل اخى الكريم ,كان عليك استخدام خاصية البحث بالمنتدى كيفية كتابة معادلة داخل مربع نص او اشكال هندسية

وعليكم السلام-فقط يمكنك استخدام هذه المعادلة لطلبك الجديد =SUMPRODUCT(--(TEXT(ROW(INDIRECT($C$2&":"&$E$2)),"b2dddD")=G$2))-COUNTIF($N$2:$N$16,G$2) 1تحديد عدد أيام معينة بين تاريخين.xlsx

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

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