تذكير بتاريخ الإنتهاء من خلال الفورم

**الزباري** · مارس 15, 2016

من المواضيع المتجددة والمفيدة في الحياة العملية وخاصة لأصحاب العقارات، وقد تم طرحه سابقاً، وهي كيفية معرفة العقود التي قاربت على الانتهاء خلال 30 يوماً من خلال الفورم..

تحيـــــــــــــــــــــــاتي القلبيــــــــــــــــــــــة

تذكير بتاريخ الانتهاء.rar

**محمد حسن المحمد** · مارس 15, 2016

السلام عليكم أخي الكريم الزباري

جزاكم الله خيراً على هذا العمل المتقن

وإلى المزيد من الأعمال الرائدة والهامة التي نترقبها بتميز ودقة

والسلام عليكم

ياسر خليل أبو البراء · مارس 15, 2016

أخي الحبيب الزباري

الملف لا يتم تحميله ..يرجى إعادة رفع الملف مرة أخرى

تقبل وافر تقديري واحترامي

**أبو قاسم** · مارس 15, 2016

السلام عليكم

لايفتح الرابط

**الزباري** · مارس 16, 2016

تذكير بتاريخ الانتهاء.rar

لا أعلم مالمشكلة ولكن تمت إعادة رفع الملف

**أبوبسمله** · مارس 16, 2016

تم التحميل من الملف الاخير

جزاك الله خيرا جعله الله فى ميزان حسناتك

ياسر خليل أبو البراء · مارس 16, 2016

بارك الله فيك أخي الغالي الزباري على الهدية الجميلة والرائعة

تقبل وافر تقديري واحترامي

**الزباري** · مارس 20, 2016

تلميذك يا أبوالبراء

:signthankspin:

عبدالله فريد · مارس 20, 2016

السلام عليكم

ارجو ايضاح طريقة وضع الكود داخل الشكل

ياسر خليل أبو البراء · مارس 21, 2016

أخي العزيز عبد الله فريد

ماذا تقصد بوضع الكود داخل الشكل .. هل تقصد وضع الكود في المشاركات

هكذا من علامتي <>

Code

أم تقصد وضع الكود داخل موديول ..

إذا كان قصدك الثاني فيرجى الإطلاع على موضوع (بداية الطريق لانقاذ الغريق) في فهرس الموضوعات الخاصة بي في التوقيع

تقبل تحياتي

عبدالله فريد · مارس 21, 2016

اخي ابا البراء

انا لا اعرف كيف اضع الكود داخل الشكل عند الضغط على الشكل المستطيل يجلب الفورم

ياسر خليل أبو البراء · مارس 21, 2016

أخي الكريم عبد الله فريد

لا أعلم مشكلتك بالضبط .. وضح المشكلة أكثر ولو بالصور ..

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

بالنسبة للفورم بتعمل كليك يمين ثم الأمر View Code هيظهر لك نافذة الكود الخاصة بالفورم ...أرجو أن يكون المطلوب

تقبل تحياتي

عاطف عبد العليم محمد · مارس 22, 2016

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

أخي الكريم الزباري

أريد تكبير الفورم ليظهر اي بيانات مكتوبة تحت عمود الاسم أو عمود رقم الشقة ( سأدخل فيهما بيانات اخرى) فكيف بارك الله فيك

**ابو القبطان** · مارس 22, 2016

بعد اذن الاستاذ : الزباري

نفس الفورم , .. باستخدام آخر وهو التحصيل ( اي بيانات تعتمد على التاريخ )

تاريخ اليوم سيتغير لونه الى الاحمر بضغط زر الصورة يسار جدول البيانات ويتم فصل بيانات تاريخ اليوم لتظهر في اليوزرفورم

اليوزر فورم يمكن طباعته من خلال زر بصورة الطابعة

اغلاق اليوزرفورم من خلال الصورة بجوار الطابعة

اعتقد انه يتناسب مع طلب الصديق : عاطف عبد العليم

بالتوفيق

تذكير بموعد التحصيل.rar

ياسر خليل أبو البراء · مارس 22, 2016

بدأت تطلع قماش !!

بارك الله فيك أخي وحبيبي أبو القبطان وجزاكم الله خير الجزاء

تقبل تحياتي

**ابو القبطان** · مارس 22, 2016

حبيب الكل وفاكهة المنتدى.. استاذ ياسر خليل

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

تشرفنا بمعسول كلماتك

**محمد حسن المحمد** · مارس 22, 2016

السلام عليكم

بارك الله بكم إخوتي الكرام أرى أنه بدأ أوفيسنا يشهد لم شمل جميل وأرجو الله أن يتم نعمته علينا بعودة إخوة كرام نتشرف بأن يكونوا بيننا لما سمعنا عنهم وعن أخلاقهم الحسنة ومعاملتهم الطيبة..

هنيئا لأوفيسنا برجوع غيابه وعقبى لنا أن نرجع لأهلنا بعد طول غياب

والسلام عليكم.

عاطف عبد العليم محمد · مارس 23, 2016

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

اخي ابو القبطان

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

وجدت 2 ماكرو واظن ان الماكرو الثاني لايخص الموضوع بس باين انه شغل تمام

Picture1_Click

Picture2_Click

وفقك الله

ياسر خليل أبو البراء · مارس 23, 2016

أخي الغالي وحبيبي في الله أبو القبطان ..

الملف سيء !! أيوا سيء !! أيوا زي ما بقولك كدا سيء@@ زعلت ؟؟!

