Numbers Column versus Row

Question

Is there a chance to change data from row to column and vice versa just by a click. Need to have the data of the rows in horizontal view in the table.

Answer 1

Badunit wrote:
Yvan has a script to do this.
You're right, and I just finished to upgrade the one transposing values *_( not formulas)_*.
It's uned in two passes.
Pass 1, select the range to transpose and call the script which will extract the values of the selected cells.
Pass 2, select the left_top of the target area and call the script which will insert the transposed values.
If the left_top wasn't moved since pass 1, the original range is cleared before the insertion of transposed values.
If some one which to have a script which always transpose without moving the left_top, the two pass aren't required.
Just ask, I will post this variant.
--[SCRIPT transposeDead]
Enregistrer le script en tant que Script : transposeDead.scpt
déplacer le fichier créé dans le dossier
<VolumeDeDémarrage>:Users:<votreCompte>:Library:Scripts:Applications:Numbers:
Il vous faudra peut-être créer le dossier Numbers et peut-être même le dossier Applications.
Merci à Scott Lindsey & Ed.Stockly du forum [email protected]
qui m'ont aidé à construire le code récupérant le bloc sélectionné.
Sélectionnez le bloc de cellules à transposer
aller au menu Scripts , choisir Numbers puis choisir transposeDead (exécute le script une première fois)
Le script récupère les informations utiles sur le bloc à transposer
Sélectionner la première cellule du bloc destination
aller au menu Scripts , choisir Numbers puis choisir transposeDead (exécute le script une deuxième fois)
Il insère les valeurs transposés.
Comme il s'agit de valeurs les modifications éventuelles du bloc source ne seront pas répercutées.
--=====
L'aide du Finder explique:
L'Utilitaire AppleScript permet d'activer le Menu des scripts :
Ouvrez l'Utilitaire AppleScript situé dans le dossier Applications/AppleScript.
Cochez la case "Afficher le menu des scripts dans la barre de menus".
+++++++
Save the script as a Script transposeDead.scpt
Move the newly created file into the folder:
<startup Volume>:Users:<yourAccount>:Library:Scripts:Applications:Numbers:
une_valeur you would have to create the folder Numbers and even the folder Applications by yourself.
Thanks to Scott Lindsey & Ed.Stockly from [email protected]
which helped me to build the code grabbing the selected range.
Select a group of cells.
go to the Scripts Menu, choose Numbers, then choose transposeDead (Run the script once.)
It grabs infos about the selection
select the first cell of the destination
(can't be in the source range)
go to the Scripts Menu, choose Numbers, then choose transposeDead (Run the script one more time.)
It will insert the transposed values.
As they are values, possible changes in the source block will not be reflected.
--=====
The Finder's Help explains:
To make the Script menu appear:
Open the AppleScript utility located in Applications/AppleScript.
Select the "Show Script Menu in menu bar" checkbox.
Under 10.6.x,
go to the General panel of AppleScript Editor’s Preferences dialog box
and check the “Show Script menu in menu bar” option.
--=====
Yvan KOENIG (VALLAURIS, France)
2009/01/19
2009/01/25
2009/06/03 -- enhanced for blank cells
2010/08/31 -- enhanced quite all.
property theApp : "Numbers"
property les_valeurs : {}
property old_dName : missing value
property old_sName : missing value
property old_tName : missing value
property old_rowNum1 : missing value
property old_colNum1 : missing value
--=====
on run
local rname, rowNum2, colNum2, dName, sName, tName, rname, rowNum1, colNum1
local nb_rows, nb_columns, rows_available, rows_needed, columns_available, columns_needed, une_valeur
try
if les_valeurs = {} then (*
Here we are in the first pass.
Extract infos about the source range *)
set {old_dName, old_sName, old_tName, rname, old_rowNum1, old_colNum1, rowNum2, colNum2} to my getSelParams()
Extract the values of selected cells *)
tell application "Numbers" to tell document old_dName to tell sheet old_sName to tell table old_tName
set les_valeurs to value of cells old_rowNum1 thru rowNum2 of columns old_colNum1 thru colNum2
end tell
else --============
Here we are in the second pass *)
set nb_rows to count of les_valeurs
set nb_columns to count of item 1 of les_valeurs
set {dName, sName, tName, rname, rowNum1, colNum1, rowNum2, colNum2} to my getSelParams()
if {old_dName, old_sName, old_tName, old_rowNum1, old_colNum1} = {dName, sName, tName, rowNum1, colNum1} then
We didn't change the left_top of the selection so clear the original range. *)
tell application "Numbers" to tell document old_dName to tell sheet old_sName to tell table old_tName
repeat with r from 1 to nb_columns
repeat with c from 1 to nb_rows
clear cell (old_rowNum1 - 1 + r) of column (old_colNum1 - 1 + c)
end repeat -- c
end repeat -- r
end tell
end if
Now we know the starting point of the destination area. *)
tell application "Numbers" to tell document dName to tell sheet sName to tell table tName
set rows_available to (get row count)
set rows_needed to rowNum1 - 1 + nb_rows
Add rows if needed *)
if rows_needed > rows_available then
repeat (rows_needed - rows_available) times
add row below row rows_available
end repeat
end if -- rows_needed
Add columns if needed *)
set columns_available to (get column count)
set columns_needed to colNum1 - 1 + nb_columns
if columns_needed > columns_available then
repeat (columns_needed - columns_available) times
add column after column columns_available
end repeat
end if -- columns_needed
Insert the transposed values *)
repeat with r from 1 to nb_rows
repeat with c from 1 to nb_columns
set une_valeur to item c of item r of les_valeurs
tell cell (rowNum1 - 1 + r) of column (colNum1 - 1 + c)
if une_valeur is 0.0 then
clear
else
set value to une_valeur as text
end if
end tell
end repeat -- c
end repeat -- r
end tell -- Numbers
Clears the property for next use *)
set les_valeurs to {}
end if
on error
Clears the property for next use *)
set les_valeurs to {}
end try
end run
--=====
set {rowNum1, colNum1, rowNum2, colNum2} to my getCellsAddresses(dname,s_name,t_name,arange)
on getCellsAddresses(d_Name, s_Name, t_Name, r_Name)
local two_Names, row_Num1, col_Num1, row_Num2, col_Num2
tell application "Numbers"
set d_Name to name of document d_Name (* useful if we passed a number *)
tell document d_Name
set s_Name to name of sheet s_Name (* useful if we passed a number *)
tell sheet s_Name
set t_Name to name of table t_Name (* useful if we passed a number *)
end tell -- sheet
end tell -- document
end tell -- Numbers
if r_Name contains ":" then
set two_Names to my decoupe(r_Name, ":")
set {row_Num1, col_Num1} to my decipher(d_Name, s_Name, t_Name, item 1 of two_Names)
if item 2 of two_Names = item 1 of two_Names then
set {row_Num2, col_Num2} to {row_Num1, col_Num1}
else
set {row_Num2, col_Num2} to my decipher(d_Name, s_Name, t_Name, item 2 of two_Names)
end if
else
set {row_Num1, col_Num1} to my decipher(d_Name, s_Name, t_Name, r_Name)
set {row_Num2, col_Num2} to {row_Num1, col_Num1}
end if -- r_Name contains…
return {row_Num1, col_Num1, row_Num2, col_Num2}
end getCellsAddresses
--=====
set { dName, sName, tName, rname, rowNum1, colNum1, rowNum2, colNum2} to my getSelParams()
on getSelParams()
local r_Name, t_Name, s_Name, d_Name
set {d_Name, s_Name, t_Name, r_Name} to my getSelection()
if r_Name is missing value then
if my parleAnglais() then
error "No selected cells"
else
error "Il n'y a pas de cellule sélectionnée !"
end if
end if
return {d_Name, s_Name, t_Name, r_Name} & my getCellsAddresses(d_Name, s_Name, t_Name, r_Name)
end getSelParams
--=====
set {rowNumber, columnNumber} to my decipher(docName,sheetName,tableName,cellRef)
apply to named row or named column !
on decipher(d, s, t, n)
tell application "Numbers" to tell document d to tell sheet s to tell table t to ¬
return {address of row of cell n, address of column of cell n}
end decipher
--=====
set { d_Name, s_Name, t_Name, r_Name} to my getSelection()
on getSelection()
local _, theRange, theTable, theSheet, theDoc, errMsg, errNum
tell application "Numbers" to tell document 1
repeat with i from 1 to the count of sheets
tell sheet i
set x to the count of tables
if x > 0 then
repeat with y from 1 to x
try
(selection range of table y) as text
on error errMsg number errNum
set {_, theRange, _, theTable, _, theSheet, _, theDoc} to my decoupe(errMsg, quote)
return {theDoc, theSheet, theTable, theRange}
end try
end repeat -- y
end if -- x>0
end tell -- sheet
end repeat -- i
end tell -- document
return {missing value, missing value, missing value, missing value}
end getSelection
--=====
on parleAnglais()
local z
try
tell application "Numbers" to set z to localized string "Cancel"
on error
set z to "Cancel"
end try
return (z is not "Annuler")
end parleAnglais
--=====
on decoupe(t, d)
local oTIDs, l
set oTIDs to AppleScript's text item delimiters
set AppleScript's text item delimiters to d
set l to text items of t
set AppleScript's text item delimiters to oTIDs
return l
end decoupe
--=====
--[/SCRIPT]
I will enhance the old transposeLive too.
Yvan KOENIG (VALLAURIS, France) 31 août 2010 17:58:27