エクセル練習問題:条件の判定(VBA)

問題 topへ

• 問題1:判定欄に得点が70以上は○しろまる×ばつとしなさい。 問題1の解答
  
  B C D E
  2 名前 性別 得点 判定
  3 相沢一郎 男 52
  4 井上浩二 男 74
  5 上野有紀 女 84
  6 内野武 男 77
  7 上田祥子 女 68
  8 江田早苗 女 59
  9 榎本高貴 男 77
  10 小田和樹 男 47
• 問題2:得点が80以上は「優」、70以上は「良」、50以上は「可」、50未満は「不」としなさい。 問題2の解答
  
  B C D E
  2 名前 性別 得点 判定
  3 相沢一郎 男 52
  4 井上浩二 男 74
  5 上野有紀 女 84
  6 内野武 男 77
  7 上田祥子 女 68
  8 江田早苗 女 59
  9 榎本高貴 男 77
  10 小田和樹 男 47
• 問題3:7月は70以上、8月は80以上、9月は70以上に「合格」と表示しなさい。 問題3の解答
  
  B C D
  2 試験日 得点 判定
  3 2011年7月1日 66
  4 2011年7月2日 71
  5 2011年8月4日 78
  6 2011年8月5日 69
  7 2011年8月6日 84
  8 2011年8月7日 79
  9 2011年9月1日 72
  10 2011年9月2日 68

解答例 topへ

問題1の解答例 topへ

• If〜Then〜Else ステートメント で条件わけした例です。
  Sub test10()
  Dim c As Range
  For Each c In Range("D3:D10")
  If c.Value >= 70 Then
  c.Offset(0, 1).Value = "○しろまる"
  Else
  c.Offset(0, 1).Value = ×ばつ"
  End If
  Next c
  End Sub

問題2の解答例 topへ

1. Select Case ステートメント で条件分けした例です。
   Sub test11()
   Dim c As Range
   Dim mark As String
   For Each c In Range("D3:D10")
   Select Case c.Value
   Case Is >= 80
   mark = "優"
   Case Is >= 70
   mark = "良"
   Case Is >= 50
   mark = "可"
   Case Else
   mark = "不"
   End Select
   c.Offset(0, 1).Value = mark
   Next c
   End Sub
2. If〜Then〜Else ステートメント で条件分けした例です。
   Sub test11a()
   Dim c As Range
   Dim mark As String
   For Each c In Range("D3:D10")
   If c.Value >= 80 Then
   mark = "優"
   ElseIf c.Value >= 70 Then
   mark = "良"
   ElseIf c.Value >= 50 Then
   mark = "可"
   Else
   mark = "不"
   End If
   
   c.Offset(0, 1).Value = mark
   Next c
   End Sub