スポンサードリンク | |
B | C | D | E | F | |
2 | 名前 | 性別 | 1回目のテスト | 受験者数 | |
3 | 相沢一郎 | 男 | 52 | ||
4 | 井上浩二 | 男 | 74 | 欠席者数 | |
5 | 上野有紀 | 女 | 欠席 | ||
6 | 内野武 | 男 | 35 | ||
7 | 上田祥子 | 女 | 欠席 | ||
8 | 江田早苗 | 女 | 59 | ||
9 | 榎本高貴 | 男 | 0 | ||
10 | 小田和樹 | 男 | 47 |
B | C | D | E | F | |
2 | 名前 | 性別 | 判定 | 合格者の数 | |
3 | 相沢一郎 | 男 | 不合格 | ||
4 | 井上浩二 | 男 | 合格 | ||
5 | 上野有紀 | 女 | 合格 | ||
6 | 内野武 | 男 | 合格 | ||
7 | 上田祥子 | 女 | 合格 | ||
8 | 江田早苗 | 女 | 不合格 | ||
9 | 榎本高貴 | 男 | 合格 | ||
10 | 小田和樹 | 男 | 不合格 |
B | C | D | E | F | |
2 | 名前 | 性別 | 判定 | 男の合格者の数 | |
3 | 相沢一郎 | 男 | 不合格 | ||
4 | 井上浩二 | 男 | 合格 | ||
5 | 上野有紀 | 女 | 合格 | ||
6 | 内野武 | 男 | 合格 | ||
7 | 上田祥子 | 女 | 合格 | ||
8 | 江田早苗 | 女 | 不合格 | ||
9 | 榎本高貴 | 男 | 合格 | ||
10 | 小田和樹 | 男 | 不合格 |
B | C | D | E | F | |
2 | 名前 | 性別 | 1回目のテスト | 受験者数 | |
3 | 相沢一郎 | 男 | 52 | 6 | |
4 | 井上浩二 | 男 | 74 | 欠席者数 | |
5 | 上野有紀 | 女 | 欠席 | 2 | |
6 | 内野武 | 男 | 35 | ||
7 | 上田祥子 | 女 | 欠席 | ||
8 | 江田早苗 | 女 | 59 | ||
9 | 榎本高貴 | 男 | 0 | ||
10 | 小田和樹 | 男 | 47 |
Sub test10() Range("F3").Value = Application.WorksheetFunction.Count(Range("D3:D10")) Range("F5").Value = Application.WorksheetFunction.CountIf(Range("D3:D10"), "欠席") End Sub |
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 |
B | C | D | E | F | |
2 | 名前 | 性別 | 判定 | 合格者の数 | |
3 | 相沢一郎 | 男 | 不合格 | 5 | |
4 | 井上浩二 | 男 | 合格 | ||
5 | 上野有紀 | 女 | 合格 | ||
6 | 内野武 | 男 | 合格 | ||
7 | 上田祥子 | 女 | 合格 | ||
8 | 江田早苗 | 女 | 不合格 | ||
9 | 榎本高貴 | 男 | 合格 | ||
10 | 小田和樹 | 男 | 不合格 |
Sub test20() Range("F3").Value = Application.WorksheetFunction.CountIf(Range("D3:D10"), "合格") End Sub |
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 |
B | C | D | E | F | |
2 | 名前 | 性別 | 判定 | 男の合格者の数 | |
3 | 相沢一郎 | 男 | 不合格 | 3 | |
4 | 井上浩二 | 男 | 合格 | ||
5 | 上野有紀 | 女 | 合格 | ||
6 | 内野武 | 男 | 合格 | ||
7 | 上田祥子 | 女 | 合格 | ||
8 | 江田早苗 | 女 | 不合格 | ||
9 | 榎本高貴 | 男 | 合格 | ||
10 | 小田和樹 | 男 | 不合格 |
Sub test30() Range("F3").Value = Application.WorksheetFunction.CountIfs(Range("C3:C10"), "男", Range("D3:D10"), "合格") End Sub |
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 |
スポンサードリンク
PageViewCounter
Since2006/2/27