ياسر خليل أبو البراء

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

الأخ الحبيب حسام صقر المنتدى وأحد الكبار الذين نتعلم منهم اسمح لي بمشاركة بسيطة بناءً على الكود الذي تفضلت به Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Row > 1 Then If Target.Column >= 1 And Target.Column <= 4 Then ActiveCell = Cells(1, Target.Column) End If End If End Sub تقبل تحيات أخوك أبو البراء

أخي الكريم أبو حنين لا أستطيع العمل على الملف ولكن إليك بعض التوجيهات لا تنسى القفلات ..يعني جملة التكرار لاحظت أنها غير مكتملة لابد من الجملة Next SH وكذلك جملة الشرط If لابد من القفلة End If وكذلك جملة With End With تقبل تحياتي

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

الأخ الحبيب أبو يوسف إليك الحل التالي عله يكون المطلوب Sub AddFilteredCells() Dim rngData As Range, R As Range Set rngData = Range("G11:G25") Set Dict = CreateObject("Scripting.Dictionary") Range("D31:E50").ClearContents For Each R In rngData.SpecialCells(xlCellTypeVisible) Dict.Item(R.Value) = Dict.Item(R.Value) + R.Offset(, 2).Value Next R Range("D31").Resize(Dict.Count, 1) = Application.Transpose(Dict.keys) Range("E31").Resize(Dict.Count, 1) = Application.Transpose(Dict.items) End Sub تقبل الله منا ومنكم صيام الشهر وقيامه المجموع الفرعي الأصناف والكميات.rar

أخي الحبيب علي ممكن تضغط الملف وترفعه على سيرفر المنتدى ؟

متميز ومبدع كعادتك دائماً يا باشمهندس طارق يمكن الاستغناء عن الدالة Sumproduct =MAX(($A$2:$A$16=E1)*($B$2:$B$16)) المعادلة صفيف أي يجب أن يتم الضغط على Ctrl + Shift + Enter ولكني أفضل معادلة الباشمهندس لأن معادلات الصفيف لا تعجبني كثيراً

الأخ الحبيب صلاح بالنسبة لطلبك يمكنك ببساطة وضع الكود في حدث Worksheet_SelectionChange والإشارة إلى الخلية التي بها إجمالي الصف أو العمود الهدف .. الأخ الكريم أبو يحيى الكود يوضع في حدث ورقة العمل ويتم ذلك عن طريق كليك يمين على التبويب (على اسم ورقة العمل) ثم الأمر View Code ... قم بالإطلاع على المرفق في المشاركة رقم 10 مرة أخرى لتجد الكود ... تقبل تحياتي

إخواني الكرام بالمنتدى كل عام وأنتم بخير والأمة الإسلامية بخير بارك الله فيكم على سؤالكم عني والله الذي لا إله إلا هو إني أفتقدكم كثيراً المكان الذي انا فيه الآن يتعذر الانترنت فيه بشكل كبير إن شاء الله نلتقي بكم مجدداً قريباً دمتم على طاعة الله ورعاية الله

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

أخي الحبيب احمد ابو زيزو الأمر بالفعل يتعلق بالويندوز .. قم بتحميل ويندوز جديد (عشان يكون الشغل نضيف ) وأول حاجة تسطبها برنامج أنتي فيروس يكون محترم أنا بستخدم برنامج مجاني وفعال جدا وخفيف على أي جهاز اسمه 360 توتال سيكيورتي 360 total security برنامج بسيط وفعال وفيه مميزات كتيرة جداً بعد كدا اعمل سكان أو فحص على كل البارتشنات اللي عندك والفلاشات التي تملكها وإن شاء الله تتحل مشكلتك

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

أخي الكريم سعد سعد يحيا سعد استغرق الموضوع مني أكثر من ساعتين والله .. لأن الموضوع جديد بالنسبة لي .. ألا وهو ترتيب البيانات حسب التاريخ الهجري وجدت أن التواريخ الهجرية لا يتم ترتيبها كما في التواريخ الميلادية ، فخطرت لي فكرة التحويل من الهجري إلى الميلادي ، فبحثت في مكتبتي فوجدت دالة تحول التاريخ الهجري إلى تاريخ ميلادي ثم بدأت في كتابة الكود ، وفوجئت أن الترتيب لا يعمل بالشكل الصحيح ، فاكتشفت أن التواريخ المحولة عبارة عن نصوص وليست تواريخ ، فقمت بتجزئة النص إلى أجزاء : يوم وشهر وسنة ، ثم لم شمل هذه الأجزاء واستخدام دالة CDate لتحويل النص إلى تاريخ .. ونجحت العملية بفضل الله .. :power: وكعادة الأطباء أن ينسوا المشرط في بطن الطبيب .. نسيت أن أنفذ الكود .. قم بتنفيذه على بركة الله الكود بهذا الشكل Sub SortByHijriDates() Dim LR As Long, I As Long, strDate As String LR = Range("A" & Rows.Count).End(xlUp).Row Application.ScreenUpdating = False Range("H1").Value = "Helper" For I = 1 To LR If IsDate(Cells(I, "E")) Then strDate = Mid(ConvertDateString(Cells(I, "E")), 1, 2) & "/" & Mid(ConvertDateString(Cells(I, "E")), 4, 2) & "/" & Mid(ConvertDateString(Cells(I, "E")), 7, 4) Cells(I, "H") = CDate(strDate) End If Next I Range("A1:H" & LR).Sort Key1:=Range("H1:H" & LR), Order1:=xlAscending, Key2:=Range("C1:C" & LR), Order2:=xlAscending, Header:=xlYes Columns("H:H").ClearContents Application.ScreenUpdating = True End Sub Function ConvertDateString(ByRef StringIn As String) As String Dim SavedCal As Integer Dim myDate As Date Dim str As String SavedCal = Calendar Calendar = 1 myDate = CDate(StringIn) Calendar = 0 str = CStr(myDate) ConvertDateString = Format(str, "dd.mm.yyyy") Calendar = SavedCal End Function لا تنسى أن تحدد الإجابة كأفضل إجابة عن طريق الضغط على كلمة "تحديد كأفضل إجابة" ؛ ليظهر الموضوع مجاب ومنتهي ، كما لا تنسى أن تضغط على كلمة "أعجبني هذا" الموضوع استغرق مني أكثر من ساعتين ولن يستغرق الأمر منك أكثر من ثانيتين تقبل تحياتي Sort By Hijri Dates.rar

