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

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

Sub 比較処理()
　Dim 値 As String
　値 = Cells(1, 2)
　Select Case 値
　　Case "A"
　　　Cells(1, 3) = "合格"
　　Case "B"
　　　Cells(1, 3) = "合格"
　　Case "C"
　　　Cells(1, 3) = "不合格"
　　Case Else
　　　Cells(1, 3) = "未受験"
　End Select
End Sub

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



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

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