エクセル マクロ If then を作っていますが、エラーがでてしまいます。

質問

お世話になります。
マクロ初心者で初めてVBAを作っております。
本を読みながらコードを作ったのですが、作成中にエラーが出てしまい検索しても解決できませんでした。
誠に申し訳ありませんが、以下のご指導をお願いできますでしょうか。
どうぞよろしくお願いいたします。

以下の表のＣ列にGroup　のコード数字に対応する製品名を入れる。
A　　B　　　　　C
1 Group 製品
2　　100 部品A
3 200　　　　部品B
4 300　　　　部品C
5 200　　　　部品B
6 200　　　　部品B
7 300　　　　部品C

Sub Product Group()
With ActiveSheet
.Range("C2").Select
Do Until ActiveCell.Offset(0, -1).Value = ""
With ActiveCell
If .Offset(0, -1).Value = 100 Then .Value = "部品A"
elself .Offset(0, -1).Value = 200 then .Value = "部品B"
elself .Offset(0, -1).Value = 300 then .Value = "部品C"
End If
End With
Loop
End Sub

実際は複数のグループ数字が1つの部品＃に相対しており行数が5000程ある為、何とかこのマクロを組みたいと思ったのですが、行き詰ってしまいました。
基本的な間違いがあるのだとは思いますが、何卒ご教示の程お願いします。

回答No.4

kmetu · ベストアンサー

同じところをループしてるようですね
以下のようにしてはいかがでしょう。

Sub Product_Group()
With ActiveSheet
.Range("C2").Select
Do Until ActiveCell.Offset(0, -1).Value = ""
With ActiveCell
If .Offset(0, -1).Value = 100 Then
.Value = "部品A"
ElseIf .Offset(0, -1).Value = 200 Then
.Value = "部品B"
ElseIf .Offset(0, -1).Value = 300 Then
.Value = "部品C"
End If
End With
ActiveCell.Offset(1, 0).Activate 'この行を追加
Loop
End With
End Sub

回答No.6

kmetu

> 本当に基本的な事なのでしょうが、
> ”ElseIf .Offset(0, -1).Value = 200 Then”で
> 「修正候補：ステートメントの最後」
> と出てしまいます。

当方では出ないのですが…
すべてコピーしてご利用されたのですよね。
何か追加しましたか？

お礼

kmetuさん
本当にすみません。そしてありがとうございました。
文字のチェックはしたつもりでしたが、なにか違う所があったようです。
全てコピーして、セル位置を直したら動きました。
お手数をおかけし、本当にすみません。
ありがとうございます。

お恥ずかしい話ですが初めてのマクロ作成で、一人ではどうしようもない状態になっていました。
マクロが動いたとき、本当にうれしかったです。

ありがとうございました。

回答No.5

kmetu

途中に空白行がある場合は以下のほうがいいと思います。

Sub Product_Group()
Dim i As Integer
Range("C2").Select
For i = 2 To Range("B65536").End(xlUp).Row
With ActiveCell
If .Offset(0, -1).Value = 100 Then
.Value = "部品A"
ElseIf .Offset(0, -1).Value = 200 Then
.Value = "部品B"
ElseIf .Offset(0, -1).Value = 300 Then
.Value = "部品C"
End If
End With
ActiveCell.Offset(1, 0).Activate
Next i
End Sub

お礼

kmetuさん
重ねての早速のご回答ありがとうございます。
追加行入れてみようと思うのですが、別のところでコンパイルエラーが出てしまいます。

本当に基本的な事なのでしょうが、
”ElseIf .Offset(0, -1).Value = 200 Then”で
「修正候補：ステートメントの最後」
と出てしまいます。
申し訳ありませんが、エラーの解決法ご教示お願いできませんでしょうか？

回答No.3

pentium100

Vlookupを使って関数で処理した方が速いのではないですか？
マクロを組む理由が分かりません。
別のシートでも何でもいいので以下の表を作ります。

コード 製品名
100 A
200 B
300 C

上の表がSheet2のA1:B4にあるとします。

B2セルにコード番号が「100」とありますのでこれを検索してみましょう。
C3セルに次の式を入れます

=VLOOKUP(B2,Sheet2!A2:B4,2,FALSE)

部品名「A」が返ってきませんか？
それともあくまで「VBAで処理するのが目的」でしょうか。

お礼

早速のご回答ありがとうございました。
Vlookupで試してみます。
マクロで組もうと思ったのはコードだけで20程あり、過去のファイル(シート数12)も見る必要があるため、一旦作ってしまえば楽に出来るのではないかと思った為です。

回答No.2

imogasi

IF文でEndIf
までのブロックで、行分け（改行）には守らなければならない決まりが在ると思う。
If .Offset(0, -1).Value = 100 Then
.Value = "部品A"
elself .Offset(0, -1).Value = 200 then
.Value = "部品B"
elself .Offset(0, -1).Value = 300 then
.Value = "部品C"
End If
参考
http://excelvba.pc-users.net/fol6/6_1.html
Ｔｈｅｎのあとに続けて書けるのは　処理が１行で書ける場合で、該当しない場合は何もしないとき。
この点を修正してエラーが出るようだったら（見当ハズレなので、すみません）補足してください。
＝＝＝
他にＣＡＳＥ文の利用があり、すっきりしてわかりやすいので、Ｇｏｏｇｌｅでも「ＶＢ　ＣＡＳＥ文」で照会して勉強してください。

お礼

早速のご回答ありがとうございました。

改行なのですが、「elself .Offset(0, -1).Value = 200 then 」のところで、なぜか"then"がハイライトされ、「コンパイルエラー　修正候補：ステートメントの最後」と出てしまいます。
大変申し訳ありませんが、もし解決方法あるようでしたらご教示お願いします。

回答No.1

A88No8

こんにちは
　もしかして、Offsetの座標が全く変わっていないのでは？

Sub Product Group()
　　With ActiveSheet
　　　　.Range("C2").Select
　　　　Do Until ActiveCell.Offset(0, -1).Value = ""
　　　　　　With ActiveCell
　　　　　　　　If .Offset(0, -1).Value = 100 Then .Value = "部品A"
　　　　　　　　elself .Offset(0, -1).Value = 200 then .Value = "部品B"
　　　　　　　　elself .Offset(0, -1).Value = 300 then .Value = "部品C"
　　　　　　End With
　　　　Loop
　　End With
End Sub

お礼

A88No8さん
早速のご回答ありがとうございました。