Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

59469 / 76732

←次へ　｜　前へ→


	【21951】Re:if the else構文でエラーが出る。

sa - 05/2/4(金) 17:18 -


	引用なし

	パスワード

モコ２さん：
他ブックのデータ抽出の中で
下記のソースを載せてられましたが
If IsError(kekka) Then MsgBox "無い"　の行は、
if(条件)then（処理)　で、一行完結になり
その後のELSEやENDIFに対するifが無い事になります

If(条件１)then
　(処理１)
ElseIF（条件２）then
　(処理２）
Else
　(処理３）
End If

と違うので注意必要です
Jakaと重なってすみません

↓↓↓例のソース↓↓↓↓

'********************
Sub test1()
'********************
Dim kekka As Object

kekka = Application.Match("山本　太郎", Workbooks("会員名簿.xls"). _
Sheets("新規会員").Columns(9), 0)

If IsError(kekka) Then MsgBox "無い"
Else
MsgBox kekka & "行目に有り"
End If

End Sub

0 hits

▼

【21943】if the else構文でエラーが出る。 モコ２ 05/2/4(金) 14:30