Sort rows by fill color?

Question

Is it possible in Numbers to sort rows based on the row fill color? There are only 2 colors the rows have as background (fill), and it would save time to sort based on the highlighted row. Any ideas?
Thank you-

Answer 1

I agree with jerrold.
I will certainly not ask Apple for such a feature.
Here is a script which may give you an efficient response.
property columnOffset : 2
tell application "Numbers"
activate
set {rName, tName, sName, dName} to my getSelection()
if (character 2 of rName) as text > "9" then
set columnLetter to text 1 thru 2 of rName
else
set columnLetter to character 1 of rName
end if
set twoNames to my decoupe(rName, ":")
set {colNum1, rowNum1} to my decipher(item 1 of twoNames)
set columnToSort to colNum1 + columnOffset
tell document dName to tell sheet sName to tell table tName
set myColor to background color of (get properties of range rName)
set nbRows to count rows
repeat with r from 1 to 14 --nbRows
set val to background color of (get properties of range (columnLetter & r & ":" & columnLetter & r))
set val to (val is myColor)
set value of cell r of column columnToSort to val
end repeat
end tell
end tell
--=====
on getSelection()
local mySelectedRanges, sheetRanges, thisRange, _, myRange, myTable, mySheet, myDoc, mySelection
tell application "Numbers"
activate
tell document 1
set mySelectedRanges to selection range of every table of every sheet
repeat with sheetRanges in mySelectedRanges
repeat with thisRange in sheetRanges
if contents of thisRange is not missing value then
try
--return thisRange --poorly formed result
thisRange as text
on error errMsg number errNum
set {_, myRange, _, myTable, _, mySheet, _, myDoc} to my decoupe(errMsg, quote)
--set mySelection to (a reference to (range rn of table tn of sheet sn))
return {myRange, myTable, mySheet, myDoc}
end try
end if -- contents…
end repeat -- thisRange
end repeat -- sheetRanges
end tell -- document 1
end tell -- application
return {missing value, missing value, missing value, missing value}
end getSelection
--=====
on decipher(n)
local letters, colNum, rowNum
set letters to "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
if (character 2 of n) as text > "9" then
set colNum to (offset of (character 1 of n) in letters) * 64 + (offset of (character 2 of n) in letters)
set rowNum to (text 3 thru -1 of n) as integer
else
set colNum to offset of (character 1 of n) in letters
set rowNum to (text 2 thru -1 of n) as integer
end if
return {colNum, rowNum}
end decipher
--=====
on decoupe(t, d)
local l
set AppleScript's text item delimiters to d
set l to text items of t
set AppleScript's text item delimiters to ""
return l
end decoupe
--=====
Select a cell with the color to use in the sort.
Run the script.
It will fill the column whose offset from the selected one is defined by the property 'columnOffset'
If the background of the cell in the source column is the searched one the value will be 1
if the background is not this one, the value will be 0.
So it will be easy to use a condition.
Yvan KOENIG (from FRANCE mardi 10 mars 2009 20:39:44)