لدي مربع اختيار يضيف التاريخ والوقت ولكن للاسف يتغير كل مرة

[ابوعلي الحبيب]

السلام عليكم 

 

ياكرام 

لدي مربع اختيار  

يضيف التاريخ والوقت

عند اختيار 

ولكن للاسف يتغير عن الاختيار الاخر

يتغير الوقت والتاريخ كل مرة 

وانا اريدة ثابت عندما اقوم بختيارة 

ولا يتاثر عن الاختيار

 

وكذالك جربت طريقة ثانية ولم تنجح

مرفق صور المعادلة

الاخر امل المساعدة 

 

 

ولكم جزيل الشكر 

 

مرفق الملف

مربع اختيار يضيف التاريخ والوقت عند الاختيار.xlsm

تم تعديل منذ 9 ساعات بواسطه ابوعلي الحبيب

[Foksh]

4 ساعات مضت, ابوعلي الحبيب said:

السلام عليكم 

 

وعليكم السلام ورحمة الله وبركاته ,,,

بعد عدة محاولات من خلال المعادلات ، وجدت أنه من الصعب عدم تحديث الخلايا الغير معنية بالإدراج ، لذا توجهت الى استخدام الماكرو التالي :-

Sub FokshCheckBox()
    Dim chk As CheckBox
    Dim rng As Range
    Dim rowNum As Long
    
    For Each chk In ActiveSheet.CheckBoxes
        Set rng = chk.TopLeftCell
        rowNum = rng.Row
        
        If chk.Value = xlOn Then
            If IsEmpty(Cells(rowNum, "A").Value) Then
                Cells(rowNum, "A").Value = Now
            End If
        ElseIf chk.Value = xlOff Then
            Cells(rowNum, "A").ClearContents
        End If
    Next chk
End Sub

 

وعليه ، فيتم استدعائه في جميع الـ CheckBoxes التي لديك فقط ، دون ربط العناصر ببعضها ..

ملفك بعد التعديل ، جرب وأخبرنا بالنتيجة

 

 

مربع اختيار يضيف التاريخ والوقت عند الاختيار.zip