يرجى المساعده كود بالفجول بيسيك

[dozens]

اريد كود بالفجول بيسيك او طريقه عند الضغط على خليه n20

اريد ان يقو الاكسيل بالتعليم على صف رقم 20 بالكامل

و كود ايضا او طريقه عند الضغط على خليه

n20

يقوم أكسل بالتظليل على عمود n بالكامل

New folder (4).zip

[عبدالله باقشير]

السلام عليكم

تفضل الكود التالي:

ضعه في حدث الورقة

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

[dozens]

تمام بس انا لم اشرط n 20 بذاته انا اريدها حره اى عند الضغط على اى خلايا يقوم بفعل هذا

[عبدالله باقشير]

هذا افضل لتجنب الخطا

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

[ghobashi]

عمل اكثر من رائع هل يمكن ان تضيف اليه كود لتلوين الصف والعمود باللون الاصفر مثلاً وعند اختيار خلية اخرى يرجع لون الصف والعمود للون الابيض الطبيعى ويتلون الصف والعمود الاخر

[عبدالله باقشير]

عمل اكثر من رائع هل يمكن ان تضيف اليه كود لتلوين الصف والعمود باللون الاصفر مثلاً وعند اختيار خلية اخرى يرجع لون الصف والعمود للون الابيض الطبيعى ويتلون الصف والعمود الاخر

تفضل الكود التالي:

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

[dozens]

الف الف شكر ................ هذا هو المطلوب.

[عبدالله المجرب]

بارك الله فيك اخي ابو علي على هذا الابداع

[عبدالله باقشير]

بارك الله فيك اخي ابو علي على هذا الابداع

جزاك الله خيرا

اخي الحبيب عبدالله على مروركم الطيب

تقبل تحياتي وشكري

[dozens]

ممكن شرح الكود بشكل بسيط للأفاده ................................أ/عبد الله

[dozens]

يرجى الرد......................

[عبدالله باقشير]

السلام عليكم

تفضل:

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

[dozens]

وعليكم السلام ورحمه الله و بركاته

الف الف شكر على الشرح

[عبدالله باقشير]

العفو اخي الفاضل

[يوسف عطا]

الإبداع بعنوان السهل الممكن

فكر عالى وبسيط فى نفس الوقت

جازاك الله خيراً أخونا خبور

[عبدالله باقشير]

السلام عليكم

اخي يوسف --حفظه الله

جزاك الله خيرا وبارك فيك

تقبل تحياتي وشكري

[saad abed]

استاذنا عبدالله باقشير

عطاء بلا حدود السائل اجبت على تساؤله

وشرحت لنا وله الكود

جزاك الله خيرا

بارك الله فيك

سعد عابد

[عبدالله باقشير]

السلام عليكم

اخي سعد عابد---------------حفظه الله

جزاك الله خيرا وبارك فيك

تقبل تحياتي وشكري

[ghobashi]

الف شكر اخى عبد الله جزاك الله خيراً

[عبدالله باقشير]

العفو اخي الفاضل