Найти количество элементов, значение которых меньше 0

@SmokeFish · Регистрация: 03.12.2018

Помогите пожалуйста с задачей в VBA Excel, В диапазоне A1,D4 имеются числовые данные. Найти количество элементов, значение которых меньше 0. В ячейках, значение которых равно 25, изменить шрифт и фон ячейки.

@fever brain · 03.12.2018, 14:25

Сообщение от SmokeFish

Помогите пожалуйста с задачей в VBA Excel

Найти количество элементов, значение которых меньше 0

Visual Basic

Sub qwerty()
    Dim v, s$
    For Each v In [a1:d4]
        If v.Value = 25 Then
            v.Font.Bold = 1
            v.Interior.Color = vbYellow
        ElseIf v.Value < 0 Then
            s = s & vbLf & Replace(v.Address, "$", "")
        End If
        
    Next
    MsgBox "Найденные ячейки: " & s
End Sub

@fever brain · 03.12.2018, 14:30

Сообщение от SmokeFish

Найти количество элементов

С количеством

Кликните здесь для просмотра всего текста

Visual Basic

Sub qwerty()
    Dim v, s$, i&
    For Each v In [a1:d4]
        If v.Value = 25 Then
            v.Font.Bold = 1
            v.Interior.Color = vbYellow
        ElseIf v.Value < 0 Then
            s = s & vbLf & v.Address
            i = i + 1
        End If
        
    Next
    MsgBox "Найденные ячейки: " & Replace(s, "$", "") & vbLf & " всего: " & i
End Sub

@SmokeFish 0 / 0 / 0 Регистрация: 03.12.2018 Сообщений: 1
		1
	Excel Найти количество элементов, значение которых меньше 0 03.12.2018, 13:23. Просмотров 507. Ответов 2 Метки vba;excel (Все метки) Помогите пожалуйста с задачей в VBA Excel, В диапазоне A1,D4 имеются числовые данные. Найти количество элементов, значение которых меньше 0. В ячейках, значение которых равно 25, изменить шрифт и фон ячейки. 0

Опции темы