[Quizzone di escel] Quesito 38

Per approfondire:https://sites.google.com/site/e90e50/documento-plinius/quizzone-di-excel
Ci capita a volte di visitare siti dove sono affrontate problematiche per la
cui soluzione vengono proposte delle formule. Solo raramente, purtroppo,
queste sono in italiano, molto pi spesso sono in inglese.
Ma anche in questo NG abbiamo amici che usano la versione inglese di excel
(Bruno, ti fischiano le orecchie? :-))
Certo tradurre una formula non un problema insormontabile, ma sempre una
fatica ed una scocciatura farlo.
E poi, alzi una mano chi non s' ritrovato davanti ad un messaggio di
errore, anche solo per aver dimenticato di trasformare una virgola in punto
e virgola...
E l'esigenza inversa? Se voglio proporre una mia formula ad altri che usano
la versione inglese? Se traduco manualmente non posso neppure provare la
formula per verificare che non ci siano sviste!
Non sarebbe comodo avere a disposizione una macro con la quale, una volta
selezionata la cella in cui abbiamo copincollato la formula in inglese,
bastasse richiamarla per avere miracolosamente nella cella il risultato
della formula e nella barra la formula stessa bella e tradotta?
Si potrebbe collegare la macro ad una combinazione di tasti (per esempio
CONTROL + a) ed inserirla in un proprio file di componenti aggiuntivi oppure
nel file Personal.xls per averla sempre a disposizione.
Naturalmente dopo averne visto la traduzione ed il risultato potremmo
rivolere di nuovo la formula originale, nel qual caso un nuovo comando
CONTROL + a ci riporterebbe alla formula in inglese preceduta da un
apostrofo per evitare l'errore "#NOME?"
Ovvio anche che se una cella non contenesse una formula ma una costante, non
dovrebbe succedere un bel niente.
Quindi, riepilogando, bisogna costruire una macro che, richiamata dopo aver
- se nelle celle selezionate c' una formula in italiano la traduca in
inglese preceduta da un apostrofo;
- se nella cella selezionata c' una formula in inglese (preceduta o no da
apostrofo) la traduca in italiano mostrandone il risultato;
- se il dato presente nella cella una costante (numerica o stringa) non
alteri in alcun modo il contenuto della cella.
un gadget quasi irrinunciabile!
Punteggio standard 5 + 3
Buon lavoro,
E.

Sub t(rng As Excel.Range)
Dim v As Excel.Range

For Each v In rng
If v.HasFormula Then
v.Value = "'" & v.Formula
Else
v.Formula = v.Value
End If
Next
End Sub

giusto?
ciao
r

plinius

2011-11-17 14:15:37 UTC

Per
approfondire:https://sites.google.com/site/e90e50/documento-plinius/quizzone-di-excel
Ci capita a volte di visitare siti dove sono affrontate problematiche per la
cui soluzione vengono proposte delle formule. Solo raramente, purtroppo,
queste sono in italiano, molto pi spesso sono in inglese.
Ma anche in questo NG abbiamo amici che usano la versione inglese di excel
(Bruno, ti fischiano le orecchie? :-))
Certo tradurre una formula non un problema insormontabile, ma sempre una
fatica ed una scocciatura farlo.
E poi, alzi una mano chi non s' ritrovato davanti ad un messaggio di
errore, anche solo per aver dimenticato di trasformare una virgola in punto
e virgola...
E l'esigenza inversa? Se voglio proporre una mia formula ad altri che usano
la versione inglese? Se traduco manualmente non posso neppure provare la
formula per verificare che non ci siano sviste!
Non sarebbe comodo avere a disposizione una macro con la quale, una volta
selezionata la cella in cui abbiamo copincollato la formula in inglese,
bastasse richiamarla per avere miracolosamente nella cella il risultato
della formula e nella barra la formula stessa bella e tradotta?
Si potrebbe collegare la macro ad una combinazione di tasti (per esempio
CONTROL + a) ed inserirla in un proprio file di componenti aggiuntivi oppure
nel file Personal.xls per averla sempre a disposizione.
Naturalmente dopo averne visto la traduzione ed il risultato potremmo
rivolere di nuovo la formula originale, nel qual caso un nuovo comando
CONTROL + a ci riporterebbe alla formula in inglese preceduta da un
apostrofo per evitare l'errore "#NOME?"
Ovvio anche che se una cella non contenesse una formula ma una costante, non
dovrebbe succedere un bel niente.
Quindi, riepilogando, bisogna costruire una macro che, richiamata dopo aver
- se nelle celle selezionate c' una formula in italiano la traduca in
inglese preceduta da un apostrofo;
- se nella cella selezionata c' una formula in inglese (preceduta o no da
apostrofo) la traduca in italiano mostrandone il risultato;
- se il dato presente nella cella una costante (numerica o stringa) non
alteri in alcun modo il contenuto della cella.
La macro semplice da fare ma, ritengo, utilissima da avere a
un gadget quasi irrinunciabile!
Punteggio standard 5 + 3
Buon lavoro,
E.

