|
Login
  • Page:
  • 1

TOPIC: una macro ad un pulsante

una macro ad un pulsante 6 years 5 months ago #8795

  • cettina13bj
  • cettina13bj's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 11
  • Karma: -3
Potreste spiegarmi come funziona la macro del foglio Totali del file allegato?
Grazie
Attachments:
The administrator has disabled public write access.

una macro ad un pulsante 6 years 5 months ago #8797

  • lorenzo1957
  • lorenzo1957's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 849
  • Thank you received: 59
  • Karma: 51
Ciao Cettina,
la macro è quella sotto; provo a commentarla:
Sub Calcola()

Dim Nrig, X, Y, Z 'dimensiona 4 variabili
Y = Sheets("Totali").Range("D2").Text 'alla variabile Y viene assegnato il testo contenuto in D2 del foglio "totali" e quindi la data per la quale fare la ricerca
'Sheets("Lubrificanti").Select 'seleziona il foglio "lubrificanti"
Nrig = Sheets("Lubrificanti").Cells(Rows.Count, "A").End(xlUp).Row 'assegna alla variabile Nrig il numero di righe che sarà poi utilizzato nel ciclo for...next
Z = 0 'azzera la variabile Z che sarà poi utilizzata per sommare i valori della colonna E se la data nella cella A corrisponderà alla variabile Y
For X = 1 To Nrig 'inizia il ciclo di scansione di tutte le celle della colonna "A" del foglio "lubrificanti conteneti dati
If Sheets("Lubrificanti").Range("A" & X).Text = Y Then 'se il valore delle celle A1, A2, A3 etc. è uguale alla data rappresentata dalla variabile Y, somma nella variabile Z il contenuto della corrispondente cella nella colonna E quindi E1, E2, E3 etc.
Z = Z + Sheets("Lubrificanti").Range("E" & X) ' qui infatti somma se la data del rifornimento corrisponde alla data impostata
End If 'chiude il ciclo
Next
Sheets("Totali").Range("F12") = Z 'viene selezionato il foglio Totali e al Range F12 viene assegnato il valore della variabile Z ossia il risultato della sommatoria nel ciclo for ... next

End Sub


ciao, Lo
Last Edit: 6 years 5 months ago by lorenzo1957.
The administrator has disabled public write access.

una macro ad un pulsante 6 years 5 months ago #8798

  • cettina13bj
  • cettina13bj's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 11
  • Karma: -3
Ciao, Lo. Ti ringrazio per le spiegazioni che mi hai dato.
Ho dimenticato di dirti che non conosco affatto il linguaggio in Visual Basic. Per cui, ciò che ti chiedo è se puoi farmi capire come ottenere il risultato della cella "calcola", del Foglio "Totali" con i comandi da tastiera, del tipo: Strumenti; Macro; Registra nuova macro, e così via. In cotal modo avrei una diversa dimestichezza con excel.
The administrator has disabled public write access.

una macro ad un pulsante 6 years 5 months ago #8800

  • lorenzo1957
  • lorenzo1957's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 849
  • Thank you received: 59
  • Karma: 51
Ciao Cettina,
il registratore di macro è utile in molti casi per creare "spezzoni" di codice, ma non è certamente in grado di costruire un codice relativamente articolato come quello compreso nel tuo file.
ciao, Lo
Last Edit: 6 years 5 months ago by lorenzo1957.
The administrator has disabled public write access.
  • Page:
  • 1
Time to create page: 0.704 seconds