Как да запишете макрос и след това как да промените кода

Anonim

В тази статия ще научим как да записваме макрос и след това как да го модифицираме и улесняваме изучаването.

Как да напиша макрос за формулата Sum в VBE

Имаме данни от Excel в диапазон A1: C14, в който колона A съдържа имена, колона B с маркировки на субект 1 и колона C с белези на тема 2. В колона D искам да върна общите оценки.

За да вмъкнете формула за сума с помощта на VBA в Microsoft Excel, следвайте стъпките по-долу:-

  • Отворете данните на Excel.
  • Първо записвате макроса за връщане на общите оценки в клетка D2.
  • В раздела „Разработчик“ изберете „Запис на макрос“ от групата „Код“.
  • Ще се появи диалоговият прозорец на „Record Macro“.
  • В полето „Име на макрос“ напишете името на макроса, без да използвате интервал и специален знак.
  • Въведете клавиша за бърз достъп, който искате.
  • И напишете описанието за макроса в полето за описание.
  • Записването ще започне сега.
  • Запишете формулата за сумата в клетка D2.
  • Поставете формулата в диапазон D3: D14.
  • Кликнете върху „Спиране на записа“
  • За да видите записаните макроси, натиснете клавиша “ALT+F11”.
  • Записаният код би изглеждал така:-
Sub SUM () '' SUM макрос 'Получаване на обща оценка' 'Клавишна комбинация: Ctrl+Shift+S' Диапазон ("D2"). Изберете ActiveCell.FormulaR1C1 = "= SUM (RC [-2]: RC [-1] ) "Selection.Copy Range (" C2 "). Изберете Selection.End (xlDown). Изберете Range (" D14 "). Изберете Range (Selection, Selection.End (xlUp)). Изберете ActiveSheet.Paste Range (" D2 " Изберете End Sub

Както можете да видите, че гореспоменатият VBA код е твърде дълъг, за да върне общите оценки, а също така не е лесен за разбиране. По този начин ние променяме кодирането.

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

Как да напиша макрос за формула Средно във VBE

Имаме данни от Excel в диапазон A1: C14, в който колона A съдържа имена, колона B с маркировки на субект 1 и колона C с белези на тема 2. В колона D искам да върна средните оценки.

За да вмъкнете средна формула с помощта на VBA в Microsoft Excel 2010 и 2013, изпълнете следните стъпки:-

  • Отворете данните на Excel.
  • Първо записвате макроса за връщане на средни оценки в клетката D2.
  • В раздела „Разработчик“ изберете „Запис на макрос“ от групата „Код“.
  • Ще се появи диалоговият прозорец на „Record Macro“.
  • В полето „Име на макрос“ напишете името на макроса, без да използвате интервал и специален знак.
  • Въведете клавиша за бърз достъп -който искате.
  • И напишете описанието за макроса в полето за описание.
  • Записът ще започне сега.
  • Напишете формулата „СРЕДНО“ в клетка D2.
  • Поставете формулата в диапазон D3: D14.
  • Кликнете върху „Спиране на записа“.
  • За да видите записаните макроси, натиснете клавиша “ALT+F11”.
  • Записаният код би изглеждал така:-
Sub AVERAGE () '' AVERAGE Macro 'Общо получени оценки' 'Клавишна комбинация: Ctrl+Shift+A' ActiveCell.FormulaR1C1 = "= AVERAGE (RC [-3]: RC [-2])" Selection.Copy Range (" E2 "). Изберете Selection.Copy Range (" D2 "). Select Selection.End (xlDown) .Изберете Range (" E14 "). Изберете Range (Selection, Selection.End (xlUp)). Изберете ActiveSheet.Paste Range "E13"). Изберете Selection.End (xlUp). Изберете End Sub

Както можете да видите, че гореспоменатият VBA код е твърде дълъг за връщане на общите оценки и също не е лесен за разбиране; по този начин ние променяме кода.

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

По този начин можем да научим как да записваме макрос и след това как да го променяме.

Ако ви харесаха нашите блогове, споделете го с приятелите си във Facebook. Можете също така да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим, допълним или обновим работата си и да я подобрим. Пишете ни на имейл сайта