عبد الفتاح كيرة

حياك الله أخى حسن وشكرا لإطرائك

ملف ممتاز أخ halwim شكرا

توضيح فرق بين غ و غـ هذه واحدة والثانية كما تفضل الإخوة علامة القسمة مع الرقم بداخل القوسين =IF(H10="غـ";"غ";SUM(E10:H10)/2)

هذا فديو تعليمى لا يقتصر على ماجاء بالعنوان بل سيتعرض لشرح دالة VLOOKUP IF ISERROR و دالة IFERROR و هذا مرفق للشرح iferror.zip

بارك الله فيكم لا تعتبروا هذا سوء أدب منى أن أساهم بأفكارى التى تعلمتها منكم سابقا فى الإجابة على تساؤلات الإخوة فى D2 ضع المعادلة =IF(ISERROR(VLOOKUP(C2;A2:B13;2;0));"غير موجود";VLOOKUP(C2;A2:B13;2;0)) فى C2 اكتب رقم الموديل السابق مع الشكر

لو الأولى أقل من 40 والثانية غ المعادلات الثلاثة تعطى غ حسب الشرط انظر الصورة وفيها معادلتك القصيرة تعمل جيدا

فعلا بعد التجربة أتت هذه الأخيرة بنفس النتائج =IF(B1="غ";"غ";IF(B1>=40;40;IF(B1<40;MAX(A1:B1);"")))

هذه تأتى بما تطلب إن شاء الله - و شكرا لأخى هشام هل هذه هى قواعد النجاح فى الدور الثانى ؟ =IF(AND(A1="غ";B1="غ");"غ";IF(AND(A1="غ";B1<40);B1;IF(AND(A1="غ";B1>=40);40;IF(AND(A1<40;B1="غ");"غ";IF(AND(A1<40;B1>=40);40;IF(AND(A1<40;B1<40);MAX(A1;B1);""))))))

ببساطة =COUNTA(D2:AH2)

فى عمود الاسم بالورقة الثانية استخدم =INDEX('1'!$B$2:$B$45;MATCH('2'!A5;'1'!$A$2:$A$45;0)) وفى عمود المسدد استخدم INDEX('1'!$D$2:$D$45;MATCH('2'!B5;'1'!$B$2:$B$45;0)) و فى عمود رقم الإيصال =INDEX('1'!$B$2:$H$45;MATCH('2'!B5;'1'!$B$2:$B$45;0);4)

أعتقد المعادلة تكون =INDEX('[1_January 2010.xlsx]Attendance of January 2010'!$1:$65536;MATCH(C4;'[1_January 2010.xlsx]Attendance of January 2010'!$C:$C;0);36) و هى تعمل بشكل صحيح

أفادكم الله

هناك خلط كبير جدا بهذا الملف بين الكشف الكشف2 و استخدام حدث التغيير مع مربع السرد هو أساس المشاكل لأنه يعوق عمل كود الترحيل

نعم يمكن استخدم خاصية text واكتب فيها القيمة الافتراضية

الكود السابق ليس لتنفيذ ما طلبت بل هو لاختصار عدد سطور الكود الأسبق أما ما طلبت فلى سؤال من أين يأخذ مربع السرد القيم حتى نفهم سير البرنامج أكثر

عليكم السلام و رحمة الله شكرا

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

اقتراح ممكن نضع فى بداية حدث التغيير call ماكرو1

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

بداية اختصرت كود الترحيل شوية Private Sub CommandButton2_Click() Sheets("ÇáßÔÝ2").Select Dim EndRow As Long EndRow = Sheets("ÇáßÔÝ").Range("a3").CurrentRegion.Rows.Count Sheets("ÇáßÔÝ2").Cells(EndRow + 3, 1).Value = ComboBox1.Value For i = 1 To 31 Sheets("ÇáßÔÝ2").Cells(EndRow + 3, i + 1).Value = Me.Controls("TextBox" & i).Value ComboBox1.Value = "" Next i For j = 1 To 34 Me.Controls("TextBox" & i).Value = "" Next j MsgBox Prompt:="ÊãÊ ÚãáíÉ ÊÑÍíá ÇáÈíÇäÇÊ ÈäÌÇÍ", Title:="ÑÓÇáÉ ÊÃßíÏ" End Sub

الأوراق محمية

السلام عليكم أخى يوسف نعم بنفس الطريقة يتم ذلك أخى أبا العقاب يستلزم ذلك أن تكون اللغة العربية ممكنة فى وندوز من لوحة التحكم

هذه أيضا تعمل بكفاءة =INDEX(B2:I2,0,MATCH(B6,B2:I2,-1)) تعديل بسيط فقط رتب سلسلة الأرقام من b2:i2 تنازليا يعنى من الأكبر للأصغر مهندس_نور22.zip

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