حمادة عمر

السلام عليكم الاخ الحبيب / طلعت محمد حسن بارك الله فيك بالنسبة لطلبك الاخير والمقسم الي طلبين الاول : بخصوص عد النتائج في الليست في تكست بوكس ( كما هو في الفورم الخاص بك ) يمكن استخدام ذلك بطريقتين ( اسهل من بعض ) الكود الاول ' وفيه نقول اجعل قيمة التكست بوكس تساوي المتغير الخاص بنتائج الليست والذي يأخذ قيمته من السطر ' V = V + 1 TextBox1.Value = v الكود الثاني 'وفيه نقول اجعل قيمة التكست بوكس 1 تساوي عدد صفوف الليست وهو بالضبط عدد النتائج TextBox1.Value = ListBox1.ListCount الثاني : والخاص بتجميع عمود السعر من نتائج الليست في ( تكست بوكس 2 ) كما هو في ملفك فأولا لاحظ اضافة سطر بسيط في بداية الكود وهو ' وفيه نقول اجعل قيمة التكست بوكس 2 تساوي لا شئ حتي يتم حساب القيمة المطلوبة بعد ذلك ' علي اساس سليم وعلي اساس النتائج المختلفة في كل مرة TextBox2.Text = "" ثم لوضع قيمة تجميع عمود الليست المطلوب وهو ( السعر ) يتم وضع الكود التالي لتنفيذ المطلوب 'في هذا السطر نضع متغير تكون قيمته من بداية الليست حتي نهايته وهو المتغير S For S = 0 To ListBox1.ListCount - 1 ' وهنا نقول ان قيمة التكست بوكس 2 تساوي قيمة التكست بوكس نفسه + قيمة العمود الثامن من الليست TextBox2.Text = Val(TextBox2) + Val(ListBox1.Column(7, S)) 'السطر التالي خاص بتنسيق التكست بوكس 2 لوضع المنازل العشرية عند التجميع TextBox2.Value = Format(Me.TextBox2.Value, "#0.00") 'السطر التالي هو نهاية جمله FOR بعد وضع قيمة المتغير S Next S وبذلك تكون النتائج في الفورم بعد وضع هذه الاكواد كما في الصورة التالية ارجو ان اكون قد اوضحت لك الصوروة بشكل جيد وتم تنفيذ المطلوب كما تريد تقبل خالص تحياتي عد النتائج في ليست وتجميع عمود معين.rar

اذن جرب الكود علي جهاز آخر حيث ان الكود يعمل لدي ولدي الجميع بشكل طبيعي جدا ولكن علي اوفيس 2003 ولكن ان كان الويندوز لديك 64 فلن يعمل فهو يعمل علي الاصدار 32 في انتظار ردك

السلام عليكم الاخ الحبيب / أبو محمد عباس بارك الله فيك دائما مرورك المتميز يسعدني وكلماتك الرقيقة تغمرني لك مني ارق التحيات جزاك الله خيرا

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

شاهد اخي المرفق ان شاء الله به المطلوب ... حسب فهمي لطلبك ولكن يجب وضع معلومة هنا انه اخي الحبيب ... ظهور الفورم نفسه او البيانات في الفورم هي معاينة للفورم وبياناته حيث انه لاتوجد معاينة للفورم نفسه الكتب1122.rar

السلام عليكم الاستاذ الغالي جدا / احمد فضيله بارك الله فيك مرورك وحده وكلمة واحدة منك تكفيني وتشرفني فما بالك بأن تنادي تلميذك بـ ( الاخ الحبيب الغالي الاستاذ الكبير ) فيا فرحتي وسعادتي لك مني ارق التحيات تقبل خالص تحياتي

تقبل خالص تحياتي

السطر المقصود : Private Sub Worksheet_SelectionChange(ByVal Target As Range) يعني هذا السطر تنفيذ كود خاص علي هذا الشيت عند حدوث اي تغيير في الشيت اي عند عمل اي عملية في الشيت المحدد ينفذ الكود والاجراء الذي يليه تلقائيا ارجو ان يكون الشرح واضح واي استفسار لا تترد في وضعه تقبل خالص تحياتي

الاستاذ العبقري / جمال عبد السميع ما شاء الله عليك دائما حلولك رووعة تقبل خالص تحياتي

عذرا ... مشاركة مكررة تقبلوا خالص تحياتي ...

السلام عليكم الاخ الكريم / modi basha بارك الله فيك تقبل خالص تحياتي واكرمك الله بدعائك لي في الدارين وادام الله المحبة في الله بيننا

ضع الماكرو المقصود في حدث الشيت المطلوب تنفيذ العملية فيه كما يلي بين السطرين التاليين Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub ليكون الكود كالتالي Private Sub Worksheet_SelectionChange(ByVal Target As Range) Range("A3:AA1304").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Range("B1:C2"), Unique:=False End Sub وان لم تضبط معك ارفق ملف كمثال للعمل عليه وتنفيذ المطلوب تقبل خالص تحياتي

تفضل اخي ولكن الملف ليس من تصميمي ولكنه من تصميم أخ فاضل ولكن لا تسعني الذاكرة الآن لذكر اسمه اسم المستخدم : admin كلمة المرور : pass

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

اخي الكريم هل شاهدت المشاركة رقم 179 هنا في هذا الموضوع http://www.officena.net/ib/index.php?showtopic=46129&page=9 جرب زر طباعة البيانات وجرب الضغط 2 كليك علي نتائج الليست بعد ظهورها هل هذا ما تريده ام ان طلبك مختلف في انتظار ردك

السلام عليكم الاخ الكريم / كعبلاوى بارك الله فيك تقبل خالص تحياتي وجزاك الله خيرا

هل الصف المقصود به معادلات ام لا ؟؟ وياريت لو ارفاق ملف كمثال لما هو مطلوب للعمل عليه تقبل خالص تحياتي

السلام عليكم الاخ الكريم / احمدشهاب بارك الله فيك شاهد الفيديو المرفق يوضح طريقة التنفيذ تنسيق شرطي -SAMA.rar

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

الآن اكسيل2003 23 صوت اكسيل2007 19 صوت اكسيل 2010 14 صوت اكسيل 2013 9 صوت