כיצד להסתיר שורות באמצעות VBA אם לתא יש תוכן מסוים
האם ברצונך להסתיר אוטומטית את כל השורות עם תוכן מסוים באמצעות מאקרו? תארו לעצמכם שאתם רוצים להסתיר את כל השורות אם הטקסט "הסתר" מופיע בתא כלשהו בשורה המתאימה. זה יכול להיות יישום שימושי לניקוי נתונים. תסתכל על המצב הראשוני בטבלה הבאה:
בטבלה זו אנו רוצים להסתיר את כל השורות המכילות תאים המכילים אפס. השתמש במקרו הבא:
הסתר שורות ספציפיות ()
עמום תא כטווח
עבור כל תא ב- ActiveSheet.UsedRange
אם Cell.Value = 0 ושורות (Cell.Row) .Hidden = False _
ואז שורות (cell.Row) .Hidden = True
התא הבא
סיום תת
אם תפעיל את המאקרו עם, כמה שורות יוסתרו לחלוטין, כפי שמוצג באיור הבא
בכל אחת משורות אלה, הטקסט "הסתרה" מופיע בעמודה כלשהי. אם ברצונך לבדוק קריטריון אחר במקום תוכן זה, התאם את ההשוואה המתאימה במאקרו.
כדי להציג שוב את כל התאים, לחץ על צירוף המקשים CTRL A ולאחר מכן בחר את הפונקציה START - FORMAT - FADE OUT & FADE IN - SHOW LINES (Excel 2007 ו- Excel 2010) או FORMAT LINE - FADE IN (Excel עד גירסה 2003). לחלופין, תוכל להשתמש במאקרו הבא כדי לדעוך:
הצג את כל המשנה
Cells.Rows.Hidden = שקר
סיום תת
כדי להזין אחד מאקרו המאקרו, הקש על שילוב המקשים ALT F11 ב- Excel. זה קורא לעורך VBA. השתמש בפקודה INSERT - MODULE כדי להוסיף גיליון מודול ריק. כדי להפעיל אחד מאקרו המאקרו, הקש על שילוב המקשים ALT F8 בתוך Excel.
