Функция Instr, нахождение всего числа, поэтому 12 не вернется true для 1

Question

Я пытаюсь найти способ поиска ячейки для чисел, которые, возможно, были введены. Значит, значение B2 равно 12. При использовании Instr он найдет 1,2 и 12. Есть ли способ вернуть только 12? Вот код, который я сейчас использую для него, который, если бы я использовал только 1-9, был бы неплохим, но мне нужно больше опций.

Sub PRTLookup() 
Dim WsP As Worksheet 
Dim PRTval As String 
Dim MonCt As Long, DayCT As Long 

Set WsP = ThisWorkbook.Sheets("PT") 

For MonCt = 2 To 46 Step 4 
    For DayCT = 2 To 32 
     CelVal = Cells(MonCt, DayCT) 
      If IsNumeric(CelVal) Then 
       For x = 1 To 26 
        If InStr(Cells(MonCt, DayCT).Text, x) Then PRTval = PRTval + WsP.Cells(x, 1).Value 
       Next 
       Cells(MonCt, DayCT).Value = PRTval 
       PRTval = Empty 
      End If 
    Next 
Next 

End Sub 

Это Окончательный код, который работал для меня:

Dim myarr() as string 
Dim num as Variant 

For MonCt = 2 To 46 Step 4 
    For DayCT = 2 To 32 
     Celval = Cells(MonCt, DayCT) 
     myarr = Split(Celval, ",") 
      For Each num In myarr 
       PRTval = PRTval & " " & WsP.Cells(num, 1).Text 
      Next num 
     Cells(MonCt, DayCT).Value = PRTval 
     PRTval = Empty 
    Next 
Next 

Answer 1

Я не совсем понимая ваш вопрос, но вот мои мысли:

Вы можете сначала разбить строку ввода запятой (экономия это в массив), затем итерацию по каждому номеру внутри этого массива и проверки, если он содержит значение:

Dim myarr() as String 
Dim num as String 
myarr = Split(inputLine, ",") 
For each num in myarr 
    ...... 
Next num 

Answer 2

Вы можете посмотреть на номер, а затем проверить, является ли следующий символ является числом тоже. Таким образом, вы повторяете до тех пор, пока их больше нет.

UPDATE: Я хотел бы сделать что-то вроде этого:

For i = 1 To Len(myString) 
    j = 0 
    If IsNumeric(Mid(myString, i, 1)) Then 
     Do While IsNumeric(Mid(myString, i, 1 + j)) And i + j <= Len(myString) 
      j = j + 1 
     Loop 
     output = Mid(myString, i, j) 
     MsgBox output 
    End If 
    i = i + j 
Next i 

Answer 3

Некоторые вопросы:

• Испытание IsNumeric не даст True, когда содержание является запятой список, и в этом случае она будет иметь тип строк данных.
• Переменная PRTVal объявлена ​​как строка, но вы используете на ней оператор +. Это должно быть &.

Вы можете использовать Split, чтобы разделить строку на разделитель запятой, а затем вы можете перебрать части.

Вот часть адаптироваться:

Dim nums As String 
Dim str As Variant 
' ... etc ... 

If IsNumeric(Replace(Replace(CelVal, ",", ""), " ", "")) Then 
    PRTval = "" 
    nums = Split(CelVal, ",") 
    For Each str In nums 
     x = CInt(str) 
     If x >= 1 And x <= 26 Then PRTval = PRTval & ", " & WsP.Cells(x, 1).Value 
    Next 
    Cells(MonCt, DayCT).Value = Mid(PRTval, 3) ' skip first ", " 
End If