In questo articolo impareremo come registrare la macro e poi come modificarla e renderla più facile da imparare.
Come scrivere macro per la formula Somma in VBE
Abbiamo un dato Excel nell'intervallo A1: C14, in cui la colonna A contiene i nomi, la colonna B con i segni dell'oggetto 1 e la colonna C con i segni dell'oggetto 2. Nella colonna D, voglio restituire i voti totali.
Per inserire la formula della somma utilizzando VBA in Microsoft Excel, seguire i passaggi indicati di seguito: -
- Apri i dati di Excel.
- Per prima cosa si registra la macro per restituire i punteggi totali nella cella D2.
- Nella scheda "Sviluppatore", seleziona "Registra macro" dal gruppo di "Codice".
- Apparirà la finestra di dialogo “Registra Macro”.
- Nella casella “Nome Macro” scrivi il nome della macro senza utilizzare spazi e caratteri speciali.
- Digita il tasto di scelta rapida che preferisci.
- E scrivi la descrizione della macro nella casella della descrizione.
- La registrazione inizierà ora.
- Scrivi la formula della somma nella cella D2.
- Incolla la formula nell'intervallo D3: D14.
- Fare clic su "Interrompi registrazione"
- Per vedere le macro registrate premere il tasto “ALT+F11”.
- Il codice registrato sarebbe come questo:-
Sub SUM() ' 'SUM Macro 'Totale voti ottenuti ' ' Scorciatoia da tastiera: Ctrl+Shift+S ' Intervallo("D2").Seleziona ActiveCell.FormulaR1C1 = "=SUM(RC[-2]:RC[-1] )" Selection.Copy Range("C2").Select Selection.End(xlDown).Select Range("D14").Select Range(Selection, Selection.End(xlUp)).Select ActiveSheet.Paste Range("D2" ).Seleziona Fine Sotto
Come puoi vedere, il codice VBA sopra menzionato è troppo lungo per restituire i voti totali, e inoltre non è facile da capire. Quindi, modifichiamo la codifica.
Sub SUM() Dim X As Integer X = Application.WorksheetFunction.CountA(Range("A:A")) Range("D2:D" & X).Value = "=Sum(B2:C2)" End Sub
Come scrivere macro per la formula media in VBE
Abbiamo un dato Excel nell'intervallo A1: C14, in cui la colonna A contiene i nomi, la colonna B con i segni dell'oggetto 1 e la colonna C con i segni dell'oggetto 2. Nella colonna D, voglio restituire i voti medi.
Per inserire la formula media utilizzando VBA in Microsoft Excel 2010 e 2013, seguire i passaggi indicati di seguito: -
- Apri i dati di Excel.
- Per prima cosa si registra la macro per restituire i voti medi nella cella D2.
- Nella scheda "Sviluppatore", seleziona "Registra macro" dal gruppo di "Codice".
- Apparirà la finestra di dialogo “Registra Macro”.
- Nella casella "Nome macro", scrivi il nome della macro senza utilizzare spazi e caratteri speciali.
- Digita il tasto di scelta rapida, quello che desideri.
- E scrivi la descrizione della macro nella casella della descrizione.
- La registrazione inizierà ora.
- Scrivi la formula "MEDIA" nella cella D2.
- Incolla la formula nell'intervallo D3: D14.
- Fare clic su "Interrompi registrazione".
- Per vedere le macro registrate premere il tasto “ALT+F11”.
- Il codice registrato sarebbe come questo:-
Sub AVERAGE() ' 'AVERAGE Macro 'Totale voti ottenuti ' ' Scorciatoia da tastiera: Ctrl+Shift+A 'ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-3]:RC[-2])" Selection.Copy Range(" E2"). Seleziona Selezione. Copia intervallo ("D2"). Seleziona Selezione. Fine (xlGiù). Seleziona intervallo ("E14"). Seleziona intervallo (Selezione, Selezione. Fine (xlSu)). Seleziona ActiveSheet. Incolla intervallo ( "E13").Selezionare Selection.End(xlUp).Select End Sub
Come puoi vedere, il codice VBA sopra menzionato è troppo lungo per restituire i voti totali e inoltre non è facile da capire; quindi, modifichiamo il codice.
Sub Average() Dim X As Integer X = Application.WorksheetFunction.CountA(Range("A:A")) Range("E2:E" & X).Value = "=Average(B2:C2)" End Sub
In questo modo, possiamo imparare come registrare la macro e poi come modificarla.
Se ti è piaciuto il nostro blog, condividilo con i tuoi amici su Facebook. E puoi anche seguirci su Twitter e Facebook.
Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare, completare o innovare il nostro lavoro e renderlo migliore per te. Scrivici al sito di posta elettronica