ارفق بعض النتائج المتوقعة ... لا أرى مرفق في المشاركة الأخيرة والمرفق الأول ليس به نتائج متوقعة

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

أخي قصي ..قم باستبدال الفاصلة بفاصلة منقوطة

خلينا واحدة واحدة زي ما إحنا ماشيين مش ناقصة لخبطة اتفضل جرب الملف التالي .. وضعت بيانات وهمية في الأعمدة اللي لسه هيتم عليها شغل .. ايه البرنامج المعقد ده Quran School V9.rar

اسمح لي بحذف الموضوع وقم بطرح موضوع جديد لأن الموضوع وصل لـ 16 مشاركة بدون فائدة تذكر ... اديني الإذن عشان أحذف وابدأ موضوع جديد وراعي فيه التوجيهات عشان تلاقي مساعدة

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

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

الأخ الفاضل أبو يحيى كنت قد جهزت الملف من أول ما الموضوع نزل ولكني نسيت لأسباب كثيرة إليك الملف التالي .. وقارن أخي صلاح بين سرعة الإخفاء في كلا الكودين .. كما يمكنك الاستغناء عن الأزرار ولكن لابد لكي يتم التنفيذ للإخفاء والإظهار تغيير معين في ورقة العمل ..فحددت لك الخلية A4 إذا وضعت بها القيمة صفر يتم الإخفاء وإذا تم مسح محتوياتها يتم الإظهار Sub ShowAll() On Error Resume Next Application.ScreenUpdating = False With ActiveSheet.UsedRange .EntireRow.Hidden = False .EntireColumn.Hidden = False End With Application.ScreenUpdating = True End Sub Sub HideAll() Dim RW As Range, R_TB As Range Dim CL As Range, C_TB As Range Application.ScreenUpdating = False For Each RW In Range("N7:N200") If RW.Value = 0 Or RW = "" Then If R_TB Is Nothing Then Set R_TB = RW Else Set R_TB = Union(R_TB, RW) End If End If Next RW R_TB.EntireRow.Hidden = True For Each CL In Range("D201:N201") If CL.Value = 0 Or CL = "" Then If C_TB Is Nothing Then Set C_TB = CL Else Set C_TB = Union(C_TB, CL) End If End If Next CL C_TB.EntireColumn.Hidden = True Application.ScreenUpdating = True End Sub ويوضع الكود التالي في حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A4")) Is Nothing Then Application.ScreenUpdating = False If Range("A4").Value = 0 And Not IsEmpty(Range("A4")) Then Call HideAll ElseIf IsEmpty(Range("A4")) Then Call ShowAll End If Application.ScreenUpdating = True End If End Sub أرجو أن يكون المطلوب :fff: Hide Columns & Rows With Blanks.rar

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

لو اطلعت على رابط الشرح هتعرف إني بتبع الأسلوب ده How to catch a fish not to eat it? إزاي تصطاد سمكة مش تتعود تاخد السمكة ع الجاهز .. وهناك شروحات كثيرة في المنتدى .. ابحث وستجد الكنوز والدرر والكثير في المنتدى تابع الجديد .. واقحم نفسك في الموضوعات حتى تتعلم ... لن تتعلم إلا إذا خضت تجربة المشاركة إذا ظللت متفرجاً ستظل متفرجاً للأبد .. فكن مشاركاً فعالاً ومتعلماً يسعى للتعلم بشغف وحب وبكل جهد وفقني الله وإياك لما فيه الخير والطاعة

أخي الكريم أهلا بك في المنتدى ونورت بين إخوانك يرجى الإطلاع على رابط التوجيهات لمعرفة كيفية التعامل مع المنتدى كما يرجى تغيير اسم الظهور للغة العربية هل قمت بالبحث أولاً في المنتدى قبل طرح موضوع جديد ؟ قم بالإطلاع على هذا الرابط لعله يفيدك تجميع القيم مع كل إدخال جديد في نفس الخلية Accumulator

أخي الكريم أحمد الرشيدي اطلعت على ملفك للتو .. وكعادتي في بطء الفهم لدي ، لم أفهم المطلوب بشكل كبير ... هل تريد استدعاء بيانات الفواتير إلى ورقة العمل المسماة "الفهرس" أم العكس ؟؟ من الفهرس تريد ملء البيانات في أوراق العمل الأخرى ؟؟ الأمر محير وحيرني جدا خصوصا عندما وجدت معادلة في ورقة العمل المسماة 1 =الفهرس!B5 والغربي أن هناك المعادلات في الأعمدة C و D وE فيها معادلات تاخد البيانات من ورقة العمل 1 حيرت قلبي معااااااااااك وأنا بداري وأخبي .. قول أعمل ايه وياك ولا أعمل ويا ملفك ..