Pagina 1 di 2 12 UltimaUltima
Risultati da 1 a 30 di 31

Discussione: Aggiungere simbolo Euro a valore del target



  1. #1

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6814
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    165

    Aggiungere simbolo Euro a valore del target

    Ciao a tutti

    Ho questa macro

    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a1:a1000")) Is Nothing Then
    Dim lung As Integer
    If Target.Rows.Count > 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    On Error Resume Next
       lung = Len(Target)
       Application.EnableEvents = False
        With Target.Characters(Start:=lung, Length:=1).Font
            .Name = "Calibri"
            .FontStyle = "Normale"
            .Size = 8
        End With
        Application.EnableEvents = True
    End If
    End Sub
    che in pratica riduce la dimensione dell'ultimo carattere del numero immesso in una cella dell'intervallo A1:A1000 che è formattato a "Testo"

    Mi sapreste dire come fare per anteporre il simbolo dell'euro (con uno spazio) alla sinistra dell'importo?

    Non posso formattare le celle "Valuta" perché la macro funziona solo con il formato "Testo".

    Allego il file con la macro e grazie.
    File Allegati File Allegati
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  2. #2
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Aggiungere simbolo Euro a valore del target

    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Ciao a tutti

    Ho questa macro

    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a1:a1000")) Is Nothing Then
    Dim lung As Integer
    If Target.Rows.Count > 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    On Error Resume Next
       lung = Len(Target)
       Application.EnableEvents = False
        With Target.Characters(Start:=lung, Length:=1).Font
            .Name = "Calibri"
            .FontStyle = "Normale"
            .Size = 8
        End With
        Application.EnableEvents = True
    End If
    End Sub
    che in pratica riduce la dimensione dell'ultimo carattere del numero immesso in una cella dell'intervallo A1:A1000 che è formattato a "Testo"

    Mi sapreste dire come fare per anteporre il simbolo dell'euro (con uno spazio) alla sinistra dell'importo?

    Non posso formattare le celle "Valuta" perché la macro funziona solo con il formato "Testo".

    Allego il file con la macro e grazie.
    ciao Alfredo dopo end with aggiungi questa :

    Target.Value = "$ " & Target.Value


    ciao.

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  3. #3

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6814
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    165

    Re: Aggiungere simbolo Euro a valore del target

    Ciao Balloon e grazie

    Ho fatto la modifica: mi aggiunge il simbolo del dollaro ma non mi riduce più la dimensione del solo ultimo carattere.

    Prova anche tu.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  4. #4
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3222
    Versione Office
    Excel2010
    Likes ricevuti
    628
    Likes dati
    155

    Re: Aggiungere simbolo Euro a valore del target

    Ciao Alfredo
    guarda questa macro (in particolare il codice in rosso)
    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Target, Range("a1:a1000")) Is Nothing Then
            Dim lung As Integer
            If Target.Rows.Count > 1 Then Exit Sub
            If Target.Value = "" Then Exit Sub
            On Error Resume Next
            lung = Len(Target)
            Application.EnableEvents = False
            With Target.Characters(Start:=lung, Length:=1).Font
                .Name = "Calibri"
                .FontStyle = "Normale"
                .Size = 8
                Target = Chr(36) & Chr(32) & Target
            End With
            Application.EnableEvents = True
        End If
    End Sub
    Prova e fai sapere. Ciao,
    Mario

    Edit: pardon. Dopo la prima prova mi dà lo stesso problema di Baloon (ciao)
    Ultima modifica fatta da:Marius44; 14/09/16 alle 16:07 Motivo: Edit

  5. #5
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Aggiungere simbolo Euro a valore del target

    ciao Mario fa lo stesso lavoro che ho scritto io, non mette l'ultimo carattere più piccolo come dice Alfredo

    edit

    se lo si mette in testa, riduce il primo carattere anzichè l'ultimo

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  6. #6

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6814
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    165

    Re: Aggiungere simbolo Euro a valore del target

    Baloon in testa dove?

    Puoi postare il codice?
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  7. #7
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3222
    Versione Office
    Excel2010
    Likes ricevuti
    628
    Likes dati
    155

    Re: Aggiungere simbolo Euro a valore del target

    Ciao a tutti.
    Credo sia così:
    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Target, Range("a1:a1000")) Is Nothing Then
            Dim lung As Integer, valore As String
            If Target.Rows.Count > 1 Then Exit Sub
            If Target.Value = "" Then Exit Sub
            On Error Resume Next
            lung = Len(Target)
            Application.EnableEvents = False
            Target = Chr(36) & Chr(32) & ActiveCell.Text
            With Target.Characters(Start:=lung + 2, Length:=1).Font
                .Name = "Calibri"
                .FontStyle = "Normale"
                .Size = 8
            End With
            Application.EnableEvents = True
        End If
    End Sub
    Ciao,
    Mario

    PS. prima aggiungo il carattere $ e uno spazio "al contenuto della cella attiva" e dopo faccio cambiare il Font dell'ultimo carattere che è +2 rispetto a lung
    Ultima modifica fatta da:Marius44; 14/09/16 alle 16:16 Motivo: aggiunta

  8. #8
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Aggiungere simbolo Euro a valore del target

    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Baloon in testa dove?

    Puoi postare il codice?
    dopo Application.EnableEvents = False

    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a1:a1000")) Is Nothing Then
    Dim lung As Integer
    If Target.Rows.Count > 1 Then Exit Sub
    On Error Resume Next
       lung = Len(Target)
       Application.EnableEvents = False
       Target.Value = "€ " & Target.Value
        With Target.Characters(Start:=lung, Length:=1).Font
            .Name = "Calibri"
            .FontStyle = "Normale"
            .Size = 8
        End With
        Application.EnableEvents = True
    End If
    End Sub

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  9. #9
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Aggiungere simbolo Euro a valore del target

    Mario anch'io ho provato leng + 2 ma mi ha risposto picche non ha fatto un tubo adesso riprovo col tuo

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  10. #10

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6814
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    165

    Re: Aggiungere simbolo Euro a valore del target

    Allora non si riesce a risolvere?
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  11. #11
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Aggiungere simbolo Euro a valore del target

    yesss funge sia col mio codice che col tuo

    molto probabilmente prima devo aver scritto qualche cavolata e non fungeva
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  12. #12

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6814
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    165

    Re: Aggiungere simbolo Euro a valore del target

    Ballon il tuo codice a me non funziona. E' quello del post #8?

    Mi mette "€" ma l'ultimo carattere rimane uguale.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  13. #13
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Aggiungere simbolo Euro a valore del target

    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Ballon il tuo codice a me non funziona. E' quello del post #8?
    scaricati l'ultimo mio post dove c'è l'allegato

    Edit

    ops scaricati l'allegato dal mio ultimo post

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  14. #14

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6814
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    165

    Re: Aggiungere simbolo Euro a valore del target

    Grande Baloon funziona ma mi spieghi il +2 a lung?

    Grazie mille a te e a Mario
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  15. #15
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Aggiungere simbolo Euro a valore del target

    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Grande Baloon funziona.

    Grazie mille a te e a Mario
    è sempre un piacere

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  16. #16
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3222
    Versione Office
    Excel2010
    Likes ricevuti
    628
    Likes dati
    155

    Re: Aggiungere simbolo Euro a valore del target

    Ciao Alfredo e ciao Baloon
    Se vuoi evitare il +2 fai così:
    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Target, Range("a1:a1000")) Is Nothing Then
            Dim lung As Integer, valore As String
            If Target.Rows.Count > 1 Then Exit Sub
            If Target.Value = "" Then Exit Sub
            On Error Resume Next
            Application.EnableEvents = False
            Target = Chr(36) & Chr(32) & ActiveCell.Text
            lung = Len(Target)
            With Target.Characters(Start:=lung, Length:=1).Font
                .Name = "Calibri"
                .FontStyle = "Normale"
                .Size = 8
            End With
            Application.EnableEvents = True
        End If
    End Sub
    Ovviamene cambia il simbolo del Dollaro con l'Euro.
    Ciao,
    Mario

  17. I seguenti utenti hanno dato un "Like"


  18. #17

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6814
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    165

    Re: Aggiungere simbolo Euro a valore del target

    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    è sempre un piacere
    Il piacere è mio a ricevere aiuti da persone preparate come voi

    P.S. Mi spieghi la faccenda del +2 a lung?
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  19. #18

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6814
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    165

    Re: Aggiungere simbolo Euro a valore del target

    Vabbè Mario va benissimo anche con il + 2
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  20. #19

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6814
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    165

    Re: Aggiungere simbolo Euro a valore del target

    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Il piacere è mio a ricevere aiuti da persone preparate come voi

    P.S. Mi spieghi la faccenda del +2 a lung?
    Ora ho capito: la lunghezza del target è più due caratteri ossia l'euro e lo spazio
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  21. #20
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Aggiungere simbolo Euro a valore del target

    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Il piacere è mio a ricevere aiuti da persone preparate come voi

    P.S. Mi spieghi la faccenda del +2 a lung?
    è semplice aggiungendo il simbolo dell'euro ed uno spazio la lunghezza aumenta di 2 unità

    Mario ti ha evitato il + 2 eheheh guarda il suo ultimo post

    ciao

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  22. I seguenti utenti hanno dato un "Like"


  23. #21

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6814
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    165

    Re: Aggiungere simbolo Euro a valore del target

    Si grazie come ho scritto l'avevo capito un attimo prima della tua risposta.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  24. #22

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    57
    Messaggi
    1024
    Versione Office
    .
    Likes ricevuti
    367
    Likes dati
    0

    Re: Aggiungere simbolo Euro a valore del target

    Arrivo sempre tardi, ma giusto per partecipare (diminuisce il carattere delle cifre decimali):

    N.B.: non serve che le celle in A siano formattate come testo.

    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
      Dim lung As Integer, nPos As Long
      If Not Intersect(Target, Range("a1:a1000")) Is Nothing Then
        With Target
          If .Cells.Count = 1 And .Value <> vbNullString Then
            Application.EnableEvents = False
            .Value = Format(.Value, "€ #,##0.00")
            Application.EnableEvents = True
            lung = Len(.Value)
            nPos = InStr(1, .Value, ",")
            If nPos > 0 Then
              .Characters(Start:=nPos, Length:=9 ^ 5).Font.Size = 8
            Else
              .Font.Size = 11
            End If
          End If
        End With
      End If
    End Sub
    Bye!
    scossa
    scossa's web site
    ___
    Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

  25. #23
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Aggiungere simbolo Euro a valore del target

    Citazione Originariamente Scritto da scossa Visualizza Messaggio
    Arrivo sempre tardi, ma giusto per partecipare (diminuisce il carattere delle cifre decimali):

    N.B.: non serve che le celle in A siano formattate come testo.

    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
      Dim lung As Integer, nPos As Long
      If Not Intersect(Target, Range("a1:a1000")) Is Nothing Then
        With Target
          If .Cells.Count = 1 And .Value <> vbNullString Then
            Application.EnableEvents = False
            .Value = Format(.Value, "€ #,##0.00")
            Application.EnableEvents = True
            lung = Len(.Value)
            nPos = InStr(1, .Value, ",")
            If nPos > 0 Then
              .Characters(Start:=nPos, Length:=9 ^ 5).Font.Size = 8
            Else
              .Font.Size = 11
            End If
          End If
        End With
      End If
    End Sub


    anche se in ritardo ......

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  26. #24

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6814
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    165

    Re: Aggiungere simbolo Euro a valore del target

    Ciao Marco e grazie anche a te del contributo sempre ben accetto però la tua macro riduce la dimensione degli ultimi due caratteri e non solo dell'ultimo; non riesco a capire dove apportare la correzione.

    Ops Pardon l'avevi anche scritto.

    E poi cosa significa

    Codice: 
    Length:=9 ^ 5
    Io sapevo che l'operatore "^" eleva a potenza ma non credo che sia questo il caso.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  27. #25

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    57
    Messaggi
    1024
    Versione Office
    .
    Likes ricevuti
    367
    Likes dati
    0

    Re: Aggiungere simbolo Euro a valore del target

    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Ciao Marco e grazie anche a te del contributo sempre ben accetto però la tua macro riduce la dimensione degli ultimi due caratteri e non solo dell'ultimo; non riesco a capire dove apportare la correzione.

    Ops Pardon l'avevi anche scritto.
    Scusa, avevo capito che in realtà intendessi mostrare piccole le cifre decimali dell'importo.
    Comunque ti basta giocare col formato ed adeguare l'istruzione
    Length:=9 ^ 5 (che ho dimenticato di modificare in 3 visto che poi ho preferito formattare con 2 decimali)
    al numero di decimali.
    Se vuoi escludere la virgola dalla riduzione aumenta nPos di 1,

    P.S.: se ho capito giusto nel tuo caso ti basta:
    .Characters(Start:=lung, Length:=1).Font.Size = 8
    Bye!
    scossa
    scossa's web site
    ___
    Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

  28. I seguenti utenti hanno dato un "Like"


  29. #26
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3222
    Versione Office
    Excel2010
    Likes ricevuti
    628
    Likes dati
    155

    Re: Aggiungere simbolo Euro a valore del target

    @scossa

    Come sempre ... OTTIMO E ABBONDANTE.

    Grazie Marco.

    Ciao,
    Mario

  30. #27

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6814
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    165

    Re: Aggiungere simbolo Euro a valore del target

    Esatto Marco funziona perfettamente e ti ringrazio.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  31. #28

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    57
    Messaggi
    1024
    Versione Office
    .
    Likes ricevuti
    367
    Likes dati
    0

    Re: Aggiungere simbolo Euro a valore del target

    Un'ultima osservazione.

    Con, ad esempio in B1::
    ==SOMMA(SE.ERRORE(--SOSTITUISCI(A1:A20;"€ "; "");0))
    (matriciale) possiamo avere la somma dei valori:

    A
    B
    1
    € 84,45
    € 13.419,07
    2
    569,45
    3
    0,64
    4
    € 0,37
    5
    € 12,35
    6
    € 24,36
    7
    € 12.456,08
    8
    € 15,00
    9
    € 125,37
    10
    € 45,00
    11
    € 86,00
    Ultima modifica fatta da:scossa; 14/09/16 alle 17:38 Motivo: modificata formula per le celle vuote
    Bye!
    scossa
    scossa's web site
    ___
    Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

  32. I seguenti utenti hanno dato un "Like"


  33. #29

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    57
    Messaggi
    1024
    Versione Office
    .
    Likes ricevuti
    367
    Likes dati
    0

    Re: Aggiungere simbolo Euro a valore del target

    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    E poi cosa significa

    Codice: 
    Length:=9 ^ 5
    Io sapevo che l'operatore "^" eleva a potenza ma non credo che sia questo il caso.
    Sì, è un modo breve per scrivere una cifra che sia superiore ai circa 32000 caratteri che può contenere una cella.
    Bye!
    scossa
    scossa's web site
    ___
    Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

  34. #30

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    57
    Messaggi
    1024
    Versione Office
    .
    Likes ricevuti
    367
    Likes dati
    0

    Re: Aggiungere simbolo Euro a valore del target

    Attenzione che se i decimali sono 3 il codice va modificato in:

    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
      Dim lung As Integer, nPos As Long
      If Not Intersect(Target, Range("a1:a1000")) Is Nothing Then
        With Target
          .NumberFormat = "@" ' oppure dopo l'IF
          If .Cells.Count = 1 And .Value <> vbNullString Then
            '.NumberFormat = "@"
            Application.EnableEvents = False
            .Value = Format(.Value, "€ #,##0.000")
    
            Application.EnableEvents = True
            lung = Len(.Value)
            nPos = InStr(1, .Value, ",")
            If nPos > 0 Then
              '.Characters(Start:=nPos, Length:=3).Font.Size = 8
              .Characters(Start:=lung, Length:=1).Font.Size = 8
            Else
              .Font.Size = 11
            End If
          End If
        End With
      End If
    End Sub
    Bye!
    scossa
    scossa's web site
    ___
    Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

Discussioni Simili

  1. [Risolto] Eliminare simbolo filtri da una tabella
    Di dade92 nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 27/02/17, 22:20
  2. [Risolto] problema con simbolo euro nelle formule
    Di Mammut65 nel forum Domande su Excel in generale
    Risposte: 9
    Ultimo Messaggio: 28/12/16, 17:08
  3. Risposte: 1
    Ultimo Messaggio: 21/11/16, 19:45
  4. Convertire totale ore in euro
    Di matteowifi nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 01/09/16, 18:19
  5. selzione cella con target scritto in A1
    Di Gianfranco55 nel forum Domande su Excel VBA e MACRO
    Risposte: 2
    Ultimo Messaggio: 23/06/16, 01:29

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
  •