Excelマクロで入力によって出力の文字列を変える

質問

Excel2003マクロである文字列の時に違う処理をしたいと考えています。

例えば、
C6のセルに「***-222-333-444」が入力されているとします。

この文字列をSplit(Range("C6"), "-")で分割し、***をC7に出力します。
このとき、「***」が「666」の場合は「666-777」
それ以外はそのままをC7のセルに出力したいと考えています。

自分で作ったマクロは
tmp = Split(Range("C6"), "-")
If tmp(0) = "666" Then
Range("C7") = "666-777"
End If
Range("C7") = tmp(0)
ですが、「666」のままになってしまいます。

この後の処理として、行きたいサイトのアドレスを生成しますので、
できれば出力先はC7のセルに固定したいのですが、どうすればよろしいでしょうか？
よろしくお願いいたします。

回答No.1

keithin · ベストアンサー

tmp = Split(Range("C6"), "-")
If tmp(0) = "666" Then
Range("C7") = "666-777"
else
rang("C7") = range("C6")
End If

といったことでしょうか。

お礼

先程、後輩が乱入して直していきました。
結果としては以下の通りです。

tmp = Split(Range("C6"), "-")
Range("C7") = tmp(0)
If Range("C7") = "666" Then
Range("C7") = "666-777"
Else
End If

keithin様含めてコレを読んでくださった皆様ありがとうございました。

補足

早速の回答をありがとうございます。
説明が悪かったかもしれませんが、
C7にはC6をそのまま出力するのではなく、
***をそのまま出力するイメージでした。