موضوع خاص بالردود والاستفسارات واسئله اختبارات على شروحات الفورم (سلسلة علمنى كيف اصطاد )

[الصـقر]

اخى وحبيبى وابى واستاذى الفاضل ابويوسف

والله ان كلماتك لى كالماء البارد عند الظمأ 

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

لكن اسال الله تعالى ان يعننى ولا تحرمونا من دعائكم الطيب لان انا احوج ما يكون له

تقبل تحياتى

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

أخي الغالي حسام

سر على بركة الله فلك متابعين وأنا منهم إن شاء الله وصراحةً أندم أنني لم أفرغ وقتي من بداية الدورة .. بس إن شاء الله ملحوقة

أنا بشوف الجديد وآخد درس من القديم عشان أحاول ألملم ما تبعثر مني

بالنسبة لتعبئة الكومبوبوكس نستأذنك في كمان طريقة بس يكون التعبئة للقيم الفريدة فقط ومرتبة ... دا بردو بيكون مطلوب

تقبل تحياتي

[الصـقر]

اخى وحبيبى واستاذى ابوالبراء

مرورك ومتابعتك شرف لى

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

او انك توضح ماذا تقصد

ولو فيه عندك اى اضافه الموضوع امامك ضيف فيه ما تشاء ولا تحرمنا مما اعطاك الله الموضوع موضوع الكل ليس لى انا وبس

تقبل تحياتى

 

تم تعديل أكتوبر 27, 2015 بواسطه الصـقر

[محمد حسن المحمد]

اخى وحبيبى وابى واستاذى الفاضل ابويوسف

والله ان كلماتك لى كالماء البارد عند الظمأ 

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

لكن اسال الله تعالى ان يعننى ولا تحرمونا من دعائكم الطيب لان انا احوج ما يكون له

تقبل تحياتى

أخي الحبيب الصقر: ما يدفعني ضمن إطار التواصل معكم في هذا المنتدى الكريم هو أنني أحبكم بحق لأنكم تتمتعون بأخلاق سامية (كلكم دون تسمية) حيث أخبر نبينا محمد صلى الله عليه وسلم بقوله :(أقربكم مني مجالساً يوم القيامة أحاسنكم أخلاقاً) أو كما قال...

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

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

أخي الحبيب حسام

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

ممكن ترشدني إلى رقم الطريقة لأن الموضوع دسم وفيه استطالة ،  وأخوك بدأ يتوه في الدهاليز ..

أخي وحبيبي أبو يوسف

إنه لشرف لنا والله أن تكون بيننا ومتابع لنا ، فهذا شرف وأيما شرف

أشهد الله أني أحبكم في الله

[الصـقر]

اتفضل يا غالى روابط المشاركات الخاصه بذالك

الطريقه السابعه فى الرابط التالى 

http://www.officena.net/ib/topic/64037-سلسلة-علمنى-كيف-اصطاد-الفورم-forms/?do=findComment&comment=418716

والطريقه الثامنه فى الرابط التالى

http://www.officena.net/ib/topic/64037-سلسلة-علمنى-كيف-اصطاد-الفورم-forms/?do=findComment&comment=419207

والطريقه التاسعه فى الرابط التالى

http://www.officena.net/ib/topic/64037-سلسلة-علمنى-كيف-اصطاد-الفورم-forms/?do=findComment&comment=419382

[ياسر العربى]

فين السؤال  انا احط ايدي علي السؤال تلاقيني فريره 

 

اهو عشان متقلشي حرمينك من حاجه 

انزل ياعم بالاسئلة متغيبشي نزل اسئلة لنقط صغيرة مش لازم تجمع

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

 

[الصـقر]

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

 

تم تعديل أكتوبر 27, 2015 بواسطه الصـقر

[ياسر العربى]

دا انت ما صدقت  دا انا برمي كلام كدا

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

ابيع التاتش بتاعي ولا ارميه

امرنا لله

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

 

[ياسر العربى]

انا غشيت الامتحان كله

ومن غير مراجع بقي

 

aseel.rar

[الصـقر]

تمام يا كبير الكبير كبير من يومه 

مجرد ملحوظه يا غشاش

انت بالكود مكنتش محتاج تعمل عدد 2 مجموعه مجموعه وحده تكفى لانك لست بحاجه الى التانيه

