Forum IALweb : Funzione personalizzata che non funziona

Funzione personalizzata che non funziona : Ciao Andrea,i TAG, nello specifico...

Tue, 29 May 2012 11:09:26 +0000

Author: Ricky53
Subject: 16463690
Posted: 29/Mag/2012 at 11:09

Ciao Andrea,
i TAG, nello specifico quelli per il "Codice", evidenziano e rendono leggibile il codice.

La sintassi �
[*code]
all'inizio del codice
e
[*/code]
alla fine del codice

ATTENZIONE: * non va scritto, l'ho inserito solo per far vedere come va utilizzato CODE.

Edited by Ricky53 - 29/Mag/2012 at 11:17

Funzione personalizzata che non funziona : Risolto !grazie a tutti e se a...

Mon, 28 May 2012 17:34:30 +0000

Author: andrea61
Subject: 16463690
Posted: 28/Mag/2012 at 17:34

Risolto !
grazie a tutti e se a qualcuno interessa ecco il codice corretto sulle vostre indicazioni

Public Function Calcoloprezzocopia(Quantitacopie As Variant, Note As Variant, Pagine As Variant, _
�Tabella_sino As Range, TABtariffeFF As Range, TABtariffeFV As Range, _
�Tipoconfez As Variant, Formatolibro As Variant, _
�Grammaturacarta As Variant, Forzat As Variant) As Variant
�'

�Dim Codicericerca As Variant
�Dim VAR1 As Variant
�Dim VAR2 As Variant
�Dim VAR3 As Variant
�Dim VAR4 As Variant
�Dim VAR5 As Variant
�Dim VAR6 As Variant
�Dim VAR7 As Variant
�
Codicericerca = Tipoconfez & Formatolibro & Grammaturacarta
�
VAR1 = WorksheetFunction.VLookup(Codicericerca, Tabella_sino, 2)
�
If WorksheetFunction.VLookup(Codicericerca, Tabella_sino, 2) = "NO" Then
�Calcoloprezzocopia = "NO TARIF"
�
Else
�If Note <> "" Then
�Calcoloprezzocopia = "EXTRACOSTS"
�Else
�If Pagine > 104 Then
�Calcoloprezzocopia = "*** PAGES� ***"
�Else:
�VAR2 = WorksheetFunction.VLookup(Codicericerca, TABtariffeFF, 2)
�VAR3 = WorksheetFunction.HLookup(Pagine, TABtariffeFF, 2)
�VAR4 = WorksheetFunction.VLookup(Codicericerca, TABtariffeFV, 2)
�VAR5 = WorksheetFunction.HLookup(Pagine, TABtariffeFV, 2)

       If Forzat = "4+0" Then
            VAR6 = 60
            VAR7 = 0.003
            Else
            VAR6 = 0
            VAR7 = 0
       End If
Calcoloprezzocopia = (WorksheetFunction.Index(TABtariffeFF, VAR2, VAR3) + VAR6) _
�/ Quantitacopie + (WorksheetFunction.Index(TABtariffeFV, VAR4, VAR5) + VAR7)
�
End If
�End If
�End If
�
End Function

�

. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
EDIT
Inseriti TAG per il codice
Leggi il mio intervento che trovi dopo il tuo

Ciao da Ricky53
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

Edited by Ricky53 - 29/Mag/2012 at 11:11

Funzione personalizzata che non funziona : grazie a tutti, domani al lavoro...

Mon, 21 May 2012 20:08:12 +0000

Author: andrea61
Subject: 16463690
Posted: 21/Mag/2012 at 20:08

grazie a tutti, domani al lavoro cerco di mettere ordine
con i consigli che mi avete dato.

Chiedo scusa a Ricky53 ma da niubbo non so cosa
siano i tag del codice ...

grazie ancora
Andrea

Funzione personalizzata che non funziona : Ciao.Per i calcoli da eseguire...

Mon, 21 May 2012 18:55:49 +0000

Author: jorel
Subject: 16463690
Posted: 21/Mag/2012 at 18:55

Ciao.

Per i calcoli da eseguire e gli IF da applicare mi sembra che l'udf non sia strettamente necessaria.

