העמודה הנוכחית בטבלה הפעילה

פלורידה

אני צריך לבחור את העמודה בטבלה שבה נמצא התא הנבחר.

לגבי לבחור את הטבלה הפעילה עשיתי ככה:

ActiveTable = ActiveCell.ListObject
amudanivchar = ActiveSheet.ListObjects(ActiveTable).ListColumns(3).DataBodyRange

אך את העמודה לא הצלחתי לבחור. לכן הזכרתי מפורש (3)
זה לא טוב לי, אני צריך שישאר עמום, כלומר "העמודה הפעילה"

אין משהו דומה לזהactiveListColumns ?

פלורידה

הפיתרון

ActiveColumn = ActiveCell.Column - ActiveCell.ListObject.DataBodyRange.Column + 1
ActiveTable = ActiveCell.ListObject
amudanivchar = ActiveSheet.ListObjects(ActiveTable).ListColumns(ActiveColumn).DataBodyRange

מקור