طلب برنامج في الاكسل يعطي اشارة عن قرب التاريخ

[البعيد]

طلب برنامج في الاكسل يعطي اشارة عن قرب التاريخ

مثل اني اضع وصف للمعلومه اين كانت
تاريخ انتهاء رخصة اوتاريخ ميلاد او موعد تطعيم وهكذا وفي العامود الثاني التاريخ المكتوب من قبلي للموعد والعامود الثالث عدد الايام المتبقية ويعطي لون احمر
هل ممكن تدلوني عليه

تم تعديل ديسمبر 29, 2008 بواسطه البعيد

[عادل حنفي]

السلام عليكم

اخي تم عمل الكود ليعمل حتي الصف ال 100

يوجد خانه لتحدد فيها عدد الايام التي يعطي التنبيه عنده و انا حددتها هنا ب -7 اي قبل الميعاد بسبعة ايام

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

تحياتي

_______.rar

تم تعديل ديسمبر 29, 2008 بواسطه aah_aah2008

[omar1]

السلام عليكم

يمكنك اخى استخدام التنسيق الشرطي بمقارنة التاريخ مع تاريخ اليوم

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

[البعيد]

ياسلام عليك

صحيح انك مشرف ابصم بالخمس انك مشرف يالaah_aah2008

الف شكر لك والشكر موصول الاخ omar1

حتى الان يلبي رغبتي

هل يمكنني ان اطلب تعديل عليه لاحقاَ في التاريخ وغيره

[عادل حنفي]

السلام عليكم

مرحبا بك و باي طلبات للتعديل

[مصطفى كمال]

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

بعد إذن الأخ الفاضل aah_aah2008 ومشرف القسم

تفضل أخي الكريم الملف التالي

Classeur1.rar

[nicesound]

السلام عليكم

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

شكرا

[عادل حنفي]

السلام عليكم

بدون استئذان اخي مصطفي فالكل يريد المصلحة العامه

اخي nicesound تفضل

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Column <> 2 Then Exit Sub
For i = 4 To 100
If Cells(i, 2) > 0 Then
Cells(i, 3).Select
ActiveCell.FormulaR1C1 = "=TODAY()-RC[-1]"
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
        Formula1:="-1", Formula2:="=$C$2"
    Selection.FormatConditions(1).Interior.ColorIndex = 46
End If
Next
Application.ScreenUpdating = False
End
End Sub

مع ملاحظة ان هذا الكود يضع الconditional formatting مباشرة للخلية دون عملها يدويا

تحياتي

تم تعديل ديسمبر 31, 2008 بواسطه aah_aah2008

[البعيد]

اشكر اخيnicesound

لكن التغيير الشرطي في الملف الاول مع الملف الثاني كيف السبيل الى الوصول لهم

حيث يوجد مشكل في جهاز المنزل الخاص فيني الاوفيس 2007

هذه هي الصورة

وكذلك هل يمكنني ان اضيف التاريخ الهجري الى المستند ام لا حيث اريد ان اضيف معاده التارخ الهجر بالعربي في الخلية I اوJ

وكذلك كيف تغير التاريخ الصغير الى التاريخ الطويل واخر سؤال كيفة تغيير لون الخلية البرتقالي

ولك مني الف تحية

[البعيد]

هذا الملف بعد لمسات خفيفة علية بعد اذنك

http://up1.m5zn.com/download-2008-12-31-10-z0timerqx.xls

تم تعديل يناير 1, 2009 بواسطه البعيد

[nicesound]

اشكر الجميع على المعلومه

الملف اشتغل وميه ميه

[محمد عسكر]

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

بعد إذن جميع الأساتذه المشاركين ,

و لكن اريد اضافة معادله استخدمها دائما

تعطي المده المتبقية باليوم و كتابه التعليق

و شكرا لكم

_______________________________________.rar

[فؤاد ياس]

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

شكرا لجميع الاخوة الاساتذة الخبراء

هذا البرنامج افادني جدا

من جديد شكرا على جهودكم

[البعيد]

مازلت انتظر التعديلات فضلا وليس امرا