dozens قام بنشر أكتوبر 6, 2012 مشاركة قام بنشر أكتوبر 6, 2012 اريد كود بالفجول بيسيك او طريقه عند الضغط على خليه n20 اريد ان يقو الاكسيل بالتعليم على صف رقم 20 بالكامل و كود ايضا او طريقه عند الضغط على خليه n20 يقوم أكسل بالتظليل على عمود n بالكامل New folder (4).zip رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أكتوبر 6, 2012 مشاركة قام بنشر أكتوبر 6, 2012 السلام عليكم تفضل الكود التالي: ضعه في حدث الورقة Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.Address = Range("N20").Address Then Union(Target.EntireRow, Target.EntireColumn).Select Target.Activate End If End Sub المرفق2003-2007 1.rar رابط هذا التعليق شارك More sharing options...
dozens قام بنشر أكتوبر 6, 2012 الكاتب مشاركة قام بنشر أكتوبر 6, 2012 تمام بس انا لم اشرط n 20 بذاته انا اريدها حره اى عند الضغط على اى خلايا يقوم بفعل هذا رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أكتوبر 6, 2012 مشاركة قام بنشر أكتوبر 6, 2012 هذا افضل لتجنب الخطا Private Sub Worksheet_Selectionchange(ByVal Target As Range) On Error GoTo 1 Application.EnableEvents = False Union(Target.EntireRow, Target.EntireColumn).Select Target.Activate 1: Application.EnableEvents = True End Sub رابط هذا التعليق شارك More sharing options...
ghobashi قام بنشر أكتوبر 7, 2012 مشاركة قام بنشر أكتوبر 7, 2012 عمل اكثر من رائع هل يمكن ان تضيف اليه كود لتلوين الصف والعمود باللون الاصفر مثلاً وعند اختيار خلية اخرى يرجع لون الصف والعمود للون الابيض الطبيعى ويتلون الصف والعمود الاخر رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أكتوبر 7, 2012 مشاركة قام بنشر أكتوبر 7, 2012 عمل اكثر من رائع هل يمكن ان تضيف اليه كود لتلوين الصف والعمود باللون الاصفر مثلاً وعند اختيار خلية اخرى يرجع لون الصف والعمود للون الابيض الطبيعى ويتلون الصف والعمود الاخر تفضل الكود التالي: Private Sub Worksheet_Selectionchange(ByVal Target As Range) On Error GoTo 1 Static xRng As Range Application.EnableEvents = False ''''''''''''''''''''''''''' If xRng Is Nothing Then Cells.Interior.ColorIndex = xlNone Else xRng.Interior.ColorIndex = xlNone End If '''''''''''''''''''''''''''' Set xRng = Union(Target.EntireRow, Target.EntireColumn) xRng.Interior.ColorIndex = 6 '''''''''''''''''''''''''''' 1: Application.EnableEvents = True End Sub رابط هذا التعليق شارك More sharing options...
dozens قام بنشر أكتوبر 7, 2012 الكاتب مشاركة قام بنشر أكتوبر 7, 2012 الف الف شكر ................ هذا هو المطلوب. رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أكتوبر 7, 2012 مشاركة قام بنشر أكتوبر 7, 2012 بارك الله فيك اخي ابو علي على هذا الابداع رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أكتوبر 7, 2012 مشاركة قام بنشر أكتوبر 7, 2012 بارك الله فيك اخي ابو علي على هذا الابداع جزاك الله خيرا اخي الحبيب عبدالله على مروركم الطيب تقبل تحياتي وشكري رابط هذا التعليق شارك More sharing options...
dozens قام بنشر أكتوبر 7, 2012 الكاتب مشاركة قام بنشر أكتوبر 7, 2012 ممكن شرح الكود بشكل بسيط للأفاده ................................أ/عبد الله رابط هذا التعليق شارك More sharing options...
dozens قام بنشر أكتوبر 8, 2012 الكاتب مشاركة قام بنشر أكتوبر 8, 2012 يرجى الرد...................... رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أكتوبر 8, 2012 مشاركة قام بنشر أكتوبر 8, 2012 السلام عليكم تفضل: Private Sub Worksheet_Selectionchange(ByVal Target As Range) ''''''''''''''''''''''''''''''''''''''''''''''' ' في حالة الخطا يذهب الى السطر 1 On Error GoTo 1 ''''''''''''''''''''''''''''''''''''''''''''''' ' ايقاف تمكين الاحداث Application.EnableEvents = False ''''''''''''''''''''''''''''''''''''''''''''''' ' Target.EntireRow : كامل الصف للتحديد ' Target.EntireColumn : كامل العمود للتحديد ' Union : يُرجعُ إتحادُ خلايا ' Select : Union تحديد النطاق المجمع في Union(Target.EntireRow, Target.EntireColumn).Select ''''''''''''''''''''''''''''''''''''''''''''''' ' تنشيط الخلية المحددة Target.Activate 1: ''''''''''''''''''''''''''''''''''''''''''''''' ' تشغيل تمكين الاحداث Application.EnableEvents = True End Sub رابط هذا التعليق شارك More sharing options...
dozens قام بنشر أكتوبر 8, 2012 الكاتب مشاركة قام بنشر أكتوبر 8, 2012 وعليكم السلام ورحمه الله و بركاته الف الف شكر على الشرح رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أكتوبر 8, 2012 مشاركة قام بنشر أكتوبر 8, 2012 العفو اخي الفاضل رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر أكتوبر 8, 2012 مشاركة قام بنشر أكتوبر 8, 2012 الإبداع بعنوان السهل الممكن فكر عالى وبسيط فى نفس الوقت جازاك الله خيراً أخونا خبور رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أكتوبر 8, 2012 مشاركة قام بنشر أكتوبر 8, 2012 السلام عليكم اخي يوسف --حفظه الله جزاك الله خيرا وبارك فيك تقبل تحياتي وشكري رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر أكتوبر 8, 2012 مشاركة قام بنشر أكتوبر 8, 2012 استاذنا عبدالله باقشير عطاء بلا حدود السائل اجبت على تساؤله وشرحت لنا وله الكود جزاك الله خيرا بارك الله فيك سعد عابد رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أكتوبر 8, 2012 مشاركة قام بنشر أكتوبر 8, 2012 السلام عليكم اخي سعد عابد---------------حفظه الله جزاك الله خيرا وبارك فيك تقبل تحياتي وشكري رابط هذا التعليق شارك More sharing options...
ghobashi قام بنشر أكتوبر 8, 2012 مشاركة قام بنشر أكتوبر 8, 2012 الف شكر اخى عبد الله جزاك الله خيراً رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أكتوبر 8, 2012 مشاركة قام بنشر أكتوبر 8, 2012 العفو اخي الفاضل رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان