Risultati da 1 a 7 di 7

Discussione: Moltiplicare più celle di Excell

  1. #1
    New Member L'avatar di MauroGra
    Data Registrazione
    01-03-2008
    Località
    Cantalupo in Sabina
    Messaggi
    5

    Moltiplicare più celle di Excell

    Salve a tutti. Ho un problema (Forse un pò stupido) con Excell.
    Devo inserire una serie notevole di cifre, tutte di dimensione delle migliaia es. 12000-3000-7000-7500 ora vorrei farlo con una formula in modo di inserire solo le prime cifre cioè 12-3-7-75, se inserisco nella barra delle formule la moltiplicazione x 1000 mi da un'errore.
    qualcuno sa se si può fare in qualche modo?
    Scusate se sono imbranato non infierite

  2. #2
    Software Zone Fanatic
    Data Registrazione
    19-12-2004
    Messaggi
    27.613

  3. #3
    New Member L'avatar di MauroGra
    Data Registrazione
    01-03-2008
    Località
    Cantalupo in Sabina
    Messaggi
    5

    Moltiplicare più celle in Excell

    Citazione Originariamente Scritto da il pazzo Visualizza Messaggio
    Grazie della risposta, ma non mi sono spiegato bene, anzi mi sono spiegato male.
    Io il calcolo volevo sapere se era possibile farlo nella stessa cella in cui scrivo i dati.
    Cioè scrivo 12 e automaticamente excell me lo trasforma in 12000, scrivo 7 e viene cambiato in 7000.
    Forse serve una funzione VBA?
    Chi non piega un pedone è!!!

  4. #4
    SWZone Staff - Moderatore L'avatar di Alberto
    Data Registrazione
    17-09-2001
    Località
    Bologna
    Messaggi
    10.492
    In qualsiasi cella?

    Se si .... vai nell'Editor VBA (ALT+F11) .... quindi inserisci nel giusto foglio di lavoro questa funzione

    Private Sub Worksheet_Change(ByVal Target As Range)

    'verifica che la cella sia compresa in un certo range di celle
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
    'altrimenti sostituirla con questa riga ... indicando le celle da testare
    'If Not Intersect(Target, Range("A1,B71,C3")) Is Nothing Then 'verifica PRIMA che la cella contenga un NUMERO
    If IsNumeric(Target) Then
    'Blogcca errori di runtime e simili
    On Error Resume Next
    'azzera TUTTI gli EVENTI in modo da moltiplicare per 1000 e non entrare in un LOOP
    Application.EnableEvents = False
    Target = Target * 1000
    'riporta ATTIVO il gestore degli eventi
    Application.EnableEvents = True
    'permetti che gli errori di runtime e similari vengano ora rilevati
    On Error GoTo 0
    End If
    End If
    End Sub

    Ovviamente io ho indicato il RANGE di celle A1:A10

    Ultima modifica di Alberto; 09-07-2009 alle 19.22.27

  5. #5
    New Member L'avatar di MauroGra
    Data Registrazione
    01-03-2008
    Località
    Cantalupo in Sabina
    Messaggi
    5

    Citazione Originariamente Scritto da Alberto Visualizza Messaggio
    In qualsiasi cella?

    Se si .... vai nell'Editor VBA (ALT+F11) .... quindi inserisci nel giusto foglio di lavoro questa funzione

    Private Sub Worksheet_Change(ByVal Target As Range)

    'verifica che la cella sia compresa in un certo range di celle
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
    'altrimenti sostituirla con questa riga ... indicando le celle da testare
    'If Not Intersect(Target, Range("A1,B71,C3")) Is Nothing Then 'verifica PRIMA che la cella contenga un NUMERO
    If IsNumeric(Target) Then
    'Blogcca errori di runtime e simili
    On Error Resume Next
    'azzera TUTTI gli EVENTI in modo da moltiplicare per 1000 e non entrare in un LOOP
    Application.EnableEvents = False
    Target = Target * 1000
    'riporta ATTIVO il gestore degli eventi
    Application.EnableEvents = True
    'permetti che gli errori di runtime e similari vengano ora rilevati
    On Error GoTo 0
    End If
    End If
    End Sub

    Ovviamente io ho indicato il RANGE di celle A1:A10

    Graaazieeee Alberto sei un grande, intendevo proprio questo, grazie ancora.
    Chi non piega un pedone è!!!

  6. #6
    SWZ Cerimoniere Ufficiale ed
    Organizzatore Eventi Mediatici
    Il Boia di San Lorenzo
    GrossoMod del Digital Imaging
    Ciukmaker Racing Mode
    L'avatar di giofi83
    Data Registrazione
    25-09-2001
    Località
    Alessandria
    Messaggi
    18.464
    Non quotare mai tutto il post precedente, non serve!

    Ogni forum ha un annuncio in evidenza sull'uso dei quote, leggilo.


  7. #7
    New Member L'avatar di MauroGra
    Data Registrazione
    01-03-2008
    Località
    Cantalupo in Sabina
    Messaggi
    5
    Ok Giofi83. Grazie a tutti!
    Chi non piega un pedone è!!!

Segnalibri

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
  •