Private Sub ComboBox1_Change()
ComboBox2.Clear
On Error Resume Next
Dim data As Range
Dim aseel As Collection
Dim aseel2 As Collection
        Set aseel = New Collection
        Set aseel2 = New Collection
For Each data In sheet1.Range("f2:f" & sheet1.Cells(Rows.Count, "f").End(xlUp).Row)
If data.Offset(0, -1).Value = ComboBox1.Value Then
aseel.Add data, data.Text
aseel2.Add data.Offset(0, 1).Value, data.Text
End If
            Next data
With Me.ComboBox2
        For i = 1 To aseel.Count
            .AddItem aseel(i)
            .List(.ListCount - 1, 1) = aseel2(i)
        Next i
End With
End Sub

كان المفروض يكون كدا فقط

Private Sub ComboBox1_Change()
ComboBox2.Clear
On Error Resume Next
Dim data As Range
Dim aseel As Collection
        Set aseel = New Collection
For Each data In sheet1.Range("f2:f" & sheet1.Cells(Rows.Count, "f").End(xlUp).Row)
If data.Offset(0, -1).Value = ComboBox1.Value Then
aseel.Add data, data.Text
End If
            Next data
With Me.ComboBox2
        For i = 1 To aseel.Count
            .AddItem aseel(i)
        Next i
End With
End Sub

تقبل تحياتى واحترامى لشخصك الكريم وشاكر لك اهتمامك بالموضوع

 

[محمد حسن المحمد]

السلام عليكم إخوتي الكرام

أخي الصقر وأخي ياسر العربي المحترمين..

جزاكما الله خيراً ...يحتمل لكثرة محبته لابنته أسيل يكاد يكتب عشرة مجموعات أسيل و أسيل 2 ...etc

لمَ لم تسمّ المجموعة الثانية التي ذكرها لك أخي الصقر غيرلازمة باسم محمد ؟

ولكنه حل رائع ....يستحق الإعجاب 

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

كم درجة أعطاك؟.... 10/10 ممتاز أحسنت يا بطل تبين لنا أنك تحب التجديد حتى لو كان الأخضر رائعاً ومريحاً للعين.

والسلام عليكم.

[ياسر العربى]

هههههههههههههه

السلام عليكم إخوتي الكرام

أخي الصقر وأخي ياسر العربي المحترمين..

جزاكما الله خيراً ...يحتمل لكثرة محبته لابنته أسيل يكاد يكتب عشرة مجموعات أسيل و أسيل 2 ...etc

لمَ لم تسمّ المجموعة الثانية التي ذكرها لك أخي الصقر غيرلازمة باسم محمد ؟

ولكنه حل رائع ....يستحق الإعجاب 

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

كم درجة أعطاك؟.... 10/10 ممتاز أحسنت يا بطل تبين لنا أنك تحب التجديد حتى لو كان الأخضر رائعاً ومريحاً للعين.

والسلام عليكم.

والله  انت انسان بمعنى الكلمة

اخي الكبير الاستاذ محمد حسن المحمد

اسعدتني بمشاركتك هذه  لك مني كل الاحترام 

انت  حضور ومشارك  وفعال هذا ما اراه 

لمجرد دعمك لنا فانت فعال اكثر من اي شخص اخر

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

 

اما اخي الصقر 

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

بجد

وبعدين من الخبرة التعبانة  بتعاتنا ان اكيد واحد لما يشرح حاجه بيعدل تعديل بسيط عشان يعني ايه  يموه الحل شوية

 فا انا فهمت التمويه 

وبدلت الكومبوكس  واحد مع اتنين والمجموعات قلت قال ايه عشان بردو الطالب المصري لما بيغش بيحل سؤال غلط  عشان ميتقفش

وبعدين دا اخرة حسدك اهو  بير وبحر  ادينا جبنا ورا اهو

ياعم احنا مبتدئين

 

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

أخي الحبيب حسام

أنا بالفعل اطلعت من قبل على الطرق التي أرفقتها في المشاركة ..أنا متابعك بداية من الطريقة الرابعة

مفيش الطريقة اللي إنت بتقول عليها

الطرق تتعامل مع القيم الغير مكررة فقط ....

المطلوب طريقة تتعامل مع استراج القيم الغير مكررة وتعبئة الكومبوبوكس بها مع (ترتيبها أبجدياً)

يا ريت تكون وصلت دلوقتي