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

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

受講生さんの投稿

(投稿ID: 2138)

（昨晩以下の書き込みしたつもりでしたが、時間切れで画面が更新されなかったみたいです。
なので再アップします。どこかに掲載済でしたらすみません。）
今回数式の話が出たところで動画をとめて、自分だったらどうするか考えて以下を書きました。
文系の発想ですみません。コメントいただけましたら幸いです。
これから数列の勉強をしに動画を見てきます。

Sub mondai006()
    Dim moto
    Dim syukei
    syukei = 1
    For moto = 1 To 28
    If Left(Range("A" & moto).Value, 1) = "第" Then
        Range("C" & syukei).Value = Range("A" & moto).Value & Range("A" & moto + 1).Value
        syukei = syukei + 1
    End If
Next
End Sub

by gooska

2016/03/25 00:04

ゲストさんのコメント

(コメントID: 3521)

受講生さん:

見本と比べてどうでしょうか？

>（昨晩以下の書き込みしたつもりでしたが、時間切れで画面が更新されなかったみたいです。
>なので再アップします。どこかに掲載済でしたらすみません。）
>今回数式の話が出たところで動画をとめて、自分だったらどうするか考えて以下を書きました。
>文系の発想ですみません。コメントいただけましたら幸いです。
>これから数列の勉強をしに動画を見てきます。
>

>Sub mondai006()
>    Dim moto
>    Dim syukei
>    syukei = 1
>    For moto = 1 To 28
>    If Left(Range("A" & moto).Value, 1) = "第" Then
>        Range("C" & syukei).Value = Range("A" & moto).Value & Range("A" & moto + 1).Value
>        syukei = syukei + 1
>    End If
>Next
>End Sub
>

>by gooska

2016/03/25 01:00

ゲストさんのコメント

(コメントID: 3522)

>Sub mondai006()
>    Dim moto
>    Dim syukei
>    syukei = 1
>    For moto = 1 To 28
>    If Left(Range("A" & moto).Value, 1) = "第" Then
>        Range("C" & syukei).Value = Range("A" & moto).Value & Range("A" & moto + 1).Value
>        syukei = syukei + 1
>    End If
>Next
>End Sub
>

>by gooska

2016/03/25 01:00