人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Excelマクロで"elseに対応するIFがありません"とエラーが出ます

Sub test()
Dim i As Integer 'カウンタ
Dim lol As Integer '終末数

Sheets("用紙").Select
Range("a1").Value = lol
Worksheets("用紙").Activate

For i = 1 To 150 Step 1 '人をループ
If lol < i Then '終了判断

End If

Else
Range("b1").Select
ActiveCell.FormulaR1C1 = i

??????略???????

Next i

End Sub
こんな感じの普通のIF文をExcelマクロで動かしたいのですが
作動させると表題のエラーが出ます。

以前組んだマクロでも同様の症状が出ます。(以前は正常に動いていました)
突然このような事が起こってしまい原因も判らないので困っています。
よい解決策が有りましたら教えてください

OSはXPHome Excelは2003です。

●質問者: hide1138
●カテゴリ:コンピュータ
✍キーワード:A1 AS Excel LOL NeXT
○ 状態 :終了
└ 回答数 : 3/3件

▽最新の回答へ

1 ● きゃづみぃ
●27ポイント

Elseの使い方が 間違ってます。

If lol < i Then '終了判断

End If

Else

ではなく

If lol < i Then '終了判断

'lol < i の時の処理

Else

'lol < i 以外の時の処理

End If

として使います。


2 ● ootatmt
●27ポイント

else が if ? endif の外に出てしまっています。

if ? then ?

else ?

endif

の順にする必要があります。


3 ● cateyes
●26ポイント

http://www.com

End if は最後に書いて下さい。

修正するとこうなります。

If lol < i Then '終了判断

Else

Range("b1").Select

ActiveCell.FormulaR1C1 = i

End If

しかし、if文の中に何も書かないのであれば

If lol > i Then '終了判断

Range("b1").Select

ActiveCell.FormulaR1C1 = i

End If

と、「lol < i」を「lol > i」に変えれば

elseは不要ですよ。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