Excel VBA質問箱 IV

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

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


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

41376 / 76736

←次へ　｜　前へ→


	【40440】VLOOKUPについて

tatuya

- 06/7/13(木) 18:32 -


	引用なし

	パスワード

FormのComboエラー番号の値が変わったときに
その値を利用し範囲名のエラー内容から
Vlookupを使いエラー番号に対応するエラー内容を
抜き出し、FormのText原因.Textに自動転記したいと
思うのですが2.の問題箇所で以下のエラーが出ます。
対処法をお教え下さい。

『1004 Worksheetfunction クラスのVLookUpプロパティを
所得できません』

1.範囲名　エラー内容のシート－－－－－－－－－
エラー番号　　エラー内容
水不足　　　　　　本体に浴水が無い
Ｈ℃　　　　　　本体に50℃以上の浴水を吸い込んだ
5500　　　　　　ＵＶランプが寿命を超えた(約３．５年)
5517　　　　　　運転停止中にＵＶランプの電気センサが動いた
5520　　　　　　ヒーターのサーモスタットが繰り返し動作した
5521　　　　　　ＵＶランプのコネクタ接続不良
5522　　　　　　ＵＶランプの接続不良
－－－－－－－－－－－－－－－－－－－－－－－

2.－－－－－－－－－－－－－－－－－－－－－－－
Private Sub Comboエラー番号_Change()
　　Dim MyRange As Range
　　Dim Result As String
　　
　　Set MyRange = Worksheets("エラー項目").Range("エラー内容")
　　Result = "#N/A!"
　　On Error Resume Next
　　Result = Application.WorksheetFunction.VLookup(Comboエラー番号.Value, MyRange, 2, False)　<--☆問題箇所☆
　　MsgBox (Err.Number & " " & Err.Description)
　　　On Error GoTo 0
　　Text原因.Text = Result
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－－

0 hits

▼

【40440】VLOOKUPについて tatuya 06/7/13(木) 18:32

≪