ريان أحمد قام بنشر فبراير 21, 2013 مشاركة قام بنشر فبراير 21, 2013 الشرح في المرفق فورم معلومات Ali (version 1).rar 1 رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر فبراير 21, 2013 مشاركة قام بنشر فبراير 21, 2013 السلام عليكم جمعة مباركة استبدل حدث الورقة تي 3 Worksheet_Change بهذا الكود: Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long, ii As Long Dim NdAry() If Target.Address <> Range("a1").Address Then Exit Sub With tahar For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row If Val(.Cells(i, 19)) < 5 Then GoTo 1 If Target.Value = .Cells(i, 1).Value Then ii = ii + 1 ReDim Preserve NdAry(1 To 5, 1 To ii) NdAry(1, ii) = .Cells(i, 1).Value NdAry(2, ii) = .Cells(i, 2).Value NdAry(3, ii) = .Cells(i, 19).Value NdAry(4, ii) = .Cells(i, 4).Value NdAry(5, ii) = .Cells(i, 5).Value End If 1: Next End With If ii Then With formconto .ListBox1.Clear .ListBox1.ColumnCount = 5 .ListBox1.List = WorksheetFunction.Transpose(NdAry) .Show 0 End With Else MsgBox "معلومات هذا القيد غير متوفرة", vbInformation, "النتيجة" End If Erase NdAry End Sub في امان الله رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر فبراير 21, 2013 مشاركة قام بنشر فبراير 21, 2013 السلام عليكم الاستاذ العلامة الخبير / عبدالله باقشير كم انت كبير استاذنا بارك الله فيك وزادك من فضله وعلمه وحفظك لاولادك ولنا نحن تلاميذك ولكن لي استفسار الملف ليس موجود به فورم هل اقوم بتصميمه لرؤية النتيجة الفعلية جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
احمد عبد الناصر قام بنشر فبراير 22, 2013 مشاركة قام بنشر فبراير 22, 2013 السلام عليكم جمعة مباركة استاذنا عبد الله باقشير تحياتي لك اود ان اسجل لك اعجابي الشديد بطريقة تعاملك مع array . وكما اسمع فاستخدام ال array يكسب الكود السرعة . و الله اعلم رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر فبراير 22, 2013 الكاتب مشاركة قام بنشر فبراير 22, 2013 (معدل) السلام عليكم أستاذي والله ردودك دائما متقنة وقمة في الإتقان نعم هو ما أريد لكن بقي تعديل بسيط وهو عند ظهور الفورم يجب عدم إظهار قيم التي تحتوي على 5.00 و0.00 وتظظهر القيم الأخرى وعند توفر الكود على حالة واحدة يصهر المعلومات كما في الصورة المرفقة Sans titre.rar تم تعديل فبراير 22, 2013 بواسطه ريان أحمد رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر فبراير 22, 2013 الكاتب مشاركة قام بنشر فبراير 22, 2013 للرفع رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر فبراير 22, 2013 مشاركة قام بنشر فبراير 22, 2013 السلام عليكم جمعة مباركة استاذنا عبد الله باقشير تحياتي لك اود ان اسجل لك اعجابي الشديد بطريقة تعاملك مع array . وكما اسمع فاستخدام ال array يكسب الكود السرعة . و الله اعلم ا السلام عليكم الاستاذ العلامة الخبير / عبدالله باقشير كم انت كبير استاذنا بارك الله فيك وزادك من فضله وعلمه وحفظك لاولادك ولنا نحن تلاميذك ولكن لي استفسار الملف ليس موجود به فورم هل اقوم بتصميمه لرؤية النتيجة الفعلية جزاك الله خيرا السلام عليكم جزاك الله خيرا واثابك بدعائك واعطاك بمثله اضعاف مضاعفة المرفق الذي في المشاركة الاولى موجود فيه الفورم فقط غير الكود اللي في حدث الورقة تي 3 علشان يظهر الفورم غير في الخلية A1 تقبل تحياتي وشكري رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر فبراير 22, 2013 مشاركة قام بنشر فبراير 22, 2013 السلام عليكم جمعة مباركة استاذنا عبد الله باقشير تحياتي لك اود ان اسجل لك اعجابي الشديد بطريقة تعاملك مع array . وكما اسمع فاستخدام ال array يكسب الكود السرعة . و الله اعلم السلام عليكم مرورك اسعدني اخي احمد بالنسبة لاستخدام الاريا ما اوردته صحيح تقبل تحياتي وشكري رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر فبراير 22, 2013 مشاركة قام بنشر فبراير 22, 2013 السلام عليكم أستاذي والله ردودك دائما متقنة وقمة في الإتقان نعم هو ما أريد لكن بقي تعديل بسيط وهو عند ظهور الفورم يجب عدم إظهار قيم التي تحتوي على 5.00 و0.00 وتظظهر القيم الأخرى وعند توفر الكود على حالة واحدة يصهر المعلومات كما في الصورة المرفقة عند ظهور الفورم يجب عدم إظهار قيم التي تحتوي على 5.00 و0.00 وتظظهر القيم الأخرى وضح هذا الشرط لم افهمه هل تقصد القيم التي اكبر من الرقم 5 التي في العمود الاصفر ؟؟؟؟ وعند توفر الكود على حالة واحدة يصهر المعلومات كما في الصورة المرفقة تم تصحيح هذا في الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long, ii As Long Dim NdAry() If Target.Address <> Range("a1").Address Then Exit Sub With tahar For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row If Val(.Cells(i, 19)) < 5 Then GoTo 1 If Target.Value = .Cells(i, 1).Value Then ii = ii + 1 ReDim Preserve NdAry(1 To 5, 1 To ii) NdAry(1, ii) = .Cells(i, 1).Value NdAry(2, ii) = .Cells(i, 2).Value NdAry(3, ii) = .Cells(i, 19).Value NdAry(4, ii) = .Cells(i, 4).Value NdAry(5, ii) = .Cells(i, 5).Value End If 1: Next End With If ii Then With formconto .Caption = ii .ListBox1.Clear .ListBox1.ColumnCount = 5 If ii = 1 Then .ListBox1.Column = NdAry Else .ListBox1.List = WorksheetFunction.Transpose(NdAry) End If .Show 0 End With Else MsgBox "معلومات هذا القيد غير متوفرة", vbInformation, "النتيجة" End If Erase NdAry End Sub في امان الله 1 رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر فبراير 22, 2013 مشاركة قام بنشر فبراير 22, 2013 السلام عليكم مبدع كعادتك دوما استاذى الفاضل عبدالله لك خالص التحايا والاشواق متعك الله بالصحة والعافية رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر فبراير 22, 2013 مشاركة قام بنشر فبراير 22, 2013 السلام عليكم اخي الفاضل خالد القدس ---حفظكم الله سرني مروركم العطر تقبل تحياتي وشكري رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر فبراير 23, 2013 مشاركة قام بنشر فبراير 23, 2013 السلام عليكم و رحمة الله و بركاته الاخ الحبيب الفاضل الاستاذ العلامه / عبد الله باقشير جزاك الله كل خير جعل الله مجهودك و ابداعك في ميزان حسناتك و الله يا اخي حضرتك دائما تتحفنا بافكارك و ابداعاتك بارك الله في حضرتك و السلام عليكم و رحمة الله و بركاته رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر فبراير 23, 2013 مشاركة قام بنشر فبراير 23, 2013 السلام عليكم اخي الحبيب احمد فضيله---حفظكم الله سرني مروركم العطر جزاكم الله خيرا وبارك فيكم تقبل تحياتي وشكري رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر فبراير 23, 2013 مشاركة قام بنشر فبراير 23, 2013 السلام عليكم استاذنا القدير / عبدالله باقشير بارك الله فيك وجزاك الله عنا خيرا رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر فبراير 23, 2013 الكاتب مشاركة قام بنشر فبراير 23, 2013 السلام عليكم أستاذي شكرا على التعديل والإستجابة السريعة وجزاك الله كل خير بالنسبة للتعديل الأول لقد حاولت فيه ونجحت حيث عدلت السطر If Val(.Cells(i, 19)) < 5 Then GoTo 1 ليصبح If Val(.Cells(i, 19)) <= 6 Then GoTo 1 لي طلب بسيط أريد فورم عندما إدخل الكود في COMPOX يصهر معلومات ذلك الكود جميعها بدون إستثناء بأعمدة أنا أختارها مثلا العمود 03 و04 و 5 رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر فبراير 23, 2013 مشاركة قام بنشر فبراير 23, 2013 السلام عليكم أستاذي شكرا على التعديل والإستجابة السريعة وجزاك الله كل خير بالنسبة للتعديل الأول لقد حاولت فيه ونجحت حيث عدلت السطر If Val(.Cells(i, 19)) < 5 Then GoTo 1 ليصبح If Val(.Cells(i, 19)) <= 6 Then GoTo 1 لي طلب بسيط أريد فورم عندما إدخل الكود في COMPOX يصهر معلومات ذلك الكود جميعها بدون إستثناء بأعمدة أنا أختارها مثلا العمود 03 و04 و 5 لم نفهم الطلب كيف تريد جميع المعلومات بدون استثناء وبعدين تختارها انت ؟؟؟ رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر فبراير 27, 2013 الكاتب مشاركة قام بنشر فبراير 27, 2013 ي البداية أعتذر على التأخر في الرد وذلك لسبب توقف النت عندي سيدي الفاضل وأستاذي الكريم الطلب هو كالتالي الفورم التي أريدها تحتوي على كومبوكس مجرد ما أجخل الكود تظهر كل بيانات ذلك الكود بدون شرط يعني قاعدة البيانات تحتوي عل 20 حالة للكود المدخل تأتي20 حالة بعكس الفورم الول الذي يأتي ب 5 حالات يعني نزع كل الشروط If Val(.Cells(i, 19)) < 5 Then GoTo 1 ينزع هذا الشرط أما الأعمدة فالمقصود هو NdAry(1, ii) = .Cells(i, 1).Value NdAry(2, ii) = .Cells(i, 2).Value NdAry(3, ii) = .Cells(i, 19).Value NdAry(4, ii) = .Cells(i, 4).Value NdAry(5, ii) = .Cells(i, 5).Value نفسها تظهرفي اللسصت بوكس رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر فبراير 28, 2013 الكاتب مشاركة قام بنشر فبراير 28, 2013 للرفع رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر مارس 2, 2013 الكاتب مشاركة قام بنشر مارس 2, 2013 للرفع السلام عليكم رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر مارس 2, 2013 مشاركة قام بنشر مارس 2, 2013 السلام عليكم شاهد المرفق 2003 فورم معلومات.rar رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر مارس 2, 2013 مشاركة قام بنشر مارس 2, 2013 استاذى عبدالله باقشير مبدع وهذا ليس بجديد نطمع فى شرح كيفية عمل هذا الملف exe فمنك نتعلم دائماً جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
أبو چيداء قام بنشر مارس 2, 2013 مشاركة قام بنشر مارس 2, 2013 استاذى عبدالله باقشير مبدع وهذا ليس بجديد نطمع فى شرح كيفية عمل هذا الملف exe فمنك نتعلم دائماً جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
أبو چيداء قام بنشر مارس 2, 2013 مشاركة قام بنشر مارس 2, 2013 استاذى عبدالله باقشير مبدع وهذا ليس بجديد نطمع فى شرح كيفية عمل هذا الملف exe فمنك نتعلم دائماً نتمنى الشر ح استاذنا ومعلمنا جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر مارس 2, 2013 مشاركة قام بنشر مارس 2, 2013 السلام عليكم اخي khhanna اخي أبو چيداء لقد رفعت الملف حافظة معلومات عن طريق الخطا الملف المقصود هو فورم معلومات وتم تغييره في المشاركة السابقة ملف الحافظة معمول بالفيجوال بيسك وليس بالاكسل عفوا على هذا الخطا وهنيئا لمن حمل الملف السابق يعتبره هدية مني تقبلوا تحياتي وشكري رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر مارس 3, 2013 الكاتب مشاركة قام بنشر مارس 3, 2013 (معدل) أستاذي وأخي جزاك الله كل خير وبارك الله فيك والمعذرة على التأخير في الرد لعدم توفر النت في البيت تم تعديل مارس 3, 2013 بواسطه ريان أحمد رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان