Ali Mohamed Ali

فقط يمكنك استخدام هذه المعادلة لتلبية طلبك فأول جزء المعادلة هو lookup ثم فتح القوس وكتابة الرقم 1 ثم علامة ثم 0 وهذا كود ثابت بالمعادلة ثم علامة / وكتابة الجزء الخاص بالبحث بالعمود الأول بالصفحة التى تريد جلب البيانات منها ثم الجزء الأخر بالمعادلة وهو Offset ثم ذكر رقم الخلية التى نود البحث من خلالها وأخيراً الجزء الأخير من المعادلة وهو ذكر العمود الثانى من الصفحة التى نريد جلب البيانات منها وهى النتيجة التى نريد اظهارها بالمعادلة =IFERROR(LOOKUP(1,0/MATCH("*"&Sheet2!$A$1:$A$45&"*",OFFSET(C69,,,COUNTIF(F:F,F69)),0),Sheet2!$B$1:$B$45),"") New Microsoft Excel 97-2003 Worksheet.xls

تفضل -يمكنك استخدام هذه المعادلة مع ضبط تنسيق الخلايا =INT(E6/100)/24+MOD(E6,100)/1440 وهناك أيضاً معادلة ثانية ولكن طويلة =IF(LEN($E6)=3,LEFT(E6,1)&":"&RIGHT(E6,2),LEFT(E6,2)&":"&RIGHT(E6,2)) &" " & TEXT(IF(LEN($E6)=3,LEFT(E6,1)&":"&RIGHT(E6,2),LEFT(E6,2)&":"&RIGHT(E6,2)),"am/pm") وهذه معادلة ثالثة مع ضبط التنسيق أيضاً =--TEXT(E6,"00\:00") export - 1.xls

تفضل بإستخدام هذه المعادلة وعليك بإستكمال هذا على نفس الطريقة =IFERROR(VLOOKUP(C$8,Sheet2!$G$2:$I$380,2,0),"") 1a.xlsx

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

وعليكم السلام-بعد اذن الأستاذ سليم ولإثراء الموضوع ,تفضل تم عمل معادلة مصفوفة لطلبك (Ctrl+Shift+Enter) ... كما تم عمل قائمة منسدلة بالخلية B1 لتسهيل العمل لك لإختيار بدلاً من الكتابة لتقليل الأخطاء =IFERROR(INDEX(رئيسية!$B$2:$B$140,SMALL(IF(رئيسية!$C$2:$C$140=$B$1,ROW(A$2:A$140)-ROW(A$2)+1),ROWS($A$3:A3))),"") GOING1.xlsx

وعليكم السلام يمكنك استخدام هذه المعادلة-معادلة مصفوفة (Ctrl+Shift+Enter) IF(AND(A$19<>$A$1:$U$1,A$19<>$A$9:$U$9),"غير موجود",IFERROR(HLOOKUP(A$19,$A$1:$U$3,2,0),HLOOKUP(A$19,$A$9:$U$11,2,0))) دمج1.xlsx

وعليكم السلام-عليك بإستخدام هذا الكود Sub run() Range("a65536").End(xlUp).Select End Sub الذهاب الى اخر صف مكتوب.xlsm

وعليكم السلام-يمكنك استخدام هذه المعادلة =COUNTIF(A3:AC3,"ح")+COUNTIF(A3:AC3,"ج")+COUNTIF(A3:AC3,"ق") مجموع الأحرف1.xlsm

بارك الله فيك وزادك الله من فضله

تفضل يمكنك استخدام هذه المعادلة لطلبك =IF($E52="","",IF(AND($D52>$H52,$H52<>0),"سداد جزئى",IF($D52=$H52,"سداد كلى",0))) مثال1.xlsx

وعليكم السلام-حاول إضافة هذا السطر بالكود بعد السطر الذى تحدث به المشكلة Sheets("Sheet1").Protect UserInterfaceOnly:=True جلب الاسماء من عدة شيتات مع عدم التكرار1.xlsm

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

وعليكم السلام-بكل بساطة يمكنك استخدام هذه المعادلة لطلبك وزيادة عن ذلك تم عمل قائمة منسدلة لأسماء الطلاب لتسهيل الإختيار بدل من الكتابة =IFERROR(VLOOKUP($D4,ورقة1!$D$4:$F$600,3,0),"") 1استدعاء.xlsx

وذلك من خلال هذه المعادلة =TRIM(MID(SUBSTITUTE(";"&$A3,";",REPT(" ",50)),COLUMN(A1)*50,50)) PAVARC.xlsm

تفضل يمكنك هذا بهذه المعادلة =IFERROR(INDEX(البيانات!$C$2:$F$11,MATCH($B2,البيانات!$B$2:$B$11,0),MATCH(C$1,البيانات!$C$1:$F$1,0)),"") تقرير1.xlsx

السلام عليكم وذلك من خلال هذه المعادلة بداية من الخلية P2 =IFERROR(INDEX($A$2:$A$550,AGGREGATE(15,6,ROW($A$1:$A$302)/(MATCH($A$2:$A$550&$B$2:$B$550&$C$2:$C$550,$A$2:$A$550&$B$2:$B$550&$C$2:$C$550,0)=ROW($A$1:$A$302)),ROWS($2:2))),"") Book2.xlsx

تفضل يمكنك استخدام هذا الكود Sub AddBlankRows() Dim iRow As Integer, iCol As Integer Dim oRng As Range Set oRng = Range("b1") iRow = oRng.Row iCol = oRng.Column Do If Cells(iRow + 1, iCol) <> Cells(iRow, iCol) Then Cells(iRow + 1, iCol).EntireRow.Insert shift:=xlDown iRow = iRow + 2 Else iRow = iRow + 1 End If Loop While Not Cells(iRow, iCol).Text = "" End Sub MM.xlsm

وعليكم السلام-لابد وان تكون المعادلة هكذا ="@"&INDEX(SheetNames,ROW()-1) ومن ثم فعليك إضافة هذه العلامة @ لكل أسماء صفحات الملف حتى تعمل معادلة Indirect بكفاءة

وعليكم السلام-تفضل لك ما طلبت ـ تــم ترجمة ملفك الأرباح والخسائر.xls

تفضل لك ما طلبت استفسار1.xlsx

وعليكم السلام- اخى الكريم من فضلك فقد نبهنا على هذا الأمر كثيراً ان لا تقوم برفع اى مشاركة الا بعد استخدام خاصية البحث بالمنتدى ولم تجد المطلوب ... ولكن طلبك تكرر كثيراً بالمنتدى -تفضل مشكلة في اللغة العربية

وعليكم السلام-يمكنك استخدام هذا الكود لطلبك Sub Hide() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets If ws.Name <> "Sheet4" And ws.Name <> "Sheet5" Then ws.Rows("10:15").EntireRow.Hidden = Not ws.Rows("10:15").EntireRow.Hidden End If Next End Sub كود لإخفاء الصفوف واظهارها.xlsm

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

تفضل كان عليك التركيز فهذا الموضوع تكرر معك كثيراً -يمكنك استخدام هذه المعادلة =SUMIFS($C:$C,$B:$B,$G8,$D:$D,$J$7) حساب سيارة مشتركة بين موقعين1.xls

وعليكم السلام-لك ما طلبت مثال1.xlsx