Descripción del problema:Encuentre una instrucción (que es un número) y luego verifique si el valor de la instrucción lleva algún carácter delante o no (por ejemplo, 123, x123). Si instr o instr con carácter coincide con el valor de la hoja 2, entonces el cuadro de mensaje sí.
Problema:Puedo encontrar la instrucción pero no puedo verificar si la instrucción contiene algún carácter delante o no. ¿Cómo lo compruebo? ¿Tiene la función izquierda (chr) o algo así? Aquí está mi código, pero todo se trata de encontrar instr, no el chr con instr.
Sub tym()
Dim ws1 As Worksheet, wb As Workbook, ws2 As Worksheet
Dim b, c As Range, rngNums As Range, rngText As Range
Dim dNums, dText, rN As Long, rT As Long, t, m
Set wb = ActiveWorkbook
Set ws1 = wb.Worksheets("Sheet1")
Set ws2 = wb.Worksheets("Sheet2")
Set c = wb.Worksheets("Sheet3").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Set rngNums = ws1.Range(ws1.Range("A1"), ws1.Cells(Rows.Count, 1).End(xlUp))
dNums = rngNums.Value
Set rngText = ws2.Range(ws2.Range("A1"), ws2.Cells(Rows.Count, 1).End(xlUp))
dText = rngText.Value
For rN = 1 To UBound(dNums, 1)
b = "-" & dNums(rN, 1) & "-" (right here im defining to find instr but how do i add a function to find char front of instr)
For rT = 1 To UBound(dText, 1)
If InStr(1, dText(rT, 1), b) > 0 Then
MsgBox "yes"
End If
Next rT
Next rN
End Sub
Respuesta1
No debe haber ningún problema. Si
Instr(1,BigString,SubString)
devuelve un1, entonces SubString está al comienzo de BigString.
Por ejemplo, busque la subcadena"Alfa"
Sub dural()
MsgBox InStr(1, ActiveCell.Value, "Alpha")
End Sub
