投稿/コメントを表示します。

エクセルマクロ・VBA基礎編フォローアップ ベーシック
ElseIfを使った条件分岐

浦山大さんの投稿

(投稿ID: 3357)

小川先生、質問です。
select　caseのコードを作成しておりました。
Sub renshu()
   Dim gyo3
   For gyo3 = 2 To 11
        Select Case Range("D" & gyo3).Value
            Case Is >= 80
                Range("E" & gyo3).Value = "A判定です"
            Case Is >= 60
                Range("E" & gyo3).Value = "B判定です"
            Case Is >= 40
                Range("E" & gyo3).Value = "C判定です"
            Case Else
                Range("E" & gyo3).Value = "D判定です"
        End Select
   Next
End Sub

↑これは自分で何も見ないで作成できるようになりました。
動作も確認済みです。タブの位置も気にしながら作成しています。

以下、変数に纏めてすっきりさせられないかな、
と思って作成してみました。
しかし、値がExcelに入りませんでした。
F8を押すとエラーもなく最後まで動作はしているようです。
Sub renshu_error1()
   Dim hani
   Dim gyo2
   For gyo2 = 2 To 11
   hani = Range("E" & gyo2).Value
        Select Case Range("D" & gyo2).Value
            Case Is >= 80
                hani = "A判定です"
            Case Is >= 60
                hani = "B判定です"
            Case Is >= 40
                hani = "C判定です"
            Case Else
                hani = "D判定です"
        End Select
   Next
End Sub

変数にしないで実行をすれば通常通りに進みます。
Excelのバージョンは2007です。

質問ばかりで恐縮ですが、
以下のように書くと怒られました。
これは、変数gyo2の中身を指定してあげる前に、
gyo2を使用しようとしているから、
という感覚でいればよいでしょうか？
Sub renshu_error2()
   Dim hani
   Dim gyo2                                 'Range’メソッドは失敗しました’_Gloval’オブジェクト
   hani = Range("E" & gyo2).Value   'gyo2を指定する前にgyo2が出てるから？
   For gyo2 = 2 To 11
        Select Case Range("D" & gyo2).Value
            Case Is >= 80
                hani = "A判定です"
            Case Is >= 60
                hani = "B判定です"
            Case Is >= 40
                hani = "C判定です"
            Case Else
                hani = "D判定です"
        End Select
   Next
End Sub

いずれにせよ、
真似ができるようになったら先へ、先へ進めています。
大切なところは理解できるようになってきましたし、
先生の真似をしながら記載も出来るようになってきました。
感謝しています。
2017/08/17 21:22