Sub t(rng As Excel.Range)
Dim v As Excel.Range
For Each v In rng
If v.HasFormula Then
v.Value = "'" & v.Formula
Else
v.Formula = v.Value
End If
Next
End Sub
giusto?
ciao
r

Nì... come gli passi il parametro rng? o_O

ciao,
E.

2011-11-17 14:36:12 UTC

Per
approfondire:https://sites.google.com/site/e90e50/documento-plinius/quizzone-di-excel
Ci capita a volte di visitare siti dove sono affrontate problematiche per la
cui soluzione vengono proposte delle formule. Solo raramente, purtroppo,
queste sono in italiano, molto pi spesso sono in inglese.
Ma anche in questo NG abbiamo amici che usano la versione inglese di excel
(Bruno, ti fischiano le orecchie? :-))
Certo tradurre una formula non un problema insormontabile, ma sempre una
fatica ed una scocciatura farlo.
E poi, alzi una mano chi non s' ritrovato davanti ad un messaggio di
errore, anche solo per aver dimenticato di trasformare una virgola in punto
e virgola...
E l'esigenza inversa? Se voglio proporre una mia formula ad altri che usano
la versione inglese? Se traduco manualmente non posso neppure provare la
formula per verificare che non ci siano sviste!
Non sarebbe comodo avere a disposizione una macro con la quale, una volta
selezionata la cella in cui abbiamo copincollato la formula in inglese,
bastasse richiamarla per avere miracolosamente nella cella il risultato
della formula e nella barra la formula stessa bella e tradotta?
Si potrebbe collegare la macro ad una combinazione di tasti (per esempio
CONTROL + a) ed inserirla in un proprio file di componenti aggiuntivi oppure
nel file Personal.xls per averla sempre a disposizione.
Naturalmente dopo averne visto la traduzione ed il risultato potremmo
rivolere di nuovo la formula originale, nel qual caso un nuovo comando
CONTROL + a ci riporterebbe alla formula in inglese preceduta da un
apostrofo per evitare l'errore "#NOME?"
Ovvio anche che se una cella non contenesse una formula ma una costante, non
dovrebbe succedere un bel niente.
Quindi, riepilogando, bisogna costruire una macro che, richiamata dopo aver
- se nelle celle selezionate c' una formula in italiano la traduca in
inglese preceduta da un apostrofo;
- se nella cella selezionata c' una formula in inglese (preceduta o no da
apostrofo) la traduca in italiano mostrandone il risultato;
- se il dato presente nella cella una costante (numerica o stringa) non
alteri in alcun modo il contenuto della cella.
un gadget quasi irrinunciabile!
Punteggio standard 5 + 3
Buon lavoro,
E.

Sub t(rng As Excel.Range)
Dim v As Excel.Range
For Each v In rng
If v.HasFormula Then
v.Value = "'" & v.Formula
Else
v.Formula = v.Value
End If
Next
End Sub
giusto?
ciao
r

Nì... come gli passi il parametro rng? o_O
ciao,
E.

plinius

2011-11-17 14:45:17 UTC

