Index, Übereinstimmungsfunktion erkennt Textformat nicht Zelle

Question

Ich habe TextBox, die Nummer über 15 Ziffern enthalten. Wenn ich den Textbox-Wert in die Excel-Zelle kopiere, ändert sich ab der Ziffer 15 die Excel-Nummer. Dies ist die Art von Excel, wenn das Zellenformat als Zahl verwendet wird. Ich ändere das Zellenformat von Zahl zu Text und gebe die Zahl und ihre Arbeit manuell ein.

Aber wenn ich Index, Match Funktion auf Makros, funktioniert es nicht und ich bekomme

Laufzeitfehler 1004 „Kann Spiel Eigenschaft der Work Klasse

erhalten

Dies ist der Code, den ich für den Index verwenden, Match-Funktion

Dim b As Double 

b = TxtCvNo.Text 

With Application.WorksheetFunction  
    If .CountIf(Sheet2.Range("G:G"), b) = 1 Then  
     TxtCVId.Text = .Index(Sheet2.Range("A:A"), .Match((b), Sheet2.Range("G:G"), 0))  
    Else 

b ist der TextBox Wert.

Match Funktion nicht b als diesen Wert erkennen eingegeben wurden als ‚Text‘ in Excel-Zelle

Wie kann ich die Textbox Wert in die Zelle als Text kopieren Ziffer 15., 16. usw. Änderung auf Null zu vermeiden . Wie kann ich den Index reparieren, die Funktion danach anpassen?

dieser Screenshot meiner Daten. Ich benutze Index und Match, um zu identifizieren, ob der Coupon 1,2,3 als Coupon ref verwendet wurde, und dann sagen Sie mir, dass die ID der Befragten diesen Coupon verwendet. screen shot data

Answer 1

Versuchen Sie den Code (Erklärung innerhalb der Code-Kommentaren):

Option Explicit 

Sub IndexMatchConv() 

Dim b As String 
Dim Res As Variant 

' for my test format and set a value with 21 digits as Text in cell "G2" 
Sheet2.Range("G2").NumberFormat = "@" ' format as Text 
Sheet2.Range("G2").Value = "123456789112233445566" 
b = Sheet2.Range("G2").Value 
MsgBox Len(b) ' <-- result 21 

With Application.WorksheetFunction 
    Res = .CountIf(Sheet2.Range("G:G"), b) 
    If .CountIf(Sheet2.Range("G:G"), b) = 1 Then 
     Res = .Match((b), Sheet2.Range("G:G"), 0) < --Res = 2 
     'TxtCVId.Text = .Index(Sheet2.Range("A:A"), .Match((b), Sheet2.Range("G:G"), 0)) 
    Else 
     ' do something 
    End If 
End With 

End Sub