abouelhassan قام بنشر أكتوبر 18, 2011 قام بنشر أكتوبر 18, 2011 الاخوة الاساتذة الافاضل احب ان اتقدم بالشكر للاستاذ ابو احمد المحترم لتعبه الشديد معى برجاء التكرم اريد ان يتم كتابة التاريخ بشكل تلقائيا 20/11/2011 بالون الاحمر فى العمودA بمجرد ان يتم الكتابة فى العمود Bولايتغير ويظل ثابت حتى ان تم حذف البيان فى العمود B وكذلك ان لايتكرر الرقم فى العمود C وذلك فى كل اوراق العمل مهما كان عددها بمعنى كل شيت اقوم بأضافته فى ورقة العمل تتم هذه العملية اخيكم باحترام شديد التاريخ تلقائيا وعدم التكرار.rar
عبدالله المجرب قام بنشر أكتوبر 19, 2011 قام بنشر أكتوبر 19, 2011 اخي ابو حسن هل تقصد تاريخ اليوم ام تاريخ ثابت بالنسبة لعدم تكرار اي قيمة لقد قمت بشرحه لك في المشاركة السابقة والله اعلم
abouelhassan قام بنشر أكتوبر 19, 2011 الكاتب قام بنشر أكتوبر 19, 2011 نعم اخى اشكرك تاريخ اليوم لكل اوراق العمل حتى لو اضفت اوراق جديدة ولايتغير بتغير التاريخ بارك الله فيك
عبدالله المجرب قام بنشر أكتوبر 19, 2011 قام بنشر أكتوبر 19, 2011 اخي ابو الحسن ضع هذا الكود في حدث اي ورقة تريد ان يتم تنفيذ المطلوب فيها Private Sub Worksheet_Change(ByVal Target As Range) LR = Range("B" & Rows.Count).End(xlUp).Row If Target.Column <> 2 Then Exit Sub If Target.Row > LR Then Exit Sub For i = 2 To LR If Cells(i, 2).Value <> "" Then Cells(i, 1).Value = Date End If Next i End Sub وان شاء الله يفي بالغرض
ياسر الحافظ قام بنشر أكتوبر 19, 2011 قام بنشر أكتوبر 19, 2011 الاخوة الاساتذة الافاضل احب ان اتقدم بالشكر للاستاذ ابو احمد المحترم لتعبه الشديد معى اعتقد ان اخونا الاستاذ ابو احمد " عبد الله المجرب " دينمو الموقع ... لا تكفيه كلمات الشكر لو اجتمعت كلها بكلمة واحدة منا جميعا كل الحب والتقدير لشخصه الكريم وجزاك الله كل الخير اخي ابو احمد ابو الحارث
abouelhassan قام بنشر أكتوبر 19, 2011 الكاتب قام بنشر أكتوبر 19, 2011 الله يبارك لك اخى على كل ما تفعله جعله الله بميزان حسناتك اخيك بمنتهى الاحترام والتقدير
الـعيدروس قام بنشر أكتوبر 19, 2011 قام بنشر أكتوبر 19, 2011 السلام عليكم جزاك الله خير استاذ عبدالله المجرب وهذا كود اخر يقوم بنفس العمل Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("b2:b100")) Is Nothing Then With Target(1, 0) .NumberFormat = "[$-1010000]yyyy/mm/dd;@" .Value = Date .EntireColumn.AutoFit End With End If End Sub
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.