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

أخى أنشئ أولا استعلام تحديد من الاستعلام الجدولى الذى أنشأناه ثم من الاستعلام الجديد أنشئ التقرير عن طريق المعالج بصورة عادية count2-kemas2.rar

شكرا للأستاذ عادل وشكرا لك أخى MAHMOUDFOXMAM

و هذا كود سريع لنفس الغرض Sub Macro1() 'macro by Kemas 11-7-2011 lastrow = Range("a" & Rows.Count).End(xlUp).Row Application.ScreenUpdating = False k = 1 For i = 27 To lastrow Step 27 Range("D" & i - 26 & ":D" & i).Copy Range("E" & k).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True k = k + 1 Next i Application.ScreenUpdating = True End Sub جرب المرفق بالصفحة الأخيرة كل 27 صفا فى عمود تلصق لصف واحد-kemas.rar

شكرا للأستاذ يحيى على الشرح الماتع أفادكم الله و نتمنى المزيد من هذه الشروح لمعادلات الصفيف

بارك الله فيك و أسأل الله العظيم رب العرش الكريم أن يشفى ابنتك

عن طريق استعلام الجدول شاهد المرفق count2-kemas.rar

السلام عليكم المشاركة الأصلية التى رفع فيها الكتاب http://www.officena.net/ib/index.php?showtopic=24320 أرفعه لكم برابط مباشر لأن الموضوع الأصلى أغلق من هنا

و هل لهذا فائدة؟

ما المقصود بالتقسيم؟

شكرا جزيلا أخانا الأستاذ لى سؤال كيف نستخدم دالة iif بهذه الطريقة (IIf([testarabic]>=25;0 ما معنى هذا إذا تحقق الشرط تعيد 1 أين بقية معاملات الدالة؟ مع الشكر

الأخ abozayed آسف للتأخير لم أر المشاركة إلا الآن عند لصق المعادلة اضغط المفاتيح الثلاثة control + shift+enter لأنها معادلات صفيف الأخ wongchung2 شاهد هذا الفديو

شكرا أستاذ شهرانى ومنكم نتعلم الكثير

جزاك الله خيرا أخانا هشام

هذا هو 1-kemas.rar

غير خاصية default value لمربع النص المرتبط بالحقل فى النموذج سينطبق هذا على السجلات الجديدة

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

جرب الملف قوائم-kemas.rar

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

جزاك الله خيرا أحيانا يحدث مثلما بالصورة

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

للأخ فراولة شاهد هذا

شكرا لك أخ يوسف بارك الله فيك

و أسماؤها هى asdfg

لا بأس بحل ثالث عن طريق الكود باستخدام مصفوفة Sub nOTiNlIST() Dim MYLIST(1000) Dim MYRNG As Range Application.ScreenUpdating = False LASTROW = Range("A" & Rows.Count).End(xlUp).Row Dim I As Long For I = Sheets(1).Range("A2") To Sheets(1).Range("A" & LASTROW) MYLIST(I) = I Next I Set MYRNG = Sheets(1).Range("A2:A" & LASTROW - 1) K = 2 For X = 1 To UBound(MYLIST) If Application.WorksheetFunction.CountIf(MYRNG, MYLIST(X)) = 0 Then Range("C" & K) = MYLIST(X) K = K + 1 End If Next X Application.ScreenUpdating = True End Sub Nr_not_in_the_list-KEMAS.rar

لا أدرى هل أرد عليك هنا ممكن الإخوة المشرفون يغيروا العنوان مشكورين انظر أخى الخلية A1 فيها القيمة 2*3 الخلية B1 بجوارها قيمتها نص 10^2 فى الخلية C1 نضع المعادلة =A1 &B1 انظر الملف المرفق New ورقة عمل Microsoft Excel-KEMAS.rar