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

問題 topへ

• 問題1:受験者数と欠席者数を求めなさい。 問題1の解答
  
  B C D E F
  2 名前 性別 1回目のテスト 受験者数
  3 相沢一郎 男 52
  4 井上浩二 男 74 欠席者数
  5 上野有紀 女 欠席
  6 内野武 男 35
  7 上田祥子 女 欠席
  8 江田早苗 女 59
  9 榎本高貴 男 0
  10 小田和樹 男 47
• 問題2:合格者の数を求めなさい。 問題2の解答
  
  B C D E F
  2 名前 性別 判定 合格者の数
  3 相沢一郎 男 不合格
  4 井上浩二 男 合格
  5 上野有紀 女 合格
  6 内野武 男 合格
  7 上田祥子 女 合格
  8 江田早苗 女 不合格
  9 榎本高貴 男 合格
  10 小田和樹 男 不合格
• 問題3:男の合格者数を求めなさい。 問題3の解答
  
  B C D E F
  2 名前 性別 判定 男の合格者の数
  3 相沢一郎 男 不合格
  4 井上浩二 男 合格
  5 上野有紀 女 合格
  6 内野武 男 合格
  7 上田祥子 女 合格
  8 江田早苗 女 不合格
  9 榎本高貴 男 合格
  10 小田和樹 男 不合格

解答例 topへ

問題1の解答例 topへ

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へ

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