Макрос для заливки ячеек с четными и нечетными цифрами в диапазоне B2:E5

@ICEZZAR · Регистрация: 17.01.2019

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

Макрос для заливки ячеек с четными и нечетными цифрами в диапазоне B2:E5

@yutrans · 17.01.2019, 23:20

Файл приложите,как вам по картинке помочь- только к гадалке наверное.

@timon5000 · 26.01.2019, 00:53

Visual Basic

Sub CollorNum()
Dim rCell As Range
For Each rCell In Range("B2:E5")
   If rCell.Value Mod 2 = 0 Then
      rCell.Interior.Color = RGB(255, 0, 0)
   Else
      rCell.Interior.Color = RGB(0, 0, 255)
   End If
Next rCell
End Sub

@ICEZZAR -4 / 0 / 0 Регистрация: 17.01.2019 Сообщений: 42
		1
	Excel Макрос для заливки ячеек с четными и нечетными цифрами в диапазоне B2:E5 17.01.2019, 22:31. Показов 4077. Ответов 2 Метки excel, excel.range, vba, vba макрос (Все метки) 0

@yutrans 141 / 124 / 50 Регистрация: 10.11.2011 Сообщений: 622
	17.01.2019, 23:20	2
	Файл приложите,как вам по картинке помочь- только к гадалке наверное. 0

	26.01.2019, 00:53

Опции темы