Excel VBA質問箱 IV

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

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


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

59473 / 76732

←次へ　｜　前へ→


	【21947】Re:他ブックのデータ抽出

モコ２ - 05/2/4(金) 16:08 -


	引用なし

	パスワード

すみません。
教えていただいたコードを試してみたのですが、次のようなエラーが出ます。
何が悪いのか分からないので教えて下さい。
1.　そのまま試した場合
　　Else に対する　Ifが有りません。
2.　If からEndifまでをコメント行にした場合
　　オブジェクト変数またはWithブロック変数が設定されていません。

'********************
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

▼

【21934】他ブックのデータ抽出 モコ２ 05/2/4(金) 10:19