この記事では、MicrosoftExcelでVBAを使用して合計をカウントおよび表示する方法を学習します。

簡単な演習で、MicrosoftExcelのVBAを使用して合計をカウントおよび表示する方法と場所を理解しましょう。シート1には、列Aにカテゴリ、列Bに競合他社ID、列Cにステータスが含まれるデータがあります。

ここで、合格者と不合格者のデータを含む同じワークブックのSheet2のレポートをカテゴリ別に取得します。

image 1

image 2

以下の手順に従ってください：-

  • Alt + F11キーを押して、マクロを書き込むためのVBEページを開きます。

  • 次に、[挿入]タブに移動し、モジュールを挿入します。

  • ページに下記のコードを書いてください。

Sub CountStatus()

Dim Lastrow As Long, Countpass1 As Long, countfail1 As Long

Dim erow As Long, Countpass2 As Long, CountFail2 As Long

Lastrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row

erow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

Countpass1 = 0

countfail1 = 0

Countpass2 = 0

CountFail2 = 0

For i = 2 To Lastrow

If Sheet1.Cells(i, 1) = "CTY1" And Sheet1.Cells(i, 3) = "Pass" Then

Countpass1 = Countpass1 + 1

ElseIf Sheet1.Cells(i, 1) = "CTY1" And Sheet1.Cells(i, 3) = "Fail" Then

countfail1 = countfail1 + 1

ElseIf Sheet1.Cells(i, 1) = "CTY2" And Sheet1.Cells(i, 3) = "Pass" Then

Countpass2 = Countpass2 + 1

ElseIf Sheet1.Cells(i, 1) = "CTY2" And Sheet1.Cells(i, 3) = "Fail" Then

CountFail2 = CountFail2 + 1

End If

Next i

'Msgbox "Pass count of CTY1," & " " & Countpass1 & " " & "Fail Count of CTY1," & " " & countfail1 & vbCrLf & "Pass count of CTY2," & " " & Countpass2 & " " & "Fail Count of CTY2," & " " & CountFail2

Sheet2.Range("A2:C500").Clear

Sheet2.Cells(erow, 1) = "CTY1"

Sheet2.Cells(erow, 2) = Countpass1

Sheet2.Cells(erow, 3) = countfail1

erow = erow + 1

Sheet2.Cells(erow, 1) = "CTY2"

Sheet2.Cells(erow, 2) = Countpass2

Sheet2.Cells(erow, 3) = CountFail2

End Sub

•マクロを実行するには、キーF5を押します。

•すべての詳細は、要件に従ってSheet2で更新されます。

image 3

これは、MicrosoftExcelのVBAを介して合計をカウントおよび表示する方法です。

image 48

_私たちのブログが気に入ったら、Facebookで友達と共有してください。また、Twitterでフォローすることもできます。__私たちはあなたからの連絡をお待ちしています。私たちの仕事を改善、補完、または革新し、あなたのためにそれをより良くする方法を教えてください。 [email protected]_までご連絡ください