|
FormのComboエラー番号の値が変わったときに
その値を利用し範囲名のエラー内容から
Vlookupを使いエラー番号に対応するエラー内容を
抜き出し、FormのText原因.Textに自動転記したいと
思うのですが2.の問題箇所で以下のエラーが出ます。
対処法をお教え下さい。
『1004 Worksheetfunction クラスのVLookUpプロパティを
所得できません』
1.範囲名 エラー内容のシート−−−−−−−−−
エラー番号 エラー内容
水不足 本体に浴水が無い
H℃ 本体に50℃以上の浴水を吸い込んだ
5500 UVランプが寿命を超えた(約3.5年)
5517 運転停止中にUVランプの電気センサが動いた
5520 ヒーターのサーモスタットが繰り返し動作した
5521 UVランプのコネクタ接続不良
5522 UVランプの接続不良
−−−−−−−−−−−−−−−−−−−−−−−
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
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
|
|