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

هذا فديو تعليمى

لا يقتصر على ماجاء بالعنوان

بل سيتعرض لشرح دالة

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

الأخ الفاضل عماد الحسامى

أشكرك لردك و للملف المفيد

الملف يركز على تنسيقات الأرقام و العملات و التواريخ

لكنى لاحظت أن التنسيق المشتمل على كلمة

دينار أردنى

باللغة العربية

ظهر عند التشغيل باللغة العربية

فاستفدت من ذلك استفادة عظيمة حلت المشكلة

جعلت النص الافتراضى لمربعات النصوص كلمة عربية كما بالصورة

و هذه هى النتيجة الرائعة عند التشغيل

أشكر لسيادتكم تعاونكم

السلام عليكم

أريد طريقة مباشرة و عامة

علما بأن خاصية

right to left

فعالة للفورم كله

أنا استخدمت شهر يوليو كمثال

أكمل أنت الباقى على نفس النمط

اذهب لأى ملف

كليك يمين

open with

choose default prog