5 מאקרו מגניבים של Microsoft Excel למיון נתונים

ייתכן שפקודות מאקרו של Excel לא יהיו מקיפות כמו כלי אוטומציה אחרים, אבל לא ניתן לערער את התוקף והיעילות של Excel VBA. אם אתה עובד ב-Excel ובכלים אחרים של Microsoft Office כמו Word ו-Access, אתה לא יכול להשתבש עם VBA והיכולות שלו.

MS Excel הוא כלי רב עוצמה המציע המון אפשרויות למשתמשים שלו. מאחסון נתונים ועד ליצירת לוחות מחוונים אוטומטיים, אתה יכול לעשות הכל ב-Excel ובגיליונות האלקטרוניים שלו.

אם אתה רוצה להשתמש ב-VBA כדי להפוך את אחריות המיון שלך לאוטומטית ב-Excel, נסה את פקודות המאקרו היעילות והקל ליישום אלה.

הורד מערך נתונים של דמה

בתור התחלה, אתה יכול להוריד מערך נתונים דמה כדי לעבוד על כישורי המאקרו שלך ב-Excel.

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

אתה יכול להוריד את מערך הנתונים המשמש במאמר זה אם תרצה לעקוב.

הורד: ערכת נתונים של אקסל

1. מיון עמודה אחת באמצעות פקודות מאקרו של Excel

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

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

קָשׁוּר: הקורסים המקוונים הטובים ביותר לשליטה באקסל מתקדם

אתה תשלוט בקבצים שלך מקובץ המאקרו, אשר יקיים אינטראקציה עם חוברות העבודה שלך בנפרד.

הזן את הקוד הבא:

תת sortwithheaders()
חוברות עבודה("מדגם פיננסי.xlsx"). גיליונות (1). הפעל
Range("A1:P701").sort Key1:=Range("e1"), Order1:=xlAscending, Header:=xlYes
סיום משנה

איפה:

• מפתח 1: הגדר את העמודות שברצונך למיין
• הזמנה 1: שיטת הזמנה (עולה/יורד)
• כּוֹתֶרֶת: אם לתוכן שלך יש כותרות, אפשרות זו תישאר כמו xl כן. לחלופין, בחר xlNo.

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

2. מיון נתונים דינמיים בעמודה אחת

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

כדי להתאים את השינוי בנתונים, השתמש בקוד שלהלן:

תת sortwithheaders()
חוברות עבודה("מדגם פיננסי.xlsx"). גיליונות (1). הפעל
Range("A1", Range("A1").End (xlDown)).sort Key1:=Range("e2"), Order1:=xlAscending, Header:=xlYes
סיום משנה

איפה:

• סוף (xlDown): פונקציה זו תבחר אוטומטית בתא המאוכלס האחרון באופן אוטומטי

הערה: אם הנוסחה נתקלת בתא ריק בתוך עמודה, היא תתייחס לתא הקודם כסוף הטווח.

קָשׁוּר: כיצד ליצור קיצורי מקשים מותאמים אישית ב- Microsoft Excel

3. מיון עמודות מרובות ביחד

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

Sub SortMultipleColumns()
עם גליונות עבודה ("Sheet1")
 עם .Cells (1, "A").CurrentRegion
 .Cells.sort Key1:=.Range("B1"), Order1:=xlAscending, _
 Key2:=.Range("E1"), Order2:=xlAscending, _
 כיוון:=xlTopToBottom, Header:=xlYes
 סיים עם
 סיים עם
סיום משנה

4. מיון עמודות על פני גיליונות מרובים

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

אפשרות אחת היא לעבור על כל גיליון באופן ידני, למיין את העמודות הדרושות ולאחר מכן להמשיך לשלב הבא. לחלופין, למה לא לתת ל-VBA לעשות את זה בשבילך?

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

קָשׁוּר: פונקציות חיפוש של Microsoft Excel לחיפוש גיליונות אלקטרוניים בצורה יעילה יותר

כך תוכל למיין עמודות על פני גיליונות מרובים:

Sub SortWS()
Dim ws As גליון עבודה
'הפעל את דף העבודה המיועד
חוברות עבודה ("מדגם פיננסי.xlsx"). הפעל
'דפדף על כל גליון עבודה בודד באופן אוטומטי באמצעות for loop
עבור כל Ws ב-ActiveWorkbook. גיליונות
להפעיל כל גליון עבודה בודד
ws. לְהַפְעִיל
'הגדר את הטווח ולאחר מכן מיין את העמודה על בסיס הדרישות שלך. במקרה זה, רק עמודה אחת במיון.
Range("A1", Range("p1").End (xlDown)).sort Key1:=Range("E1"), Order1:=xlDescending, Header:=xlYes
'הפקודה משמשת כדי לעבור לגליון העבודה הבא, לאחר מיון גליון העבודה הקודם
הבא ws
סיום משנה

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

5. העתקת נתונים ממוינים מגיליון אחד לאחר

תארו לעצמכם מצב שבו ברצונכם למיין את הנתונים ולהעתיק את כל מערך הנתונים (או חלקים ממנו) לגיליון חדש שנוסף. במקרים כאלה, אתה יכול להשתמש בקוד שלהלן כדי לבצע את המשימה שלפניך:

Sub SortWS()
Dim ws As גליון עבודה
'הפעל את דף העבודה המיועד
חוברות עבודה ("מדגם פיננסי.xlsx"). הפעל
'דפדף על כל גליון עבודה בודד באופן אוטומטי באמצעות for loop
עבור כל Ws ב-ActiveWorkbook. גיליונות
להפעיל כל גליון עבודה בודד
ws. לְהַפְעִיל
'הגדר את הטווח ולאחר מכן מיין את העמודה על בסיס הדרישות שלך. 
״במקרה הזה, רק עמודה אחת במיון.
Range("A1", Range("p1").End (xlDown)).sort Key1:=Range("E1"), Order1:=xlDescending, Header:=xlYes
'הפקודה משמשת כדי לעבור לגליון העבודה הבא, לאחר מיון גליון העבודה הקודם
הבא ws
'צור גליון עבודה חדש בחוברת העבודה כדי לאחסן את הנתונים החדשים
ActiveWorkbook. גיליונות. לְהוֹסִיף. שם = "תוצאות"
'העתק הדבק את הנתונים הממוינים לגיליון החדש שנוסף
Sheets("Sheet1").Range("A1:p701").Copy Destination:=Sheets("Results").Range("a1")
סיום משנה

הקוד לעיל ימיין את הערכים בעמודה E, יוסיף גיליון חדש תוצאות לתוך חוברת העבודה הקיימת, והדבק את התוצאות הממוינות בתא A1.

יצירת מאקרו מיון באקסל

Excel VBA היא שפה נחמדה שיכולה לחסוך לך הרבה זמן ומאמץ. על ידי שימוש בפקודות מאקרו VBA, אתה יכול ליצור לוחות מחוונים נרחבים, למיין נתונים בקלות בכמה לחיצות ולבצע פונקציות שונות בקלות.

למרבה המזל, הפונקציונליות של Excel לא מסתיימת בפקודות מאקרו. בדוק כמה טיפים וטריקים כדי להפוך למשתמש אקסל יעיל יותר.

9 האתרים והבלוגים המובילים ללימוד טיפים וטריקים של Excel

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

קרא הבא

על הסופר