محمد الورفلي1 قام بنشر فبراير 7, 2021 مشاركة قام بنشر فبراير 7, 2021 السلام عليكم اريد دمج الكودين في حدث الورفة الكود الاول : عبارة عن قفل الخلية بعد الكتابة Me.[R1] Then Exit Sub If Not Application.Intersect(Target, Range("D4:q39")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "ÎáíÉ ããÊáÆÉ" End If الكود الثاني تلوين الصف والعمود النشط Application.ScreenUpdating = False Range("IP1").Value = Target.Address Application.ScreenUpdating = True دمج.xls رابط هذا التعليق شارك More sharing options...
مهند محسن قام بنشر فبراير 7, 2021 مشاركة قام بنشر فبراير 7, 2021 وعليكم السلام-عليك باستخدام خاصية البحث بالمنتدى فطلبك تكرر كثيراً جداً ومنها : كود لتشغيل اكثر من موديول رابط هذا التعليق شارك 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.