تعديل علي طباعة الفورم

[حماده سعد الله]

أولا :أشكر كل المشاركين في هذا الموقع الممتاز 

ثانيا :أقوم بالحصول بتحميل بعض الأعمال الرائعة من الموقع وتعديلها بما يتوافق مع عملي هل ذلك من حقي

ثالثا: وهو السبب الرئيسي في المشاركة أحد الأعمال الرائعة التي حملتها من الموقع وعدلت عليها (طبع الكتاب من داخل الفورم )للأخ المحترم مهند الزيدي أريد تعديلا عليها 

حيث أرغب في أن أجعل زر الطباعة بالفورم يطبع الفورم وليس شيتا كما أرغب في أن يكون البحث بواسطة الرفم واسم الطالب والترتيب فقط .

نتيجة بالدرجات.rar

[حماده سعد الله]

أرجو من الله ألا أكون بطلبي هذا أثقلت عليكم ولولا علمي بمقدرتكم علي بذل ما هو أكثر وأصعب من ذلك ما تقدمت بطلبي هذا

(( إن لله عباداً اختصهم لقضاء حوائج الناس..........))

[أبوبسمله]

جزاك الله كل خير اخى حماده

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

وإن شاء الله قريبا ستجد احد اخواننا الافاضل يشاركك بالحل

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

والله اعلى واعلم

بالتوفيق اخى

[حماده سعد الله]

شكرا أخي  في الله الأستاذ المحترم والمحبب إلي قلبي بارك الله فيك وزادك من بحور علمه وشكرا علي زوقك واحترامك وهذا يكفيني

للعلم توصلت لكيفية طباعة الفورم و لا ينقصني الأن إلا  في أن يكون البحث بواسطة الرفم واسم الطالب والترتيب فقط .

تم تعديل فبراير 20, 2016 بواسطه حماده سعد الله

[أبوبسمله]

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

بالتوفيق اخى وجزاك الله كل خير على كلماتك الطيبه

[حماده سعد الله]

أرغب في أن يكون البحث بواسطة الرفم واسم الطالب والترتيب فقط .فلا يظهرالصف أو المذهب مثلا كما بالصورة

نتيجة بالدرجات.rar

[ياسر خليل أبو البراء]

أخي الكريم حمادة

جرب التعديل في الجزء الخاص ببدء تشغيل الفورم

Private Sub UserForm_Initialize()
    Dim C As Integer
    
    For C = 1 To ContColmn
        With ورقة1
            Me.Controls("xx" & C).Caption = .Cells(1, C).Value
        End With
    Next
    
    With ورقة1
        Me.ComboBox2.AddItem .Cells(1, 1).Value
        Me.ComboBox2.AddItem .Cells(1, 2).Value
        Me.ComboBox2.AddItem .Cells(1, 33).Value
    End With
    
    Me.ComboBox2.Style = 2
End Sub

تقبل تحياتي

 

[أبوبسمله]

هنيالك ياحماده

ابو البراء جابلك التعديل جزاك الله كل خير يا ابو البراء

بالتوفيق اخى

[حماده سعد الله]

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

[أبوبسمله]

تصدق ان حرام عليك ياحماده

وانا بقول ابو البراء معدلهاش ليه اتريك قافل محرر الاكواد بباسورد

طب اللى هيساعد هيساعدك ازاى يا عم حماده بزمتك

ياتفتحه ياتحط الباسورد

 

 

[حماده سعد الله]

عذرا أخي الباسورد هو     (sara2015h)

تم تعديل فبراير 21, 2016 بواسطه حماده سعد الله

[ياسر خليل أبو البراء]

أخي الكريم استبدل الجزء الأخير في الكود في الفورم المسمى Account بالكود عاليه

[أبوبسمله]

اتفضل اخى حماده

وده كود اخى ياسر

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

نتيجة بالدرجات.rar

[حماده سعد الله]

زادكما الله من فضله وأدخلكما أفضل جناته ووسع لكما في رزقه

[أبوبسمله]

جزاك الله كل خير على دعائك الطيب اخى حماده

بالتوفيق اخى

[حماده سعد الله]

يبدو هناك خطأ غير مقصود حيث تم المراد وأصبح البحث كما كنت أتمني ولكن عند تحديد البحث بواسطة الترتيب لا يعمل علما بأنه كان يعمل سابقا

[أبوبسمله]

راجع مره اخرى لانه يعمل لدى وبيطلع الاول الادبى والاول علمى وهكذا

فكيف لا يعمل عندك

 

[حماده سعد الله]

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

[أبوبسمله]

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

حاولت ولكن لعدم خبرتى معرفتش اعدل

هو السطر ده لما بضيفه تانى بيظبط البحث لكن بيرجع كل الاسماء لكنت مع الترتيب

 Me.ComboBox2.AddItem .Cells(1, C).Value

ربنا يبعتلك بقا ابو البراء او اى اخ كريم يعدلهالك يا اخ حماده

بالتوفيق

تم تعديل فبراير 21, 2016 بواسطه أحمد الفلاحجى

[حماده سعد الله]

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

(كمل جميلك يا باشا)

[أبوبسمله]

لا تستعجل اخى حماده

ان شاء الله فرج قريب

جزاه الله خيرا واعانه على هذه المسؤليه هو وكل اساتذتنا الافاضل

[ياسر خليل أبو البراء]

أخي الكريم حمادة

أنا لست متمكن بالفورم بالقدر الكافي الذي يمكنني من تقديم المساعدة والأكواد الموجودة تحتاج لبعض الوقت لدراستها جيداً لمعرفة أغوارها .. والوقت للأسف غير متوفر لدي بالشكل الكافي

أنا أقوم بالإطلاع بشكل سريع على الموضوعات وأقدم الحلول في الموضوعات التي لا تستغرق وقت طويل

إن شاء الله يساهم الأخوة المتمكنين في الفورم بتقديم المساعدة

تقبل تحياتي

[أبوبسمله]

2 دقائق مضت, ياسر خليل أبو البراء said:

أخي الكريم حمادة

أنا لست متمكن بالفورم بالقدر الكافي الذي يمكنني من تقديم المساعدة والأكواد الموجودة تحتاج لبعض الوقت لدراستها جيداً لمعرفة أغوارها .. والوقت للأسف غير متوفر لدي بالشكل الكافي

أنا أقوم بالإطلاع بشكل سريع على الموضوعات وأقدم الحلول في الموضوعات التي لا تستغرق وقت طويل

إن شاء الله يساهم الأخوة المتمكنين في الفورم بتقديم المساعدة

تقبل تحياتي

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

[ياسر العربى]

تفضل اخي الغالي لعله المطلوب

بعد اذن الغاليين

 

نتيجة بالدرجات.rar

نتيجة بالدرجات.rar

[أبوبسمله]

جزاك الله اخى ابو اسيل