小川先生
　
　唐突で、説明足らずですみません。
　問題２　のケースでございます。
>　以下のように、変数を設定して、コードを作りましたが、
>全体的な概念として、変数の数は、抑える方にした方が良いでしょうか。
>　ご教示よろしくお願いします。
>

Sub guru()

    Dim shozoku
    Dim guru_no
    Dim gyo
    
    For gyo = 2 To 11
        shozoku = Range("B" & gyo)
        guru_no = InStr(shozoku, "都島")
        If guru_no > 0 Then
            Range("J" & gyo) = "都島グループです"
        End If
    Next
        
End Sub

2015/01/13 21:17

ライスミルク さん:

今回に限って言うと、変数に格納した値を一度しか利用しないなら、あまり意味ないかもですね。
基礎編第１章でお話した変数を活用することのメリットについて、もう一度学びなおしてみてください。（マインドマップを再読するくらいで十分かと）



>小川先生
>
>　以下のように、変数を設定して、コードを作りましたが、
>全体的な概念として、変数の数は、抑える方にした方が良いでしょうか。
>　ご教示よろしくお願いします。
>
>

Sub guru()
>
>    Dim shozoku
>    Dim guru_no
>    Dim gyo
>    
>    For gyo = 2 To 11
>        shozoku = Range("B" & gyo)
>        guru_no = InStr(shozoku, "都島")
>        If guru_no > 0 Then
>            Range("J" & gyo) = "都島グループです"
>        End If
>    Next
>        
>End Sub

>
>

2015/01/14 03:10

小川先生

ありがとうございます。
見直ししました＾＾

これからは、フォローアップと　基礎編の見直しとを並行してやっていきます！

>ライスミルク さん:
>
>今回に限って言うと、変数に格納した値を一度しか利用しないなら、あまり意味ないかもですね。
>基礎編第１章でお話した変数を活用することのメリットについて、もう一度学びなおしてみてください。（マインドマップを再読するくらいで十分かと）
>
>>小川先生
>>
>>　以下のように、変数を設定して、コードを作りましたが、
>>全体的な概念として、変数の数は、抑える方にした方が良いでしょうか。
>>　ご教示よろしくお願いします。
>>
>>

Sub guru()
>>
>>    Dim shozoku
>>    Dim guru_no
>>    Dim gyo
>>    
>>    For gyo = 2 To 11
>>        shozoku = Range("B" & gyo)
>>        guru_no = InStr(shozoku, "都島")
>>        If guru_no > 0 Then
>>            Range("J" & gyo) = "都島グループです"
>>        End If
>>    Next
>>        
>>End Sub

2015/01/14 22:26

ライスミルク さん:

変数を使うメリットは、可読性と冗長性の排除です（冗長性の排除は高速性にもつながります）。
可読性という意味では、一度しか使わない場合でも機能の見える名前をつけた変数に値を格納することの意義はあるかもしれません。




>小川先生
>
>ありがとうございます。
>見直ししました＾＾
>
>これからは、フォローアップと　基礎編の見直しとを並行してやっていきます！
>
>>ライスミルク さん:
>>
>>今回に限って言うと、変数に格納した値を一度しか利用しないなら、あまり意味ないかもですね。
>>基礎編第１章でお話した変数を活用することのメリットについて、もう一度学びなおしてみてください。（マインドマップを再読するくらいで十分かと）
>>
>>>小川先生
>>>
>>>　以下のように、変数を設定して、コードを作りましたが、
>>>全体的な概念として、変数の数は、抑える方にした方が良いでしょうか。
>>>　ご教示よろしくお願いします。

Sub guru()

    Dim shozoku
    Dim guru_no
    Dim gyo
    
    For gyo = 2 To 11
        shozoku = Range("B" & gyo)
        guru_no = InStr(shozoku, "都島")
        If guru_no > 0 Then
            Range("J" & gyo) = "都島グループです"
        End If
    Next
        
End Sub

2015/01/15 21:33