عبدالله باقشير قام بنشر أغسطس 16, 2010 قام بنشر أغسطس 16, 2010 السلام عليكم اعداد تقرير من نطاق معين اتوماتيكيا عن طريق فورم لاختيار رؤوس الاعمدة التي تريده في التقرير ما عليك سوى تغيير اسم الورقة والعمود الذي يعين آخر صف في النطاق والنطاق هنا: Private Sub kh_MyRngSet() Dim Last As Long '======================== ' تعيين النطاق ويشمل رؤوس الاعمدة With Sheets("قاعدة البيانات") Last = .Range("C" & .Rows.Count).End(xlUp).Row Set MyRng = .Range("A2:Z" & Last) End With '======================== Num = MyRng.Columns.Count End Sub وتعيين اول صف في ورقة التقرير هنا: '======================== ' اول صف للتقرير Const iRow As Integer = 3 '======================== خبور خير اعداد تقرير حسب اختيار الاعمدة اتوماتيكيا.rar 5
خالد القدس قام بنشر أغسطس 16, 2010 قام بنشر أغسطس 16, 2010 السلام عليكم كل وأنت بألف خير معلم الأجيال خبور خير كالعادة هدية من العيار الثقيل التي لا ترد ولا تصد كذلك جعل الله لك أجرها لا يحد ولا ينفد
قصي قام بنشر أغسطس 16, 2010 قام بنشر أغسطس 16, 2010 استاذنا الفاضل خبور خير لو سمحت قاعدة البيانات بعد التصفيه ( الفلتره ) نريد عند الضغط على زر التقرير ممكن ياخد النواتج المفلتره
obad65 قام بنشر أغسطس 16, 2010 قام بنشر أغسطس 16, 2010 دائما مبدع أستاذ خبور مع خالص شكري وتقديري على الاهتمام بما ينفع الأعضاء
احمد حمور-ابوعبدالله قام بنشر أغسطس 16, 2010 قام بنشر أغسطس 16, 2010 (معدل) اخي الحبيب خبور والله فكرت لمدة عشرة دقائق عن ما يمكنني كتابته لك فلم اجد كلمه واحده لانني اخاف ان لا اعطيك حقك فلك ان تختار ما تشاء.................................................................. .................................................................................... .................................................................................الخ واجعل لي هذا الاختيار اسأل الله ان يعطيك كل ما تتمنى تم تعديل أغسطس 16, 2010 بواسطه AHMADHAMOOR
عبدالله باقشير قام بنشر أغسطس 16, 2010 الكاتب قام بنشر أغسطس 16, 2010 السلام عليكم الاخ الفاضل/ خالد القدس-------- حفظه الله ولك امثال دعائك اضعاف مضاعفة تقبل شكري وتقديري ============================= الاخ الفاضل/ obad65-------- حفظه الله تقبل شكري وتقديري ============================= الاخ الفاضل/ احمد-------- حفظه الله ولك امثال دعائك اضعاف مضاعفة تقبل شكري وتقديري ============================= الاخ الفاضل/ قصي-------- حفظه الله لو سمحت قاعدة البيانات بعد التصفيه ( الفلتره ) نريد عند الضغط على زر التقرير ممكن ياخد النواتج المفلتره تم التغيير بحيث انه يتم لصق البيانات بثلاثة معايير لصق عرض الاعمدة لصق التنسيقات لصق القيم يمكنك حذف مالا تريده ما عدى القيم طبعا في الكود التالي: Private Sub Kh_Start(iColumn As Integer) Dim RCount As Long, C As Integer C = Cells(iRow, Columns.Count).End(xlToLeft).Column + 1 With MyRng RCount = .Rows.Count .Cells(1, iColumn).Resize(RCount, 1).Copy ' لصق عرض الاعمدة Cells(iRow, C).PasteSpecial xlPasteColumnWidths ' لصق الفورمات Cells(iRow, C).PasteSpecial xlPasteFormats ' لصق القيم Cells(iRow, C).PasteSpecial xlPasteValues Application.CutCopyMode = False End With End Sub تقبل شكري وتقديري خبور خير اعداد تقرير حسب اختيار الاعمدة اتوماتيكيا1.rar 3
عادل حنفي قام بنشر أغسطس 17, 2010 قام بنشر أغسطس 17, 2010 السلام عليكم اخي الحبيب خبور لا يوجد الا التصفيق لك لان كل شيئ تم التقكير فيه قمت انت بعمله و اعتقد انه لا مجال للاضافه لذا فانت وفيت وكفيت بارك الله فيك خالص تحياتي و تقديري
قصي قام بنشر أغسطس 17, 2010 قام بنشر أغسطس 17, 2010 مشكور مشكور مشكور جزاك الله الف خير ربنا يكافؤك بالطيب هذا ما كنت احلم به زر لمعاينة الطباعه وتضبيطها
عبدالله باقشير قام بنشر أغسطس 17, 2010 الكاتب قام بنشر أغسطس 17, 2010 السلام عليكم اخي الحبيب عادل ----------- حفظه الله اشكرك على هذا التشجيع المبين بارك الله فيك وجزاك الله خيرا والتوفيق من عند الله عليه توكلت واليه انيب تقبل تحياتي وشكري خبور خير
خالد الشاعر قام بنشر أغسطس 17, 2010 قام بنشر أغسطس 17, 2010 استاذى القدير خبور تسلم ايدك و جزاك الله خيراُ و كل عام و انت بخير
محمدي عبد السميع قام بنشر أغسطس 17, 2010 قام بنشر أغسطس 17, 2010 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية . موفق بإذن الله ... لك مني أجمل تحية .
عبد الفتاح كيرة قام بنشر أغسطس 17, 2010 قام بنشر أغسطس 17, 2010 (معدل) جزاك الله خيرا أستاذنا سيفيدنا كثيرا هذا التقرير و إن كان الأفضل أن تتفضل بمزيد من الشرح إن كان وقتك يسمح بذلك عملا بالمثل القائل بدلا من أن تعطينى سمكة علمنى صيد السمك و التلاميذ مستعدون و منصتون تماما لما تقول و كل عام أنتم بخير تم تعديل أغسطس 17, 2010 بواسطه kemas
الحسامي قام بنشر أغسطس 17, 2010 قام بنشر أغسطس 17, 2010 السلام عليكم الخ الحبيب خبور خير افكار اكثر من رائعة فبارك الله فيك وجزاك الله خيرا
عبدالله باقشير قام بنشر أغسطس 17, 2010 الكاتب قام بنشر أغسطس 17, 2010 السلام عليكم الاخ الفاضل/ khhanna-------- حفظه الله بارك الله فيك وجزاك الله خيرا تقبل شكري وتقديري ============================= الاخ الحبيب/ محمدي-------- حفظه الله بارك الله فيك وجزاك الله خيرا تقبل شكري وتقديري ============================= الاخ الفاضل/ كيماس-------- حفظه الله ما هي الجزئية الني تريد شرحها في الكود ؟ تقبل شكري وتقديري ============================= الاخ الحبيب/ الحسامي-------- حفظه الله بارك الله فيك وجزاك الله خيرا تقبل شكري وتقديري خبور خير
عبد الفتاح كيرة قام بنشر أغسطس 18, 2010 قام بنشر أغسطس 18, 2010 أشكر لك كريم خلقك و سعة صدرك لنبدأ بهذا Private Sub UserForm_Initialize() Dim MyTop As Integer, i As Integer Dim MyCBox As Control '======================== kh_MyRngSet '======================== MyTop = 0 For i = 1 To Num Set MyCBox = Frame1.Controls.Add("Forms.CheckBox.1") With MyCBox .Move 12, MyTop, , , True .Alignment = 0 .Font.Bold = True .Caption = MyRng.Cells(1, i).Value .Value = True .TextAlign = fmTextAlignRight End With MyTop = MyTop + 24 Next '======================== With Me If Num <= Mycount Then .Height = 60 + (24 * Num) .Frame1.Height = (24 * Num) Else .Height = 60 + (24 * Mycount) .Frame1.Height = (24 * Mycount) .Frame1.ScrollBars = 2 .Frame1.ScrollHeight = (Num) * 24 End If End With '======================== End Sub الفورم أثناء التصميم بدون مربعات اختيار كيف ظهرت أثناء التشغيل وكيف تم ربطها مع أسماء الأعمدة فى الشيت و الباقى ربنا يسهل علينا فيه وشكرا لك
amir501 قام بنشر أغسطس 18, 2010 قام بنشر أغسطس 18, 2010 الاخ الفاضل خبور ..جزاك الله خيرا وجعلها الله في رصيد حسناتك لكن لنا طلب صغير...ان امكن ؟؟ اخانا قبل ان تكون استاذنا الفاضل ...الا يوجد شيئ بسيط لناالمبتدئين في عالم الاكواد لقد افادنا الله بعلم اخونا الحسامي جزاه الله كل خير لكننا ننتظر ان ننهل من منهلك فجد علينا ياستاذا خبور ولو بشئ بسيط .....؟ اكرر شكري وامتناني لك ولكل اخواننا في هذا المنتدى الغالي...
هشام شلبى قام بنشر أغسطس 18, 2010 قام بنشر أغسطس 18, 2010 السلام عليكم =========== تقبل الله منك الصيام والقيام وصالح الاعمال نشكرك على هداياك القيمة استاذ خبور
ناصر سعيد قام بنشر أغسطس 18, 2010 قام بنشر أغسطس 18, 2010 اخي الحبيب خبور والله فكرت لمدة عشرة دقائق عن ما يمكنني كتابته لك فلم اجد كلمه واحده لانني اخاف ان لا اعطيك حقك حقا هذا احساس حقيقي لانني احسست به جزاك الله عنا ايها العالم كل خير
عبدالله باقشير قام بنشر أغسطس 18, 2010 الكاتب قام بنشر أغسطس 18, 2010 السلام عليكم الاخ الفاضل امير __________حفظه الله الاخ الفاضل هشام شلبي __________حفظه الله الاخ الفاضل ناصر __________حفظه الله لكم بمثل دعائكم اضعاف مضاعفة بارك الله فيكم تقبلوا تحياتي وشكري الاخ الفاضل كيماس __________حفظه الله ستجد الشرح على الرابط http://www.officena.net/ib/index.php?showtopic=33625 خبور خير
عبد الفتاح كيرة قام بنشر أغسطس 18, 2010 قام بنشر أغسطس 18, 2010 بارك الله فيك وقد ذهبت إلى هناك و كتبت كلمات ونحن نتابع معك ونلتقط كلماتك كما يبتقط الدر من باطن البحار
الجزيرة قام بنشر سبتمبر 18, 2010 قام بنشر سبتمبر 18, 2010 لنا الفخر في هذا المنتدى الطيب بأن يكون من بينناالأخ القدير / خبور خير فكل الشكر والتقدير لك على ما تقدمه لنا من روائع قيمه وكل عام وأنت بالف خير : )
أبو العقاب قام بنشر سبتمبر 18, 2010 قام بنشر سبتمبر 18, 2010 ما شاء الله كنت أبحث عن هذه الطريقة دائما مبدع يا أستاذنا الغالي
علي المصري قام بنشر أكتوبر 1, 2010 قام بنشر أكتوبر 1, 2010 شكرا جزيلا وبارك الله فيك اخي الكريم الحبيب وبدون ازعاج اريد مساعدتكم قمت بعمل جدول مدرسي خاص بي وبأسلوبي الملف مرفق ولكن عند عمل زرر خروج اردت أن يكون الفورم الذي يظهر به ثلاثة أزرار ( خروج مع الحفظ - خروج بدون حفظ - ألغاء ) ولكن لم استطع أن اكتب الامر الخاص بالزر الثاني ) فارجو المساعدة كماانه لدي بعض المدرسين يقوم بتدريس مادتين فكيف يمكن ان يكون جدول الحصص بدون هذا التكرار كما انه كل ما اقوم بعمل ملف ااكسيل اجد حجمة كبير افيدوني جعلكم الله عونا لكل الناس ورزقكم الجنة وادخلكم اياها بسلام جدول الحصص.rar
الردود الموصى بها