Condividi:        

PROGRAMMA excel per gestione alunni

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Re: PROGRAMMA excel per gestione alunni

Postdi ricky53 » 01/08/14 23:57

Ciao,
prova in questo modo
Codice: Seleziona tutto
    Risp = MsgBox("Il foglio deve essere inserito nelle 'Presenze' ?", vbYesNo)
    If Risp = 6 Then  ' 6 = YES
'       qui metti il codice che inserisce il nome in Presenze
    End If


Si deve definire "Risp" come Integer
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Sponsor
 

Re: PROGRAMMA excel per gestione alunni

Postdi ilpince » 07/08/14 18:44

Perfetto, funziona benone! Grazie Ricky53
Windows 7 + Pacchetto Microsoft Office 2007
ilpince
Utente Junior
 
Post: 17
Iscritto il: 25/07/14 14:54

Re: PROGRAMMA excel per gestione alunni

Postdi ilpince » 09/08/14 23:11

Ragazzi, ho un'altra questione... cioè, nel mio foglio "PRESENZE" , nella colonna "A", dalla riga "3" in poi ho segnato il nome e cognome dei ragazzi. Dalla colonna "B" alla "CS", nella riga "2" ho segnato i vari giorni, da settembre a luglio. Dalla riga "3" invece devo inserire "SI" o "NO" in base a se il ragazzo è presente o meno. Siccome volevo renderlo piu veloce possibile ho deciso di fare una macro che:
- Mi chiedesse se volevo aggiornare le presenze automaticamente o manualmente, in caso positivo procedere come segue:
Windows 7 + Pacchetto Microsoft Office 2007
ilpince
Utente Junior
 
Post: 17
Iscritto il: 25/07/14 14:54

Re: PROGRAMMA excel per gestione alunni

Postdi ilpince » 09/08/14 23:31

- "(nome e cognome ragazzo) era presente alla lezione?" in caso positivo inserire "SI", altrimenti "NO".
- che la macro termini quando non trova più nessun nome di persona nella colonna "A"
- ogni volta che andrò ad aggiornare automaticamente le presenze lui non mi sovrascriva i valori, ma passi alla colonna successiva.
es:
_______A____________B____________C____________D ecc.
1
2__________________01/09________02/09________03/09
3 mario rossi_______SI
4 luca bianchi_______SI
5 manuel blu________NO
6
questo è il codice che ho fatto io, ma che naturalmente non mi si ferma dopo che ho inserito le presenze della colonna "B" e soprattutto mi si sovrascrive...
Codice: Seleziona tutto
Public Sub InserisciPresenze()
    Dim v As Variant
    Dim Index As Integer
    Dim Colonna As Variant
    Dim Risp As Integer


   Risp = MsgBox("VUOI INSERIRE I PRESENTI E GLI ASSENTI? ", vbYesNo)
    If Risp = 6 Then
   
   
    For Colonna = "2" To "5"
        For Index = 3 To 50
   
            v = Cells(Index, "A")
            If v = "" Then
                 
                Else
                Risp = MsgBox(v & " era presente?", vbYesNo)
                    If Risp = 6 Then
                        Cells(Index, Colonna) = "SI"
                        Else
                        Cells(Index, Colonna) = "NO"
                    End If
            End If
   
 
        Next
    Next
     
     
     
     
        End If
   
           
End Sub
Windows 7 + Pacchetto Microsoft Office 2007
ilpince
Utente Junior
 
Post: 17
Iscritto il: 25/07/14 14:54

Re: PROGRAMMA excel per gestione alunni

Postdi ilpince » 12/08/14 22:36

Ragazzi, io sono riuscito ad arrabattarmi in qualche modo...la macro funziona tranquillamente ora, ma ho idea che vada sistemata giusto un attimino...gli date un' occhiata e mi dite per favore? Flash3005, Ricky53, che dite?
Codice: Seleziona tutto
Public Sub InserisciPresenze()
    Dim v As Variant
    Dim Index As Integer
    Dim Colonna As Variant
    Dim Risp As Integer



   Risp = MsgBox("VUOI INSERIRE I PRESENTI E GLI ASSENTI? ", vbYesNo)
    If Risp = 6 Then
   
   
    For Colonna = "2" To "2"
        For Index = 3 To 100
   
            v = Cells(Index, "A")
            If v = "" Then
                 
                Else
                If Cells(Index, Colonna) = "" Then
                 
                    Risp = MsgBox(v & " era presente?", vbYesNo)
                        If Risp = 6 Then
                            Cells(Index, Colonna) = "SI"
                        Else
                        Cells(Index, Colonna) = "NO"
                    End If
                   
                Else:   Colonna = Colonna + 1
                        Index = Index - 1
                End If
            End If

   
 
        Next
    Next
     
     
     
     
        End If
   
           
End Sub

Windows 7 + Pacchetto Microsoft Office 2007
ilpince
Utente Junior
 
Post: 17
Iscritto il: 25/07/14 14:54

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "PROGRAMMA excel per gestione alunni":


Chi c’è in linea

Visitano il forum: Gianca532011 e 37 ospiti