番号検索

質問

社員テーブルの4桁で構成される社員番号から検索するマクロを下記にて組みました。しかし、4桁の社員番号からではなく各自宅電話番号の10桁の数字から検索するために社員番号を各自宅の電話番号10桁の番号に変え入力フォームのC4のセルに10桁の数値を入れて検索したところマクロが作動しなくなりました。ご教示願います

Sub ボタン1_Click()
Dim tmpInt As Integer, motoHani(), myRng As Range, i As Integer
tmpInt = Worksheets("入力フォーム").Range("C4").Value
motoHani = Array("C6", "C7", "C8", "F8", "C10", "C11")

Set myRng = Range("社員テーブル").Columns(1).Find(tmpInt, LookAt:=xlWhole)
If myRng Is Nothing Then
MsgBox "該当する事案はありません"
Exit Sub

End If
For i = 0 To UBound(motoHani)
Range(motoHani(i)).Value = myRng.Offset(0, i + 1)
Next
End Sub

回答No.1

qbr2 · ベストアンサー

電話番号が記録されているということは、
そのセルは数値型ではなく、文字型ではないでしょうか？

Dim tmpInt As Integer　の宣言で、tmpIntは数値として扱われるので、
文字型のフィールドとは一致しないことになります。

Dim tmpInt As String に変更してみれば、どうでしょうか？

お礼

宣言をご指摘の表記にしたら作動しました。大変助かりありがとうございました。Integerの認識を改めます。