Ali Mohamed Ali

لا يمكن استخدام معادلة subtotoal لعد النصوص بدون فراغات الا بهذه الطريقة =SUBTOTAL(3,$E$1:$E$12)-COUNTBLANK($E$1:$E$12) أو بهذه المعادلة =SUMPRODUCT(SUBTOTAL(3,OFFSET($E$1:$E$12,ROW($E$1:$E$12)-MIN(ROW($E$1:$E$12)),,1))*($E$1:$E$12<>"")) او استخدام هذه المعادلة مباشرة وشكراً وبكده يجب غلق المشاركة =SUMPRODUCT(--(LEN($E$1:$E$12)>0)) خلايا فارغة1.xlsx

بارك الله فيك استاذ حسين عمل رائع -أما بالنسبة للطلب الثانى بخصوص التنسيق الشرطى -فيمكنك استخدام هذه المعادلة =AND($E1<>"",COUNTIF($E$1:E1,E1)>1) خلايا فارغة1.xlsx

تفضل هناك العديد من الأكواد لتنفيذ طلبك منها : Sub PDF_Show() ActiveWorkbook.FollowHyperlink "C:\Users\Ali\Downloads\ÚÞÏ ÇáÊÃÓíÓ-ãÍæá.pdf" 'يجب عليك تغيير وتعديل عنوان ومكان ملف البى دى اف بما يتوافق عندك بين علامتين التنصيص End Sub وهذا كود ثانى Sub OpenPDF() Dim pdf As String On Error Resume Next pdf = "C:\Users\Ali\Downloads\عقد التأسيس-محول.pdf" 'يجب عليك تغيير وتعديل عنوان ومكان ملف البى دى اف بما يتوافق عندك بين علامتين التنصيص ActiveWorkbook.FollowHyperlink pdf End Sub واليك الملف اوراق الشركة.xlsm

وعليكم السلام-فقط عليك استخداك هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("E5:AB80")) Is Nothing Then Range("A" & Target.Row) = Date End If End Sub Ech1.xlsm

وعليكم السلام-بسيطة كان عليك رفع الملف لتجربته ..فعموماً مخزى هذه الرسالة ان لديك معادلات طويلة جداً فعليك بتغيير حفظ امتداد ملف الإكسيل الى Xlsb

وعليكم السلام-يمكنك استخدام هذه المعادلة اذا كانت القيمة المراد البحث عنها بالخلية N4 مثلاً =IFERROR(IF($N$4=VLOOKUP(N4,$A$5:$A$95,1,0),"موجود"),"غير موجود") ثوابت الميزان الجانب الغربي .xlsx

رائع استاذ مجدى وكل عام وانتم بخير

تفضل لك ما طلبت .. تـــم تنظيم الملف وعمل قائمة منسدلة بأسماء جميع صفحات الملف.. وهذه هى المعادلة المستخدمة لجلب البيانات من كل صفحة بمعلومية اسم الصفحة =INDIRECT("'"&$A$1&"'!"&CHAR(64+COLUMNS($A$1:A1))&""&ROWS($A$1:A3)) testttt1.xlsx

كل عام وانتم بخير وعيد سعيد عليكم

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

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

بارك الله فيك استاذى الكريم

شكراً لك يمكنك استخدام هذه المعادلة =IFERROR(1/(1/LOOKUP(9^9,$A$4:$A$10150/($C$4:$C$10150=$K7))),VLOOKUP($K7,$A$4:$C$10150,3,0)) calcul irg 2022 OFISNA1.xlsx

بارك الله فيك استاذنا ابراهيم لك منا كل المحبة والإحترام المعادلة تعمل بكل كفاءة وتم وضعها بالملف IRG OFISNA 21.xlsx

وعليكم السلام-ويتم ذلك بإستخدام هذه المعادلة =VLOOKUP($C8,INDIRECT("'"&$C$3&"'!"&"I9:U700"),13,0) 1العمال.rar

أحسنت أستاذ مجدى , عمل رائع .. اللهم تقبل منكم سائر الأعمال .. وكل عام وانتم بخير

وعليكم السلام-تفضل تم عمل قائمة منسدلة بأرقام الجلوس وبناءاً على اختيارك منها سيتم جلب بيانات الشهادات شهادات ,والراسبين 4 تعريق 1متغيرات.xlsm

يمكنك ذلك من خلال هذه المعادلة -وهذه معادلة مصفوفة (Ctrl+Shift+Enter) ويمكنك استخدامها مرة بالدولار ومرة أخرى بالريال .. وتم وضع المعادلة بالخلية D2 =SUMPRODUCT((الجدول1[عملة العرض]=$E$1)*(SUBTOTAL(109,OFFSET(I3,ROW(الجدول1[[المبلغ ]])-ROW(I3),0)))) معادلة Subtotal للخلايا المرئية فقط وبشرط.xlsx

وعليكم السلام -نعم يمكن ذلك بهذا الكود Sub Splitbook() Dim xPath As String xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False For Each xWs In ThisWorkbook.Sheets xWs.Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx" Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub أو كان عليك من البداية استخدام خاصية البحث بالمنتدى قبل طرح مشاركتك فبها طلبك كيفية فصل الشيتات الموجودة داخل الملف إلى ملفات منفصلة الملف به اربع صفحات.xlsm

فقط ..عليك استخدام هذه المعادلة بصفحة الإحصاء .. وضع ما شئت من الكلمات كما ترى =COUNTIF('ردود النموذج 1'!$B$2:$BX$220,B$1) بسيطة اذا كنت التريد العمل على عمود معين فقط فعليك بتغيير المدى بالمعادلة السابقة الى مدى اى عمود تريد فمثلاً العمود BV ... قستكون المعادلة كالتالى وبالتالى كده اكتملت كل الطلبات ويجب غلق المشاركة =COUNTIF('ردود النموذج 1'!$BV$2:$BV$220,B$1 23.xlsx

وعليكم السلام-طبعاً لا يمكن عمل هذا بهذه المعادلات -فقط يمكنك استخدام هذه المعادلة =SUMIFS('All Details'!$C$6:$C$1000,'All Details'!$A$6:$A$1000,$E$5,'All Details'!$B$6:$B$1000,$C7) تقفيل نهائي-فاضي-Index-1Match.xlsx

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

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

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

السلام عليكم-تفضل يمكنك استخدام هذه المعادلة للأدنى =MINIFS(SHEET1!E$10:E$250,SHEET1!$C$10:$C$250,$A$1) وهذه للمتوسط =Iferror(AVERAGEIF(SHEET1!$C$10:$C$250,$A$1,SHEET1!E$10:E$250),"") وأخيراً معادلة الأعلى .. وبارك الله فيك =MAXIFS(SHEET1!E$10:E$250,SHEET1!$C$10:$C$250,$A$1) TEST568.xlsx