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

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

鈴木優子さんの投稿

(投稿ID: 1562)

自力で書いたマクロで動いて嬉しかったのですが、
やっぱり解答のマクロはシンプルでかっこいいですね。
わたしは、、、毎回書き出してしまいました。。。
mid 関数は思いつきませんでした。

Sub mondai()
    Dim gyo
    Dim gyousyamei
    Dim furigana
    For gyo = 2 To 11
        gyousyamei = Range("A" & gyo).Value
        furigana = Range("B" & gyo).Value
        If gyo = 2 Then
            Range("F2").Value = gyousyamei
            Range("F3").Value = furigana
        Else
            Range("F2").Value = Range("F2").Value & "," & gyousyamei
            Range("F3").Value = Range("F3").Value & "," & furigana
        End If
    Next
End Sub

2015/08/05 07:50

ゲストさんのコメント

(コメントID: 2823)

鈴木優子さん:

次にやるときにはこんな流れでできればよいですね。

>自力で書いたマクロで動いて嬉しかったのですが、
>やっぱり解答のマクロはシンプルでかっこいいですね。
>わたしは、、、毎回書き出してしまいました。。。
>mid 関数は思いつきませんでした。
>

Sub mondai()
>    Dim gyo
>    Dim gyousyamei
>    Dim furigana
>    For gyo = 2 To 11
>        gyousyamei = Range("A" & gyo).Value
>        furigana = Range("B" & gyo).Value
>        If gyo = 2 Then
>            Range("F2").Value = gyousyamei
>            Range("F3").Value = furigana
>        Else
>            Range("F2").Value = Range("F2").Value & "," & gyousyamei
>            Range("F3").Value = Range("F3").Value & "," & furigana
>        End If
>    Next
>End Sub
>

2015/08/05 14:42