Excel: funzione personalizzata in una cella

[WarriorXP]

E' possibile fare in modo che scrivendo in una cella, per esempio, x^2, questa sia richiamabile in altre celle facendola con dei dati?

Per esempio: metto x^2 in una cella B4, poi in un'altra, =B4(5), dove il risultato sia 25.

[hero93]

E' possibile fare in modo che scrivendo in una cella, per esempio, x^2, questa sia richiamabile in altre celle facendola con dei dati?

Per esempio: metto x^2 in una cella B4, poi in un'altra, =B4(5), dove il risultato sia 25.

hai sbagliato sezione e cmq non ho capito la domanda.

[WarriorXP]

hai sbagliato sezione e cmq non ho capito la domanda.

Occazz...

Comunque l'esempio, almeno, è oggettivamente chiarissimo. °-°

[Fabio3000]

vveramente nemmeno io ho capito l'esempio *=*


P.S: WarriorXP Sbaglia sezione! leggi il top per non ripetere l'errore

[WarriorXP]

Voglio poter richiamare una funzione esattamente come si farebbe con un dato (tramite un riferimento incrociato ad un'altra cella), in modo che aggiornando la funzione si aggiornino anche le celle in cui tale funzione è richiamata (e applicata alle rispettive variabili).

[WarriorXP]

L'autore di questo file, per esempio, ha risolto il problema, ma non riesco a capire come!
Mi è sembrato di capire che usi il Visual Basic, ma non ci capisco nulla francamente.

[miniBill '90]

Spoiler:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo Forgetit
    Numpoints = 200
    For Each c In Target
        If (c.Row = 13 And c.Column = 7) Then
            Range(Cells(3, 12), Cells(Numpoints + 3, 12)).Formula = "=" & Range("G13").Text
            Range(Cells(3, 12), Cells(Numpoints + 3, 12)).Copy Destination:=Range(Cells(3, 14), Cells(Numpoints + 3, 14))
            Range(Cells(3, 12), Cells(Numpoints + 3, 12)).Copy Destination:=Range(Cells(3, 18), Cells(Numpoints + 3, 18))
            
            Exit For
            
        ElseIf (c.Row = 14 And c.Column = 9) Then
            If Range("I14").Value > 200 Then Range("I14").Value = 200
            Exit For
    End If
         
    Next c
    
Forgetit:
End Sub

ovvero, se modifichi la formula la copiaincolla nelle celle

[nicjedi]

penso utilizzi il VBA...guarda la macro...purtroppo non conosco il VBA...

[WarriorXP]

Spoiler:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo Forgetit
    Numpoints = 200
    For Each c In Target
        If (c.Row = 13 And c.Column = 7) Then
            Range(Cells(3, 12), Cells(Numpoints + 3, 12)).Formula = "=" & Range("G13").Text
            Range(Cells(3, 12), Cells(Numpoints + 3, 12)).Copy Destination:=Range(Cells(3, 14), Cells(Numpoints + 3, 14))
            Range(Cells(3, 12), Cells(Numpoints + 3, 12)).Copy Destination:=Range(Cells(3, 18), Cells(Numpoints + 3, 18))
            
            Exit For
            
        ElseIf (c.Row = 14 And c.Column = 9) Then
            If Range("I14").Value > 200 Then Range("I14").Value = 200
            Exit For
    End If
         
    Next c
    
Forgetit:
End Sub

ovvero, se modifichi la formula la copiaincolla nelle celle

Visto che non è lunghissimo, potrei chiederti il favore di commertarmi le righe? ç_ç
Avevo capito che era quello, ma non riesco ad interpretarne le istruzioni visto che il VBA ha dei comandi piuttosto atipici rispetto ai linguaggi tradizionali... Ti prego! Mi serve assolutamente! Ti pagooo!

[WarriorXP]

Anche perché non so come "attivarla" nel foglio... L'ho modificata a seconda della disposizione delle mie celle ("a naso"... i commenti mi servirebbero ugualmente perché devo spiegare ad un'altra persona come funziona), ma non compare nulla!
Ecco il file http://files-upload.com/218680/Bozza.xls.html

EDIT: Ora va (perlomeno è attivo, però lo devo sistemare mi sa), ma commentale lo stesso se puoi!

EDIT: Un problema persiste: la formula me la copia, ma la variabile indipendente non è associata a nessuna serie di celle... Come si associa?

[WarriorXP]

Risolto!! :3