سلطـان الاول قام بنشر مارس 22, 2013 مشاركة قام بنشر مارس 22, 2013 بسم الله الرحمن الرحيم اخوكم في الله عضو جديد استفاد من هذا المنتدى المميز والرائع باعضائه الكرام اسال الله العظيم رب العرش العظيم ان يجزاكم خير الجزاء وان يرزقكم من فضله وان يكثر من امثالكم المحبين لفعل الخير ما شاء الله ولا قوة الا باللهارجوا ان تتقبلوا فائق احترامي وتقديري ولدي استفسار بسيط موضح في الصورة المرفقة رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مارس 22, 2013 مشاركة قام بنشر مارس 22, 2013 السلام عليكم الاخ الكريم / سلطـان الاول بارك الله فيك اخي الكريم قم بوضع الصورة في المرفقات او رفعها بطريقة صحيحة حيث قمت بمحاولة فتح او تحميل الصورة المرفقة ولم يمكنني ذلك ولا اعلم ان كان احد الاخوة قد رأي الصورة وامكنها تحميلها ام لا قم بوضعها في المرفقات لسهولة تحميلها والاطلاع علي المشكلة جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
سلطـان الاول قام بنشر مارس 22, 2013 الكاتب مشاركة قام بنشر مارس 22, 2013 السلام عليكم الاخ الكريم / سلطـان الاول بارك الله فيك اخي الكريم قم بوضع الصورة في المرفقات او رفعها بطريقة صحيحة حيث قمت بمحاولة فتح او تحميل الصورة المرفقة ولم يمكنني ذلك ولا اعلم ان كان احد الاخوة قد رأي الصورة وامكنها تحميلها ام لا قم بوضعها في المرفقات لسهولة تحميلها والاطلاع علي المشكلة جزاك الله خيرا اولا اشكر تفضلك بالرد السريع جزاك الله خير بارك الله فيك وابشر لقد ارفقتها رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مارس 22, 2013 مشاركة قام بنشر مارس 22, 2013 السلام عليكم الاخ الكريم / سلطـان الاول بارك الله فيك اخي الكريم ... علي حسب علمي لايمكن عمل ذلك بالمعادلات حيث ان المعادلة ستكون دائما مربوطة بتاريخ الحاسب واليك الكود التالي ... يعمل علي اضافة تاريخ اليوم ... وعند تغغير تاريخ اليوم لا يتغير التاريخ في الخلية الموجود بها التاريخ وذلك بناءا علي قيمة العمود C كما هو موضح بالطلب شاهد المرفق .... جزاك الله خيرا Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("C2:C10000")) Is Nothing Then VBA.Calendar = vbCalGreg If IsEmpty(Target) Then Target(1, -1).ClearContents Else With Target(1, -1) .Value = Date .EntireColumn.AutoFit End With End If End If End Sub اضافة تاريخ في عمود بناءا علي عمود.rar 1 رابط هذا التعليق شارك More sharing options...
سلطـان الاول قام بنشر مارس 22, 2013 الكاتب مشاركة قام بنشر مارس 22, 2013 السلام عليكم الاخ الكريم / سلطـان الاول بارك الله فيك اخي الكريم ... علي حسب علمي لايمكن عمل ذلك بالمعادلات حيث ان المعادلة ستكون دائما مربوطة بتاريخ الحاسب واليك الكود التالي ... يعمل علي اضافة تاريخ اليوم ... وعند تغغير تاريخ اليوم لا يتغير التاريخ في الخلية الموجود بها التاريخ وذلك بناءا علي قيمة العمود C كما هو موضح بالطلب شاهد المرفق .... جزاك الله خيرا Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("C2:C10000")) Is Nothing Then VBA.Calendar = vbCalGreg If IsEmpty(Target) Then Target(1, -1).ClearContents Else With Target(1, -1) .Value = Date .EntireColumn.AutoFit End With End If End If End Sub اضافة تاريخ في عمود بناءا علي عمود.rar اشكر ايه الامير باخلاقك وروحك ونفسك الزكية الطيبة سوف يتم التجريب ولو ان الكود يعقد الملف بالامن رابط هذا التعليق شارك More sharing options...
سلطـان الاول قام بنشر مارس 22, 2013 الكاتب مشاركة قام بنشر مارس 22, 2013 السلام عليكم الاخ الكريم / سلطـان الاول بارك الله فيك اخي الكريم ... علي حسب علمي لايمكن عمل ذلك بالمعادلات حيث ان المعادلة ستكون دائما مربوطة بتاريخ الحاسب واليك الكود التالي ... يعمل علي اضافة تاريخ اليوم ... وعند تغغير تاريخ اليوم لا يتغير التاريخ في الخلية الموجود بها التاريخ وذلك بناءا علي قيمة العمود C كما هو موضح بالطلب شاهد المرفق .... جزاك الله خيرا Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("C2:C10000")) Is Nothing Then VBA.Calendar = vbCalGreg If IsEmpty(Target) Then Target(1, -1).ClearContents Else With Target(1, -1) .Value = Date .EntireColumn.AutoFit End With End If End If End Sub اضافة تاريخ في عمود بناءا علي عمود.rar ما شاء الله تبارك الله 100% تقبل فائق احترامي وقديري لشخصك اكريم رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مارس 22, 2013 مشاركة قام بنشر مارس 22, 2013 السلام عليكم الاخ الكريم / سلطـان الاول بارك الله فيك اخي الكريم وجزيل شكري لكلماتك الاكثر من راائعة وستسعد كثيرا ( ان شاء الله ) بالانضمام الي اسرة اوفيسنا جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
ضاحي الغريب قام بنشر مارس 22, 2013 مشاركة قام بنشر مارس 22, 2013 اخي حمادة عمر دائما وابدا سباق لفعل الخيرات بارك الله فيك وزادك من علمه رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مارس 22, 2013 مشاركة قام بنشر مارس 22, 2013 السلام عليكم الاخ الحبيب / ضاحي الغريب بارك الله فيك جزيل شكري وامتناني لمرورك وثناءك الكريم جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.