قنديل الصياد قام بنشر أكتوبر 26, 2013 مشاركة قام بنشر أكتوبر 26, 2013 الكود المستخدم يوضع فى حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range ' The variable KeyCells contains the cells that will ' cause an alert when they are changed. Set KeyCells = Range("A1:d10") If Not Application.Intersect(KeyCells, Range(Target.Address)) _ Is Nothing Then ' Display a message when one of the designated cells has been ' changed. ' Place your code here. MsgBox "Cell " & Target.Address & " has changed.قنديل الصياد" End If End Sub مرفق ملف به التطبيق Book1.rar 1 رابط هذا التعليق شارك More sharing options...
عبد الرحمن شفيق قام بنشر أكتوبر 26, 2013 مشاركة قام بنشر أكتوبر 26, 2013 جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
احمد زعل قام بنشر أكتوبر 26, 2013 مشاركة قام بنشر أكتوبر 26, 2013 جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
حسام مصطفي قام بنشر أكتوبر 27, 2013 مشاركة قام بنشر أكتوبر 27, 2013 جزاك الله خيرا رابط هذا التعليق شارك 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.