samycalls2020 قام بنشر فبراير 16, 2018 مشاركة قام بنشر فبراير 16, 2018 السلام عليكم هل يمكن .. تحول المعادلة الى قيمة ثابته بشرط ///////////////////////// وماهو الشرط ؟؟.............. تحويل معادلة التاريخ الى ناريخ عادى بشرط.rar رابط هذا التعليق شارك More sharing options...
samycalls2020 قام بنشر فبراير 16, 2018 الكاتب مشاركة قام بنشر فبراير 16, 2018 (معدل) الشرط أخى الكريم .. عند تساوى تاريخ المعادلة مع التاريخ العادى تتحول المعادلة الى تاريخ عادى وهذا شرح أكثر فى المرفق تحويل معادلة التاريخ الى ناريخ عادى بشرط.rar تم تعديل فبراير 16, 2018 بواسطه samycalls2020 رابط هذا التعليق شارك More sharing options...
شوقي ربيع قام بنشر فبراير 16, 2018 مشاركة قام بنشر فبراير 16, 2018 السلام عليكم على حسب مافهمت من سؤالك جرب هذا الكود Sub NewDate() Dim i As Byte: For i = 6 To 20 If Range("f" & i).Text = Format(Range("d" & i).Value, "yyyy/mm/dd") Then Range("d" & i).Value = Format(Range("d" & i).Value, "yyyy/mm/dd") Else Range("d" & i).FormulaR1C1 = "=NOW()" End If Next End Sub رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 16, 2018 مشاركة قام بنشر فبراير 16, 2018 Option Explicit Sub fixe_date() Dim i%: i = 6 Do Until Cells(i, 4) = vbNullString If Int(Cells(i, 4)) = Cells(i, 6) Then _ Cells(i, 4).Value = Int(Cells(i, 4).Value) i = i + 1 Loop End Sub يعد اذن اخي شوقي هذا الكود الملف مرفق تحويل معادلة التاريخ الى ناريخ عادى بشرط salim.xlsm 1 رابط هذا التعليق شارك More sharing options...
samycalls2020 قام بنشر فبراير 16, 2018 الكاتب مشاركة قام بنشر فبراير 16, 2018 أشكر الاستاذ / شوقى على مشاركته كما اشكر أخونا الكريم سليم .. وارجو منه أن يكون الكود تلقائى رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 16, 2018 مشاركة قام بنشر فبراير 16, 2018 الكود التلقائي Private Sub Worksheet_Change(ByVal Target As Range) Dim i%: i = 6 Dim My_rg As Range Set My_rg = Union(Range("d6").CurrentRegion, Range("f6").CurrentRegion) Application.EnableEvents = False If Not Intersect(Target, My_rg) Is Nothing And Target.Cells.Count = 1 Then Do Until Cells(i, 4) = vbNullString If Int(Cells(i, 4)) = Cells(i, 6) Then _ Cells(i, 4).Value = Int(Cells(i, 4).Value) i = i + 1 Loop End If Application.EnableEvents = True End Sub رابط هذا التعليق شارك More sharing options...
samycalls2020 قام بنشر فبراير 16, 2018 الكاتب مشاركة قام بنشر فبراير 16, 2018 بتغير التاريخ فى الكمبيوتر ليتساوى مع أى تاريخ فى العمود F ثم نفتح الملف لايتم تغير التاريخ تلقائى من المعادلة الى التاريخ العادى إلا إذا وقفنا على الخلية وعملنا دبل كليك حيث ان الكود يتعامل مع اي تغيير قي العامود D او العامود F يجب ان تكتب تاريخاً في العمود D او العامود F في خلية واحدة كل مرة ليتم تنفيذ الكود رابط هذا التعليق شارك More sharing options...
samycalls2020 قام بنشر فبراير 16, 2018 الكاتب مشاركة قام بنشر فبراير 16, 2018 في ١٦/٢/٢٠١٨ at 18:47, samycalls2020 said: حيث ان الكود يتعامل مع اي تغيير قي العامود D او العامود F يجب ان تكتب تاريخاً في العمود D او العامود F في خلية واحدة كل مرة ليتم تنفيذ الكود التواريخ جميعها مكتوبة مسبقاً .. فهل يمكن أن يعمل الكود بمجرد فتح الملف رابط هذا التعليق شارك More sharing options...
samycalls2020 قام بنشر فبراير 16, 2018 الكاتب مشاركة قام بنشر فبراير 16, 2018 اضافة على كود الأخ الفاضل / شوقى ربيع ليعمل الكود تلقائى عند فتح الملف تحويل معادلة التاريخ الى ناريخ عادى بشرط Shwky.xlsm رابط هذا التعليق شارك More sharing options...
samycalls2020 قام بنشر فبراير 17, 2018 الكاتب مشاركة قام بنشر فبراير 17, 2018 عظيم أمتنانى وتقديرى لكل من شارك رابط هذا التعليق شارك 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.