値と比較し条件に応じて処理を行う1  次の文書

テストの得点や選択された値によって計算式を変えたりする

Sub 処理その1()
 Dim 値 As Integer
 Sheets("Sheet1").Select
 値 = Cells(1, 1)
 If 値 > 80 Then
  Cells(1, 2) = "A"
 End If
End Sub

Sub 処理その2()
 Dim 値 As Integer
 Sheets("Sheet1").Select
 値 = Cells(1, 1)
 If 値 > 80 Then
  Cells(1, 2) = "A"
 Else
  Cells(1, 2) = "B"
 End If
End Sub

Sub 処理その3()
 Dim 値 As Integer
 Sheets("Sheet1").Select
 値 = Cells(1, 1)
 If 値 > 80 Then
  Cells(1, 2) = "A"
 ElseIf 値 > 60 Then
  Cells(1, 2) = "B"
 Else
  Cells(1, 2) = "C"
 End If
End Sub

Sub 処理その4()
 Dim 値a As Integer
 Dim 値b As Integer
 Sheets("Sheet1").Select
 値a = Cells(1, 1)
 値b = Cells(1, 2)
 If 値a > 60 And 値b > 60 Then
  Cells(1, 3) = "合格"
 ElseIf 値a > 80 Or 値b > 80 Then
  Cells(1, 3) = "合格"
 Else
  Cells(1, 3) = "不合格"
 End If
End Sub

 
値と比較し条件に応じて処理を行う



← 左の文字をここへ入力後 登録ボタンをクリックしてください

(サイト管理者承認後掲載されます)