سليم حاصبيا

تم التعديل Razak_1.xlsx

هذه المعادلة =SUBTOTAL(109,$G$3:$G$200) Razak.xlsx

الملف غير قابل للتجميل اعد رفعه

جرب هذا الملف SALAH.xlsx

عليك بهذه المغادلة (احتر الاسم من القائمة المنسدلة في G3) =SUMPRODUCT($D$3:$D$100,--($B$3:$B$100=$G$3)) الملف مرفق Sum_Prod.xlsx

هل يمكن جعل الكود ياسم الشيت بدل الرقم ما هو اسم كل صفحة من 1 الى عدد الشيتات هل هو " Sheet1 " او " Data1" او "1 Any thing " " Sheet2 " او "Data2 " او "1 Any thing " الح.....

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

كان يجب توضيح هذا الأمر مسبقاً من الصعب جداً عمل ذلك بالمعادلات لانه يمكن ان يكون هناك اكثر من ورقتي عمل يمكنك تجربة هذا الكود Option Explicit Sub get_all_1() Dim Sh As Worksheet Dim Arr(), I%, k%, m%, x%, t% Dim My_rg As Range m = 2 For Each Sh In Sheets If UCase(Sh.Name) <> UCase("salim") Then ReDim Preserve Arr(k) Arr(k) = Sh.Name k = k + 1 End If Sheets("Salim").Range("B:B").ClearContents Next Sh For k = LBound(Arr) To UBound(Arr) With Sheets(Arr(k)) x = .Cells(Rows.Count, 2).End(3).Row Set My_rg = .Range("b2:b" & x).SpecialCells(2) My_rg.Copy Sheets("Salim").Range("B" & m) m = Sheets("Salim").Cells(Rows.Count, 2).End(3).Row + 1 End With Next k Sheets("Salim").Range("B1") = "Data" Erase Arr End Sub الملف من جديد H_Rady_1.xlsm

جرب هذا الكود Option Explicit Sub get_all() Dim Sh As Worksheet Dim My_rg As Range Dim Arr(), I%, k%, m% m = 2 For Each Sh In Sheets If UCase(Sh.Name) <> UCase("salim") Then ReDim Preserve Arr(k) Arr(k) = Sh.Name k = k + 1 End If Sheets("Salim").Range("B:B").ClearContents Next Sh For k = LBound(Arr) To UBound(Arr) Set My_rg = Sheets(Arr(k)).Range("b1").CurrentRegion If My_rg.Rows.Count = 1 Or _ Sheets(Arr(k)).Range("B1") = "" Then GoTo next_K Set My_rg = _ My_rg.Offset(1).Resize(My_rg.Rows.Count - 1).Columns(1) My_rg.Copy Sheets("Salim").Range("B" & m) m = m + My_rg.Rows.Count next_K: Next k Sheets("Salim").Range("B1") = "Data" End Sub الملف مرفق H_Rady.xlsm

The Code Option Explicit Private Sub Workbook_SheetChange _ (ByVal Sh As Object, ByVal Target As Range) Application.EnableEvents = False Dim Ar(4) Ar(0) = "Sheet1": Ar(1) = "Sheet2" Ar(2) = "Sheet3": Ar(3) = "Sheet4" Ar(4) = "Sheet5" If IsError(Application.Match(Sh.Name, Ar, 0)) Then If Not Application.Intersect(Target, _ Sh.Range("A1:J5")) Is Nothing Then _ Application.Undo End If Application.EnableEvents = True End Sub

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

