変数を定義する際のエラー

Question

こんにちは、私は列の1つが座席番号であるセルの表を持っています。しかし、座席番号には146Aなどの文字列値と146などのほとんどの数値が含まれていますが、vbaではvlookupに座席番号を使用すると正しい値を見つけることができません。dim seatno as integerエラーと私はdim seat no as string数値が動作しません。私はExcelのテキストに列全体をフォーマットしたが、エラーが続く場合。したがって、1から146Aまでのすべての値を表示する変数をどのように定義できるかについて助けが必要です。 （「 - データシートL12」）間違いなく文字列として答えを宣言し、その後テキストですこれは、シートの列Bがいる場合、私は

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 

    Dim answer As Integer 
    answer = TextBox1.Value 
    TextBox2.Value = WorksheetFunction.VLookup(answer, Sheets("L12 - Data Sheet").Range("B:E"), 2, False) 
    TextBox3.Value = WorksheetFunction.VLookup(answer, Sheets("L12 - Data Sheet").Range("B:E"), 3, False) 
    TextBox4.Value = WorksheetFunction.VLookup(answer, Sheets("L12 - Data Sheet").Range("B:E"), 4, False) 

End Sub 

Answer 1

を行っているコードです。

Dim answer As String 
answer = TextBox1.Value 
TextBox2.Value = WorksheetFunction.VLookup(answer, _ 
        Sheets("L12 - Data Sheet").Range("B:E"), 2, False) 

内の文字列（例えば146A）と真の数字（例えば146）の組み合わせがある場合は「L12 - データシートには、」B：！Bは、文字列としてのTextBox1から値を取得し、それを変換しよう真の数に

Dim answer As String 
answer = TextBox1.Value 
TextBox2.Value = WorksheetFunction.VLookup(Iif(IsNumeric(answer), Int(answer), answer), _ 
        Sheets("L12 - Data Sheet").Range("B:E"), 2, False) 

の値に一貫した値の型が存在しない場合は「L12 - データシートは、」B：！Bは、あなたが利用できる持っているすべてのものとそれを打ちます。

Dim answer As Variant, mtch As Long 
answer = TextBox1.Value 

Select Case True 
    Case Not IsError(Application.Match(CStr(answer), Sheets("L12 - Data Sheet").Columns(2), 0)) 
     mtch = Application.Match(CStr(answer), Sheets("L12 - Data Sheet").Columns(2), 0) 
    Case Not IsError(Application.Match(Int(answer), Sheets("L12 - Data Sheet").Columns(2), 0)) 
     mtch = Application.Match(Int(answer), Sheets("L12 - Data Sheet").Columns(2), 0) 
End Select 

'error control needed here in case mtch is still not a row number 
debug.print mtch 
TextBox2.Value = Sheets("L12 - Data Sheet").Cells(mtch, "C").Value 
TextBox3.Value = Sheets("L12 - Data Sheet").Cells(mtch, "D").Value 
TextBox4.Value = Sheets("L12 - Data Sheet").Cells(mtch, "E").Value