VBA Excel代码检查在选择中是否找到某些文本，然后更改单元格文本

Question

I am working in the pricing department, I made a macro to change the part number into a hyperlink using this code

Private Sub CommandButton1_Click()
Dim userResponce As Range

On Error Resume Next
Set userResponce = Application.InputBox("select a range with the mouse", Default: = Selection.Address, Type: = 8)
On Error GoTo 0
If userResponce Is Nothing Then
MsgBox "Cancel clicked"
Else
MsgBox "You selected " & userResponce.Address
End If

For Each xCell In userResponce
If xCell.Value < > ""
Then
xCell.NumberFormat = "@"
xCell.Value = Trim(xCell.Value)
URL = "~pricer.cfm?part_number=" & xCell.Value & "&buyQty=0&buyUofm=1"
ActiveSheet.Hyperlinks.Add Anchor: = xCell, Address: = URL, TextToDisplay: = xCell.Value
End If

Next xCell

Now, I am trying to test if the cell content starts with a certain prefix, if it does I wanna add - after it, I know it is done using this

If InStr(1, celltxt, "TK") Then

but not sure how to run it, so it would cover my selection and not one cell.

Answer 1

I think you should make the last If statement to select the cells that make that Match. So the matching cells will take the hyperlink substitution and the none matching doesn't.

If xCell.value <> "" and InStr(1, cellTxt, "TK") > 0 Then
{...}
End If