Per
approfondire:https://sites.google.com/site/e90e50/documento-plinius/quizzone-di-excel
Ci capita a volte di visitare siti dove sono affrontate problematiche
per
la
cui soluzione vengono proposte delle formule. Solo raramente, purtroppo,
queste sono in italiano, molto pi spesso sono in inglese.
Ma anche in questo NG abbiamo amici che usano la versione inglese di excel
(Bruno, ti fischiano le orecchie? :-))
Certo tradurre una formula non un problema insormontabile, ma sempre una
fatica ed una scocciatura farlo.
E poi, alzi una mano chi non s' ritrovato davanti ad un messaggio di
errore, anche solo per aver dimenticato di trasformare una virgola in punto
e virgola...
E l'esigenza inversa? Se voglio proporre una mia formula ad altri che usano
la versione inglese? Se traduco manualmente non posso neppure provare la
formula per verificare che non ci siano sviste!
Non sarebbe comodo avere a disposizione una macro con la quale, una volta
selezionata la cella in cui abbiamo copincollato la formula in inglese,
bastasse richiamarla per avere miracolosamente nella cella il risultato
della formula e nella barra la formula stessa bella e tradotta?
Si potrebbe collegare la macro ad una combinazione di tasti (per esempio
CONTROL + a) ed inserirla in un proprio file di componenti aggiuntivi oppure
nel file Personal.xls per averla sempre a disposizione.
Naturalmente dopo averne visto la traduzione ed il risultato potremmo
rivolere di nuovo la formula originale, nel qual caso un nuovo comando
CONTROL + a ci riporterebbe alla formula in inglese preceduta da un
apostrofo per evitare l'errore "#NOME?"
Ovvio anche che se una cella non contenesse una formula ma una
costante,
non
dovrebbe succedere un bel niente.
Quindi, riepilogando, bisogna costruire una macro che, richiamata dopo aver
- se nelle celle selezionate c' una formula in italiano la traduca in
inglese preceduta da un apostrofo;
- se nella cella selezionata c' una formula in inglese (preceduta o no da
apostrofo) la traduca in italiano mostrandone il risultato;
- se il dato presente nella cella una costante (numerica o stringa) non
alteri in alcun modo il contenuto della cella.
un gadget quasi irrinunciabile!
Punteggio standard 5 + 3
Buon lavoro,
E.

Sub t(rng As Excel.Range)
Dim v As Excel.Range
For Each v In rng
If v.HasFormula Then
v.Value = "'" & v.Formula
Else
v.Formula = v.Value
End If
Next
End Sub
giusto?
ciao
r

Nì... come gli passi il parametro rng? o_O
ciao,
E.

ma daiiii :-)
Sub t()
Dim v As Excel.Range
If TypeOf Selection Is Range Then
For Each v In Selection
If v.HasFormula Then
v.Value = "'" & v.Formula
Else
v.Formula = v.Value
End If
Next
End If
End Sub

ciao
r

*****************

Ok! 8 punti guadagnati :-)

(ma l'hai messa tra le tue macro??)

Ciao,
E. :-)

2011-11-17 15:05:57 UTC

Per
approfondire:https://sites.google.com/site/e90e50/documento-plinius/quizzone-di-excel
Ci capita a volte di visitare siti dove sono affrontate problematiche
per
la
cui soluzione vengono proposte delle formule. Solo raramente, purtroppo,
queste sono in italiano, molto pi spesso sono in inglese.
Ma anche in questo NG abbiamo amici che usano la versione inglese di excel
(Bruno, ti fischiano le orecchie? :-))
Certo tradurre una formula non un problema insormontabile, ma sempre una
fatica ed una scocciatura farlo.
E poi, alzi una mano chi non s' ritrovato davanti ad un messaggio di
errore, anche solo per aver dimenticato di trasformare una virgola in punto
e virgola...
E l'esigenza inversa? Se voglio proporre una mia formula ad altri che usano
la versione inglese? Se traduco manualmente non posso neppure provare la
formula per verificare che non ci siano sviste!
Non sarebbe comodo avere a disposizione una macro con la quale, una volta
selezionata la cella in cui abbiamo copincollato la formula in inglese,
bastasse richiamarla per avere miracolosamente nella cella il risultato
della formula e nella barra la formula stessa bella e tradotta?
Si potrebbe collegare la macro ad una combinazione di tasti (per esempio
CONTROL + a) ed inserirla in un proprio file di componenti aggiuntivi oppure
nel file Personal.xls per averla sempre a disposizione.
Naturalmente dopo averne visto la traduzione ed il risultato potremmo
rivolere di nuovo la formula originale, nel qual caso un nuovo comando
CONTROL + a ci riporterebbe alla formula in inglese preceduta da un
apostrofo per evitare l'errore "#NOME?"
Ovvio anche che se una cella non contenesse una formula ma una
costante,
non
dovrebbe succedere un bel niente.
Quindi, riepilogando, bisogna costruire una macro che, richiamata dopo aver
- se nelle celle selezionate c' una formula in italiano la traduca in
inglese preceduta da un apostrofo;
- se nella cella selezionata c' una formula in inglese (preceduta o no da
apostrofo) la traduca in italiano mostrandone il risultato;
- se il dato presente nella cella una costante (numerica o stringa) non
alteri in alcun modo il contenuto della cella.
un gadget quasi irrinunciabile!
Punteggio standard 5 + 3
Buon lavoro,
E.

