Discussione:
Tir.cost in vba
(troppo vecchio per rispondere)
LucaS
2006-12-11 15:04:07 UTC
Permalink
Ciao a tutti,
é possibile usare la funzione TIR.COST in vba?
qual é?

grazie,

LS
Mauro Gamberini
2006-12-11 15:16:12 UTC
Permalink
é possibile usare la funzione TIR.COST in vba?
qual é?
*************************************

ActiveCell.Formula = "=IRR()"
--
---------------------------
Mauro Gamberini
http://www.riolab.org/
Norman Jones
2006-12-11 15:19:10 UTC
Permalink
Ciao Lucas,

'---------------
é possibile usare la funzione TIR.COST in vba?

'---------------

Prova qualcosa del genere:


Res = Application.WorksheetFunction.IRR(Arg1, Arg2)


---
Regards,
Norman
LucaS
2006-12-11 15:36:23 UTC
Permalink
Post by Norman Jones
Res = Application.WorksheetFunction.IRR(Arg1, Arg2)
Ci sto provando ma ho un...
...Problema: Arg1 é una Range di celle e cioé

Il range di celle va da una cella fissa di una colonna a una cella
della stessa colonna ma che non conosco (dipende dal numero di
iterazioni del ciclo for che uso altrove)

che sintassi devo usare?


LS
Mauro Gamberini
2006-12-11 15:47:08 UTC
Permalink
Ci sto provando ma ho un...
...Problema: Arg1 é una Range di celle e cioé
Il range di celle va da una cella fissa di una colonna a una cella
della stessa colonna ma che non conosco (dipende dal numero di
iterazioni del ciclo for che uso altrove)

che sintassi devo usare?
**************************************************


Quindi?

Per trovare l'ultima cella con dati della colonna A:

Dim lng As Long

lng = tuoFoglio.Range("A" & Rows.Count).end(xlup).Row

Quindi:

tuoFoglio.Range("A1:A" & lng)
ti darà il range A1:An dove n è l'ultima
cella che contiene dati.

Riesci adesso a passare il parametro?
--
---------------------------
Mauro Gamberini
http://www.riolab.org/
LucaS
2006-12-11 16:20:14 UTC
Permalink
Post by Mauro Gamberini
Dim lng As Long
lng = tuoFoglio.Range("A" & Rows.Count).end(xlup).Row
tuoFoglio.Range("A1:A" & lng)
ti darà il range A1:An dove n è l'ultima
cella che contiene dati.
Riesci adesso a passare il parametro?
Siiiiii!!! grande!

Riporto il codice completo:

Dim lng As Long
lng = Foglio2.Range("K" & Rows.Count).End(xlUp).Row
Foglio1.Range("P3").Value =
Application.WorksheetFunction.IRR(Foglio2.Range("K4:K" & lng))

Grazie,
LS
Mauro Gamberini
2006-12-11 16:29:44 UTC
Permalink
Post by LucaS
Post by Mauro Gamberini
Riesci adesso a passare il parametro?
Siiiiii!!!
;-)
--
---------------------------
Mauro Gamberini
http://www.riolab.org/
Franz Verga
2006-12-11 15:23:31 UTC
Permalink
Post by LucaS
Ciao a tutti,
é possibile usare la funzione TIR.COST in vba?
qual é?
grazie,
LS
Ciao Luca,

se in una finestra dell'editor di VBA digiti worksheetfunction e alla fine
metti un punto, per cui ottieni "worksheetfunction." (ovviamente senza
virgolette) si aprirà una finestrella che ti permetterà di scegliere le
funzioni del foglio di lavoro che è possibile utilizzare direttamente
(tramite appunto worksheetfunction) all'interno di VBA. I nomi delle
funzioni, però sono in inglese, per cui ti può essere utile l'add-in
gratuito TranslateIT, scaricabile qui:

http://members.chello.nl/jvolk/keepitcool/index.html

Per inciso, il nome della funzione che ti interessa è IRR... :-)
--
Spero d'esserti stato d'aiuto.

Ti ringrazio anticipatamente per il riscontro.

Ciao

Franz Verga
LucaS
2006-12-11 15:48:49 UTC
Permalink
Post by Franz Verga
se in una finestra dell'editor di VBA digiti worksheetfunction e alla fine
metti un punto, per cui ottieni "worksheetfunction." (ovviamente senza
virgolette) si aprirà una finestrella che ti permetterà di scegliere le
funzioni del foglio di lavoro che è possibile utilizzare direttamente
(tramite appunto worksheetfunction) all'interno di VBA. I nomi delle
funzioni, però sono in inglese, per cui ti può essere utile l'add-in
Mooooolto utile!
grazie!!! :-)

PS.: scusatemi se vi annoio con domande che possono sembrare banali, ma
sono un neofita del vba (ma non della programmazione)... Il mio
problema maggiore é "digerire" la sintassi "curiosa" del vba...ma
prima o poi ce la farò... per il momento portate un po' di pazienza
;-)

Ciao

LS
Loading...