يحيى حسين

السلام عليكم اخي ابو عبدالله شاهد هذا الرابط http://www.officena.net/ib/index.php?showtopic=28935 شاهد المشاركة رقم 10 و أيضا يوجد لي موضوع عن شرح الدالة Sumproduct يوجد بها تفصيل اكبر لهذه الخاصية مع بدائلها

جزاك الله كل خير أخي طارق إضافة رائعة

السلام عليكم و رحمة الله و بركاته أخي أنور بداية أشكرك على عباراتك الجميلة و جزاك الله كل خير ============ أخي قدوتنا رسول الله صلى الله عليه و سلم في امره لنا بطلب العلم و اخي انا اعتبر نفسي في بداية طريقي مع الاكسيل فهو بحر كبير و فيه من الجواهر الكثير الكثير و لم ألتقط منه غير اليسير =========== و لكن أخي عليك بأربع أمور : الصبر . قراءة الكتب و المراجع المتخصصة . المشاركات و تقديم الحلول. الإستفسار عن أي أمر مبهم لك . و إستعن بالله دائماً و لا تيئس ========== لقد أخبرت كثيراً من الأخوة أني كنت أمضي عدة ساعات في دراسة معادلة واحدة حتى افهم جوانبها و أسرارها , و لذلك وضعت لك او نقطة الصبر . و تذكر أخي العلم بالتعلم . ========== و إن شاء الله سنراك قريباً من الأعضاء الفعالين بإذن الله

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

1---1 -هل لديك فكرة على الموضوع 2---أنت لم تجبني على الموضوع الثاني أو المشكل الثاني 3---لماذا يضعون الإخوة كلمة مرور لمشروع vba فنحن في هذا المنتدى بصدد التعلم السلام عليكم و رحمة الله و بركاته أخي طاهر لقد تعاملت مع استاذنا احمد زمان بأسلوب لا يليق به كان الواجب عليك أن تبدأ ردك بتحيه الاسلام و ان تشكر الاخ على محاولته المساعدة فالنقطة الاولى في ردك : 1 -هل لديك فكرة على الموضوع : كلنا ليس لدينا فكرة و الواجب عليك أن توضح طلبك و الفكرة التي تبحث عنها النقطة الثانية : أنت لم تجبني على الموضوع الثاني أو المشكل الثاني أذكرك هنا بأننا جميعاً هنا لتقديم المساعدة حسب اوقات فراغنا و لا يوجد من يلزمنا بالمتابعة او اتمام الحل إلا مخافة الله و حب المساعدة و هذه قوانين المنتدى إقرئها جيداً النقطة الثالثة : لماذا يضعون الإخوة كلمة مرور لمشروع vba فنحن في هذا المنتدى بصدد التعلم هذا موضوع شخصي و يخص صاحب المشاركة و له الحق في ذلك ربما آسف على تدخلي في شيء لايخصني كما يقال اللقافة قتلت صاحبها أخي أحمد زمان و الله انك صاحب خلق رفيع و اخ كريم لم نرى منك إلا الخير في هذا المنتدى اذا رفعنا هذا الشعار فلن نقدم المساعدة لأحد بل تدخلنا واجب للإستيضاح و التوضيح و الإستشارة و المشورة ================= أتمنى من الأخ طاهر ان يتفهم وجهة نظرنا في إبقاء علاقتنا هنا كأخوة في الله نبحث عن الفائدة و نفيد و نستفيد ================= و الله من وراء القصد ================= و دمتم في حفظ الله و رعايته

حياك الله اخي و اهلا و سهلا بك

السلام عليكم و رحمة الله أخي جرب هذا الكود Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To 100 If ComboBox1.Value = Sheets("Accounts").Range("a" & i).Value And Val(TextBox1.Value) = Val(Range("b" & i).Value) Then Sheets("sheet1").Select End If Next i End Sub

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

أخي نايف حياك الله و أهلاً و سهلاً بك

السلام عليكم و رحمة الله بعد اذن اخي احمد زمان كودك صحيح في حالة كانت الباسورد عبارة عن كلمة أما اذا كان رقم فيجب تعديل الكود For i = 2 To 100 If ComboBox1.Value = Sheets("Accounts").Cells(i, "A") And TextBox1.Value = Val(Sheets("Accounts").Cells(i, "B")) Then MsgBox "ok" End If Next i

السلام عليكم و رحمة الله أخي أنور إضافة لحلول الأخ طارق جزاه الله كل خير قم بوضع هذه الدالة في الخلية AJ3 =SUM(IF(B3:AI3>0,IF(MOD(COLUMN(B3:AI3),2)=0,1))) و هي معادلة صفيف ثم قم بالضغط على Ctrl+Shift+Enter و قم بسحبها للأسفل و أيضاً لكي تكمل ملفك بصور أجمل في الخلية AK3 لكي تقوم بعملية الجمع لقيم الفواتير =SUM(IF(MOD(COLUMN(B3:AI3),2)=0,B3:AI3)) و في الخلية AL3 لجمع قيم المقبوضات =SUM(IF(MOD(COLUMN(B3:AI3),2)=1,B3:AI3)) و كل هذه المعادلات تحتاج الى Ctrl+Shift+Enter

السلام عليكم أخي ارفق ملف حتى تتضح الفكرة و تجد من يساعدك

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

السلام عليكم و رحمة الله أخي هشام حياك الله أخي ولكننا بإنتظار الأخ صاحب المشاركة حتى يخبرنا ماذا يريد لانه انا بصراحة ما بحبض المباريات و ما بعرفش فيها حاجه و دمت اخي في حفظ الله

السلام عليكم و رحمة الله أخي شاهد المرفق لقد قمت بعملها بالمعادلات هل هو المطلوب test.rar

أخي بدون فصل لقد عمل معي بشكل صحيح بدون فصلهما

سعدت بك اخي ابو محمد و وفقك الله

أخي جربت كودك و اشتغل معي بشكل صحيح و لكني إستبدل ActiveWorkbook و ضع مكانها ThisWorkbook سيكون افضل للكود رغم ان الكود معي تمام و لم اواجه اي مشاكل

أخي إن شاء الله بالصبر و المثابره ستصل لك شيء

أخي ابو محمد شاهد المرفق Book1 الصف ( صفر.rar

حياك الله أخي و نحن في الخدمة جزاك الله كل خير على كلامك الطيب

السلام عليكم أخي ابو عبدالله حياك الله أخي أنور الدالة تعيد صفر في حالتين الحالة الأولى إن وجد خطأ في و يمكن حلها بتعديل بسيط على المعادلة =IF(ISERROR(VLOOKUP($A3,البيانات,COLUMN(),0)),"",(VLOOKUP($A3,البيانات,COLUMN(),0))) و الحالة الثانية : تعد صفر عندما تجد الإسم في الجدول موضع البحث و لا تجد قيمة مقابلة له في العمود المحدد و في حال رغبتك لعمل Count و تجنب الأصفار يمكنك إستخدام معادلات الصفيف او استخدام Countif و يوجد لها عدة حلول أنت فقط حدد طلبك و ستجد من يساعدك لتجاوز هذه المشكلة

أخي قم بالضغط على ALT+F11 ثم Insert ثم module وانسخ الكود هناك ثم F5 ليتم تفعيل الكود

السلام عليكم و رحمة الله أخي جرب هذا التعديل البسيط Dim i As Integer For Each Worksheet In ThisWorkbook.Worksheets For i = 4 To 115 If Worksheet.Range("B" & i).Value = 0 Then Worksheet.Rows(i & ":" & i).EntireRow.Hidden = True End If Next i Next Worksheet و لو تقوم بتعريف متغير يكون افضل في التعامل و اريح لك بحيث يصبح الكود كما يلي : Dim i As Integer, ws As Worksheet For Each ws In ThisWorkbook.Worksheets For i = 4 To 115 If ws.Range("B" & i).Value = 0 Then ws.Rows(i & ":" & i).EntireRow.Hidden = True End If Next i Next ws

السلام عليكم و رحمة الله أخي ابو محمد يمكنك إلغاء القيمة المساوية لصفر في كشف الشريك محمد بهذا الكود Sub Excel4Us() Dim i As Long Dim LRow As Integer Dim NLRow As Integer LRow = Range("h" & Rows.Count).End(xlUp).Row For i = LRow To 9 Step -1 With Range("h" & i & ":" & "l" & i) If Range("h" & i).Value = 0 Then .Delete End If End With Next i NLRow = Range("h" & Rows.Count).End(xlUp).Row Range("J10").Formula = "=J9+H10" Range("j10:j" & NLRow).FillDown End Sub