В этой статье мы узнаем, как записать макрос, а затем как изменить его, чтобы упростить обучение .

Как написать макрос для формулы суммы в VBE У нас есть данные Excel в диапазоне A1: C14, в котором столбец A содержит имена, столбец B с метками субъекта 1 и столбец C с метками субъекта 2. В столбце D, I хочу вернуть общие оценки .

Чтобы вставить формулу суммы с помощью VBA в Microsoft Excel, выполните следующие действия: — * Откройте данные Excel.

  • Сначала вы записываете макрос для возврата итоговых оценок в ячейку D2.

  • На вкладке «Разработчик» выберите «Записать макрос» из группы «Код».

  • Появится диалоговое окно «Запись макроса».

  • В поле «Имя макроса» напишите имя макроса без пробелов и специальных символов.

  • Введите комбинацию клавиш в зависимости от того, что хотите.

  • И напишите описание макроса в поле описания.

  • Запись начнется сейчас.

  • Запишите формулу суммы в ячейку D2.

  • Вставьте формулу в диапазон D3: D14.

Щелкните «Остановить запись». Чтобы просмотреть записанные макросы, нажмите клавишу «ALT + F11».

  • Записанный код будет таким: —

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

Как видите, вышеупомянутый код 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.

  • На вкладке «Разработчик» выберите «Записать макрос» из группы «Код».

  • Появится диалоговое окно «Запись макроса».

  • В поле «Имя макроса» введите имя макроса без пробелов и специальных символов.

  • Введите сочетание клавиш — в зависимости от того, что хотите.

  • И напишите описание макроса в поле описания.

  • Запись начнется сейчас.

  • Запишите формулу «СРЕДНИЙ» в ячейку D2.

  • Вставьте формулу в диапазон D3: D14.

  • Щелкните «Остановить запись».

  • Чтобы увидеть записанные макросы, нажмите клавишу «ALT + F11».

  • Записанный код будет таким: —

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

Как видите, вышеупомянутый код 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 .

Мы будем рады услышать от вас, дайте нам знать, как мы можем улучшить, дополнить или усовершенствовать нашу работу и сделать ее лучше для вас. Напишите нам на [email protected]