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

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


textual

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

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



Похожие ответы
  1. Все элементы главной диагонали заменить наибольшим элементом всего массива! не пойму как делать

  1. visual basic 6.0, подскажите как сделать в правке "Выделить все"

  1. Вводится два числа а и б, надо вывести все натуральные числа, квадраты которых находятся в интервале от а до б (иными словами натуральные корни чисел из этого диапазона) пример: вводится диапазон от 15 до 50 программа должна вывести 4, 5,6,7 Пользоваться можно циклом for или do loop

  1. В массиве A[N] найти второе по значению число (т.е. вывести на печать число, которое меньше максимального элемента массива, но больше всех других его элементов)

  1. Найти все делители числа 1234 Не могу понять как решить

  1. Нужно написать программу, которая сосчитает общее число прямоугольников. (смотрите рисунок) ... решение 1. Создаем матрицу А() размером 5×5. Элемент А(i, j) = 10*i + j 2. Вероятно проще всего подсчитать прямоугольники с минимальной стороной равной 1. Потом со стороной 2, далее 3, 4, 5 3. Используем симметрию, то есть такие прямоугольники лежат в строках. Сосчитав их результат множится на 2. 4. запишем нашу матрицу 11 12 13 14 15 21 22 23 24 25 31 32 33 34 35 41 42 43 44 45 51 52 53 54 55 Надеюсь вы поняли, числа образуют прямоугольник (в строках) если они составляют арифметическую прогрессию. Пожалуй здесь подойдет двойной цикл...(это для прямоугольников с наименьшей стороной равной 1) 5. Далее рассматриваем прямоугольники с наименьшей стороной равной 2. Они будут находиться в двух смежных строках (4 варианта) 6. Их счет, пожалуй, не отличается от счета предыдущих прямоугольников 7. Аналогично должны считаться и прямоугольники с наименьшей стороной равной 3 и так далее ... В общем я запутался в том, как для них определяется ...Код путают квадраты (В ответе дано число 225) Кто поможет составить программу или часть ее, например для счета прямоугольников с наименьшей стороной равной 2? Буду рад просто советам.

  1. Дана строка. Преобразовать в ней все прописные латинские буквы в строчные

  1. Вывести все пятизначные числа, которые делятся на 2, у которых средняя цифра нечетная, и сумма всех цифр делится на 4.

  1. дана произвольная строка символов. все группы символов, отделённые пробелом или несколькими пробелами назовем словом 1. найти в строке все слова нечетной длины, содержащие букву "о" и записать в новую строку через пробел. если их нет - то будет сообщение об отсутствии. 2.строка задается вводом с клавиатуры, не рандомно. спасибо.Добавлено через 13 часов 16 минут а в этом участке можно переделать по vb6.0 ?