اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

السلام عليكم

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

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

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

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

والنطاق

هنا:

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

  • Like 5
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

تم تعديل بواسطه 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

  • Like 3
رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

بارك الله فيك

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

رابط هذا التعليق
شارك

السلام عليكم

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

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

بارك الله فيك

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

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

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

خبور خير

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

تم تعديل بواسطه 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

الفورم أثناء التصميم بدون مربعات اختيار

كيف ظهرت أثناء التشغيل

وكيف تم ربطها مع أسماء الأعمدة فى الشيت

و الباقى ربنا يسهل علينا فيه

وشكرا لك

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

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

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

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

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

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

خبور خير

رابط هذا التعليق
شارك

  • 3 weeks later...
  • 2 weeks later...
  • 2 weeks later...

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

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

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

الملف مرفق

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

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

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

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

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

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

جدول الحصص.rar

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information