Выделить все четные положительные элементы цветом и обвести рамкой, максимальный элемент увеличить в 10 раз - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте! Не понимаю как прописать выделение четных чисел и обведение рамкой. Буду благодарна за помощь. Заполнить 3-й столбец 10 целыми числами. Выделить все четные положительные красным цветом и обвести рамкой, максимальный элемент увеличить в 10 раз и обвести рамкой.

Решение задачи: «Выделить все четные положительные элементы цветом и обвести рамкой, максимальный элемент увеличить в 10 раз»

textual
Листинг программы
Sub JuneKarou()
Dim i%, k%, q%, Max&
Cells.Clear
ReDim a(1 To 10)
For i = 1 To 10
  a(i) = Int((30 * Rnd) - 15)
  Cells(i, 3) = a(i)
Next
 
k = 0
For i = 1 To 10
  If Cells(i, 3) > 0 And a(i) Mod 2 = 0 Then
  Cells(i, 3).Font.Color = vbRed
  Cells(i, 3).Borders.Weight = xlMedium
  k = k + 1
  End If
Next
 
Max = 10: q = 0
  For i = 1 To 10
    If Cells(i, 3) >= Max Then
    Max = Cells(i, 3)
    q = i
    Cells(q, 5) = 10 * Max
    Cells(q, 5).Font.Color = vbBlue
    Cells(q, 5).Borders.Weight = xlMedium
    End If
   Next
  
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.333 из 5
Похожие ответы