Excel VBA 質問スレ Part14 at TECH

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
400:デフォルトの名無しさん 10/02/25 04:03:34 すみません、教えていただけないでしょうか OS:windows Excelバージョン:2003 反復型の成績判定で10人分の得点を一人ずつ成績判定を行うプログラムを作りたいのですが、 Sub 反復型の成績判定() Dim X As Variant X = Array(60, 82, 87, 50, 56, 86, 89, 76, 58, 68) Dim hantei As Variant hantei = Array("不可です", "可です", "良です", "優です", "対象外です") Dim h As Integer Const n As Integer = 10 Dim i As Integer Dim tokuten As Integer For i = 1 To n tokuten = X(i - 1) Next Select Case tokuten Case Is < 60 Debug.Print Format(tokuten, "#点は ") & Format(hantei(0), "不可です") Case Is < 70 Debug.Print Format(tokuten, "#点は ") & Format(hantei(1), "可です") Case Is < 80 Debug.Print Format(tokuten, "#点は ") & Format(hantei(2), "良です") Case 80 To 100 Debug.Print Format(tokuten, "#点は ") & Format(hantei(3), "優です") Case Else Debug.Print Format(tokuten, "#点は ") & Format(hantei(4), "対象外") End Select End Sub これだと68点の成績判定しかされないのですが、どこを直せば良いのでしょうか？

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

4335日前に更新/253 KB
担当:undef