1. Home » 
  2. エクセル練習問題：目次 » 
  3. データのカウント（VBA)

エクセル練習問題：データのカウント（VBA)


スポンサードリンク

問題　　　　topへ

解答例　　　　topへ

問題1の解答例　　　　topへ


B C D E F
2 名前 性別 1回目のテスト 受験者数
3 相沢一郎 男 52 6
4 井上浩二 男 74 欠席者数
5 上野有紀 女 欠席 2
6 内野武 男 35
7 上田祥子 女 欠席
8 江田早苗 女 59
9 榎本高貴 男 0
10 小田和樹 男 47
  1. ワークシート関数を利用した例です。
    Sub test10()

    　　Range("F3").Value = Application.WorksheetFunction.Count(Range("D3:D10"))

    　　Range("F5").Value = Application.WorksheetFunction.CountIf(Range("D3:D10"), "欠席")

    End Sub
  2. D列の値が数値であったら受験者数としてカウントし、「欠席」という文字列であったら欠席者としてカウントした例です。
    Sub test11()
    　　Dim c As Range
    　　Dim jyukensya As Long, kesseki As Long

    　　　　For Each c In Range("D3:D10")
    　　　　　　If IsNumeric(c.Value) Then
    　　　　　　　　jyukensya = jyukensya + 1
    　　　　　　ElseIf c.Value = "欠席" Then
    　　　　　　　　kesseki = kesseki + 1
    　　　　　　End If
    　　　　Next c

    　　　　Range("F3").Value = jyukensya
    　　　　Range("F5").Value = kesseki

    End Sub

問題2の解答例　　　　topへ


B C D E F
2 名前 性別 判定 合格者の数
3 相沢一郎 男 不合格 5
4 井上浩二 男 合格
5 上野有紀 女 合格
6 内野武 男 合格
7 上田祥子 女 合格
8 江田早苗 女 不合格
9 榎本高貴 男 合格
10 小田和樹 男 不合格
  1. ワークシート関数を利用した例です。
    Sub test20()

    　　Range("F3").Value = Application.WorksheetFunction.CountIf(Range("D3:D10"), "合格")

    End Sub
  2. D列の値が「合格」という文字列であったらカウントする例です。
    Sub test21()
    　　Dim c As Range
    　　Dim goukaku As Long

    　　　　For Each c In Range("D3:D10")
    　　　　　　If c.Value = "合格" Then
    　　　　　　　　goukaku = goukaku + 1
    　　　　　　End If
    　　　　Next c

    　　　　Range("F3").Value = goukaku
    End Sub

問題3の解答例


B C D E F
2 名前 性別 判定 男の合格者の数
3 相沢一郎 男 不合格 3
4 井上浩二 男 合格
5 上野有紀 女 合格
6 内野武 男 合格
7 上田祥子 女 合格
8 江田早苗 女 不合格
9 榎本高貴 男 合格
10 小田和樹 男 不合格
  1. ワークシート関数COUNTIFS　を利用した例です。（Excel2007以降で利用可能です）
    Sub test30()

    　　Range("F3").Value = Application.WorksheetFunction.CountIfs(Range("C3:C10"), "男", Range("D3:D10"), "合格")

    End Sub
  2. C列の値が「男」かつD列の値が「合格」という文字列であったらカウントする例です。
    Sub test31()
    　　Dim i As Long
    　　Dim goukaku As Long

    　　　　For i = 3 To 10
    　　　　　　If Cells(i, 3).Value = "男" And Cells(i, 4).Value = "合格" Then
    　　　　　　　　goukaku = goukaku + 1
    　　　　　　End If
    　　　　Next i

    　　　　Range("F3").Value = goukaku

    End Sub

スポンサードリンク

Home｜エクセル練習問題：目次｜データのカウント（VBA)

PageViewCounter
Counter
Since2006/2/27