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

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

ゲストさんの投稿

(投稿ID: 4540)

小川先生
こんにちは。フォローアップ・ベーシックを2回復習し、ようやくアドバンスに来ています。以下自力で作成しました（問題５を投稿）。成功したときは嬉しくて思わず声を出してしまいました。先生の模範解答とは方向性がだいぶ異なりますが、記念に投稿させて下さい。これからもよろしくお願いします。

Sub mondai5()
    Dim migi
    Dim kugiri '、の出現回数
    Dim n
    Dim mae
    Dim ato
    Dim moji
    moji = Range("D2").Value
    kugiri = Len(moji) \ 7
    migi = 2
    For n = 0 To kugiri
        mae = 7 * n
        ato = 7 + 7 * n
        Range("L" & migi).Value = Mid(moji, mae + 1, ato - mae - 1)
        migi = migi + 1
    Next
End Sub

2019/08/07 19:28

小川慶一さんのコメント

(コメントID: 6260)

ゲストさん:

よいですね。
自力で課題を解くといのうのはとてもよい訓練になります。知力と腕力が鍛えられます v(^^*

> 小川先生
> こんにちは。フォローアップ・ベーシックを2回復習し、ようやくアドバンスに来ています。以下自力で作成しました（問題５を投稿）。成功したときは嬉しくて思わず声を出してしまいました。先生の模範解答とは方向性がだいぶ異なりますが、記念に投稿させて下さい。これからもよろしくお願いします。

Sub mondai5()
    Dim migi
    Dim kugiri '、の出現回数
    Dim n
    Dim mae
    Dim ato
    Dim moji
    moji = Range("D2").Value
    kugiri = Len(moji) \ 7
    migi = 2
    For n = 0 To kugiri
        mae = 7 * n
        ato = 7 + 7 * n
        Range("L" & migi).Value = Mid(moji, mae + 1, ato - mae - 1)
        migi = migi + 1
    Next
End Sub

2019/08/08 20:19