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

エクセルマクロ・VBA基礎編フォローアップ ベーシック
複数条件を組み合わせた条件分岐

受講生さんの投稿

(投稿ID: 4731)

いつもお世話になっております。この問題はできたのですが、多少自分のコードは無駄が多いですね汗。

「ElseIf Range("E" & gyo).Value = "平成" Then」ここはelse使えば、よかったんですね。

あと質問なんですが、"昭和"の箇所はRange("E2").Valueにも置き換えられると思うのですが、直接文字列を入力したほうが動作的には軽くなるのでしょうか？
Sub shouwheisei()
    Dim gyo
    For gyo = 2 To 11
        If Range("E" & gyo).Value = "昭和" Then
            Range("G" & gyo).Value = Range("F" & gyo).Value + 25 + 1900
        ElseIf Range("E" & gyo).Value = "平成" Then
            Range("G" & gyo).Value = Range("F" & gyo).Value - 12 + 2000
        End If
    Next
End Sub

2020/05/20 08:02