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

[الزباري]

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

 

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

 

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

[محمد حسن المحمد]

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

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

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

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

 

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

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

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

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

[أبو قاسم]

السلام عليكم 

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

[الزباري]

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

 

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

[أبوبسمله]

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

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

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

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

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

 

[الزباري]

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

[عبدالله فريد]

السلام عليكم

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

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

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

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

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

Code

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

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

تقبل تحياتي

[عبدالله فريد]

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

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

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

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

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

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

 

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

تقبل تحياتي

[عاطف عبد العليم محمد]

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

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

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

[ابو القبطان]

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

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

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

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

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

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

بالتوفيق

 

 

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

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

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

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

تقبل تحياتي

[ابو القبطان]

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

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

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

[محمد حسن المحمد]

السلام عليكم 

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

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

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

 

[عاطف عبد العليم محمد]

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

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

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

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

Picture1_Click

Picture2_Click وفقك الله

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

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

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

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

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

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

أولاً بالنسبة للكود في حدث المصنف وجدت أنه نفس الكود في موديول رقم 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

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

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

تقبل تحياتي

 

[محمد حسن المحمد]

[أبوبسمله]

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

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

انا عندى ٢٨

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

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

احبك فى الله

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

[محمد حسن المحمد]

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

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

انا عندى ٢٨

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

 

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

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

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

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

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

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

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

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

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

[أبوبسمله]

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

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

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

[ابوحمزه المصرى]

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

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

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