Sub t(rng As Excel.Range)
Dim v As Excel.Range
For Each v In rng
If v.HasFormula Then
v.Value = "'" & v.Formula
Else
v.Formula = v.Value
End If
Next
End Sub
giusto?
ciao
r

Nì... come gli passi il parametro rng? o_O
ciao,
E.

ma daiiii :-)
Sub t()
Dim v As Excel.Range
If TypeOf Selection Is Range Then
For Each v In Selection
If v.HasFormula Then
v.Value = "'" & v.Formula
Else
v.Formula = v.Value
End If
Next
End If
End Sub
ciao
r
*****************
Ok! 8 punti guadagnati :-)
(ma l'hai messa tra le tue macro??)
Ciao,
E. :-)

sempre usato la finestra immediata :-)
al 39 ...
ciao
r

plinius

2011-11-17 15:14:30 UTC

Per
approfondire:https://sites.google.com/site/e90e50/documento-plinius/quizzone-di-excel
Ci capita a volte di visitare siti dove sono affrontate problematiche
per
la
cui soluzione vengono proposte delle formule. Solo raramente, purtroppo,
queste sono in italiano, molto pi spesso sono in inglese.
Ma anche in questo NG abbiamo amici che usano la versione inglese di excel
(Bruno, ti fischiano le orecchie? :-))
Certo tradurre una formula non un problema insormontabile, ma sempre una
fatica ed una scocciatura farlo.
E poi, alzi una mano chi non s' ritrovato davanti ad un messaggio di
errore, anche solo per aver dimenticato di trasformare una virgola in punto
e virgola...
E l'esigenza inversa? Se voglio proporre una mia formula ad altri che usano
la versione inglese? Se traduco manualmente non posso neppure provare la
formula per verificare che non ci siano sviste!
Non sarebbe comodo avere a disposizione una macro con la quale, una volta
selezionata la cella in cui abbiamo copincollato la formula in inglese,
bastasse richiamarla per avere miracolosamente nella cella il risultato
della formula e nella barra la formula stessa bella e tradotta?
Si potrebbe collegare la macro ad una combinazione di tasti (per esempio
CONTROL + a) ed inserirla in un proprio file di componenti aggiuntivi oppure
nel file Personal.xls per averla sempre a disposizione.
Naturalmente dopo averne visto la traduzione ed il risultato potremmo
rivolere di nuovo la formula originale, nel qual caso un nuovo comando
CONTROL + a ci riporterebbe alla formula in inglese preceduta da un
apostrofo per evitare l'errore "#NOME?"
Ovvio anche che se una cella non contenesse una formula ma una
costante,
non
dovrebbe succedere un bel niente.
Quindi, riepilogando, bisogna costruire una macro che, richiamata
dopo
aver
- se nelle celle selezionate c' una formula in italiano la traduca in
inglese preceduta da un apostrofo;
- se nella cella selezionata c' una formula in inglese (preceduta o
no
da
apostrofo) la traduca in italiano mostrandone il risultato;
- se il dato presente nella cella una costante (numerica o stringa) non
alteri in alcun modo il contenuto della cella.
un gadget quasi irrinunciabile!
Punteggio standard 5 + 3
Buon lavoro,
E.

Sub t(rng As Excel.Range)
Dim v As Excel.Range
For Each v In rng
If v.HasFormula Then
v.Value = "'" & v.Formula
Else
v.Formula = v.Value
End If
Next
End Sub
giusto?
ciao
r

Nì... come gli passi il parametro rng? o_O
ciao,
E.

ma daiiii :-)
Sub t()
Dim v As Excel.Range
If TypeOf Selection Is Range Then
For Each v In Selection
If v.HasFormula Then
v.Value = "'" & v.Formula
Else
v.Formula = v.Value
End If
Next
End If
End Sub
ciao
r
*****************
Ok! 8 punti guadagnati :-)
(ma l'hai messa tra le tue macro??)
Ciao,
E. :-)

sempre usato la finestra immediata :-)
al 39 ...
ciao
r

**********************

...ma vuoi mettere la comodità! :-)
al 39
Ciao,
E.

2011-11-17 15:16:35 UTC