Kaip įrašyti makrokomandą ir tada modifikuoti kodą

Anonim

Šiame straipsnyje mes sužinosime, kaip įrašyti makrokomandą, tada kaip ją pakeisti ir palengvinti mokymąsi.

Kaip parašyti makro sumos formulės makrokomandą VBE

Turime „Excel“ duomenų diapazoną A1: C14, kuriame A stulpelyje yra pavadinimai, B stulpelyje yra 1 dalyko žymės, o C stulpelyje - 2 dalyko žymos. D stulpelyje noriu grąžinti bendrus pažymius.

Norėdami įterpti sumos formulę naudodami VBA programoje „Microsoft Excel“, atlikite toliau nurodytus veiksmus:-

  • Atidarykite „Excel“ duomenis.
  • Pirmiausia įrašykite makrokomandą, kad grąžintumėte visus pažymius langelyje D2.
  • Skirtuke „Kūrėjas“ iš „Kodo“ grupės pasirinkite „Įrašyti makrokomandą“.
  • Pasirodys dialogo langas „Įrašyti makrokomandą“.
  • Laukelyje „Makrokomandos pavadinimas“ įrašykite makrokomandos pavadinimą, nenaudodami tarpo ir specialių simbolių.
  • Įveskite spartųjį klavišą, kurį norite.
  • Ir aprašymo laukelyje parašykite makro aprašymą.
  • Įrašymas prasidės dabar.
  • D2 langelyje parašykite sumos formulę.
  • Įklijuokite formulę į diapazoną D3: D14.
  • Spustelėkite „Sustabdyti įrašymą“
  • Norėdami pamatyti įrašytas makrokomandas, paspauskite klavišą „ALT+F11“.
  • Įrašytas kodas būtų toks:-
Sub SUM () '' SUM Macro 'Iš viso pažymių gaunama' 'Spartusis klavišas: „Ctrl“+„Shift“+S diapazonas („D2“). Pasirinkite „ActiveCell.FormulaR1C1 =" = SUM (RC [-2]: RC [-1] ) "Selection.Copy Range (" C2 "). Pasirinkite Selection.End (xlDown). Pasirinkite Range (" D14 "). Pasirinkite Diapazonas (Selection, Selection.End (xlUp)). Pasirinkite ActiveSheet.Paste Range (" D2 ") ). Pasirinkite End Sub

Kaip matote, aukščiau minėtas VBA kodas yra per ilgas, kad būtų galima grąžinti bendrus pažymius, ir taip pat nėra lengva suprasti. Taigi mes keičiame kodavimą.

Sub SUM () Dim X As Integer X = Application.WorksheetFunction.CountA (Range ("A: A")) Diapazonas ("D2: D" & X) .Value = "= Sum (B2: C2)" End Sub

Kaip parašyti makrokomandą vidutinei formulei VBE

Turime „Excel“ duomenų diapazoną A1: C14, kuriame A stulpelyje yra pavadinimai, B stulpelyje yra 1 dalyko ženklai, o C stulpelyje - 2 dalyko ženklai. D stulpelyje noriu grąžinti vidutinius pažymius.

Norėdami įterpti vidutinę formulę naudodami VBA programoje „Microsoft Excel 2010“ ir 2013, atlikite toliau nurodytus veiksmus:-

  • Atidarykite „Excel“ duomenis.
  • Pirmiausia įrašykite makrokomandą, kad grąžintumėte vidutinius ženklus langelyje D2.
  • Skirtuke „Kūrėjas“ iš „Kodo“ grupės pasirinkite „Įrašyti makrokomandą“.
  • Pasirodys dialogo langas „Įrašyti makrokomandą“.
  • Lauke „Makrokomandos pavadinimas“ įrašykite makrokomandos pavadinimą, nenaudodami tarpo ir specialių simbolių.
  • Įveskite spartųjį klavišą -kurį norite.
  • Ir aprašymo laukelyje parašykite makro aprašymą.
  • Įrašymas prasidės dabar.
  • D2 langelyje parašykite „VIDUTINĖ“ formulę.
  • Įklijuokite formulę į diapazoną D3: D14.
  • Spustelėkite „Sustabdyti įrašymą“.
  • Norėdami pamatyti įrašytas makrokomandas, paspauskite klavišą „ALT+F11“.
  • Įrašytas kodas būtų toks:-
Sub AVERAGE () '' AVERAGE Macro 'Iš viso pažymių' 'Spartusis klavišas: Ctrl+Shift+A' ActiveCell.FormulaR1C1 = "= AVERAGE (RC [-3]: RC [-2])" Selection.Copy Range (" E2 "). Pasirinkite Selection.Copy Range (" D2 "). Pasirinkite Selection.End (xlDown). Pasirinkite Range (" E14 "). Pasirinkite Range (Selection, Selection.End (xlUp)). Pasirinkite ActiveSheet.Paste Range ( "E13"). Pasirinkite Selection.End (xlUp). Pasirinkite End Sub

Kaip matote, aukščiau minėtas VBA kodas yra per ilgas, kad būtų galima grąžinti bendrus pažymius, ir taip pat nėra lengva suprasti; todėl mes modifikuojame kodą.

Vidutinis vidurkis () Dim X As Integer X = Application.WorksheetFunction.CountA (Diapazonas ("A: A")) Diapazonas ("E2: E" & X) .Value = "= Average (B2: C2)" End Sub

Tokiu būdu mes galime išmokti įrašyti makrokomandą ir tada ją modifikuoti.

Jei jums patiko mūsų tinklaraščiai, pasidalykite jais su draugais „Facebook“. Taip pat galite sekti mus „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime patobulinti, papildyti ar naujovinti savo darbą ir padaryti jį geresnį. Parašykite mums el