Numbers上のデータにもとづいてセル上で色プレビュー

AppleScript名：Numbers上のデータにもとづいてセル上で色プレビュー

tell application "Numbers"
　　tell front document
　　　　tell active sheet
　　　　　　tell table 1
　　　　　　　　set hCount to header row count
　　　　　　　　set fCount to footer row count
　　　　　　　　
　　　　　　　　set aRange to address of row of cell range
　　　　　　　　set bRange to items (1 + hCount) thru ((length of aRange) – fCount) of aRange
　　　　　　　　–> {2, 3, 4, 5, 6}
　　　　　　　　
　　　　　　　　repeat with i in bRange
　　　　　　　　　　tell row i
　　　　　　　　　　　　set vList to value of cells 1 thru 3
　　　　　　　　　　　　if vList does not contain missing value then
　　　　　　　　　　　　　　set bList to chengeColor255to65535(vList) of me
　　　　　　　　　　　　　　
　　　　　　　　　　　　　　ignoring application responses
　　　　　　　　　　　　　　　　tell cell 4
　　　　　　　　　　　　　　　　　　set background color to bList
　　　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　　　end ignoring
　　　　　　　　　　　　　　
　　　　　　　　　　　　end if
　　　　　　　　　　end tell
　　　　　　　　end repeat
　　　　　　end tell
　　　　end tell
　　end tell
end tell

on chengeColor255to65535(aColList)
　　set aTmpList to {}
　　repeat with i in aColList
　　　　set the end of aTmpList to i * 256
　　end repeat
　　return aTmpList
end chengeColor255to65535