2

我有范围，我想突出显示我在单元格范围（“C5”）中输入的基于值的单元格范围。如果我在单元格“C5”中输入 5，那么我范围内的 5 个单元格需要更改为黄色。 在此处输入图像描述

Dim MY_RANGE As Range
Dim VALUE1 As Integer
Dim CEL As String

Set MY_RANGE = Range("H8,J8,L8,N8,H10,H10,J10,L10,N10,H12,J12,L12,N12,H14,J14,L14,N14,H16,J16,L16,N16,N16")
VALUE1 = Range("C2")

For Each CEL In MY_RANGE.Cells
    If CEL.Value = VALUE1 Then
        With CEL
                 .Italic = False
                .Bold = True
                .Color = 255
                .TintAndShade = 0
        End With
    End If
Next CEL

有人可以帮忙吗？

4

2 回答 2

0

您需要引入一个计数器并进行计数：

Public Sub TestMe()

    Dim myRange     As Range
    Dim myCell      As Range

    Set myRange = Range("H8,J8,L8,N8,H10,H10,J10,L10,N10,H12,J12,L12,N12,H14,J14,L14,N14") 

    Dim cnt     As Long
    Dim times   As Long
    times = Range("C2")

    For Each myCell In myRange    
        With myCell
            .Interior.Color = vbBlue
        End With

        cnt = cnt + 1
        If cnt = times Then Exit Sub            
    Next myCell

End Sub

这个想法是每次代码循环时计数器都会增加1，因此cnt = cnt + 1。如果它恰好循环 NRange("C2")次，则退出。

于 2018-05-17T13:06:52.853 回答
0

you can use Areas() property of Range() object:

Public Sub ColorCells()
    Dim iCell As Long

    With Range("H8,J8,L8,N8,H10,J10,L10,N10,H12,J12,L12,N12,H14,J14,L14,N14") ' reference your range
        For iCell = 1 To Range("C2").Value ' loop through needed areas
            .Areas(iCell).Interior.Color = vbYellow
        Next
    End With
End Sub

Note: in your MY_RANGE range there were two "H10" occurrences

于 2018-05-17T16:44:13.767 回答