/ / הדגשת תא פעיל ב - VBA של

הדגשת תא פעיל ב - VBA של

להלן נבחן תוכנית ב Excel VBA כי מדגיש את השורה והעמוד של התא הפעיל (תא נבחר). תוכנית זו תדהים להרשים את הבוס שלך.

מצב:

הדגשת תא פעיל ב - VBA של

בכל פעם שאנו משנים את התא הפעיל על גיליון 1, יש לבצע פקודת מאקרו. ניתן להשיג זאת על ידי יצירת אירוע בחירת גליון עבודה.

1. פתח את עורך Visual Basic.

2. לחץ לחיצה כפולה על גיליון 1 (גיליון 1) בסייר הפרויקט.

.3 בחר באפשרות גיליון עבודה מהרשימה הנפתחת. בחר SelectionChange מהרשימה הנפתחת.

אירוע ב - Excel

הוסף את שורות הקוד הבאות לאירוע Worksheet SelectionChange:

4. אנו מכריזים על ארבעה משתנים של מספר שלם. אחד בשם rowNumberValue, אחד בשם columnNumberValue, אחד בשם i ואחד בשם j.

Dim rowNumberValue As Integer, columnNumberValue As Integer, i As Integer, j As Integer

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

Cells.Interior.ColorIndex = 0

6. אנחנו לאתחל את המשתנה rowNumberValue עם מספר שורה של תא פעיל ואת columnNumber משתנה עם מספר העמודה של תא פעיל.

rowNumberValue = ActiveCell.row
columnNumberValue = ActiveCell.column

7. אנו מדגישים את הטור כחול. כלומר: כל התאים עם מספר שורה קטן או שווה rowNumberValue ו מספר העמודה שווה ל- columnNumberValue

For i = 1 To rowNumberValue
    Cells(i, columnNumberValue).Interior.ColorIndex = 37
Next i

הסבר: עבור דוגמה זו (ראה תמונה לעיל), rowNumberValue שווה 12 ו columnNumberValue שווה 8. שורות קוד בין For ו- Next יבוצע שתים עשרה פעמים. עבור i = 1, צבעי VBA של Excel בתא בצומת של שורה 1 ועמוד 8. עבור i = 2, Excel VBA צובע את התא בצומת של שורה 2 ועמוד 8, וכו '.

הערה: במקום ColorIndex מספר 37 (כחול), ניתן להשתמש בכל מספר ColorIndex.

8. באופן דומה, אנו מדגישים את השורה הכחולה. כלומר: כל התאים עם מספר שורה שווה rowNumberValue ו מספר העמודה קטן או שווה ל- columnNumberValue.

For j = 1 To columnNumberValue
    Cells(rowNumberValue, j).Interior.ColorIndex = 37
Next j

9. עכשיו זה הזמן לבדוק את התוכנית.הורד את הקובץ Excel ולראות איך שורה ועמוד של התא הפעיל מודגשות בכל פעם שאתה משנה את התא הפעיל.

קרא גם: