Risultati da 1 a 7 di 7

Discussione: Gestire lo spoglio dei voti dei candidati ad un'assemblea



  1. #1
    L'avatar di Rebil
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    salerno
    Messaggi
    3
    Versione Office
    Libre Office
    Likes ricevuti
    0
    Likes dati
    0

    Gestire lo spoglio dei voti dei candidati ad un'assemblea

    Devo riportare i voti di scrutinio di circa 50 candidati ad un'assemblea. Per evitare che una cancellazione accidentale possa compromettere il subtotale di una normale cella di inserimento dei voti man mano scrutinati, vorrei la formula per inserire ciascun voto ricevuto da ciascun candidato nella rispettiva cella ad es. della colonna B e sommarlo ad un subtotale nella rispettiva cella della colonna C adiacente, magari facendo in modo che la cella B possa accettare solo il valore 1 (1 voto) ad ogni inserimento e ritornando a zero dopo aver trasferito tale valore alla cella C, che appunto si aggiornerebbe automaticamente nel totale ad ogni inserimento di un voto nella cella B. Sempre per evitare cancellazioni accidentali bisognerebbe anche bloccare le formule nella colonna C. Grazie.

  2. #2

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4022
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Ciao Rebil,
    da quel poco che ho capito bisognerebbe ricorrere ad un codice VBA.
    Dovresti allegare un file di esempio per capire meglio.

    A quanto vedo però tu utilizzi "LibreOffice"... e non sono sicuro che accetti le macro.

    In effetti questa discussione dovrebbe andare nella sezione "Domande su Excel su altre piattaforme".
    Per adesso non la sposto... fammi sapere se puoi utilizzare Excel (Microsoft Office).

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  3. #3
    L'avatar di Rebil
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    salerno
    Messaggi
    3
    Versione Office
    Libre Office
    Likes ricevuti
    0
    Likes dati
    0
    Grazie cromagno. Possiedo excel 2007. Non conosco le procedure VBA: servirebbe un programma aggiuntivo ad excel? Nè ho un file da inviare perchè si tratterebbe di un semplice foglio a tre colonne: una colonna A con i candidati elencati su 50 righe, una colonna B per l'inserimento dei voti, uno alla volta, a fianco di ciascun candidato, una colonna C per il totale di ciascun candidato. La prima riga utile dopo l'elenco dei candidati conterrebbe la cella con il totale dei voti ricevuti da tutti i candidati. Un foglio semplice, insomma, che però comporta qualche calcolo complesso.

  4. #4

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7159
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1300
    Ciao Rebil,
    se ho capito bene hai bisogno di questo (allego file di esempio).

    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
    	If Not Intersect(Target, Range("B2:B6")) Is Nothing Then
    		For y = 2 To 6
    			If Range("B" & y) > 0 And Range("B" & y) <> 1 Then
    				MsgBox "PUO' ESSERE INSERITO SOLO IL VALORE 1", vbInformation, "ATTENZIONE"
    			Else
    				Range("C" & y) = Range("C" & y) + Range("B" & y)
    			End If
    		Next
    	End If
    	Range("B2:B6").ClearContents
    	Range("a1").Select
    End Sub
    File Allegati File Allegati
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  5. #5

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7159
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1300
    Citazione Originariamente Scritto da Rebil Visualizza Messaggio
    ...Non conosco le procedure VBA....
    Visto che non conosci il VBA, stasera che ho avuto più tempo, ti ho preparato il programma completo che allego (sopra era solo un esempio); basta che inserisci i nomi dei 50 candidati (devi sbloccare il foglio che è protetto ma non ci sono passoword).
    Il programma permette nella colonna B solo l'inserimento del valore 1, in caso di errore non permette l'inserimento di altri valori a manda a video un messaggio.
    Blocca il foglio e quindi la colonna C impedendo un inserimento accidentale o la modifica.
    Dopo l'inserimento che aggiunge il valore 1 all'adiacente colonna C la colonna B si svuota.

    Codice: 
    Option Explicit
    Private Sub Worksheet_Change(ByVal Target As Range)
        Dim x As Integer, y As Integer, a As Integer
         ActiveSheet.Protect
        On Error GoTo errore
        x = Range("B" & Rows.Count).End(xlUp).Row
        If Not Intersect(Target, Range("B" & x)) Is Nothing Then
        ActiveSheet.Unprotect
                For y = 2 To Range("B" & Rows.Count).End(xlUp).Row
                If Range("B" & y) <> "" And Range("B" & y) <> 1 Then
                    MsgBox "PUO' ESSERE INSERITO SOLO IL VALORE 1", vbInformation, "ATTENZIONE"
                Else
                    Range("C" & y) = Range("C" & y) + Range("B" & y)
                End If
            Next
        End If
        Range("B2:B100") = ""
        Range("B" & y).Select
        ActiveSheet.Protect
    errore:     Exit Sub
      End Sub
    File Allegati File Allegati
    Ultima modifica fatta da:ges; 29/02/16 alle 09:13
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  6. #6
    L'avatar di Rebil
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    salerno
    Messaggi
    3
    Versione Office
    Libre Office
    Likes ricevuti
    0
    Likes dati
    0
    Intanto, grazie del tempo che hai voluto dedicare al problema, ges. Ho scaricato il file da te allegato e sprotetto lo stesso. In fase di apertura mi esce un messaggio di disattivazione delle macro per motivi di sicurezza. Ho selezionato l'attivazione del contenuto delle stesse, per abilitarne l'uso. Ho anche inserito i nominativi (a proposito sono 52, quindi occorrerebbero altre due righe). Purtroppo non succede niente, nel senso che le celle B consentono di inserire numeri ma non si attiva il meccanismo di cui al tuo listato VBA. Rimane insomma un semplice foglio senza funzioni e macro e non viene neppure effettuata la somma dei numeri inseriti in B nelle celle C. Forse vi è un problema di compatibilità della versione excel o di attivazione delle macro?

  7. #7

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7159
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1300
    Ciao Rebil, strano quello che dici, con excel 2007 l'evento Private Sub Worksheet_Change(ByVal Target As Range) dovrebbe funzionare.
    Hai provato per curiosità ad aprire il file allegato attivando i due messaggi di abilitazione macro e vedere cosa succede?
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

Discussioni Simili

  1. [Risolto] Come gestire al meglio piu di 700 grafici...?
    Di Catwoman nel forum Domande sui Grafici di Excel
    Risposte: 84
    Ultimo Messaggio: 14/10/16, 22:39
  2. [Risolto] Media Voti omettendo lo zero
    Di Kinoppi90 nel forum Domande su Excel VBA e MACRO
    Risposte: 8
    Ultimo Messaggio: 14/10/16, 14:45
  3. [Risolto] Gestire un database con excel
    Di funcool nel forum Domande su Excel VBA e MACRO
    Risposte: 11
    Ultimo Messaggio: 05/10/16, 17:27
  4. Media voti
    Di cesare nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 17/09/15, 20:33
  5. Passatempo da ombrellone 3 (candidati)
    Di ges nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 21/07/15, 02:02

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
  •