この記事では、マクロを記録する方法と、マクロを変更して学習しやすくする方法を学びます。

VBEでSum式のマクロを作成する方法__範囲A1：C14にExcelデータがあり、列Aには名前が含まれ、列Bにはサブジェクト1のマークがあり、列Cにはサブジェクト2のマークがあります。合計点数を返したい。

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]_までご連絡ください