أبو حنــــين

هذا شرح مبسط لعمل الكود '************************************************************ ' هذا الجزئ خاص بتعيين ورقة الطباعة Set sh = Sheets("ورقة2") With sh .Activate '************************************************************ '************************************************************ ' هذا السطر خاص بتحديد آخر خلية تحتوي على بيانات LsRow = .Cells(Rows.Count, "B").End(xlUp).Row + 1 '************************************************************ '************************************************************ ' عند حدوث خطأ ما أكمل On Error Resume Next '************************************************************ '************************************************************ ' حلقة تكرار تقوم بحساب عدد صفوف اللستبوكس For AA = 0 To ListBox1.ListCount '************************************************************ ' نقل البيانات الموجودة في العمود الاول من اللستبوكس الى العمود الثاني في ورقة الطباعة .Cells(AA + LsRow, 2) = ListBox1.Column(0, AA) '************************************************************ '************************************************************ ' نقل البيانات الموجودة في العمود الثاني من اللستبوكس الى العمود الثالث في ورقة الطباعة .Cells(AA + LsRow, 3) = ListBox1.Column(1, AA) '************************************************************ ' نقل البيانات الموجودة في العمود الثالث من اللستبوكس الى العمود الرابع في ورقة الطباعة .Cells(AA + LsRow, 4) = ListBox1.Column(2, AA) '************************************************************ ' رسم جدول يحتوي البيانات الموجودة في ورقة الطباعة .Range(.Cells(9, 2), .Cells(LsRow + AA - 1, 4)).Borders.LineStyle = xlContinuous ' الى هنا ينتهي كود نقل البيانات من اللستبوكس الى ورقة الطباعة '-------------------------------------------------------------------------------------------- Next ' من هنا يبتدأ كود الطباعة LR = .Cells(Rows.Count, "d").End(xlUp).Row + 1 .Cells(LR + 1, 4) = TextBox4.Value .Cells(LR + 1, 3) = "المجموع :" .Cells(LR + 1, 4).Borders.LineStyle = xlContinuous .Cells(LR + 1, 3).Borders.LineStyle = xlContinuous End With Unload Me '******************************************************************** ' للمعاينة نكتب ورقة2.PrintPreview '******************************************************************** '******************************************************************** ' للطباعة نكتب بدل الجملة السابقة الجملة التالية ورقة2.PrintOut '********************************************************************

السلام عليكم تفضل اخي Book444.rar

السلام عليكم هذا تعديل بسيط على الملف Book333.rar

العفو أخي و ارجو المعذرة عن التأخر في الرد

السلام عليكم جرب المرفق 1233.rar

السلام عليكم جرب المرفق Book22.rar

السلام عليكم حرب المرفق Book2.rar

جزاك الله خيرا أخي : حليم ناصر على مروركم الطيب رمضان كريم

جزاك الله خيرا أخي أبو سما رمضان كريم و كل عام و انتم و أهل مصر بخير ان شاء الله

بارك الله فيكم أخي الحبيب بن عليه فعلا لمسة سحرية من رجل مبدع دوما حفظكم الله و رعاكم

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

أخي مجدي يونس تصميم رائع من أخ أروع جزاكم الله خيرا

السلام عليكم اضافة لما قدمه أخي بن عليه هذا حل آخر يعتمد على إسم الأم توأم 20 14.rar

و عليكم السلام و رحمة الله في هذا المنتدى يوجد الكثير من الأمثلة او اذهب الى اليوتيوب و اكتب : شرح الدالة vlookup

السلام عليكم و الله لا ادري ما اقول أخي man222222sa عندما قرأت هذا الدعاء الذي أثلج صدري و أحسست بشعور و الله لم اجد له وصفا و حتى الكلمات لم اجدها ، فوالذي نفسي بيده لم اسمع دعاءا مثل هذا أكرمك الله و حفظك و رعاك و جعل الجنة مثواك ، آآآآآآآآآآآمين يا رب العلمين

السلام عليكم هذه الخاصية تسمى : فواصل الصفحات يمكن الذهاب اليها من : معاينة ------ > ثم معاينة فواصل الصفحات

آمين رمضان مبارك

أخي : حمادة عمر أخي : خالد القدس جزاكما الله خيرا رمضان مبارك و كل عام و انتم بخير تقبل الله منا و منكم صالح الاعمال

السلام عليكم التعقيببببب1.rar

السلام عليكم أخي : الأستاذ هاني عدلي لم انتبه للترقية إلا في هذه اللحظات التي كتبت فيها هذه الكلمات و عذرا على التأخر الف الف مبروك على الترقية المستحقة فعلا مزيد من النجاح و التألق بإذن الله حفظكم الله و رعاكم اخوك ابو حنين

أخي المحترم : قنديل الصياد مبروك الترقية و الى الأمام دوما حفظكم الله و رعاكم تقبل مروري

السلام عليكم كل عام و الامة الاسلامية بخير اعاده الله علينا بالأمن و الخير و البركات

في هذا المثال اضغط مرتين على اي خلية في الورقة 1 التاريخ.rar

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

لو فرضنا ان الجمع يكون من خليتين موجودتين في sheet1 و الناتج يكون في sheet2 فيكون الكود بالشكل التالي Private Sub CommandButton1_Click() Range("b1") = Application.WorksheetFunction.Sum(sheet1.Range("A1:A2")) End Sub