エクセル練習問題:データのカウント(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

スポンサードリンク



よねさんのExcelとWordの使い方エクセル練習問題:目次|データのカウント(VBA)