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

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


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

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

 

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

 

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

  • Like 4
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

 

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

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

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

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

Code

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

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

تقبل تحياتي

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

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

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

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

 

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

تقبل تحياتي

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

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

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

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

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

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

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

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

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

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

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

بالتوفيق

 

 

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

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

السلام عليكم 

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

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

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

 

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

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

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

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

وجدت 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

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

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

تقبل تحياتي

 

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

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

التقاط4.PNG

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

انا عندى ٢٨

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

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

احبك فى الله

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

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

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

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

انا عندى ٢٨

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

 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information