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

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

エクセルマクロ・VBA基礎編

Matsumotoさんの投稿

(投稿ID: 4153)

8198 の回答内容の趣旨は以下であっていますか？
kiso04_03IFThen_drill.xlsの練習７に行き詰っていいて、回答を確認できたらと思いました。

kiso04_03IFThen_drill.xls-[daihon0010(コード）]の回答そのものは作成していないので、Kiso04_04IfThenHanako.xlsを参考に自分で考えましょう。

Kiso04_04IfThenHanako.xls

をご参照ください！

> お世話になります。
> 誠に申しわけございませんが、
> kiso04_03IFThen_drill.xls-[daihon0010(コード）]の練習問題を
> していますが、回答はどこに記載しているのかがわかりません。
> 教えてください。宜しくお願いします

2018/09/01 05:02

小川慶一さんのコメント

(コメントID: 5712)

ゲストさん:

なるほど。
それは、申し訳ありませんでした。ドリルのほうは、解答例がファイル内にありませんでした。

以下のとおりです。よろしく、お願いいたします。
（ハナコの例もつけました）

ファイルのほうも修正しておきます。

Option Explicit
'練習1:
Sub renshu1()
    If Range("G2").Value > 50 Then
        Range("H2").Value = "合格"
    Else
        Range("H2").Value = "不合格"
    End If
End Sub

'練習2:
Sub renshu2()
    If Range("E2").Value = "女性" Then
        Range("I2").Value = "OK"
    Else
        Range("I2").Value = "NG"
    End If
End Sub

'練習3:
Sub renshu3()
    If Range("E2").Value = "女性" Then
        Range("I2").Value = "OK"
        Range("A2:J2").Font.Color = vbRed
    Else
        Range("I2").Value = "NG"
        Range("A2:J2").Font.Color = vbBlue
    End If
End Sub

'練習4:
Sub renshu4()
    If Len(Range("C2").Value) >= 6 Then
        Range("J2").Value = "長いです"
    Else
        Range("J2").Value = "長くないです"
    End If
End Sub

'練習5:
Sub renshu5()
    If InStr(Range("B2").Value, "都島") > 0 Then
        Range("J2").Value = "都島グループです"
    End If
End Sub

'練習6:
Sub renshu6()
    If Range("E2").Value = "女性" Then
        If Range("G2").Value >= 70 Then
            Range("H2").Value = "合格"
        Else
            Range("H2").Value = "不合格"
        End If
    Else
        If Range("G2").Value >= 80 Then
            Range("H2").Value = "合格"
        Else
            Range("H2").Value = "不合格"
        End If
    End If
End Sub

'練習7:
'ヒント:If ... ElseIf ... ElseIf ... Else ... End If という構文になります。
Sub renshu7()
    If Range("G2").Value > 80 Then
        Range("L2").Value = Range("C2").Value
    ElseIf Range("G3").Value > 80 Then
        Range("L2").Value = Range("C3").Value
    ElseIf Range("G4").Value > 80 Then
        Range("L2").Value = Range("C4").Value
    ElseIf Range("G5").Value > 80 Then
        Range("L2").Value = Range("C5").Value
    ElseIf Range("G6").Value > 80 Then
        Range("L2").Value = Range("C6").Value
    ElseIf Range("G7").Value > 80 Then
        Range("L2").Value = Range("C7").Value
    ElseIf Range("G8").Value > 80 Then
        Range("L2").Value = Range("C8").Value
    ElseIf Range("G9").Value > 80 Then
        Range("L2").Value = Range("C9").Value
    ElseIf Range("G10").Value > 80 Then
        Range("L2").Value = Range("C10").Value
    ElseIf Range("G11").Value > 80 Then
        Range("L2").Value = Range("C11").Value
    Else
        Range("L2").Value = "該当なし"
    End If
End Sub

'練習1:
Sub renshu1_hanako()
    Dim gyo
    For gyo = 2 To 11
        If Range("G" & gyo).Value > 50 Then
            Range("H" & gyo).Value = "合格"
        Else
            Range("H" & gyo).Value = "不合格"
        End If
    Next
End Sub

'練習2:
Sub renshu2_hanako()
    Dim gyo
    For gyo = 2 To 11
        If Range("E" & gyo).Value = "女性" Then
            Range("I" & gyo).Value = "OK"
        Else
            Range("I" & gyo).Value = "NG"
        End If
    Next
End Sub

'練習3:
Sub renshu3_hanako()
    Dim gyo
    For gyo = 2 To 11
        If Range("E" & gyo).Value = "女性" Then
            Range("I" & gyo).Value = "OK"
            Range("A" & gyo & ":J" & gyo).Font.Color = vbRed
        Else
            Range("I" & gyo).Value = "NG"
            Range("A" & gyo & ":J" & gyo).Font.Color = vbBlue
        End If
    Next
End Sub

'練習4:
Sub renshu4_hanako()
    Dim gyo
    For gyo = 2 To 11
        If Len(Range("C" & gyo).Value) >= 6 Then
            Range("J" & gyo).Value = "長いです"
        Else
            Range("J" & gyo).Value = "長くないです"
        End If
    Next
End Sub

'練習5:
Sub renshu5_hanako()
    Dim gyo
    For gyo = 2 To 11
        If InStr(Range("B" & gyo).Value, "都島") > 0 Then
            Range("J" & gyo).Value = "都島グループです"
        End If
    Next
End Sub

'練習6:
Sub renshu6_hanako()
    Dim gyo
    For gyo = 2 To 11
        If Range("E" & gyo).Value = "女性" Then
            If Range("G" & gyo).Value >= 70 Then
                Range("H" & gyo).Value = "合格"
            Else
                Range("H" & gyo).Value = "不合格"
            End If
        Else
            If Range("G" & gyo).Value >= 80 Then
                Range("H" & gyo).Value = "合格"
            Else
                Range("H" & gyo).Value = "不合格"
            End If
        End If
    Next
End Sub

'練習7:
Sub renshu7_hanako()
    '以下のやり方は、基礎編フォローアップ演習内で扱います
    Dim gyo
    For gyo = 2 To 11
        If Range("G" & gyo).Value > 80 Then
            Range("L2").Value = Range("C" & gyo).Value
            Exit For
        End If
    Next
End Sub

2018/09/01 17:25

Matsumotoさんのコメント

(コメントID: 5713)

早速のご返信ありがとうございました。

問題文にある「最初に…」を深読みしすぎてドツボにはまっていましたが、そもそもElseif構文が上から順番に処理をして「最初に条件を満たしたものを選択する」構文なのですね。

マクロが言語という意味が身に沁みました。

マクロを正確な日本語に置き換えられるか、逆は、
日本語（問題文or やりたいこと）を正確なマクロに置き換えれるか

これはやはり言語ですね。

2018/09/02 02:58

Matsumotoさんのコメント

(コメントID: 5714)

ifelseをハナコにする例はかなりシンプルになってよいですね。
フォローアップ演習の続きが楽しみです。
また、問題文の回答だと最後に以下一文が入りますね。

Else: Range("L2").Value = "該当なし"

そこで追加の質問です。今回なぜか、ElseとRangeの間に「：（コロン）」が自動で入ってしまいました。
マクロ事態は問題なく起動します。これは何が原因でしょう？

2018/09/02 03:10

小川慶一さんのコメント

(コメントID: 5715)

Matsumotoさん:

こちらこそ、サンプルデータの作り込みの件では、失礼しました。

> 問題文にある「最初に…」を深読みしすぎてドツボにはまっていましたが、そもそもElseif構文が上から順番に処理をして「最初に条件を満たしたものを選択する」構文なのですね。
> マクロが言語という意味が身に沁みました。
> マクロを正確な日本語に置き換えられるか、逆は、
> 日本語（問題文or やりたいこと）を正確なマクロに置き換えれるか
> これはやはり言語ですね。

実際にとりくんでみると、いろいろな気づきが得られますね。

以下の記事も、このタイミングで一読ください。

・エクセルマクロ習得に関係する4つの能力
https://www.exvba.com/4skills.php#language

ひきつづきよろしくお願いいたします。

2018/09/02 16:33

小川慶一さんのコメント

(コメントID: 5716)

Matsumotoさん:

記号コロン「:」は、複数行を一行にまとめて書くときに使う記号です。

例:

Sub colonsample1()
    Dim hoge
    hoge = 3: Range("A3").Value = hoge + 5: Range("A5").Value = hoge * 7
End Sub

記号コロン「:」に何もなくてもVBAの文法的にはいちおうOKです。

Sub colonsample2()
    Dim hoge
    hoge = 3:
    Range("B3").Value = hoge + 5:
    Range("B5").Value = hoge * 7
End Sub

ではあるのですが、記号コロン「:」には、使うメリットはまったくないに等しいですヾ(´ー｀)ﾉ

Else: Range("L2").Value = "該当なし"

↑
ご指摘ありがとうございます。修正しておきます。
ひきつづきよろしくお願いいたします。

> ifelseをハナコにする例はかなりシンプルになってよいですね。
> フォローアップ演習の続きが楽しみです。
> また、問題文の回答だと最後に以下一文が入りますね。
> [code]Else: Range("L2").Value = "該当なし"[code]
>
> そこで追加の質問です。今回なぜか、ElseとRangeの間に「：（コロン）」が自動で入ってしまいました。
> マクロ事態は問題なく起動します。これは何が原因でしょう？

2018/09/02 16:38

５倍速！メールマガジン

このメールマガジンの詳細はこちら

受講生の声

たった1ヶ月で人生が劇的に変わりました

佐藤信さん

役員クラスの方から高い評価を受けるようになりました。

佐賀県 - 岩本徹さん

今までまったく知らなかったショートカットキーを使いまくっています。

東京都 - 鷹觜慶さん

年齢60才間近、営業で外回りの時間が多い私でも退社時間が1-2時間程度早くなりました。

東京都 - 宗内隆明さん

受講前もすでにパソコン得意でしたが、そんな私でも受講して本当に良かったと思えた講座です。

東京都 - 佐伯とも子さん

ここまで包括的に仕事に役立つ深い学びを受けれた講座は初めてでした

東京都 - 飯田倫子さん

受講生の声をもっと見る

サイト運営者紹介

小川慶一講師/教材/システム開発者紹介

この学習サイトの教材制作、サポート、システム開発をすべてやっています。

より詳しい紹介はこちら

ショートカットワーク報告

2025年03月26日 22:33

CommaToXls-excel
初回でゴールド賞をとれた！

cat22さん

2025年03月26日 22:12

QuoteToXls-excel
ゴールド賞を達成したこと

cat22さん

2025年03月24日 22:28

QuoteToXls-excel
マイペースでも続いていること

cat22さん

2025年03月19日 20:10

TxtToXls-excel
初回でゴールド賞をとれた！

cat22さん

2025年03月18日 20:52

CommaSpaceToXls
プラチナ賞をとれたこと！

cat22さん

ショートカットワーク報告へ

ショートカットワークコメント

2025年04月16日 08:30

CommaToXls-excel
だいぶ間が空いてしまいました。すみません。実務での活用状況についても報告に含めていただければと …

小川慶一さん

2025年03月18日 09:07

CommaToXls
> エスケープ文字をつけ忘れてうまくいかなくてもあきらめなかったところ「自分ならできる」という…

小川慶一さん

2025年03月18日 09:06

QuoteToXls
> FnとWinキーを押し間違えてウィンドウ表示が変ってしまうところそのこと自体は問題ありませ…

小川慶一さん

2025年03月15日 13:23

TxtToXls
着実に上達されていると感じます (^^

小川慶一さん

2025年02月26日 16:37

TabTo-excel
> Ctrl＋Fn+Shift+End これは大変ですよ。僕も、4キー同時打鍵はしたくありませ…

小川慶一さん

ショートカットワーク一覧へ

コーディングワーク報告

2025年04月02日 21:01

複数の表の間でのマッチング
何も見なくてもスラスラ解けた

cat22さん

2025年04月02日 20:47

複数列の中から、最大値の格納されたセルの情報を出力する
昨日より早くかけたこと

cat22さん

2025年04月02日 20:37

最大値の格納されたセルの情報を出力する
昨日よりスピードがあがった

cat22さん

2025年04月01日 22:03

複数列の中から、最大値の格納されたセルの情報を出力する
動画の真似をしてかけたこと

cat22さん

2025年04月01日 21:27

最大値の格納されたセルの情報を出力する
（１）で類似問題を実施しているので、思ったより早く解けた

cat22さん

コーディングワーク報告へ

コーディングワークコメント

2025年04月16日 08:32

複数の表の間でのマッチング
実務での活用状況どうでしょうか。細かい操作ミスについては気にしないでください。速やかに無意識に修…

小川慶一さん

2025年03月18日 09:10

文字列を加工してデータ転記する(その4)
別のところでも書きましたが、イメージトレーニング大切です。次に出てきたときには瞬時に対応するぞ！…

小川慶一さん

2025年03月18日 09:10

文字列を加工してデータ転記する(その4)
こういうのは慣れです (^^

小川慶一さん

2025年03月18日 09:09

文字列を加工してデータ転記する(その4)
別海も悪いはないです。両方のパターンを自在に使い分けられるようになるとさらによいですね！

小川慶一さん

2025年03月18日 09:06

文字列を加工してデータ転記する(その5)
イメージトレーニングしましょう！

小川慶一さん

コーディングワークへ