البحث في الموقع
Showing results for tags 'كود تجميد التاريخ التلقائي'.
تم العثور علي 1 نتيجه
-
السلام وعليكم ورحمة الله وبركاته لو سمحتم المساعدة في تغيير الكود فيجوال بيسك لينطبق على كامل خلايا العمودين اتش 1 واف 1. قمت بعمل فورميلا تقوم بإضافة التاريخ التلقائي في الخلية اف 1 وذألك عند الكتابة في الخلية اتش 1 =IF(H3="","",(TODAY())) ولكن المشكلة انه في اليوم التالي يتغير التاريخ تلقائيا ولا يبقى على حالة, أي انه يحدث نفسة تلقائيا. ولذألك قمت بوضع الكود فيجوال بيسك في الأسفل وذألك لوقف التحديث التلقائي للتاريخ أي انه يسمح للتاريخ بالتحديث مرة فقط وذألك حسب الشرط وهو الكتابة في الخلية اتش 1. Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, [H1]) Is Nothing Then [F1] = Date End If End Sub المطلوب: هو اني اريد الكود ان ينطبق على كامل العمود اتش 1 واف 1 وليس فقط لصف واحد. شكرا جزيلا Test 2.rar
