Risultati da 1 a 18 di 18

Discussione: Moltiplicazione cella per una costante



  1. #1
    L'avatar di mirko.esposito
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Milano
    Messaggi
    59
    Versione Office
    2016 MAC
    Likes ricevuti
    3
    Likes dati
    2

    Arrow Moltiplicazione cella per una costante

    Ciao ragazzi!
    Ho un quesito che spero abbia una soluzione praticabile.
    Vorrei che excel moltiplicasse il valore che di volta in volta inserisco in una cella per una costante ricopiando quel valore all'interno della cella.
    In sostanza credo si crei un riferimento circolare ma il problema vero è che nel momento in cui inserisco il valore, ovviamente viene sostituito il contenuto della cella.

    Spero di essermi spiegato.
    Grazie mille a chiunque di voi risponderà.

  2. #2
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126

    Re: Moltiplicazione cella per una costante

    Ciao Mirko
    praticamte se inserisci in una cella il Nr5 voi che qusto numero automaticamnete diventa 15 perchè vuoi che si moltiplica per 3 ?

  3. #3
    L'avatar di mirko.esposito
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Milano
    Messaggi
    59
    Versione Office
    2016 MAC
    Likes ricevuti
    3
    Likes dati
    2

    Re: Moltiplicazione cella per una costante

    Ciao Gerardo, vorrei esattamente quello che dici...

  4. #4
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126

    Re: Moltiplicazione cella per una costante

    Citazione Originariamente Scritto da mirko.esposito Visualizza Messaggio
    Ciao Gerardo, vorrei esattamente quello che dici...
    Be allora questo è lavoro di esperti VBA...
    sposto questa discussione nella sezione VBA cosi che venga vista
    Un saluto

  5. #5
    L'avatar di mirko.esposito
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Milano
    Messaggi
    59
    Versione Office
    2016 MAC
    Likes ricevuti
    3
    Likes dati
    2

    Re: Moltiplicazione cella per una costante

    Perfetto, grazie mille.

  6. #6
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126

    Re: Moltiplicazione cella per una costante

    Citazione Originariamente Scritto da mirko.esposito Visualizza Messaggio
    Perfetto, grazie mille.
    Ho preso a cuore la tua domanda e ho trovato questo codice che moltiplica per 5 (ovviamanete puoi cambiare il coefficente)

    Codice: 
    Option Explicit
    
    
    Sub multiply()
    ActiveCell = ActiveCell * 5
    End Sub
    1. Copia il codice qui sopra
    2. Aprire la nuova cartella di lavoro
    3. salva il file con estensione .xlsm
    4. Premere i tasti ALT + F11 per aprire l'editor di Visual Basic
    5. Premere i tasti ALT + I per attivare il menu Inserisci
    6. Premere M per inserire un modulo standard quando il cursore lampeggia, incollare il codice
    7. Premere i tasti ALT + Q per uscire dall'editor, e tornare a Excel
    8. Per eseguire la macro da Excel premere ALT + F8 per visualizzare la finestra Esegui macro.(prima seleziona la cella)
    9. adesso devi inserire il bottone che ti servirà per eseguire la Macro, vai in alto nella ribbon>> nel cartella sviluppo di Excel>>clicca Inserisci>>clicca Bottone (controllo modulo) e assegni la macro appena creata
    10. clicca sul bottone per esguire macro.

  7. #7

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2815
    Versione Office
    Excel 2013
    Likes ricevuti
    1024
    Likes dati
    982

    Re: Moltiplicazione cella per una costante

    Da inserire nel VBE del Foglio
    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
    
    
    Application.EnableEvents = False
    If Not Intersect(Target, Range("a1:a10")) Is Nothing Then
        If IsNumeric(Target) Then
            Target = Target * 3
        End If
    End If
    Application.EnableEvents = True
    End Sub
    il target ho previsto da a1:a10 ma lo puoi cambiare a tuo piacimento

    EDIT: Ops mi sono sovrapposto

  8. I seguenti utenti hanno dato un "Like"


  9. #8
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126

    Re: Moltiplicazione cella per una costante

    Fantastico!
    Citazione Originariamente Scritto da Rubik72 Visualizza Messaggio
    Da inserire nel VBE del Foglio
    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
    
    
    Application.EnableEvents = False
    If Not Intersect(Target, Range("a1:a10")) Is Nothing Then
        If IsNumeric(Target) Then
            Target = Target * 3
        End If
    End If
    Application.EnableEvents = True
    End Sub
    il target ho previsto da a1:a10 ma lo puoi cambiare a tuo piacimento

    EDIT: Ops mi sono sovrapposto
    Anche se mi piacerebbe capirla...sotto a studiare

  10. #9

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2815
    Versione Office
    Excel 2013
    Likes ricevuti
    1024
    Likes dati
    982

    Re: Moltiplicazione cella per una costante

    Non è difficile
    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range) 'inserisco la routine nell'evento change del foglio
    Application.EnableEvents = False 'Disabilito gli eventi altrimenti la routine modifica la cella (la moltiplica *3) ed entra in loop
    If Not Intersect(Target, Range("a1:a10")) Is Nothing Then 'indica se il target (cella modificata) interseca con un range (in questo caso a1:a10)
        If IsNumeric(Target) Then ' verifica che la cella modificata contenga un numero
            Target = Target * 3 'moltiplica *3 il contenuto della cella
        End If
    End If
    Application.EnableEvents = True' abilito gli eventi
    End Sub

  11. #10

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7165
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1304

    Re: Moltiplicazione cella per una costante

    Ciao Rubik,
    ti chiedo, cortesemente, una delucidazione per l'istruzione
    Codice: 
     Application.EnableEvents = False    -     Application.EnableEvents = True
    se avessi scritto io il codice non l'avrei messa, infatti, anche togliendola mi accorgo che non incide nella routine ... mi daresti qualche chiarimento al riguardo?
    Grazie
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  12. #11

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2815
    Versione Office
    Excel 2013
    Likes ricevuti
    1024
    Likes dati
    982

    Re: Moltiplicazione cella per una costante

    Se la togli, la riga target =target *3 scatena l'evento change e il ciclo ricomincia e quando arriva alla stessa riga riscatena ancora l'evento change e va in loop. Prova a disabilitare Application.EnableEvents=False ed esegui la routine passo-passo, mi raccomando passo-passo altrimenti dovrai interrompere con CTRL+INTERR

    Inviato dal mio GT-I9301I utilizzando Tapatalk

  13. I seguenti utenti hanno dato un "Like"

    ges

  14. #12

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7165
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1304

    Re: Moltiplicazione cella per una costante

    Scusa Rubik, chiedo ovviamente per capire, io non voglio togliere la riga
    Codice: 
      target =target *3 
    io voglio togliere
    Codice: 
    Application.EnableEvents = False    -     Application.EnableEvents = True
    In pratica voglio modificarla così, che è come l'avrei scritta io:

    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a1:a10")) Is Nothing Then
        If IsNumeric(Target) Then
            Target = Target * 3
        End If
    End If
    End Sub
    P.S. - Ho già provato a toglierle e funziona benissimo (almeno così mi pare)
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  15. #13

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2815
    Versione Office
    Excel 2013
    Likes ricevuti
    1024
    Likes dati
    982

    Re: Moltiplicazione cella per una costante

    Non devi togliere target =target *3 ma Application.EnableEvents =False

    Inviato dal mio GT-I9301I utilizzando Tapatalk

  16. #14

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7165
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1304

    Re: Moltiplicazione cella per una costante

    Ciao Rubik,
    era un mio problema su Mac, non so cosa è successo - forse avevo disabilitato gli eventi anche se abilitandoli non funzionava - ho aperto un computer con windows e provato lì e come correttamente hai scritto l'evento change si scatena a oltranza, mentre con l'istruzione che hai previsto ciò non succede.
    Grazie ho imparato un'altra cosa che il mio Mac mi impediva di imparare! :90:
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  17. #15
    L'avatar di mirko.esposito
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Milano
    Messaggi
    59
    Versione Office
    2016 MAC
    Likes ricevuti
    3
    Likes dati
    2

    Re: Moltiplicazione cella per una costante

    Grazie mille a tutti
    Citazione Originariamente Scritto da Rubik72 Visualizza Messaggio
    Da inserire nel VBE del Foglio
    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
    
    
    Application.EnableEvents = False
    If Not Intersect(Target, Range("a1:a10")) Is Nothing Then
        If IsNumeric(Target) Then
            Target = Target * 3
        End If
    End If
    Application.EnableEvents = True
    End Sub
    il target ho previsto da a1:a10 ma lo puoi cambiare a tuo piacimento

    EDIT: Ops mi sono sovrapposto

  18. #16
    L'avatar di dracoscrigno
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    ferrara
    Età
    41
    Messaggi
    2074
    Versione Office
    office pro 2010
    Likes ricevuti
    440
    Likes dati
    241

    Re: Moltiplicazione cella per una costante

    Perdonatemi l' intrusione ma non ne posso fare a meno. la curiosità è troppa :258:

    A cosa serve avere una cella che, inseritogli un valore, cambi immediatamente in un altro? O meglio, a cosa serve che sia proprio quelal cella a cambiare e non, come ci si aspetterebbe di norma, che sia un altra cella a darci il risultato di una formula dove la prima sia coinvolta?

    GRazie mille anticipate dell' eventuale risposta da parte dell' autore del thread :)

  19. #17
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126

    Re: Moltiplicazione cella per una costante

    Citazione Originariamente Scritto da dracoscrigno Visualizza Messaggio
    Perdonatemi l' intrusione ma non ne posso fare a meno. la curiosità è troppa :258:

    A cosa serve avere una cella che, inseritogli un valore, cambi immediatamente in un altro? O meglio, a cosa serve che sia proprio quelal cella a cambiare e non, come ci si aspetterebbe di norma, che sia un altra cella a darci il risultato di una formula dove la prima sia coinvolta?

    GRazie mille anticipate dell' eventuale risposta da parte dell' autore del thread :)
    Ciao Draco, bella domanda, effettivamente è un po strana come domanda ma se fosse stato come dici credo che non avrebbe neanche fatto la domanda in un forum
    Un saluto

  20. #18

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2815
    Versione Office
    Excel 2013
    Likes ricevuti
    1024
    Likes dati
    982

    Re: Moltiplicazione cella per una costante

    Ha tanti risvolti. Potrebbe servire a calcolare l"imponibile al 22% sulla stessa cella di una fattura ad esempio (io scrivo 100€ e mi calcola 122€)

    Inviato dal mio GT-I9301I utilizzando Tapatalk

  21. I seguenti utenti hanno dato un "Like"


Discussioni Simili

  1. [Risolto] Copiare righe alternate da un intervallo costante
    Di liuno nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 01/11/16, 19:09
  2. [Risolto] Moltiplicazione a condizione che
    Di replay66 nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 18/09/16, 23:48
  3. Formula per moltiplicazione con riferimenti cella dinamici
    Di Lety88 nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 25/04/16, 11:17
  4. Problema con la moltiplicazione
    Di scapu65 nel forum Domande su Excel in generale
    Risposte: 8
    Ultimo Messaggio: 04/03/16, 19:59
  5. Valorizzazione celle da condizione costante
    Di freepredator nel forum Domande su Excel VBA e MACRO
    Risposte: 1
    Ultimo Messaggio: 02/03/16, 14:09

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •