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

問題　　　　topへ

• 問題1：判定欄に得点が70以上は○、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へ

	B	C	D	E
2	名前	性別	得点	判定
3	相沢一郎	男	52	×
4	井上浩二	男	74	○
5	上野有紀	女	84	○
6	内野武	男	77	○
7	上田祥子	女	68	×
8	江田早苗	女	59	×
9	榎本高貴	男	77	○
10	小田和樹	男	47	×

• 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へ

	B	C	D	E
2	名前	性別	得点	判定
3	相沢一郎	男	52	可
4	井上浩二	男	74	良
5	上野有紀	女	84	優
6	内野武	男	77	良
7	上田祥子	女	68	可
8	江田早苗	女	59	可
9	榎本高貴	男	77	良
10	小田和樹	男	47	不

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