ليست المرة الأولى التي اقول فيها انه يجب على الجدول في اكسل ان يكون مستقلاُ عن اي بيانات أو خلايا خارجية (خاصة اذا كان هناك عدو الاكواد والمعادلات / الحلايا المدمحة) فوقة صف فارغ الى يمينه ويساره أعمدة فارغة و بدون خلايا مدمحة أو فارغة انصح دائماً باستعمال اللغة الأجنبية لتسمية الشيتات لجسن عملية نسخ الكود ولصقة بدون مشاكل اللغة اي جدول يأتي لا يطابق هذه المواصفات أعتذر عن المساعدة تم ادراح صفين فارغين 8 و 9 لفصل الجدول عن كل شيء Option Explicit Sub filter_me() Dim mot, rg As Range, col% mot = Arabi.Range("M2") Set rg = Arabi.Range("B9").CurrentRegion col = 16 rg.AutoFilter col, mot End Sub '+++++++++++++++++++++++++++++++ Sub show_all() If Arabi.FilterMode Then Arabi.Range("B9").CurrentRegion.AutoFilter End If End Sub الملف مرفق Filter_Ali.xlsm

حربي هذا الملف VlK_Om_Ham.xlsm

المعادلة الصحيحة =VLOOKUP(A2,Sheet1!$C$2:$D$10,2,0)

ربما مطلوب هذا الشيء Abo Hasan rows_1.xlsm

النتسيق الشرطي لا يقوم يتحديد حلايا يمكنه تضليلها باي لون تريد

أولاً -النتسيق الشرطي لا يقوم باخفاء صفوف او أعمدة لأن اسمه "تنسيق" اي تغيير لون الخلية , لون الخط(ليس حجمه), حدود الخلايا الخ.... ثانياً في حال قامت مايكروسوفت باختراع هكذا خاصية للتنسيق الشرطي (اخفاء صفوف), كيف ستقوم بكتابة اي شيء في صف مخفي لاظهاره اذا اردت يمكنك الاستعانة بهذا الملف Abo Hasan rows.xlsm

اتبع الخطوات في هذه الصورة ولا حاجة للكود

حاول اختصار الملف و ذلك بانشاء نموذج عنه من 10 الى 15 صف في كل صفحة من صفحاته و ارفعه الى هذا الموقع

حرب هذا الملف Option Explicit Sub Get_Color() Dim My_Regex As Object Dim x%, m%, La%, t% Dim arrWords, Arr() ReDim Arr(4) Arr(0) = 3: Arr(1) = 14: Arr(2) = 5: Arr(3) = 3 Set My_Regex = CreateObject("VBScript.RegExp") My_Regex.Pattern = "(\d{3})" My_Regex.Global = True With Sheets("Sheet1") La = .Cells(Rows.Count, 3).End(3).Row m = 1 With .Range("E6:E" & La) .Font.ColorIndex = 1 .ClearContents End With For t = 6 To La .Range("E" & t) = .Range("C" & t) If My_Regex.test(.Range("E" & t)) Then Set arrWords = My_Regex.Execute(.Range("E" & t)) For x = 0 To arrWords.Count - 1 Range("E" & t).Characters(m, 3) _ .Font.ColorIndex = Arr(x) m = m + 3 Next x End If m = 1 Next t End With End Sub الملف مرفق Abbadi.xlsm

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

لا اعمل بدون ملف مرفق

ربما كان المطلوب و زيادة حبتين ABD_ElAziz.xlsm

Try this macro Option Explicit Sub Fill_data() Dim i%, t% Dim Rg As Range t = 2 With Sheets("data") Set Rg = .Range("A1").CurrentRegion If Rg.Rows.Count > 1 Then _ Rg.Offset(1).Resize(Rg.Rows.Count - 1).ClearContents For i = 2 To Sheets.Count If Sheets(i).Name <> "data" Then .Cells(t, 1) = Sheets(i).Name .Cells(t, 2).Resize(, 5).Value = _ Sheets(i).Cells(4, 5).Resize(, 5).Value t = t + 1 End If Next i End With End Sub

عملية الجمع باستعمال علامة الجمع (+) لا تعطي نتيجة اذا كان هناك نصوص (كيف تجمع رفماً مع نض ؟؟؟) مثلاُ اذا كتبت =A1+B1+C1+D1 و كانت احد هذه لخلايا تحتوي على نص ستحصل على خطأ Value اما الدالة Sum تعتبر النص او الفراغ صفرا فالأفضل استعمالها بهذا الشكل =SUM(A1:D1) الصورة توضخ ماذا اقصد