În acest articol, vom învăța cum să înregistrați macrocomenzile și apoi cum să le modificați și să ușurăm învățarea.
Cum se scrie macro pentru formula sumă în VBE
Avem date Excel în intervalul A1: C14, în care coloana A conține nume, coloana B având notele subiectului 1 și coloana C având notele subiectului 2. În coloana D, vreau să returnez notele totale.
Pentru a insera formula de sumă utilizând VBA în Microsoft Excel, urmați pașii de mai jos: -
- Deschideți datele Excel.
- Mai întâi înregistrați macrocomanda pentru returnarea notelor totale în celula D2.
- În fila „Dezvoltator”, selectați „Înregistrați macro” din grupul „Cod”.
- Va apărea caseta de dialog „Înregistrați macro”.
- În caseta „Nume macrocomandă” scrieți numele macrocomenzii fără a utiliza spațiu și caracter special.
- Tastați tasta scurtată oricum doriți.
- Și scrieți descrierea despre macro în caseta de descriere.
- Înregistrarea va începe acum.
- Scrieți formula sumă în celula D2.
- Lipiți formula în intervalul D3: D14.
- Faceți clic pe „Opriți înregistrarea”
- Pentru a vedea macro-urile înregistrate, apăsați tasta „ALT + F11”.
- Codul înregistrat ar fi astfel: -
Sub SUM () '' SUM Macro 'Total note obținute' 'Comandă rapidă de la tastatură: Ctrl + Shift + S' Range ("D2"). Selectați ActiveCell.FormulaR1C1 = "= SUM (RC [-2]: RC [-1] ) "Selection.Copy Range (" C2 "). Selectați Selection.End (xlDown). Selectați Range (" D14 "). Selectați Range (Selection, Selection.End (xlUp)). Selectați ActiveSheet.Paste Range (" D2 " ). Selectați End Sub
După cum puteți vedea, codul VBA menționat mai sus este prea lung pentru a returna notele totale și, de asemenea, nu este ușor de înțeles. Astfel, modificăm codarea.
Sub SUM () Dim X As Integer X = Application.WorksheetFunction.CountA (Range ("A: A")) Range ("D2: D" & X). Valoare = "= Sum (B2: C2)" End Sub
Cum se scrie macro pentru formula medie în VBE
Avem date Excel în intervalul A1: C14, în care coloana A conține nume, coloana B având notele subiectului 1 și coloana C având notele subiectului 2. În coloana D, vreau să returnez notele medii.
Pentru a insera formula medie utilizând VBA în Microsoft Excel 2010 și 2013, urmați pașii de mai jos: -
- Deschideți datele Excel.
- Mai întâi înregistrați macrocomanda pentru returnarea notelor medii în celula D2.
- În fila „Dezvoltator”, selectați „Înregistrați macro” din grupul „Cod”.
- Va apărea caseta de dialog „Înregistrați macro”.
- În caseta „Nume macrocomandă”, scrieți numele macrocomenzii fără a utiliza spațiu și caracter special.
- Tastați tasta scurtată - oricum doriți.
- Și scrieți descrierea despre macro în caseta de descriere.
- Înregistrarea va începe acum.
- Scrieți formula „MEDIE” în celula D2.
- Lipiți formula în intervalul D3: D14.
- Faceți clic pe „Opriți înregistrarea”.
- Pentru a vedea macro-urile înregistrate, apăsați tasta „ALT + F11”.
- Codul înregistrat ar fi astfel: -
Sub AVERAGE () '' Macro MEDIA 'Total note obținute' 'Comandă rapidă de la tastatură: Ctrl + Shift + A' ActiveCell.FormulaR1C1 = "= MEDIE (RC [-3]: RC [-2])" Selecție. Interval de copiere (" E2 "). Selectați Selection.Copy Range (" D2 "). Selectați Selection.End (xlDown). Selectați Range (" E14 "). Selectați Range (Selection, Selection.End (xlUp)). Selectați ActiveSheet.Paste Range ( „E13”). Selectați Selection.End (xlUp) .Select End End
După cum puteți vedea, codul VBA menționat mai sus este prea lung pentru returnarea notelor totale și, de asemenea, nu este ușor de înțeles; astfel, modificăm codul.
Sub medie () Dim X Ca întreg X = Application.WorksheetFunction.CountA (Range ("A: A")) Range ("E2: E" & X). Valoare = "= Average (B2: C2)" End Sub
În acest fel, putem învăța cum să înregistrăm macro și apoi cum să-l modificăm.
Dacă ți-au plăcut blogurile noastre, împărtășește-le prietenilor tăi de pe Facebook. Și, de asemenea, ne puteți urmări pe Twitter și Facebook.
Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți, completa sau inova munca noastră și să o îmbunătățim. Scrieți-ne pe site-ul de e-mail