SortTextTable(sTableName,bAscending,bHeader,nSortColl)Įnd Sub ' sortWriterTableAscendingExclHeader '''Sorts cursor-selected column alphabetically ascending, EXCLUDING the header'''īHeader = True ' table contains a header row SortTextTable(sTableName, bAscending, bHeader, nSortColl) NSortColl = getColumn(sAktivCell) ' the column which is the sorting key (first column=1) SAktivCell = (0).Cell.CellNameīHeader = False ' table contains a header row '''Sorts cursor-selected column alphabetically ascending''' '''Call one of the four subroutines, based on your needs''' ' -> Function getColumn (sAktivCell As String) As Long ' -> Function getTableRange (oTable As Object, nStartRow As Long) As String ' -> Sub sortTextTable (sTableName As String, bAscending As Boolean, bHeader As Boolean, nSortColl As Long) ' -> Sub sortWriterTableDescendingExclHeader ' -> Sub sortWriterTableAscendingExclHeader ' You should have received a copy of the GNU General Public License ' GNU General Public License for more details. ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. ' but WITHOUT ANY WARRANTY without even the implied warranty of ' This program is distributed in the hope that it will be useful, ' the Free Software Foundation, either version 3 of the License, or ' it under the terms of the GNU General Public License as published by ' Copyright (c) 2011 Frieder Delor, Mailto: This program is free software: you can redistribute it and/or modify Upon download, the extension adds a new toolbar with 4 buttons, which are linked to the four macros. This macro also exists in an equivalent form as an extension, by clicking this link for download of sortwritertable-1.0.0.oxt.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |