金子　伊智郎さん:

> 先生の動画がわかりやすいのでいいペースで進んでいます。

それは、よかった！
ひきつづきお楽しみください☆

いただいたマクロ、ステキです。

以下、変数名についてだけコメント（あとは完璧です v(^^* ）。

Dim address のところは、 adrs とかの実在する英単語とは異なるものにしたほうがよいでしょう。

というのは、英単語一語だと、エクセルマクロに実在するキーワードとかぶる可能性か高いため。

たとえば、以下はまずかろうというのはなんとなく感じられるかと思います。

Dim value
Dim end
Dim right

↑
基礎編でも登場したキーワードと同じ変数名ですね。そして、 value はまだギリギリOKですが、 end, right は誤動作します。

そして、実は、（発展編１で扱いますが）以下のとおり、 .address というプロパティが実在します。

Dim moji
moji = Range("A1").Address ' .address プロパティを調べることにより、セルの番地を取得できます。

ということなので、変数名には、実在する英単語はなるべく避けましょう

ではどうするか？ということですが。。
例えば、僕なら以下のようにします↓。

Dim adrs  'address の代わり
Dim atai  'value の代わり
Dim saigo 'end の代わり
Dim migi  'right の代わり

以下も復習されると良いかと。
「基礎講座第１章９ - 変数を活用するときの注意点」
https://forum.pc5bai.com/lesson/page/105


> 私もコードを書いてみました。
> VBAは仕事でも使った経験があるのですが、今回体系的に基礎から学びなおしたいと思い、オンライン講座受講しています。
> 先生の動画がわかりやすいのでいいペースで進んでいます。

Sub address_split()
    Const minGyo = 2
    Const maxGyo = 51
    Dim num
    Dim address
    
    For num = minGyo To maxGyo
'        Range("F" & num).Value = Left(Range("C" & num).Value, InStr(Range("C" & num).Value, "区"))
'        Range("G" & num).Value = Mid(Range("C" & num).Value, InStr(Range("C" & num).Value, "区") + 1)
        
        'Range("C" & num).Value がくどいので変数に格納する
        address = Range("C" & num).Value
        Range("F" & num).Value = Left(address, InStr(address, "区"))
        Range("G" & num).Value = Mid(address, InStr(address, "区") + 1)

    Next num

End Sub

2017/09/12 20:26