اعداد تقرير من نطاق معين اتوماتيكيا من خلال فورم

[عبدالله باقشير]

السلام عليكم

اعداد تقرير من نطاق معين اتوماتيكيا

عن طريق فورم لاختيار رؤوس الاعمدة التي تريده في التقرير

ما عليك سوى تغيير اسم الورقة

والعمود الذي يعين آخر صف في النطاق

والنطاق

هنا:

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

[قصي]

شكرا شكرا

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

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

[خالد القدس]

السلام عليكم

كل وأنت بألف خير معلم الأجيال خبور خير

كالعادة هدية من العيار الثقيل التي لا ترد ولا تصد

كذلك جعل الله لك أجرها لا يحد ولا ينفد

[قصي]

استاذنا الفاضل خبور خير

لو سمحت

قاعدة البيانات بعد التصفيه ( الفلتره )

نريد عند الضغط على زر التقرير

ممكن ياخد النواتج المفلتره

[obad65]

دائما مبدع أستاذ خبور

مع خالص شكري وتقديري على الاهتمام بما ينفع الأعضاء

[احمد حمور-ابوعبدالله]

اخي الحبيب خبور

والله فكرت لمدة عشرة دقائق عن ما يمكنني كتابته لك

فلم اجد كلمه واحده لانني اخاف ان لا اعطيك حقك

فلك ان تختار ما تشاء..................................................................

....................................................................................

.................................................................................الخ

واجعل لي هذا الاختيار

اسأل الله ان يعطيك كل ما تتمنى

تم تعديل أغسطس 16, 2010 بواسطه AHMADHAMOOR

[عبدالله باقشير]

السلام عليكم

الاخ الفاضل/ خالد القدس-------- حفظه الله

ولك امثال دعائك اضعاف مضاعفة

تقبل شكري وتقديري

=============================

الاخ الفاضل/ 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

[عادل حنفي]

السلام عليكم

اخي الحبيب خبور

لا يوجد الا التصفيق لك لان كل شيئ تم التقكير فيه قمت انت بعمله

و اعتقد انه لا مجال للاضافه

لذا فانت وفيت وكفيت

بارك الله فيك

خالص تحياتي و تقديري

[قصي]

مشكور مشكور مشكور

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

ربنا يكافؤك بالطيب

هذا ما كنت احلم به

زر لمعاينة الطباعه وتضبيطها

[عبدالله باقشير]

السلام عليكم

اخي الحبيب عادل ----------- حفظه الله

اشكرك على هذا التشجيع المبين

بارك الله فيك

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

والتوفيق من عند الله عليه توكلت واليه انيب

تقبل تحياتي وشكري

خبور خير

[خالد الشاعر]

استاذى القدير خبور

تسلم ايدك و جزاك الله خيراُ

و كل عام و انت بخير

[محمدي عبد السميع]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية . موفق بإذن الله ... لك مني أجمل تحية .

[عبد الفتاح كيرة]

جزاك الله خيرا أستاذنا

سيفيدنا كثيرا هذا التقرير

و إن كان الأفضل

أن تتفضل بمزيد من الشرح

إن كان وقتك يسمح بذلك

عملا بالمثل القائل

بدلا من أن تعطينى سمكة

علمنى صيد السمك

و التلاميذ مستعدون و منصتون تماما لما تقول

و كل عام أنتم بخير

تم تعديل أغسطس 17, 2010 بواسطه kemas

[الحسامي]

السلام عليكم

الخ الحبيب خبور خير

افكار اكثر من رائعة

فبارك الله فيك

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

[عبدالله باقشير]

السلام عليكم

الاخ الفاضل/ khhanna-------- حفظه الله

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

تقبل شكري وتقديري

=============================

الاخ الحبيب/ محمدي-------- حفظه الله

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

تقبل شكري وتقديري

=============================

الاخ الفاضل/ كيماس-------- حفظه الله

ما هي الجزئية الني تريد شرحها في الكود ؟

تقبل شكري وتقديري

=============================

الاخ الحبيب/ الحسامي-------- حفظه الله

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

تقبل شكري وتقديري

خبور خير

[عبد الفتاح كيرة]

أشكر لك كريم خلقك و سعة صدرك

لنبدأ بهذا

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]

الاخ الفاضل خبور ..جزاك الله خيرا وجعلها الله في رصيد حسناتك

لكن لنا طلب صغير...ان امكن ؟؟

اخانا قبل ان تكون استاذنا الفاضل ...الا يوجد شيئ بسيط لناالمبتدئين في عالم الاكواد لقد افادنا الله بعلم اخونا الحسامي جزاه الله كل خير لكننا ننتظر ان ننهل من منهلك فجد علينا ياستاذا خبور ولو بشئ بسيط .....؟

اكرر شكري وامتناني لك ولكل اخواننا في هذا المنتدى الغالي...

[هشام شلبى]

السلام عليكم

===========

تقبل الله منك الصيام والقيام وصالح الاعمال

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

[ناصر سعيد]

اخي الحبيب خبور

والله فكرت لمدة عشرة دقائق عن ما يمكنني كتابته لك

فلم اجد كلمه واحده لانني اخاف ان لا اعطيك حقك

حقا هذا احساس حقيقي لانني احسست به

جزاك الله عنا ايها العالم كل خير

[عبدالله باقشير]

السلام عليكم

الاخ الفاضل امير __________حفظه الله

الاخ الفاضل هشام شلبي __________حفظه الله

الاخ الفاضل ناصر __________حفظه الله

لكم بمثل دعائكم اضعاف مضاعفة

بارك الله فيكم

تقبلوا تحياتي وشكري

الاخ الفاضل كيماس __________حفظه الله

ستجد الشرح على الرابط

http://www.officena.net/ib/index.php?showtopic=33625

خبور خير

[عبد الفتاح كيرة]

بارك الله فيك

وقد ذهبت إلى هناك و كتبت كلمات

ونحن نتابع معك

ونلتقط كلماتك كما يبتقط الدر من باطن البحار

[ashraff101]

استاذ كبير الله يرحم والديك

[الجزيرة]

لنا الفخر في هذا المنتدى الطيب بأن يكون من بينناالأخ القدير / خبور خير

فكل الشكر والتقدير لك على ما تقدمه لنا من روائع قيمه

وكل عام وأنت بالف خير : )

[أبو العقاب]

ما شاء الله

كنت أبحث عن هذه الطريقة

دائما مبدع يا أستاذنا الغالي

[علي المصري]

شكرا جزيلا وبارك الله فيك اخي الكريم الحبيب

وبدون ازعاج اريد مساعدتكم

قمت بعمل جدول مدرسي خاص بي وبأسلوبي

الملف مرفق

ولكن عند عمل زرر خروج

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

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

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

افيدوني جعلكم الله عونا لكل الناس

ورزقكم الجنة وادخلكم اياها بسلام

جدول الحصص.rar