エクセルマクロ オンライン講座コメント紹介

コメント紹介
   └ エクセルマクロ・VBA基礎編フォローアップ ベーシック
       └ 表を解析して1行のリストを作る、1行のリストを解析して表にする(その1)

表を解析して1行のリストを作る、1行のリストを解析して表にする(その1)

[4797] 2015-08-04 22:50:18 鈴木優子さんからの投稿です。

自力で書いたマクロで動いて嬉しかったのですが、
やっぱり解答のマクロはシンプルでかっこいいですね。
わたしは、、、毎回書き出してしまいました。。。
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

 


[4801] 2015-08-05 05:42:36 小川慶一さんからの投稿です。

鈴木優子 さん:

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

>自力で書いたマクロで動いて嬉しかったのですが、
>やっぱり解答のマクロはシンプルでかっこいいですね。
>わたしは、、、毎回書き出してしまいました。。。
>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
>

 


まずはここから!スマホでも学べる無料動画講座

今なら先着30名限定で無料!定価4,800円の、初心者のためのエクセルマクロ動画講座。
  1. Excel 97~Excel 2016まですべて対応。動画本数20本、総再生時間2時間44分53秒
  2. PC, Mac, iPhone, iPad, Androidのお好みの環境で、いつでも好きなときに学べます。
2004年から10年間述べ3,000名以上に実施した研修の経験と実績を集約した講座です。
いますぐ無料で試してください。

トップへ