شرح كود فورم بحث ممتاز

[ابن الملك]

عندى طلب

وهو بدايه شرح كيفيه تصميم يوزر فورم بحث كالمرفق أو شرح الكود جزء جزء 

لمن استطاع جعلها الله فى ميزان حسناتكم ... أمين

 

وشكرا

ملف بحث بفورم ممتاز++SORT A (1).rar

[ابن الملك]

With sRng.Worksheet
    LastRow = .Range("A65536").End(xlUp).Row
    If IsDate(Me.TextDate1) Then dt1 = DateValue(Me.TextDate1) Else dt1 = WorksheetFunction.Min(.Range("C2").Resize(LastRow)): Me.TextDate1 = Format(dt1, DateFormt)
    If IsDate(Me.TextDate2) Then dt2 = DateValue(Me.TextDate2) Else dt2 = WorksheetFunction.Max(.Range("C2").Resize(LastRow)): Me.TextDate2 = Format(dt2, DateFormt)
End With

'-------------------------
sColmn = ""
With sRng
    For R = 2 To LastRow
        Select Case .Cells(R, 3).Value2: Case dt1 To dt2
            ib = InStr(1, .Cells(R, MyColmnFind), Me.TextFind, vbTextCompare) = 1
            If ib Then
                sColmn = sColmn & R & " "
                ii = ii + 1
                ReDim Preserve MyAr(1 To ContColmn, 1 To ii)
                For i = 1 To ContColmn
                    If IsDate(.Cells(R, i)) Then MyValue = Format(.Cells(R, i).Value2, DateFormt) _
                    Else MyValue = .Cells(R, i).Value2
                    MyAr(i, ii) = MyValue
                Next
            End If
        End Select
    Next
End With
If ii Then

 

أحبائى فى الله 

لنبدأ بهذا الجزء ...... 

اللى فوق انا فاهم معناه محتاج افهم السطر ده

Select Case .Cells(R, 3).Value2: Case dt1 To dt2
            ib = InStr(1, .Cells(R, MyColmnFind), Me.TextFind, vbTextCompare) = 1
            If ib Then

Select case أعتقد دى معناها أننا لازم نتحقق من شرطين Case & Case

السطر ده مش فاهمه 

ib = InStr(1, .Cells(R, MyColmnFind), Me.TextFind, vbTextCompare) = 1

If ib Then

هو مش المفروض بعد كلمه Then يبقى فى حاجه 

مش فاهم يعنى ايه  If ib Then

منتظر ردودكم من سيادتكم

[ياسر خليل أبو البراء]

أخي الكريم ابن الملك

لم أطلع على الملف ولكن أعتقد أن ib متغير من النوع Boolean وهو يحمل إما القيمة True أو False ، فعند ذكر الشرط If ib then فإنه يفهم عندما تكون القيمة True يتم تنفيذ التالي

 

بالنسبة لجملة Seelct Case فدي جملة شرطية ..يتم اختبار قيمة الخلية Cells(R,3) في الصف المجهول اللي في الحلقة التكرارية في العمود الثالث ..سيكون التعامل مع الشرط بين التاريخين dt1 و dt2 ...

أرجو أن أكون وفقت في توصيل المعلومة

[ابن الملك]

23 ساعات مضت, ياسر خليل أبو البراء said:

أخي الكريم ابن الملك

لم أطلع على الملف ولكن أعتقد أن ib متغير من النوع Boolean وهو يحمل إما القيمة True أو False ، فعند ذكر الشرط If ib then فإنه يفهم عندما تكون القيمة True يتم تنفيذ التالي

 

بالنسبة لجملة Seelct Case فدي جملة شرطية ..يتم اختبار قيمة الخلية Cells(R,3) في الصف المجهول اللي في الحلقة التكرارية في العمود الثالث ..سيكون التعامل مع الشرط بين التاريخين dt1 و dt2 ...

أرجو أن أكون وفقت في توصيل المعلومة

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

لقد فهمت حضرتك وهو بالفعل متغير من نوع Boolean

متشكر لحضرتك 

 

ودلوقتى الجزء الثانى

 

sColmn = sColmn & R & " "
                ii = ii + 1
                ReDim Preserve MyAr(1 To ContColmn, 1 To ii)
                For i = 1 To ContColmn
                    If IsDate(.Cells(R, i)) Then MyValue = Format(.Cells(R, i).Value2, DateFormt) _
                    Else MyValue = .Cells(R, i).Value2
                    MyAr(i, ii) = MyValue
                Next
            End If
        End Select
    Next
End With
If ii Then

يرجى العلم أن المتغير ii ليس Boolean  ولكنه Integer

ايه الجزء بتاع Myar مش لاقى متغير بالاسم ده هل دى داله داخلية ؟؟ مش عارف

معلش أنا عارف أنا تاعبك معايا 

[ياسر خليل أبو البراء]

أخي الكريم ابن الملك

المتغير MyAr عبارة عن مصفوفة ثنائية الأبعاد ..تم تحديد أبعاد المصفوفة في السطر التالي

ReDim Preserve MyAr(1 To ContColmn, 1 To ii)

بعد اسم المتغير وما بين الأقواس هي أبعاد المصفوفة .. البعد الأول ثم فاصلة ثم البعد الثاني وتعتمد على المتغيرات ContColmn و iii

...

[ابن الملك]

في 2/15/2016 at 23:40, ياسر خليل أبو البراء said:

أخي الكريم ابن الملك

المتغير MyAr عبارة عن مصفوفة ثنائية الأبعاد ..تم تحديد أبعاد المصفوفة في السطر التالي

ReDim Preserve MyAr(1 To ContColmn, 1 To ii)

بعد اسم المتغير وما بين الأقواس هي أبعاد المصفوفة .. البعد الأول ثم فاصلة ثم البعد الثاني وتعتمد على المتغيرات ContColmn و iii

...

 

أستاذى الكبير / ياسر خليل 

 

مش عارف أشكر حضرتك ازاى

ناخد هدنه يومين ونرجع تانى لبيقيه الشرح نكون قدرنا نهضم الجزء الاولانى كويس

 

كتر خيرك يا استاذى / ياسر خليل 

[ياسر خليل أبو البراء]

أخي الفاضل ابن الملك

فيه موضوع في الموضوعات في الفهرس الخاص بي بعنوان "الحلقات التكرارية داخل المصفوفات" حاولت فيه تعليم الأعضاء تقنية استخدام مفتاح F8 لمتابعة عمل الكود سطر بسطر لمعرفة ما يقوم به الكود وراء الكواليس ..الموضوع إن شاء الله ستجده مفيد جداً وهو إنطلاقة لك للتعامل مع الأكواد التي تريد فهمها .. سيسهل عليك الكثير من متابعة عمل الكود

وبلاش موضوع الهدنة ده ..إحنا مش في حرب إحنا في طلب علم ، وفي طلب العلم شعارنا يا ابن الملك : وااااااااااااااااااااااااااااااااااصل بلا فوااااااااااااااااصل ..

تقبل تحياتي

[ابن الملك]

في 2/17/2016 at 07:25, ياسر خليل أبو البراء said:

أخي الفاضل ابن الملك

فيه موضوع في الموضوعات في الفهرس الخاص بي بعنوان "الحلقات التكرارية داخل المصفوفات" حاولت فيه تعليم الأعضاء تقنية استخدام مفتاح F8 لمتابعة عمل الكود سطر بسطر لمعرفة ما يقوم به الكود وراء الكواليس ..الموضوع إن شاء الله ستجده مفيد جداً وهو إنطلاقة لك للتعامل مع الأكواد التي تريد فهمها .. سيسهل عليك الكثير من متابعة عمل الكود

وبلاش موضوع الهدنة ده ..إحنا مش في حرب إحنا في طلب علم ، وفي طلب العلم شعارنا يا ابن الملك : وااااااااااااااااااااااااااااااااااصل بلا فوااااااااااااااااصل ..

تقبل تحياتي

سامحنى يا أ / ياسر أنا مقصدش أى حاجه بكلمه هدنه ولكن انا عندى فحص ضرائب بالعمل وأعلم أن وجودى قد يكون معدوم

ومحبتش أنى كأنى مش بتابع الموضوع ولكن صدقنى هذا المقصود 

بالعكس ده انا راجع بأسئله كتيييييييييير  

[ياسر خليل أبو البراء]

اسأل اسأل بس اعرف إن السؤال لغير الله مذلة

بس بالنسبة للمنتدى السؤال هنا لا يعني التسول بل طلب العلم وهو مطلوب .. فاسأل لطلب العلم كما تشاء

تقبل تحياتي

[ابن الملك]

السؤال الاول :

أجب عن الاتى : 

أ/ ياسر خليل

معلش كان فى المشاركة الاولى السطر ده بس عدى بسرعه بدون شرح

 ib = InStr(1, .Cells(R, MyColmnFind), Me.TextFind, vbTextCompare) = 1

وكمان بالنسبه للمتغير ii  مش Boolean  وعلى الرغم مكتوب معاه If ii then  ده متغير integer 

ما معنى Instr) وفيما تستخدم

وبالنسبه لموضوع المصفوفات فده طلع عالم أنا بحاول أذاكر الرابط اللى حضرتك ذكرته فى المشاركة الخاصه بحضرتك

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

بعد التحديث مش عارف اختار رابط المشاركة 

هما كذا سؤال مع بعض معلش ولكن أنا معايا تصريح أسال زى مانا عاوز 

[ياسر خليل أبو البراء]

عايز تسأل خليك واحدة واحدة عشان الأعضاء يقدروا يردوا عليك في كل نقطة

بالنسبة لسؤالك عن INSTR أنصحك بالحلقة الـ 11 من حلقات افتح الباب

 

[ابن الملك]

5 ساعات مضت, ياسر خليل أبو البراء said:

عايز تسأل خليك واحدة واحدة عشان الأعضاء يقدروا يردوا عليك في كل نقطة

بالنسبة لسؤالك عن INSTR أنصحك بالحلقة الـ 11 من حلقات افتح الباب

 

أنا فعلا بشكر أهتمام حضرتك بالمساعدة

لكن فى وقت كده بتحس انك عاوز تعرف كل حاجه دلوقتى 

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

أنا هبتدى أراجع الحلقات اللى موجوده فى موضوع أفتح الباب و الله الموفق والمستعان 

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

كتر خيرك

 

التحصيلات.rar

[ياسر خليل أبو البراء]

أخي الكريم ابن الملك

بالنسبة لطلبك بخصوص الفورم أفضل طرح موضوع مستقل لكي تجد استجابة من الجميع ..خصوصاً إن مش متمكن في التعامل مع الفورم

[ابن الملك]

7 دقائق مضت, ياسر خليل أبو البراء said:

أخي الكريم ابن الملك

بالنسبة لطلبك بخصوص الفورم أفضل طرح موضوع مستقل لكي تجد استجابة من الجميع ..خصوصاً إن مش متمكن في التعامل مع الفورم

علم وجارى التنفيذ  

وبشكر حضرتك على سرعه الرد