fahd.nwelati@gmail.com قام بنشر أغسطس 11, 2015 مشاركة قام بنشر أغسطس 11, 2015 السلام عليكم و رحمة الله الإخوة الكرام أحتاج كود VBA يظهر تاريخ اليوم تلقائياً (دون أن يتغير في اليوم التالي) و ذلك عند تعبئة خلية مجاورة بأي رقم أكبر من الصفر و جزاكم الله عني كل خير فهد النويلاتي دمشق - سوريا كلية الاقتصاد رابط هذا التعليق شارك More sharing options...
خالد الرشيدى قام بنشر أغسطس 11, 2015 مشاركة قام بنشر أغسطس 11, 2015 (معدل) اخى الكريم جرب الكود التالى فى حدث ورقة العمل قم بوضع اى رقم اكبر من الصفر فى العمود A ستجد ان الخلية المجاورة فى العمود B بها تاريخ اليوم Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("a1:a10000")) Is Nothing Then VBA.Calendar = vbCalGreg If Target > 0 Then With Target(1, 2) .Value = Format(Date, "yyyy/mm/dd") .EntireColumn.AutoFit End With End If End If End Sub الكود فى حدث ورقة العمل Book1.rar تم تعديل أغسطس 11, 2015 بواسطه خالد الرشيدى رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 11, 2015 مشاركة قام بنشر أغسطس 11, 2015 أخي الكريم أهلاً بك في المنتدى ونورت بين إخوانك من فضلك ارفق الملف بعد ضغطه ليسهل الوصول لحل قم بالإطلاع على موضوع التوجيهات في الموضوعات المثبتة بالمنتدى لتعرف كيفية التعامل مع المنتدى رابط هذا التعليق شارك More sharing options...
خالد الرشيدى قام بنشر أغسطس 12, 2015 مشاركة قام بنشر أغسطس 12, 2015 اليك المرفق بعد عمل تعديل بسيط على الكود بحيث يتم حذف التاريخ المدرج حال انه تم ادخال رقم اكبر من 0 فى خلية ما ثم تغيير قيمة هذه الخلية الى 0 Book1_2.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 12, 2015 مشاركة قام بنشر أغسطس 12, 2015 أخي الحبيب خالد الرشيدي بارك الله فيك وجزاك الله كل خير ..إبداع متواصل بلا فواصل إليك تعديل بسيط جداً ..بحيث تتعامل مع الأرقام فقط أكبر من الصفر .. أي تجنباً للنصوص والتواريخ المدخلة في العمود الأول وكذلك عمل تنسيق لللتاريخ بحيث يتناسب مع يوم / شهر / سنة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A1:A100")) Is Nothing Then VBA.Calendar = vbCalGreg If Target > 0 And IsNumeric(Target) Then With Target(1, 2) .Value = Format(Date, "[$-1010000]yyyy/mm/dd;@") .EntireColumn.AutoFit End With Else Target(1, 2).ClearContents End If End If End Sub 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أغسطس 12, 2015 مشاركة قام بنشر أغسطس 12, 2015 السلام عليكم زيادة في اثراء الموضوع اليكم هذا الملف تاريخ تلقائي.zip 1 رابط هذا التعليق شارك 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.