In questo articolo, impareremo come registrare macro e poi come modificarlo e renderlo 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 nomi, la colonna B con i segni del soggetto 1 e la colonna C con i segni del soggetto 2. Nella colonna D, I voglio restituire il punteggio totales.

Per inserire la formula della somma utilizzando VBA in Microsoft Excel, seguire i passaggi indicati di seguito: – * Aprire i dati di Excel.

  • Per prima cosa si registra la macro per la restituzione dei voti totali nella cella D2.

  • Nella scheda “Sviluppatore”, seleziona “Registra macro” dal gruppo “Codice”.

  • Apparirà la finestra di dialogo “Registra macro”.

  • Nella casella “Nome macro” scrivere il nome della macro senza utilizzare spazi e caratteri speciali.

  • Digita il tasto di scelta rapida come 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 “Stop Recording”. Per vedere le macro registrate, premere il tasto “ALT + F11”.

  • Il codice registrato sarebbe così: –

Sub SUM()

'

'SUM Macro

'Total marks obtain

'

' Keyboard Shortcut: Ctrl+Shift+S

'

Range("D2").Select

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").Select

End Sub

Come puoi vedere, il codice VBA sopra menzionato è troppo lungo per restituire il punteggio totale, 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 del soggetto 1 e la colonna C con i segni del soggetto 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: – * Aprire i dati di Excel.

  • Per prima cosa si registra la macro per la restituzione dei voti medi nella cella D2.

  • Nella scheda “Sviluppatore”, seleziona “Registra macro” dal gruppo “Codice”.

  • Apparirà la finestra di dialogo “Registra macro”.

  • Nella casella “Nome macro”, scrivi il nome della macro senza utilizzare spazi e caratteri speciali.

  • Digitare il tasto di scelta rapida, a seconda delle esigenze.

  • 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 così: –

Sub AVERAGE()

'

'AVERAGE Macro

'Total marks obtain

'

' Keyboard Shortcut: Ctrl+Shift+A

'ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-3]:RC[-2])"

Selection.Copy

Range("E2").Select

Selection.Copy

Range("D2").Select

Selection.End(xlDown).Select

Range("E14").Select

Range(Selection, Selection.End(xlUp)).Select

ActiveSheet.Paste

Range("E13").Select

Selection.End(xlUp).Select

End Sub

Come puoi vedere, il codice VBA sopra menzionato è troppo lungo per restituire il punteggio totale e inoltre non è di facile comprensione; 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 i nostri blog ti sono piaciuti, condividilo con i tuoi amici su Facebook. E anche tu puoi seguirci su Twitter e Facebook.

_ Ci piacerebbe sentire la tua opinione, facci sapere come possiamo migliorare, integrare o innovare il nostro lavoro e renderlo migliore per te. Scrivici a [email protected]_