حقك عليا ! الملف جيد أيوا جيد .. بقولك جيد

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

بالأمس لم أطلع على الملف الجيد بشكل جيد .. لكن أتيحت لي الفرصة أن أطلع عليه فوجدت الأكواد جميلة ولكنها تحتاج لترتيب .. نريد أن نتعود عند إرفاق ملفات بالمنتدى أن تكون الأمور مرتبة ومنطقية .. ويتم إزالة الشوائب منها

أولاً بالنسبة للكود في حدث المصنف وجدت أنه نفس الكود في موديول رقم 1 ..فلما التكرار الغير مرغوب فيه؟!

يمكن الإبقاء على الكود في الموديول رقم 1 والإشارة إلي اسم الإجراء الفرعي في حدث فتح المصنف باستخدام كلمة Call يليها اسم الإجراء الفرعي

ثانياً وجدت كود يخص الفورم في الموديول العادي !! ليس مكانه

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

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

ضع الكود التالي في حدث المصنف ThisWorkbook

Private Sub Workbook_Open()
    Call Picture1_Click
End Sub

والكود التالي يوضع في الموديول رقم 1

Sub Picture1_Click()
    Dim I As Long, lastRow As Long
    Dim Name1 As String

    lastRow = Sheet1.Cells(Rows.Count, 2).End(xlUp).Row
    For I = 2 To lastRow

        Cells(I, 4).Interior.ColorIndex = xlNone
        Cells(I, 4).Font.ColorIndex = xlAutomatic
        Cells(I, 4).Font.Bold = False

        If Cells(I, 4) = Date Then
            With UserForm1.ListBox1
                .AddItem
                .List(.ListCount - 1, 0) = Sheet1.Cells(I, 1).Text
                .List(.ListCount - 1, 1) = Sheet1.Cells(I, 2).Text
                .List(.ListCount - 1, 2) = Sheet1.Cells(I, 3).Text
                .List(.ListCount - 1, 3) = Sheet1.Cells(I, 4).Text
                .List(.ListCount - 1, 4) = Sheet1.Cells(I, 5).Text
                .List(.ListCount - 1, 5) = Sheet1.Cells(I, 6).Text
                .List(.ListCount - 1, 6) = Sheet1.Cells(I, 7).Text
                .List(.ListCount - 1, 7) = Sheet1.Cells(I, 8).Text
            End With
            
            Cells(I, 4).Interior.ColorIndex = 3
            Cells(I, 4).Font.ColorIndex = 2
            Cells(I, 4).Font.Bold = True
        End If
    Next I
    UserForm1.Show
End Sub

والكود التالي يوضع في حدث الفورم

Private Sub CommandButton1_Click()
    End
End Sub

Private Sub Image1_Click()
    UserForm1.PrintForm
End Sub

Private Sub Image2_Click()
    UserForm1.PrintPreviewForm
End Sub

Private Sub UserForm_Activate()
    lblDate.Caption = Date
End Sub

أرجو ألا أكون قد أزعجتك .. ولكني أحب أن أرى الأشياء في أجمل صورة لها ، وحتى يستفيد منها من أرد الاستفادة لا أن تكون مجرد ملف مرفق يلقى به في مكانٍ ما ويطويه النسيان

أردت الاستفادة للجميع من الملف الرائع ولكن بصورة أفضل

تقبل تحياتي

**محمد حسن المحمد** · مارس 23, 2016

**أبوبسمله** · مارس 23, 2016

3 دقائق مضت, محمد حسن المحمد said:

ابا يوسف انت عندك ٢٠ اعجاب فقط ليه

انا عندى ٢٨

لا اعلم ما هذا ولكن اعجابتى بتخلص بسرعه برضه

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

احبك فى الله

آمل أن تجدنى عند حسن ظنك اخى الغالى

**محمد حسن المحمد** · مارس 23, 2016

الان, أحمد الفلاحجى said:

ابا يوسف انت عندك ٢٠ اعجاب فقط ليه

انا عندى ٢٨

لا اعلم ما هذا ولكن اعجابتى بتخلص بسرعه برضه

السلام عليكم ...أخي الحبيب أحمد أبو بسملة

مدعوم من قدك...من داعمك؟؟؟!!!..

هههههههه لعلنا من المحبة جانباً..

والسلام عليكم.

ياسر خليل أبو البراء · مارس 23, 2016

أبي الغالي أبو يوسف

يكفيني مرورك بأي مشاركة فهذا عندي أغلى وأفضل من آلاف الإعجابات

أخي الحبيب الفلاحجي

مشكور على مرورك العطر وجزيت خيراً بمثل ما دعوت لي

**أبوبسمله** · مارس 23, 2016

لا بجد ايه ده يا ابو البراء

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

لانى قمت بمراسلة الاستاذ محمد طاهر لزيادتها ايام مكانت ١٠ اعجابات فقط واستجاب مشكورا لرفعها الى ٢٨ فى اليوم ونرجو زيادتها فهناك من يستحقون الاعجاب وممكن ننساهم سهوا لعدم وجود الاعجابات

ابوحمزه المصرى · مارس 23, 2016

السلام عليكم أخي الكريم الزباري

عمل رائع ومميز ... جزاكم الله خيراً

سجل اعجاب بهذا

تسجيل الدخول

تذكير بتاريخ الإنتهاء من خلال الفورم

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

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

اخي ابو القبطان

Join the conversation

محتوي مشابه

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

Important Information