이 기사에서는 매크로를 기록하는 방법과 매크로를 수정하고 배우기 쉽게 만드는 방법을 배웁니다 .

VBE에서 Sum 수식에 대한 매크로를 작성하는 방법 _ _A 열에 이름이 포함 된 A1 : C14 범위의 Excel 데이터가 있고 B 열에는 제목 1이 표시되고 C 열에는 제목 2가 표시됩니다. D 열에서 I 총 점수를 반환하고 싶습니다 .

Microsoft Excel에서 VBA를 사용하여 합계 수식을 삽입하려면 아래 단계를 따르십시오.-* 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에서 평균 수식에 대한 매크로를 작성하는 방법

A1 : C14 범위의 Excel 데이터가 있는데 A 열에는 이름이 있고 B 열에는 제목 1이 표시되고 C 열에는 제목 2가 표시되어 있습니다. D 열에는 평균 표시를 반환하고 싶습니다.

Microsoft Excel 2010 및 2013에서 VBA를 사용하여 평균 수식을 삽입하려면 다음 단계를 따르십시오.-* Excel 데이터를 엽니 다.

  • 먼저 D2 셀에 평균 표시를 반환하는 매크로를 기록합니다.

  • “개발자”탭의 “코드”그룹에서 “매크로 기록”을 선택합니다.

  • “매크로 기록”대화 상자가 나타납니다.

  • “매크로 이름”상자에 공백과 특수 문자를 사용하지 않고 매크로 이름을 입력합니다.

  • 원하는 단축키를 입력합니다.

  • 그리고 설명 상자에 매크로에 대한 설명을 작성합니다.

  • 녹음이 시작됩니다.

  • D2 셀에 “AVERAGE”수식을 씁니다.

  • 수식을 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]_로 문의 해주세요