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

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

受講生さんの投稿

(投稿ID: 4109) 添付ファイルのダウンロード権限がありません

はい、二つ目の問題です。
自分で気づかないうちに間違った操作をしてるのかもしれないです。
お手数おかけしますが、添付ファイルの確認お願いします。

---------------------------
>受講生さん:

動画の5分あたりから扱っている、２つ目の問題ですよね。
ちゃんと動きますね...。

ファイルごと送付いただけますか。
よろしくお願いいたします。

2018/08/18 12:05

小川慶一さんのコメント

(コメントID: 5669)

受講生さん:

コメント番号10378で投稿されたマクロは以下。

Sub AAA()
    Dim GYO
    For GYO = 4 To 19
        Dim NAME
        NAME = Range("D" & GYO).Value
        If NAME = "資料A" Then
            Range("B" & GYO).Value = 1
        ElseIf NAME = "資料B" Then
            Range("B" & GYO).Value = 2
        ElseIf NAME = "資料C" Then
            Range("B" & GYO).Value = 3
        End If
        Range("C" & GYO).Value = Mid(Range("F" & GYO).Value, 2, 1)
    Next
End Sub

そして、今回お送りいただいたファイルのモジュール「Module1」にあったマクロは以下です。

Sub AAA()
    Dim NAMAE
    Dim BANGO
    Dim GYO
    For GYO = 4 To 19
        NAMAE = Range("D" & GYO).Value
        BANGO = Range("B" & GYO).Value
        If NAMAE = "資料A" Then
             BANGO = 1
        ElseIf NAMAE = "資料B" Then
             BANGO = 2
        ElseIf NAMAE = "資料C" Then
             BANGO = 3
        End If
        Range("C" & GYO).Value = Mid(Range("F" & GYO).Value, 2, 1)
    Next
End Sub

2018/08/18 19:45