להלן נבחן תוכנית ב Excel VBA זֶה מדגיש את השורה והעמודה של התא הפעיל (התא הנבחר). תוכנית זו תדהים ותרשים את הבוס שלך.
מַצָב:
בכל פעם שאנו משנים את התא הפעיל בגיליון 1, יש לבצע מאקרו. תוכל להשיג זאת על ידי יצירת אירוע שינוי גיליון עבודה.
1. פתח את עורך Visual Basic.
2. לחץ פעמיים על Sheet1 (Sheet1) בסייר הפרויקטים.
3. בחר גליון עבודה מהרשימה הנפתחת השמאלית. בחר 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 עם מספר השורה של התא הפעיל והמשתנה columnNumberValue עם מספר העמודה של התא הפעיל.
rowNumberValue = ActiveCell.row
columnNumberValue = ActiveCell.column
7. אנו מדגישים את העמודה כחולה. כלומר: כל התאים עם מספר השורות קטנים יותר או שווים ל- rowNumberValue ומספר העמודות השווה ל- columnNumberValue
עבור i = 1 כדי rowNumberValue
תאים (i, columnNumberValue) .Interior.ColorIndex = 37
הבא i
הסבר: לדוגמא זו (ראו תמונה למעלה), rowNumberValue שווה ל- 12 ו- columnNumberValue שווה 8. שורות הקוד בין For ו- Next יבוצעו שתים עשרה פעמים. עבור i = 1, Excel VBA צובע את התא בצומת של שורה 1 ועמודה 8. עבור i = 2, Excel VBA צובע את התא בצומת של שורה 2 ועמודה 8 וכו '.
הערה: במקום מספר ColorIndex מספר 37 (כחול), תוכל להשתמש בכל מספר ColorIndex.
8. באופן דומה, אנו מדגישים את השורה כחולה. כלומר: כל התאים עם מספר השורות שווה ל- rowNumberValue ומספר העמודות קטנים יותר או שווים ל- columnNumberValue.
עבור j = 1 ל- columnNumberValue
תאים (rowNumberValue, j) .Interior.ColorIndex = 37
י הבא
9. עכשיו הגיע הזמן לבדוק את התוכנית. הורד את קובץ ה- Excel וראה כיצד השורה והעמודה של התא הפעיל מודגשים בכל פעם שאתה משנה את התא הפעיל.
