نجوم المشاركات

عدم توضيح المطلوب يجعل محاولات الحل أكثر من مرة وهذا يجعل الناس تنفر من حل المطلوب الثاني في أي موضوع حسب فهمي للمطلوب تم الاعتماد على جدول مساعد يحسب مجموع المتر المربع لكل صنف حسب العميل والتاريخ لذا يلزم * وضع قائمة الأصناف بدون تكرار في العمود N * ونسخ معادلة العمود O & P إلى آخر صف في عمود الأصناف بالتوفيق أعلى وأدنى الأصناف مبيعا لعميل في مدة.xlsx

شكرا لك جزاك الله كل خير

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

يمكنك استعمال هذه المعادلة في الخلية A7 =IF(B7="","",COUNTIF(B$7:B7,"<>")) وتعني إذا كانت خلية القيمة فارغة تكن فارغة وإلا فيعد خلايا القيمة المكتوبة حتى الآن بالتوفيق

تمام شكر استاذى العزيز تم التجربة والكود يعمل بنجاح شكرا لحضرتك

شكرا لك تم عمل المطلوب واسف علي الاطاله

المشكلة عامة في الاكسل مرفق لك ملف مشكلة الكتابة.xlsx

بالنسبة للمطلوب الأول لا يتم بالمعادلات وإنما باكواد vba بالنسبة للمطلوب الثاني تم فك الدمج عن جميع الخلايا لأنه يصعب مهمة المعادلات تم وضع المعادلات في الجدول الأزرق وهذا شرح طريقة الحصول على الأصناف بدون تكرار تحديد الخلايا التي بها الأصناف مع العنوان (الصنف) تبويب data ثم advanced ثم ضبط خيارات النافذة كما بالصورة ثم موافق بالتوفيق حل.xlsx

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

الاستاذ قلب الاسد بداية كل الشكر والامتنان لاهتماك ربما لم اتمكن من التعبير عن ما اريده بشكل واضح في المرفق تصور عن ما اطلبه وفي كل الحالات ومهما كان الرد اشكرك مرة اخرى وهذا ليس بغريب عن اخلاقك العالية ترحيل من خلايا متفرقة 1.xlsb

مشكووور يا غالي بارك الله فيك

استاذ عبد اللطيف .. تلك ليست مشكلة كبيرة فالزبون لايهتم ان كان نضامة بنواة 64 او 32 .. فتلك الامور يمكن السيطرة عليها لان جهاز الزبون تحت سيطرتك

استاذنا العزيز @sandanet.. الاهتمام شيء والواقع شيء اخر .. اقصد ان لك دولة لها وضعها الخاص في مجال الاقتصاد او تقنية المعلومات او الجانب الصناعي وغيرها فمثلا شخص يتعلم لغة بايثون في دولة ليس فيها اي صناعة او ذكاء صناعي .. اقصد ان المبرمج يجب ان تكون له دراسة لما موجود في بلده وبالتالي لما يحتاجه تحياتي لك استاذنا

يجب أن تحول الصفر إلى واحد حتى تحافظ على قيمة الضرب يمكن استعمال هذه المعادلة =IF(G10="",1,G10)*IF(F10="",1,F10)*IF(H10="",1,H10)*IF(I10="",1,I10)*IF(J10="",1,J10) ولمن يعمل جهازه بنظام الفاصلة المنقوطة ولا يعرف كيف يغير الفاصلة إلى فاصلة منقوطة هكذا =IF(G10="";1;G10)*IF(F10="";1;F10)*IF(H10="";1;H10)*IF(I10="";1;I10)*IF(J10="";1;J10) بالتوفيق

Sub Test() Dim x, ws As Worksheet, sh As Worksheet, s As String, m As Long Application.ScreenUpdating = False Set ws = Worksheets(1) Set sh = Worksheets(2) sh.Range("B7:B" & Rows.Count).ClearContents s = sh.Range("AI3").Value If s = "" Then MsgBox "Select Grade First", vbExclamation: Exit Sub x = Application.Match(s, ws.Rows(1), 0) If IsError(x) Then MsgBox "No Data For This Grade", vbExclamation: Exit Sub m = ws.Cells(Rows.Count, x).End(xlUp).Row If m < 4 Then MsgBox "No Data", vbExclamation: Exit Sub sh.Range("B7").Resize(m - 3).Value = ws.Cells(4, x).Resize(m - 3).Value Application.ScreenUpdating = True End Sub

هذا المطلوب لا يتم بالمعادلات لابد من تدخل جراحي (vba) يمكنك استعمال هذا الكود في حدث عند التغيير Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 3 And Target.Column >= 1 And Target.Column <= 3 And Evaluate("=counta(a3:d3)") = 4 Then lr1 = Cells(Rows.Count, 1).End(3).Row + 1 lr1 = IIf(lr1 < 4, 4, lr1) lr2 = Cells(Rows.Count, 12).End(3).Row + 1 Range("a" & lr1 & ":d" & lr1).Value = Range("a3:d3").Value Range("l" & lr2 & ":o" & lr2).Value = Range("a3:d3").Value Range("a3:c3").ClearContents End If End Sub وهذا ملفك بعد إضافة الكود وتغيير الامتداد 555.xlsb

بحث بالفورم فى سبع عواميد بالاكسل الفيديو الصور بحث بالمسلسل تكبير الصورة معاينة الأبعاد الأصلية. بحث بالاسم تكبير الصورة معاينة الأبعاد الأصلية. بحث بتاريخ الميلاد تكبير الصورة معاينة الأبعاد الأصلية. باقى البحث فى الفيديو بحث بالكود وبحث فى المحافظة وبحث فى الديانة وبحث فى النوع ملف البحث ب7 طرق http://www.mediafire.com/file/b88sbcnad9bs8g1/فورم+بحث++فى+7+عواميدبيانات+الطلاب.rar