Excel VBA質問箱 IV

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

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


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

3756 / 76735

←次へ　｜　前へ→


	【78608】Re:VLOOKUPを使いたい

β - 16/11/28(月) 12:51 -


	引用なし

	パスワード

▼もよもとさん：

γさんから

>>なお、そのつど全文引用するのはやめてください。
>>無駄に長くなります。　

というアドバイスがあるのに、それでも全文引用　？

まぁ、それはさておき

>エラー値を表示せずに、メッセージ表示してTargetを消すような動作は
>できないでしょうか。

最初のApplication.VLookUp の結果を　セル直接　ではなく Variant型の変数で受けます。

で、

If IsError(その変数) Then
　 MsgBox "該当値がありません。" & vblf & "入力を元に戻します"
　 Application.Undo
　 Application.EnableEvents = True
　 Exit Sub
Else
　その変数を目的のセルにセット
　２番目以降のVLookUp 等　現在のコード
End If

といったようにされるといいと思います。
ただ、一括複数入力時、ループ処理をされていますよね。
そうした場合、仮に、マッチする入力があって、そのあとにマッチしないものがあった場合は
UnDo で不具合が発生します。

ですから、ちょっとコード的には悩ましいところがありますね。
（手当て方法はありますが）

>MatchとIndexを組み合わせる方法がいまいちよく分からない

シート関数のMATCHの使い方はおわかりですよね。

Variant型変数 = Application.Match(・・・・)
If IsError(その変数) Then
　 MsgBox "該当値がありません。" & vblf & "入力を元に戻します"
　 Application.Undo
　 Application.EnableEvents = True
　 Exit Sub
Else
　 3行目から200行目の領域の中の　変数が示す位置（変数+2 行目), の
　 C,D,E列の値を目的のセルにセット
End If

こんな感じです。
ただし、一括複数入力時の課題は同じものがありますが。

1 hits

▼

【78592】VLOOKUPを使いたい もよもと 16/11/23(水) 22:00