כיצד למיין בתוך טבלה עם אקסל מקרו Excel VBA
מיון לפי ערך
קוד זה ממיין נתונים בסדר יורד של סהכ בנתונים המוצגים להלן.
Dim ws As Worksheet
Set ws = ActiveSheet
Dim tbl As ListObject
Set tbl = ws.ListObjects("Sales_Table")
Dim sortcolumn As Range
Set sortcolumn = Range("Sales_Table[סהכ]")
With tbl.Sort
.SortFields.Clear
.SortFields.Add Key:=sortcolumn, SortOn:=xlSortOnValues, Order:=xlDescending
.Header = xlYes
.Apply
End With
הקוד לעיל מתייחס לנתונים המוצגים להלן.
רוצים שהאקסל יתחיל לעבוד בשבילכם? ללמוד כיצד להשתמש ב- VBA? מההתחלה ובצורה מסודרת? ללא צורך בידע קודם בתכנות צרו קשר: contact@uniquetech.co.il
מיין לפי תא צבע
כדי למיין לפי צבע התא, ציין זאת בפרמטר SortOn של שיטת הוספה. לאחר מכן עליך לציין את הצבע למיון באמצעות המאפיין SortOnValue של האובייקט SortField (ראה להלן)
Dim ws As Worksheet
Set ws = ActiveSheet
Dim tbl As ListObject
Set tbl = ws.ListObjects("Sales_Table")
Dim sortcolumn As Range
Set sortcolumn = Range("Sales_Table[סהכ]")
With tbl.Sort
.SortFields.Clear
.SortFields.Add(Key:=sortcolumn, Order:=xlAscending, _
SortOn:=xlSortOnCellColor).SortOnValue.Color =RGB(255, 255, 0)
.Header = xlYes
.Apply
End With
מיין לפי אייקון
רוצים שהאקסל יתחיל לעבוד בשבילכם? ללמוד כיצד להשתמש ב- VBA? מההתחלה ובצורה מסודרת? ללא צורך בידע קודם בתכנות צרו קשר: contact@uniquetech.co.il
מיין לפי סמל/אייקון
כדי למיין לפי סמל, עליך לציין זאת בפרמטר SortOn של ה- Method' ה-'שיטה/הפעולה'. לאחר מכן, עליך לציין את הסמל למיון על ידי שימוש בשיטה/בפעולה Set Icon של האובייקט SortField.
Dim ws AsWorksheet
Set ws =ActiveSheet
Dim tbl AsListObject
Set tbl =ws.ListObjects("Sales_Table")
Dim sortcolumnAs Range
Set sortcolumn= Range("Sales_Table[סהכ]")
With tbl.Sort
.SortFields.Clear
.SortFields.Add(Key:=sortcolumn, Order:=xlAscending, _ SortOn:=xlSortOnIcon).SetIcon _
Icon:=ActiveWorkbook.IconSets(xl3TrafficLights1).Item(1)
.Header =xlYes
.Apply
End With
רוצים שהאקסל יתחיל לעבוד בשבילכם? ללמוד כיצד להשתמש ב- VBA? מההתחלה ובצורה מסודרת? ללא צורך בידע קודם בתכנות צרו קשר: contact@uniquetech.co.il
————– עד כאן ———-
בהצלחה !
