סימון כל העמודה והשורה - אקסל 2010/2013

[Melr]

סימון כל העמודה והשורה - אקסל 2010/2013

שלום, ברצוני ליצור קוד שיסמן את המיקום של התא "שנבחר" ע"י סימון כל העמודה והשורה בצבע.

קוד לכך מצאתי באתר של מיקרוסופט:
מצ"ב הקוד וקובץ אקסל המכיל אותו:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    Application.ScreenUpdating = False
    ' Clear the color of all the cells
    Cells.Interior.ColorIndex = 0
    With Target
        ' Highlight the entire row and column that contain the active cell
        .EntireRow.Interior.ColorIndex = 8
        .EntireColumn.Interior.ColorIndex = 8
    End With
    Application.ScreenUpdating = True
End Sub

אך ברצוני להתאים אותו על מנת לפתור בו כמה בעיות:
1. כחלק מאופן הפעולה שלו, הוא מוחק תמידית את כל צבעי הכותרות. - האם ניתן ליצור פעולה שתעבוד בצורה זהה לקוד הזה אך שלא תמחוק את הכותרות?
חשוב לציין כי אין לי חשיבות לאופן בו היא מסמנת את המיקום מבחינתי זה לא חייב להיות בצבע, רק שאני אדע בטבלה מאוד גדולה בדיוק איפה אני נמצא ומה כל הערכים הקשורים לשורה/ עמודה הזו בקלות ובצורה בולטת.
2. כיצד אני יוצר מנגנון ש- "מכבה" את הקוד?

בתודה מראש על העזרה.

 

[u333]

על איזה כותרות אתה מדבר ?? בקובץ שלך אין אף כותרת !

 

[Melr]

זה לא רלוונטי גם אם היה כותרת

כי זה היה מוחק את הצבע שלה.
קח את הקובץ שהורדתי, תצבע איזה תא שאתה רוצה.

מהרגע שהפעלת את המאקרו הוא ימחוק לך את כל הצביעות של התאים.

מיכאל פתר את זה בדרך אלגנטית מאוד שלא עושה את הבעייה הזו.

 

[מיכאל אבידן]

בדוק את העיקרון המוצע בתמונה שלהלן . . .

 

[Melr]

תודה רבה!!!

פיתרון גם מאוד אלגנטי!


עובד בצורה מעולה.