تحول المعادلة

[samycalls2020]

السلام عليكم

هل يمكن ..

تحول المعادلة الى قيمة ثابته بشرط

///////////////////////// وماهو الشرط ؟؟..............

تحويل معادلة التاريخ الى ناريخ عادى بشرط.rar

[samycalls2020]

الشرط أخى الكريم ..

عند تساوى تاريخ المعادلة مع التاريخ العادى تتحول المعادلة الى تاريخ عادى

وهذا شرح أكثر فى المرفق

تحويل معادلة التاريخ الى ناريخ عادى بشرط.rar

تم تعديل فبراير 16, 2018 بواسطه samycalls2020

[شوقي ربيع]

السلام عليكم

على حسب مافهمت من سؤالك جرب هذا الكود

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

 

[سليم حاصبيا]

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

[samycalls2020]

أشكر الاستاذ / شوقى على مشاركته

كما اشكر أخونا الكريم سليم .. وارجو منه أن يكون الكود تلقائى

[سليم حاصبيا]

الكود التلقائي

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

 

[samycalls2020]

بتغير التاريخ فى الكمبيوتر ليتساوى مع أى تاريخ فى العمود F ثم نفتح الملف لايتم تغير التاريخ تلقائى من المعادلة

الى التاريخ العادى إلا إذا وقفنا على الخلية وعملنا دبل كليك

 حيث ان الكود يتعامل مع اي تغيير قي العامود  D او العامود F 

يجب ان تكتب تاريخاً في العمود D او العامود F  في خلية واحدة كل مرة ليتم تنفيذ الكود

[samycalls2020]

في ١٦‏/٢‏/٢٠١٨ at 18:47, samycalls2020 said:

حيث ان الكود يتعامل مع اي تغيير قي العامود  D او العامود F 

يجب ان تكتب تاريخاً في العمود D او العامود F  في خلية واحدة كل مرة ليتم تنفيذ الكود

التواريخ جميعها مكتوبة مسبقاً .. فهل يمكن أن يعمل الكود بمجرد فتح الملف

[samycalls2020]

اضافة على كود الأخ الفاضل / شوقى ربيع

ليعمل الكود تلقائى عند فتح الملف

تحويل معادلة التاريخ الى ناريخ عادى بشرط Shwky.xlsm

[samycalls2020]

عظيم أمتنانى وتقديرى لكل من شارك