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

@June Karou · Регистрация: 02.05.2017

Студворк — интернет-сервис помощи студентам

Здравствуйте! Не понимаю как прописать выделение четных чисел и обведение рамкой. Буду благодарна за помощь.

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

@MyExcel_17 · 03.05.2017, 00:51

Сообщение от June Karou

максимальный элемент увеличить в 10 раз и обвести рамкой

June Karou, вроде сделал.
Только с максимумом не всё гладко. может кто-то подскажет: как правильно?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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

@June Karou · 03.05.2017, 15:59 **[ТС]**

Большое спасибо за помощь!

@MyExcel_17 · 03.05.2017, 20:40

Сообщение от June Karou

максимальный элемент увеличить в 10 раз и обвести рамкой

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

Только с максимумом не всё гладко. может кто-то подскажет: как правильно?

June Karou, исправляю ошибку с максимумом. Теперь всё хорошо.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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
 
'выше у нас задан массив случайных чисел от -15 до 15
'поэтому смело ставим нижний предел Max = -15:
Max = -15: q = 0
  For i = 1 To 10
    If Cells(i, 3) >= Max Then
    Max = Cells(i, 3)
    q = i
    End If
  Next
Cells(q, 5) = 10 * Max
Cells(q, 5).Font.Color = vbBlue
Cells(q, 5).Borders.Weight = xlMedium
  
End Sub

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

@June Karou 0 / 0 / 0 Регистрация: 02.05.2017 Сообщений: 16

	Выделить все четные положительные элементы цветом и обвести рамкой, максимальный элемент увеличить в 10 раз 02.05.2017, 21:27. Показов 1677. Ответов 3 Метки нет (Все метки) Здравствуйте! Не понимаю как прописать выделение четных чисел и обведение рамкой. Буду благодарна за помощь. Заполнить 3-й столбец 10 целыми числами. Выделить все четные положительные красным цветом и обвести рамкой, максимальный элемент увеличить в 10 раз и обвести рамкой. 0

@June Karou 0 / 0 / 0 Регистрация: 02.05.2017 Сообщений: 16
	03.05.2017, 15:59 [ТС]
	Большое спасибо за помощь! 0

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

Решение