Question

Те кто работает c VBA помогите, задание следующие 1)В диапазоне А посчитать количество ячеек со значением большем, чем B, но меньше C. 2)Результат вывести на экран 3)Применить формат ячеек D для ячеек, значение которых равно E Условие: А= «С5:D9» B = 77 C = 131 D = курсив желтого цвета с подчеркиванием Е=8 первые 2 пункта я знаю как делать с третим поисходит затык. напишите формулу.

Answer 1

Sub SetColor()
For Each C In Range(Range("A1").Value)
        If C.Value = Range("E1") Then
            With C.Font
                .Bold = Range("D1").Font.Bold
                .Color = Range("D1").Font.Color
                .Italic = Range("D1").Font.Italic
                .Underline = Range("D1").Font.Underline
            End With
            C.Interior.Color = Range("D1").Interior.Color
        Else
            With C.Font
                .Bold = False
                .Italic = False
                .Underline = xlUnderlineStyleNone
                .ColorIndex = xlAutomatic
            End With
            C.Interior.Color = vbWhite
        End If
    Next C
End Sub

если в ячейках, указанных в А1, значения те же, что и в Е1, то эти ячейки меняют свое оформление на то же, что и ячейка D1, если там другое значение - ставится стандартное оформление

Answer 2

Задача 1: Подсчет количества ячеек с условием

Для решения данной задачи вам потребуется использовать цикл, чтобы перебрать все ячейки в диапазоне A и проверить их значения.

Sub CountCells()
    Dim rng As Range
    Dim cell As Range
    Dim count As Integer
    
    ' Установка диапазона A
    Set rng = Range("A1:A10")
    
    ' Сброс счетчика
    count = 0
    
    ' Перебор ячеек в диапазоне A
    For Each cell In rng
        ' Проверка условия
        If cell.Value > Range("B1").Value And cell.Value < Range("C1").Value Then
            count = count + 1
        End If
    Next cell
    
    ' Вывод результата на экран
    MsgBox "Количество ячеек: " & count
End Sub

Задача 2: Вывод результата на экран

Для вывода результата на экран можно использовать функцию MsgBox, которая отобразит окно с сообщением.

Sub CountCells()
    ' Ваш код для подсчета количества ячеек
    
    ' Вывод результата на экран
    MsgBox "Количество ячеек: " & count
End Sub

Задача 3: Применение формата ячеек

Для применения формата ячеек можно использовать свойства объекта Range. В данном случае, вам нужно будет применить формат к ячейкам в диапазоне D, значение которых равно E.

Sub CountCells()
    ' Ваш код для подсчета количества ячеек
    
    ' Применение формата к ячейкам в диапазоне D
    Dim rngD As Range
    Set rngD = Range("D1:D10")
    
    Dim cellD As Range
    For Each cellD In rngD
        If cellD.Value = Range("E1").Value Then
            cellD.Font.Italic = True
            cellD.Font.Color = RGB(255, 255, 0) ' Желтый цвет
            cellD.Font.Underline = True
        End If
    Next cellD
End Sub

Задача 4: Запуск кода и применение условий

Для запуска кода вам нужно будет вызвать процедуру CountCells из другой процедуры или макроса. Например:

Sub RunCode()
    ' Задание условий
    Range("C5:D9").Value = 77
    Range("C1").Value = 131
    Range("D5:D9").Font.Italic = True
    Range("D5:D9").Font.Color = RGB(255, 255, 0) ' Желтый цвет
    Range("D5:D9").Font.Underline = True
    Range("E1").Value = 8
    
    ' Запуск кода для подсчета ячеек и применения формата
    CountCells
End Sub

Вызовите процедуру RunCode, чтобы выполнить все заданные условия и получить результат на экран.

Надеюсь, это поможет вам решить вашу задачу! Если у вас возникнут дополнительные вопросы, пожалуйста, дайте мне знать.