Funzione personalizzata che non funziona : Ciao.Ad una prima lettura...

Mon, 21 May 2012 12:00:53 +0000

Author: Zer0Kelvin
Subject: 16463690
Posted: 21/Mag/2012 at 12:00

Ciao.
Ad una prima lettura ho trovato i seguenti errori:
-nel foglio il nome della UDF � errato (Calcoloprezzo invece di Calcoloprezzocopia)
-nel codice della UDF vengono ridefinite come variabili locali sia i parametri che il nome della funzione, questo genera un errore in fase di compilazione.
-almeno uno dei nomi del foglio fa riferimento a un intervallo errato
-nel codice

        Calcoloprezzocopia = WorksheetFunction.Index(TABtariffeFF, VAR2, VAR3) _
        / Quantitacopie + (***qui manca il riferimento a WorksheetFunction***)Index(TABtariffeFV, VAR4, VAR5)

manca un WorksheetFunction. nel punto indicato.
E da rivedere con calma, al momento io non ho tempo, ma penso che si possa risolvere con relativa facilit�.

Edited by Zer0Kelvin - 21/Mag/2012 at 12:05

Funzione personalizzata che non funziona : Ciao a tutti,ho tentato di creare...

Mon, 21 May 2012 09:36:51 +0000

Author: andrea61
Subject: 16463690
Posted: 21/Mag/2012 at 09:36

Ciao a tutti,
ho tentato di creare una funzione personalizzata che calcoli un prezzo, con degli if e una ricerca su tabelle

non funziona, potreste darmi una mano ?

Grazie mille in anticipo

sottoriporto il codice e allego una versione semplificata del foglio

Public Function Calcoloprezzocopia(Quantitacopie As Variant, Note As Variant, Pagine As Variant, _
Tabella_sino As Range, TABtariffeFF As Range, TABtariffeFV As Range, _
Tipoconfez As Variant, Formatolibro As Variant, _
Grammaturacarta As Variant) As Variant
'


'Application Volatile
'
Dim Calcoloprezzocopia As Variant
Dim Quantitacopie As Variant
Dim Note As Variant
Dim Pagine As Variant
Dim Tabella_sino As Range
Dim TABtariffeFF As Range
Dim TABtariffeFV As Range
Dim Tipoconfez As Variant
Dim Formatolibro As Variant
Dim Grammaturacarta As Variant
Dim Codicericerca As Variant
Dim VAR1 As Variant
Dim VAR2 As Variant
Dim VAR3 As Variant
Dim VAR4 As Variant
Dim VAR5 As Variant

Codicericerca = Tipoconfez & Formatolibro & Grammaturacarta

VAR1 = WorksheetFunction.VLookup(Codicericerca, Tabella_sino, 2)

If VAR1 = "NO" Then
    Calcoloprezzocopia = "NO PRICES LIST"

Else
    If Note <> "" Then
        Calcoloprezzocopia = "EXTRACOSTS"
    Else
        If Pagine > 64 Then
            Calcoloprezzocopia = "ATTN high number of pages"
        Else:
            VAR2 = WorksheetFunction.VLookup(Codicericerca, TABtariffeFF, 2)
            VAR3 = WorksheetFunction.HLookup(Pagine, TABtariffeFF, 2)
            VAR4 = WorksheetFunction.VLookup(Codicericerca, TABtariffeFV, 2)
            VAR5 = WorksheetFunction.HLookup(Pagine, TABtariffeFV, 2)
              
            Calcoloprezzocopia = WorksheetFunction.Index(TABtariffeFF, VAR2, VAR3) _
        / Quantitacopie + Index(TABtariffeFV, VAR4, VAR5)
        
        End If
    End If
End If

End Function

u ploads/17926/Funzione_Personalizzata_n1.rar

. . . . . . . . . . . . . . . . . . . . . . . .
EDIT
Ho inserito i TAG per il codice.

La prossima molta puoi inserirli tu.
Grazie per la collaborazione
Ciao da Ricky53
. . . . . . . . . . . . . . . . . . . . . . . .

Edited by Ricky53 - 21/Mag/2012 at 13:04