搜索文本字符串進行匹配並更改字體顏色

Question

自從我與Excel合作已經6年了，我有點生疏了。這是我的場景：

我將問題列表導出到Excel。我需要能夠區分單元格中相關聯的鏈接號碼（多個值）。例如，我有兩列，

重點=

相互關聯的問題一票數量=相關

的鑰匙，我需要將掃描鍵列，並找到在相互關聯的問題匹配的聲明柱。然後，一旦找到匹配，匹配的文本將採用密鑰的字體顏色。

如果這變得複雜，鏈接問題列的每個單元格可能看起來像這樣iss-3913，iss-3923，iss-1649。所以基本上掃描將在字符串內進行匹配。任何幫助表示讚賞。

Answer 1

我很抱歉，我沒有時間，現在完成這一權利，但瓦特會像這樣幫助有可能在第一列每一個小區的循環？

編輯：現在已經完成，第二個編輯更新到B5和Z5，編輯與列引用3固定穿幫和更新，以使用變量分配在看什麼樣的列

Sub colortext() 
start_row = 5 
key_col = 2 
linked_col = 26 
i = start_row 'start on row one 
Do While Not IsEmpty(Cells(i, key_col)) 'Do until empty cell 
    o = start_row 'start with row one for second column 
    Do While Not IsEmpty(Cells(o, linked_col)) 'Do until empty cell 
    If Not InStr(1, Cells(o, linked_col), Cells(i, key_col)) = 0 Then 'if cell contents found in cell 
     With Cells(o, linked_col).Characters(Start:=InStr(1, Cells(o, linked_col), Cells(i, key_col)), Length:=Len(Cells(i, key_col))).Font 
      .Color = Cells(i, key_col).Font.Color 'change color of this part of the cell 
     End With 
    End If 
    o = o + 1 'increment the cell in second column 
    Loop 
    i = i + 1 'increment the cell in the first column 
Loop 
End Sub 

也許

。

像這樣的東西？

Excel VBA: change font color for specific char in a cell range

Answer 2

這是一個老的文章，但我想我會提供圍繞我的工作我在有條件的格式化問題。

Sub colorkey() 
start_row = 5 
key_col = 2 
flag_col = 4 

i = start_row 'start on row one 

    Do While Not IsEmpty(Cells(i, key_col)) 'Do until empty cell 

    Tval = Cells(i, flag_col).Value 
    Select Case Tval 
    Case "Requirement" 
     'cval = green 
     cVal = 10 
    Case "New Feature" 
     'cval = orange 
     cVal = 46 
    Case "Test" 
     'cval = lt blue 
     cVal = 28 
    Case "Epic" 
     'cval = maroon 
     cVal = 30 
    Case "Story" 
     'cval = dk blue 
     cVal = 49 
    Case "Theme" 
     'cval = grey 
     cVal = 48 
    Case "Bug" 
     'cval = red 
     cVal = 3 
    Case "NOT MAPPED" 
     'cval = Maroon 
     cVal = 1 
    End Select 


Cells(i, key_col).Font.ColorIndex = cVal 

    i = i + 1 'increment the cell in the first column 
    Loop 

End Sub 
Sub colorlinked() 
start_row = 5 
key_col = 2 
linked_col = 26 
i = start_row 'start on row one 
Do While Not IsEmpty(Cells(i, key_col)) 'Do until empty cell 
    o = start_row 'start with row one for second column 
    Do While Not IsEmpty(Cells(o, linked_col)) 'Do until empty cell 
    If Not InStr(1, Cells(o, linked_col), Cells(i, key_col)) = 0 Then 'if cell contents found in cell 
     With Cells(o, linked_col).Characters(Start:=InStr(1, Cells(o, linked_col), Cells(i, key_col)), Length:=Len(Cells(i, key_col))).Font 
      .Color = Cells(i, key_col).Font.Color 'change color of this part of the cell 
     End With 
    End If 
    o = o + 1 'increment the cell in second column 
    Loop 
    i = i + 1 'increment the cell in the first column 
Loop 
MsgBox "Finished Scanning" 
End Sub