儲存格內容字串比對問題

excel vba

longtimetalk 2020-11-01 01:25:04 ‧ 1289 瀏覽

分享至

以下為VBA條件：
1.儲存格內容為不固定亂數
2.儲存格內容，亂數只要前三碼相符即變色
3.變色儲存格，即使與下一格不一樣，也保持變色

感謝回答者。

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

海綿寶寶

iT邦大神 1 級 ‧ 2020-11-01 09:11:18

最佳解答

從 A1 開始往下逐列判斷直到儲存格為空值為止

Sub MarkColor()
    Dim sKey As String
    Range("A1").Select
    Do While ActiveCell.Value <> ""
        If sKey = Left(ActiveCell.Value, 3) Then
            ActiveCell.Interior.ColorIndex = 6
            ActiveCell.Interior.Pattern = xlSolid
            ActiveCell.Offset(-1, 0).Interior.ColorIndex = 6
            ActiveCell.Offset(-1, 0).Interior.Pattern = xlSolid
        End If
        sKey = Left(ActiveCell.Value, 3)
        ActiveCell.Offset(1, 0).Select
    Loop
End Sub