[موضوع مميز] دالة الصفيف kh_MatchArray لارجاع ارقام صفوف سجلات حسب شروط

[عبدالله باقشير]

السلام عليكم

دالة الصفيف kh_MatchArray
لارجاع ارقام صفوف سجلات حسب شروط

الوسائط:
عبارة عن صفيف يحقق (شرط / شروط) في عمود معين من قاعدة البيانات
ادخل الشروط التي تريدها من 1 الى 30

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

الميزة :
لا ترهق الجهاز
في المثال المرفق
استخدمتها لقاعدة بيانات عدد سجلاتها اكثر من 15000 سجل

والسبب انها معادلة وحدة نتائجها صفيف لهذا توضع على اكثر من خلية
ولكن مكان تعديلها الخلية الاولى لوضعها مع تحديد باقي الصفوف الموضوعة فيها
. اضغط F2 لتحرير الصيغة
ثم اضغط CTRL+SHIFT+ENTER
اذا حاولت تعدل اي خلية موضوعه فيها الدالة (جزء من صفيف الدالة)
تظهر لك رسالة ( لا يمكنك تعديل جزء من صفيف)
استخدم حينها ESC لانهاء تحرير الدالة .

طبعا نتائجها ارقام الصفوف التي تحقق الشرط اعلى نطاق الدالة
والاخرى رقم صفر بمعنى لا يحقق الشرط وهي اسفل النطاق


تضعها في عمود يمين او يسار الكشف
المتبقي علينا نستخدم دالة INDEX
لاظهار الاعمدة الت نريدها من قاعدة البيانات


كود الدالة:


 

Option Explicit
'=============================================
'=============================================


Function kh_MatchArray(ParamArray Array1() As Variant)
Dim Ar() As Long
Dim x As Integer, xx As Integer, xxx As Integer
Dim iCont As Long, i As Long, ii As Long

xx = UBound(Array1)

If xx = -1 Then GoTo kh_Err

iCont = UBound(Array1(0), 1)
ReDim Ar(1 To iCont, 1 To 1)

For i = 1 To iCont
xxx = 1
For x = 0 To xx
xxx = xxx * IIf(CBool(Array1(x)(i, 1)), 1, 0)
Next
If xxx Then ii = ii + 1: Ar(ii, 1) = i
Next

kh_MatchArray = Ar
kh_Err:
Erase Ar
End Function

المرفق 2003-2007
kh_MatchArray.rar

[الـعيدروس]

السلام عليكم

داله خرافيه استاذ عبدالله

جزاك الله خير

وجعل اعمالك في موازين حسناتك

تقبل مروري

[عبدالله باقشير]

السلام عليكم

اخي ابو انصار حفظكم الله

واكرمكم وبارك فيكم

تقبلوا تحياتي وشكري

[قصي]

حفظك الله ورعاك

[عبدالله المجرب]

دالة مميزة وقوية

بارك الله فيك استاذ عبدالله

[مرعى السيد]

الله وأكبر عليك أستاذنا / عبدالله باقشير

ربنا يبارك لك فى علمك ويجزيك خيراً عنا

[الشهابي]

جزاك الله خيراً أستاذنا عبد الله

إبداع منقطع النظيروإلى مزيد من الأعمال المميزة والفريدة من نوعها

وفقك الله لخدمة إخوانك دائماً أبدا

تقبل تحياتي

[أبو محمد عباس]

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

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

ودمتم برعاية الله وحفظه

[عبدالله باقشير]

حفظك الله ورعاك

نورت المنتدى اخي قصي

حفظك الله ورعاك

تقبل تحياتي وشكري

[عبدالله باقشير]

دالة مميزة وقوية

بارك الله فيك استاذ عبدالله

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

تقبل تحياتي وشكري

[عبدالله باقشير]

الله وأكبر عليك أستاذنا / عبدالله باقشير

ربنا يبارك لك فى علمك ويجزيك خيراً عنا

جزاك الله خيرا وبارك فيك

تقبل تحياتي وشكري

[عبدالله باقشير]

جزاك الله خيراً أستاذنا عبد الله

إبداع منقطع النظيروإلى مزيد من الأعمال المميزة والفريدة من نوعها

وفقك الله لخدمة إخوانك دائماً أبدا

تقبل تحياتي

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

تقبل تحياتي وشكري

[عبدالله باقشير]

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

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

ودمتم برعاية الله وحفظه

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

واثابك بدعائك واعطاك بمثله اضعاف مضاعفة

تقبل تحياتي وشكري

