عمل تغيرات على مجموعة خلايا

[Mohamed Ibrahim Sewilam]

السادة الكرام

يوجد لدى استفسار اقوم بنقل تاريخ من صفحة اكسيل الى اخر واقوم بتحولها الى تقويم ميلادي

وعند عمل هذه لا يقوم بالتحوبل الى اذا قمت بالضغط Double Click على الخلية والضغط على انتر

كيفة يكن عمل هذه الخصية على جميع الخلايا حيث اننى لدى عدد 1000 خلية يجب عمل ذلك

تحياتي

Data.rar

[ياسر خليل أبو البراء]

السلام عليكم

جرب الكود التالي .. بعد تنفيذ الكود لا تلمس الماوس أو لوحة المفاتيح إلى أن ينتهي الكود من عمله

Sub Test()
    Dim cel As Range
    
    Range("B1").Select
    
    Application.ScreenUpdating = False
        For Each cel In Range("B1:B1000")
            SendKeys "{F2}{Enter}"
        Next cel
    Application.ScreenUpdating = True
End Sub