Выделить все четные положительные элементы цветом и обвести рамкой, максимальный элемент увеличить в 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д