[عادل ابوزيد]

السلام عليكم ورحمه الله وبركاته

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

بارك الله لك فى علمك وزادك علماً وجعله الله لك نوراً فى الدنيا والاخره

[dah_med]

السلام عليكم ورحمه الله وبركاته

جزاك الله كل خير وأبعد عنك كل شر

أخوك محمد

[abouelhassan]

روائع مشكور استاذنا بارك الله فيك

[saad abed]

اخى عبدالله باقشير

الكلمات ضئيله لا تعبر عن الداله المقدمة لنا

رائع رائع رائع

اسال الله ان ييسر لك حالك وان يبارك فيك

حفظكم الله

راعاكم الله

سعد عابد

[احمد غانم]

السلام عليكم اخ عبدالله

الحقيقه اكثر من رائعه

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

... اخي الكريم كيف يمكن تغيير اسماء العملات ؟ وهل يمكن استعمال اكثر من عملتين ؟

و اخيراً لو تكرمت شرح كيف يعمل سعر تحويل العمله وكيفية استخدامه

ادامك الله ذخرا و عونا

تم تعديل ديسمبر 5, 2012 بواسطه أحمــــد غانـــم

[ياسر الحافظ]

اخى عبدالله باقشير

الكلمات ضئيله لا تعبر عن الداله المقدمة لنا

رائع رائع رائع

اسال الله ان ييسر لك حالك وان يبارك فيك

حفظكم الله

راعاكم الله

سعد عابد

اخي واستاذنا الكبير الغالي " عبد الله باقشير "

لقد عبر اخونا سعد بما يجول بخاطري

نشكرك ... دائما نستفيد من هذه الابداعات " وخاصة نحن المحاسبون "

وفقك الله ....

ابو الحارث

[عبدالله باقشير]

السلام عليكم ورحمه الله وبركاته

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

بارك الله لك فى علمك وزادك علماً وجعله الله لك نوراً فى الدنيا والاخره

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

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

واثابك بدعائك واعطاك بمثله اضعاف مضاعفة

تقبل تحياتي وشكري

[عبدالله باقشير]

السلام عليكم ورحمه الله وبركاته

جزاك الله كل خير وأبعد عنك كل شر

أخوك محمد

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

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

واثابك بدعائك واعطاك بمثله اضعاف مضاعفة

تقبل تحياتي وشكري

[عبدالله باقشير]

روائع مشكور استاذنا بارك الله فيك

تقبل تحياتي وشكري

[عبدالله باقشير]

اخى عبدالله باقشير

الكلمات ضئيله لا تعبر عن الداله المقدمة لنا

رائع رائع رائع

اسال الله ان ييسر لك حالك وان يبارك فيك

حفظكم الله

راعاكم الله

سعد عابد

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

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

واثابك بدعائك واعطاك بمثله اضعاف مضاعفة

تقبل تحياتي وشكري

[عبدالله باقشير]

السلام عليكم اخ عبدالله

الحقيقه اكثر من رائعه

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

... اخي الكريم كيف يمكن تغيير اسماء العملات ؟ وهل يمكن استعمال اكثر من عملتين ؟

و اخيراً لو تكرمت شرح كيف يعمل سعر تحويل العمله وكيفية استخدامه

ادامك الله ذخرا و عونا

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

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

واثابك بدعائك واعطاك بمثله اضعاف مضاعفة

================================

رغم ان هذا السؤال ليس من اصل الموضوع ساجيبك باختصار

--------------------------------------------------------

لا يهم عدد العملات المستخدمة

ما دمت لديك عمود في البيانات لسعر العملة

لان سعر العملة مضروبا في المبلغ المستخدم باي عملة

يعطيك القيمة بسعر العملة الرئيسية

وينضبط معاك ميزان المراجعة .

================================

تقبل تحياتي وشكري

[عبدالله باقشير]

اخى عبدالله باقشير

الكلمات ضئيله لا تعبر عن الداله المقدمة لنا

رائع رائع رائع

اسال الله ان ييسر لك حالك وان يبارك فيك

حفظكم الله

راعاكم الله

سعد عابد

اخي واستاذنا الكبير الغالي " عبد الله باقشير "

لقد عبر اخونا سعد بما يجول بخاطري

نشكرك ... دائما نستفيد من هذه الابداعات " وخاصة نحن المحاسبون "

وفقك الله ....

ابو الحارث

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

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

واثابك بدعائك واعطاك بمثله اضعاف مضاعفة

تقبل تحياتي وشكري