مصرى مصرى قام بنشر فبراير 3, 2017 مشاركة قام بنشر فبراير 3, 2017 الكود الموجود في الملف المرفق يقوم باستدعاء الاعمدة من b الى f عن طريق قائمة مفلترة للمسلسل في العمود a كيف يمكن جعل تعديله ليكون الاستدعاء من خلال اسم التلميذ مع جعل الاستدعاء لعمود واحد فقط وليكن رقم الجلوس بمعنى انه عند اختيار اسم التلميذ تظهر بيانات رقم الجلوس فقط مع شرح موضع التغيير لاننى لدي عدة شيتات قد اختار في احدها استدعاء عمود معين وفي الاخر عمود غيره استدعاء.rar رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر فبراير 3, 2017 مشاركة قام بنشر فبراير 3, 2017 السلام عليكم ورحمة الله قارن بين هذا الكود و الكود السابق وستلاحظ الفرق بنفسك Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Dim sh As Worksheet, Found Set sh = Sheets("بيانات") Application.ScreenUpdating = False Application.EnableEvents = False On Error GoTo Skipper Found = Application.Match(Target.Value, sh.Columns(2), 0) Target.Offset(0, 3).Value = sh.Cells(Found, 1).Resize(1, 6).Value Skipper: Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub 1 رابط هذا التعليق شارك More sharing options...
مصرى مصرى قام بنشر فبراير 3, 2017 الكاتب مشاركة قام بنشر فبراير 3, 2017 السلام عليكم ورحمة الله قارن بين هذا الكود و الكود السابق وستلاحظ الفرق بنفسك Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Dim sh As Worksheet, Found Set sh = Sheets("بيانات") Application.ScreenUpdating = False Application.EnableEvents = False On Error GoTo Skipper Found = Application.Match(Target.Value, sh.Columns(2), 0) Target.Offset(0, 3).Value = sh.Cells(Found, 1).Resize(1, 6).Value Skipper: Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub انت باشا والله ربنا يخليك رابط هذا التعليق شارك 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.