Очень простой excel vba macro. Укажите значение в ячейке

Question

Я пытаюсь по существу написать некоторое условное форматирование с помощью макроса. Я хочу оценить значения в строке E в моей таблице Excel. Для всех значений 1 я хочу изменить всю строку для другого форматирования. Вот что я до сих пор.

У меня есть COUNTA, чтобы подсчитать количество строк (отображается в H5). У меня есть COUNTIF (E: E, 1), чтобы подсчитать количество строк с 1 в качестве значения для этого столбца (отображается в G5). Вот мой код.

Sub Macro1() 
'***************** 
'Declare variables 
'***************** 
Dim xlWB, xlApp, xlSheet As Object 
Dim xlTest As Worksheet 
Dim RowNumber, TotalNumber, Count, i, j As Integer 
Dim aCell, aRow As Excel.Range 
Dim oInteger As Object 
Dim oString As Object 
'***************** 
'Set variables 
'***************** 
i = 0 
Range("G5").Select 
Count = ActiveCell.Value 
Range("H5").Select 
TotalNumber = ActiveCell.Value 
'***************** 
'For loop to format 
'***************** 
For i = 2 To TotalNumber 
    If ("E" & i = 1) Then 
     MsgBox ("Doing something") 
    End If 
Next i 
End Sub 

я положил в MsgBox, чтобы найти, что («E» & я) показывает вверх, как «E1», «E2» и т.д. Так что кажется правильным. Эта; однако никогда не соответствует значению 1. Мне нужно сравнить значение в, что ячейка, а не номер ячейки. Я не знаю, как указать значение выбранной ячейки.

Любая помощь приветствуется. Благодарю.

Answer 1

Вы должны поставить «E» & я в диапазоне, чтобы обратиться к ячейке, иначе вы просто производить что-то вроде «Е3», которая никогда не будет = 1. Кроме того, постарайтесь не использовать select, он замедляет ваш код и не нужен.

Sub Macro1() 
'***************** 
'Declare variables 
'***************** 
Dim TotalNumber as Integer, Count as Integer, i as Integer 
'***************** 
'Set variables 
'***************** 
Count = Range("G5").Value 
TotalNumber = Range("H5").Value 
'***************** 
'For loop to format 
'***************** 
For i = 2 To TotalNumber 
    If (Range("E" & i).Value = 1) Then 
     MsgBox ("Doing something") 
    End If 
Next i 
End Sub