レッスン-投稿一覧パソコン仕事５倍塾ポータル

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

複数条件を組み合わせた条件分岐

受講生さんの投稿

(投稿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

小川慶一さんのコメント

(コメントID: 6604)

受講生さん:

こんにちは。

> あと質問なんですが、"昭和"の箇所はRange("E2").Valueにも置き換えられると思うのですが、直接文字列を入力したほうが動作的には軽くなるのでしょうか？

直接文字列を入力したほうが動作的には軽いですが、プログラムの中に値を埋めるより、セルから値を取得するほうが何かと(特に、メンテナンス性という点で)よいです。
この動画では、初心者向けということで、「入力しようとしている値が何なのか、より分かりやすいように」ということで、直接入力する方法を示しました。

2020/05/20 23:50