'***************************************************************************************************
' 判断・分岐処理(多分岐)のサンプル Module1(Module)
'
' 作成者:井上治 URL:https://www.ne.jp/asahi/excel/inoue/ [Excelでお仕事!]
'***************************************************************************************************
'変更日付 Rev 変更履歴内容------------------------------------------------------------------------>
'03/06/24(1.00)新規作成
'16/11/19(1.10)*.xlsm化
'20/01/17(1.11)記述整理等
'***************************************************************************************************
Option Explicit
'***************************************************************************************************
' ■■■ シートからの起動処理 ■■■
'***************************************************************************************************
'* 処理名 :TEST6
'* 機能 :判断・分岐処理のサンプル
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2003年06月23日
'* 作成者 :井上 治
'* 更新日 :2020年01月17日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:
'***************************************************************************************************
Sub TEST6()
'-----------------------------------------------------------------------------------------------
' A1セルに評価点を入れる
Select Case Cells(1, 1).Value
Case 100: MsgBox "満点です。おめでとう!!"
Case 99: MsgBox "ほとんど満点です。おめでとう!!"
Case Is >= 95: MsgBox "おしい!!次でがんばろう!"
Case Is >= 90: MsgBox "上出来です。今度はもっとがんばろう!"
Case Is >= 80: MsgBox "一応、上位ですが「天狗」にならないように"
Case Is >= 50: MsgBox "中くらいです。"
Case Is >= 30: MsgBox "良くありません。"
Case Else: MsgBox "やり直してきなさい!"
End Select
End Sub
'------------------------------------------<< End of Source >>--------------------------------------