Excel vba цвет ячеек строки

Заливка ячейки цветом в VBA Excel. Фон ячейки. Свойства .Interior.Color и .Interior.ColorIndex. Цветовая модель RGB. Стандартная палитра. Очистка фона ячейки.

Свойство .Interior.Color объекта Range

Начиная с Excel 2007 основным способом заливки диапазона или отдельной ячейки цветом (зарисовки, добавления, изменения фона) является использование свойства .Interior.Color объекта Range путем присваивания ему значения цвета в виде десятичного числа от 0 до 16777215 (всего 16777216 цветов).

Заливка ячейки цветом в VBA Excel

Пример кода 1:

Sub ColorTest1()

Range(«A1»).Interior.Color = 31569

Range(«A4:D8»).Interior.Color = 4569325

Range(«C12:D17»).Cells(4).Interior.Color = 568569

Cells(3, 6).Interior.Color = 12659

End Sub

Поместите пример кода в свой программный модуль и нажмите кнопку на панели инструментов «Run Sub» или на клавиатуре «F5», курсор должен быть внутри выполняемой программы. На активном листе Excel ячейки и диапазон, выбранные в коде, окрасятся в соответствующие цвета.

Есть один интересный нюанс: если присвоить свойству .Interior.Color отрицательное значение от -16777215 до -1, то цвет будет соответствовать значению, равному сумме максимального значения палитры (16777215) и присвоенного отрицательного значения. Например, заливка всех трех ячеек после выполнения следующего кода будет одинакова:

Sub ColorTest11()

Cells(1, 1).Interior.Color = 12207890

Cells(2, 1).Interior.Color = 16777215 + (12207890)

Cells(3, 1).Interior.Color = 4569325

End Sub

Проверено в Excel 2016.

Вывод сообщений о числовых значениях цветов

Числовые значения цветов запомнить невозможно, поэтому часто возникает вопрос о том, как узнать числовое значение фона ячейки. Следующий код VBA Excel выводит сообщения о числовых значениях присвоенных ранее цветов.

Пример кода 2:

Sub ColorTest2()

MsgBox Range(«A1»).Interior.Color

MsgBox Range(«A4:D8»).Interior.Color

MsgBox Range(«C12:D17»).Cells(4).Interior.Color

MsgBox Cells(3, 6).Interior.Color

End Sub

Вместо вывода сообщений можно присвоить числовые значения цветов переменным, объявив их как Long.

Использование предопределенных констант

В VBA Excel есть предопределенные константы часто используемых цветов для заливки ячеек:

Предопределенная константа Наименование цвета
vbBlack Черный
vbBlue Голубой
vbCyan Бирюзовый
vbGreen Зеленый
vbMagenta Пурпурный
vbRed Красный
vbWhite Белый
vbYellow Желтый
xlNone Нет заливки

Присваивается цвет ячейке предопределенной константой в VBA Excel точно так же, как и числовым значением:

Пример кода 3:

Range(«A1»).Interior.Color = vbGreen

Цветовая модель RGB

Цветовая система RGB представляет собой комбинацию различных по интенсивности основных трех цветов: красного, зеленого и синего. Они могут принимать значения от 0 до 255. Если все значения равны 0 — это черный цвет, если все значения равны 255 — это белый цвет.

Выбрать цвет и узнать его значения RGB можно с помощью палитры Excel:

Палитра Excel

Палитра Excel

Чтобы можно было присвоить ячейке или диапазону цвет с помощью значений RGB, их необходимо перевести в десятичное число, обозначающее цвет. Для этого существует функция VBA Excel, которая так и называется — RGB.

Пример кода 4:

Range(«A1»).Interior.Color = RGB(100, 150, 200)

Список стандартных цветов с RGB-кодами смотрите в статье: HTML. Коды и названия цветов.

Очистка ячейки (диапазона) от заливки

Для очистки ячейки (диапазона) от заливки используется константа xlNone:

Range(«A1»).Interior.Color = xlNone

Свойство .Interior.ColorIndex объекта Range

До появления Excel 2007 существовала только ограниченная палитра для заливки ячеек фоном, состоявшая из 56 цветов, которая сохранилась и в настоящее время. Каждому цвету в этой палитре присвоен индекс от 1 до 56. Присвоить цвет ячейке по индексу или вывести сообщение о нем можно с помощью свойства .Interior.ColorIndex:

Пример кода 5:

Range(«A1»).Interior.ColorIndex = 8

MsgBox Range(«A1»).Interior.ColorIndex

Просмотреть ограниченную палитру для заливки ячеек фоном можно, запустив в VBA Excel простейший макрос:

Пример кода 6:

Sub ColorIndex()

Dim i As Byte

For i = 1 To 56

Cells(i, 1).Interior.ColorIndex = i

Next

End Sub

Номера строк активного листа от 1 до 56 будут соответствовать индексу цвета, а ячейка в первом столбце будет залита соответствующим индексу фоном.

Подробнее о стандартной палитре Excel смотрите в статье: Стандартная палитра из 56 цветов, а также о том, как добавить узор в ячейку.


 

alcnwndrlnd

Пользователь

Сообщений: 44
Регистрация: 08.12.2015

#1

08.12.2015 10:03:45

Всем привет!
Помогите, пожалуйста, с макросом для Excel, уже облазила все, что только можно
Нужно сделать так, чтобы макрос «пробегал» значения в определенном столбце и раскрашивал строки в соответствии с НЕСКОЛЬКИМИ условиями. Пока получается проверять только одно и запускать макрос приходится по нескольку раз, потому что останавливается. Код под спойлером:

Скрытый текст

Уж больно здесь красиво, жди беды..

 

vdovin_sg

Пользователь

Сообщений: 58
Регистрация: 02.12.2015

А почему бы не воспользоваться условным форматированием? Можно выделить нужный столбец и задать в разделе условное форматирование нужные условия. Сколько необходимо!

 

vdovin_sg, хотелось бы макросом как-то автоматизировать процесс, нажатием одной кнопки, так сказать, а условное форматирование каждый раз добавлять.

Уж больно здесь красиво, жди беды..

 

vdovin_sg

Пользователь

Сообщений: 58
Регистрация: 02.12.2015

alcnwndrlnd, Ясно, в макросах я не силен, сам только учусь.

 

vdovin_sg, вот и я тоже, пока что :) но все еще впереди

Уж больно здесь красиво, жди беды..

 

vdovin_sg

Пользователь

Сообщений: 58
Регистрация: 02.12.2015

#6

08.12.2015 10:29:55

а если попробовать использовать цикл for a=1 to 500

Код
Sub Start()
Fill_Color Range("A1:A500")
End Sub

Sub Fill_Color(Rg As Range)
Dim cel As Range
For Each cel In Rg
a = cel.Value
[B]For a = 1 To 500[/B]
If a = 1 Then
cel.EntireRow.Interior.Color = QBColor(5)
ElseIf a = 2 Then
cel.EntireRow.Interior.Color = QBColor(3)
End If
[B]Next a[/B]
Next
End Sub
 

vdovin_sg, идея хорошая, а что делать с проверкой нескольких значений? в разных else if — ах расписать только если

Уж больно здесь красиво, жди беды..

 

Kuzmich

Пользователь

Сообщений: 7998
Регистрация: 21.12.2012

#8

08.12.2015 10:52:25

Код
Sub Fill_Color()
Dim i As Long
Range("A1:A500").EntireRow.Interior.ColorIndex = -4142
For i = 1 To 500
 If Cells(i, 1) = 1 Then Cells(i, 1).EntireRow.Interior.ColorIndex = 4
 If Cells(i, 1) = 2 Then Cells(i, 1).EntireRow.Interior.ColorIndex = 6
Next
End Sub
 

k61

Пользователь

Сообщений: 2441
Регистрация: 21.12.2012

#9

08.12.2015 10:56:17

Код
Sub Fill_Color_2()
Dim cel As Range
Cells.Interior.ColorIndex = xlNone
For Each cel In Columns(1).SpecialCells(2, 1)
If cel = 1 Or cel = 2 Then cel.EntireRow.Interior.Color = QBColor(7 - cel.Value * 2)
Next
End Sub
 

Kuzmich, k61, тааак, спасибо, сейчас поразбираюсь.. в принципе реально вставить вместо «1» и «2» текстовые значения?

Уж больно здесь красиво, жди беды..

 

Kuzmich

Пользователь

Сообщений: 7998
Регистрация: 21.12.2012

 

alcnwndrlnd

Пользователь

Сообщений: 44
Регистрация: 08.12.2015

#12

08.12.2015 11:27:25

Kuzmich, в таком случае, подскажите, пожалуйста, синтаксис. Как-то надо сослаться на текстовое значение? Ох уж этот ВБА, с++ и то легче.. голова уже кругом

Код
Sub Fill_Color()
Dim i As Long
Range("A1:A500").EntireRow.Interior.ColorIndex = -4142
For i = 1 To 500
 If Cells(i, 1) = "мама" Then Cells(i, 1).EntireRow.Interior.ColorIndex = 4
 If Cells(i, 1) = "мыла" Then Cells(i, 1).EntireRow.Interior.ColorIndex = 6
 If Cells(i, 1) = "раму" Then Cells(i, 1).EntireRow.Interior.ColorIndex = 6

Next
End Sub

Изменено: alcnwndrlnd08.12.2015 11:27:44

Уж больно здесь красиво, жди беды..

 

Kuzmich

Пользователь

Сообщений: 7998
Регистрация: 21.12.2012

А что не получается. Строку с «раму» видимо надо посветить другим цветом (6 заменить)

 

Kuzmich, да, проблема была именно в этом, макрос просто не выполнялся :) что ж, всем большое спасибо и огромный «+» в карму! vdovin_sg, k61, Kuzmich

Уж больно здесь красиво, жди беды..

 

alcnwndrlnd

Пользователь

Сообщений: 44
Регистрация: 08.12.2015

#15

08.12.2015 11:47:50

Kuzmich, и, наверное, последний вопрос.. Возможно, глупый: как проверить несколько значений и раскрасить одним цветом:

Код
Sub Fill_Color()
Dim i As Long
Range("A1:A500").EntireRow.Interior.ColorIndex = -4142
For i = 1 To 500
 If Cells(i, 1) = "мама" Or "мыла" Then Cells(i, 1).EntireRow.Interior.ColorIndex = 4
 If Cells(i, 1) = "абракадабра" Then Cells(i, 1).EntireRow.Interior.ColorIndex = 6
 If Cells(i, 1) = "раму" Then Cells(i, 1).EntireRow.Interior.ColorIndex = 8
Next
End Sub

Изменено: alcnwndrlnd08.12.2015 11:48:18

Уж больно здесь красиво, жди беды..

 

Kuzmich

Пользователь

Сообщений: 7998
Регистрация: 21.12.2012

#16

08.12.2015 11:51:05

Код
If Cells(i, 1) = "мама" Or Cells(i, 1) ="мыла" Then
 

Kuzmich, «а ларчик просто открывался»  :D спасибо еще раз, огромное

Уж больно здесь красиво, жди беды..

 

alcnwndrlnd

Пользователь

Сообщений: 44
Регистрация: 08.12.2015

#18

08.12.2015 12:08:28

Kuzmich, потревожу Вас еще раз. Не получается добавить просмотр следующего интересующего меня столбца, после прохождения первого

Код
Range("A1:A500", "B1:B500").EntireRow.Interior.ColorIndex = -4142

так?

Уж больно здесь красиво, жди беды..

 

Михаил Лебедев

Пользователь

Сообщений: 2855
Регистрация: 17.01.2013

#19

08.12.2015 12:22:39

попробуйте так:

Код
Sub Fill_Color()
Dim rng As Range
Dim rng2 As Range
Set rng = Range("A1:B500")
rng.EntireRow.Interior.ColorIndex = -4142
For Each rng2 In rng
 If rng2 = "мама" Or "мыла" Then rng2.EntireRow.Interior.ColorIndex = 4
 If rng2 = "абракадабра" Then rng2.EntireRow.Interior.ColorIndex = 6
 If rng2 = "раму" Then rng2.EntireRow.Interior.ColorIndex = 8
Next
Set rng = Nothing
End Sub

Изменено: Михаил Лебедев10.12.2015 11:57:00
(исправил диапазон (спасибо Kuzmich-у))

Всё сложное — не нужно. Всё нужное — просто /М. Т. Калашников/

 

Уж больно здесь красиво, жди беды..

 

Kuzmich

Пользователь

Сообщений: 7998
Регистрация: 21.12.2012

#21

08.12.2015 12:42:39

Код
Range("A1:B500").EntireRow.Interior.ColorIndex = -4142
 

Kuzmich, пробовала, второй столбец не красит, но и ошибку не выдает

Уж больно здесь красиво, жди беды..

 

Kuzmich

Пользователь

Сообщений: 7998
Регистрация: 21.12.2012

#23

08.12.2015 12:46:23

Код
Range("A1:A500,B1:B500")
 

Файл выложите. И/или поменяйте строку в моем коде, как предложил «кузмич» (я в своем предыдущем — поменял)

Изменено: Михаил Лебедев08.12.2015 13:04:02

Всё сложное — не нужно. Всё нужное — просто /М. Т. Калашников/

 

Kuzmich

Пользователь

Сообщений: 7998
Регистрация: 21.12.2012

#25

08.12.2015 13:04:42

Цитата
второй столбец не красит

Какой столбец? Когда подсвечивается вся строка.
Или не красит по условию второго столбца?

 

Kuzmich

Пользователь

Сообщений: 7998
Регистрация: 21.12.2012

Cells(i,2) — это будет второй столбец

 

Михаил Лебедев

Пользователь

Сообщений: 2855
Регистрация: 17.01.2013

#27

08.12.2015 13:20:58

Код
Sub Fill_Color()
    Dim rng As Range
    Dim rng2 As Range
    Set rng = Range("A1:B10")
    rng.EntireRow.Interior.ColorIndex = -4142
    For Each rng2 In rng
        If rng2.Value2 = "мама" Or rng2.Value2 = "мыла" Then Cells(rng2.Row, 1).EntireRow.Interior.ColorIndex = 4
        If rng2.Value2 = "абракадабра" Then Cells(rng2.Row, 1).EntireRow.Interior.ColorIndex = 6
        If rng2.Value2 = "раму" Then Cells(rng2.Row, 1).EntireRow.Interior.ColorIndex = 8
    Next
    Set rng = Nothing
End Sub

Изменено: Михаил Лебедев08.12.2015 13:21:20

Всё сложное — не нужно. Всё нужное — просто /М. Т. Калашников/

 

Юрий М

Модератор

Сообщений: 60570
Регистрация: 14.09.2012

Контакты см. в профиле

alcnwndrlnd и vdovin_sg, код следует оформлять тегом — ищите такую кнопку (см. скрин).
alcnwndrlnd,  поменяйте, пожалуйста, в своём профиле отображаемое имя — сейчас оно с нарушением Правил. Спасибо!

 

alcnwndrlnd

Пользователь

Сообщений: 44
Регистрация: 08.12.2015

#29

08.12.2015 13:46:53

Цитата
Kuzmich написал:
Какой столбец? Когда подсвечивается вся строка.
Или не красит по условию второго столбца?

Да, по условию. Сейчас попробую с исправлениями

Уж больно здесь красиво, жди беды..

 

alcnwndrlnd

Пользователь

Сообщений: 44
Регистрация: 08.12.2015

#30

08.12.2015 14:39:05

Михаил Лебедев, спасибо! Kuzmich, и снова, еще раз спасибо! во всем разобралась, все работает, как надо

Код
Sub Fill_Color()
Dim i As Long
Range("A1:A500, B1:B500").EntireRow.Interior.ColorIndex = -4142
For i = 1 To 5000
 If Cells(i, 1) = "а" Or Cells(i, 1) = б" Then Cells(i, 1).EntireRow.Interior.ColorIndex = 4
 If Cells(i, 2) = "в" Or Cells(i, 2) = "г" Then Cells(i, 1).EntireRow.Interior.ColorIndex = 5
 If Cells(i, 1) = "д" Then Cells(i, 1).EntireRow.Interior.ColorIndex = 6
 If Cells(i, 1) = "е" Then Cells(i, 1).EntireRow.Interior.ColorIndex = 8
 
Next
End Sub

Изменено: alcnwndrlnd08.12.2015 14:39:41

Уж больно здесь красиво, жди беды..

У Вас лишняя буква r прицепилась :)

.Interior.Color = vbRed 
.Interior.Color = RGB(255, 0, 0)
.Interior.Color = 255

Работа с объектами листа медленная. Если ячеек много и заливать нужно не целым диапазоном, можно обработать в памяти и залить ячейки одной командой.

     Sub PaintCells()
            Dim r1 As Range, r2 As Range
            Dim c As Range
                Set r1 = Range("A1:C10") ' диапазон в переменную
                r1.Interior.Pattern = xlNone ' убираем заливку
'               r1.Interior.ColorIndex = 0 ' или так 

                For Each c In r1 ' цикл по ячейкам диапазона
                    If c.Value = 25 Then ' если условие выполняется
                        If r2 Is Nothing Then '  диапазон еще пустой
                            Set r2 = c ' формируем диапазон
                        Else
                            Set r2 = Union(r2, c) ' пополняем диапазон
                        End If
                    End If
                Next c

                If Not r2 Is Nothing Then r2.Interior.Color = 255 ' заливаем
                Set r1 = Nothing: Set r2 = Nothing ' освобождаем память
            End Sub

Залить строки по условию в ячейке:

For i = 1 To r1.Rows.Count ' цикл по строкам диапазона
    If r1(i, 1).Value = 25 Then ' если левая ячейка диапазона...
        If r2 Is Nothing Then '  диапазон еще пустой
            Set r2 = Range(Cells(i, 1), Cells(i, 3)) ' формируем диапазон
        Else
            Set r2 = Union(r2, Range(Cells(i, 1), Cells(i, 3))) ' пополняем диапазон
        End If
    End If
Next i

Содержание

  1. Выделение активной ячейки, строки или столбца
  2. Выделение активной ячейки
  3. Выделение всей строки и столбца, содержащих активную ячейку
  4. Выделение строки и столбца, содержащих активную ячейку, в текущей области
  5. Об участнике
  6. Поддержка и обратная связь
  7. Выделение строки цветом vba excel
  8. Выделение строки цветом vba excel

Выделение активной ячейки, строки или столбца

В следующих примерах кода показаны способы выделения активной ячейки или строк и столбцов, содержащих активную ячейку. В этих примерах используется событие SelectionChange объекта Worksheet.

Пример кода предоставил: Том Уртис, Atlas Programming Management

Выделение активной ячейки

В следующем примере кода показано, как удалить цвет во всех ячейках листа, присвоив свойству ColorIndex значение 0, а затем выделить активную ячейку, присвоив свойству ColorIndex значение 8 (бирюзовый).

Выделение всей строки и столбца, содержащих активную ячейку

В следующем примере кода показано, как удалить цвет во всех ячейках листа, присвоив свойству ColorIndex значение 0, а затем выделить всю строку и столбец, содержащие активную ячейку, с помощью свойств EntireRow и EntireColumn.

Выделение строки и столбца, содержащих активную ячейку, в текущей области

В следующем примере кода показано, как удалить цвет во всех ячейках листа, присвоив свойству ColorIndex значение 0, а затем в текущей области выделить строку и столбец, содержащие активную ячейку, используя свойство CurrentRegion объекта Range.

Об участнике

Том Уртис, MVP — основатель компании Atlas Programming Management, создающей полноценные бизнес-решения для Microsoft Office и Excel в Кремниевой долине. Том обладает больше чем 25 годами опыта управления бизнесом и разработки приложений для Microsoft Office, а также является соавтором книги «Holy Macro! It’s 2,500 Excel VBA Examples».

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Источник

Выделение строки цветом vba excel

Добрый вечер, знатоки макросов!
Подскажите пожалуйста, что нужно добавить в существующий макрос, чтобы было не просто выделение активных строки/столбца, а выделение цветом?

код макроса выделения такой:
[vba]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WorkRange As Range

If Target.Cells.Count > 1 Then Exit Sub ‘если выделено больше 1 ячейки — выходим

Application.ScreenUpdating = False
Set WorkRange = Range(«A11:BX7300») ‘адрес рабочего диапазона, в пределах которого видно выделение
Intersect(WorkRange, Union(Target.EntireColumn, Target.EntireRow)).Select ‘формируем крестообразный диапазон и выделяем
Target.Activate

Добрый вечер, знатоки макросов!
Подскажите пожалуйста, что нужно добавить в существующий макрос, чтобы было не просто выделение активных строки/столбца, а выделение цветом?

код макроса выделения такой:
[vba]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WorkRange As Range

If Target.Cells.Count > 1 Then Exit Sub ‘если выделено больше 1 ячейки — выходим

Application.ScreenUpdating = False
Set WorkRange = Range(«A11:BX7300») ‘адрес рабочего диапазона, в пределах которого видно выделение
Intersect(WorkRange, Union(Target.EntireColumn, Target.EntireRow)).Select ‘формируем крестообразный диапазон и выделяем
Target.Activate

Сообщение Добрый вечер, знатоки макросов!
Подскажите пожалуйста, что нужно добавить в существующий макрос, чтобы было не просто выделение активных строки/столбца, а выделение цветом?

код макроса выделения такой:
[vba]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WorkRange As Range

If Target.Cells.Count > 1 Then Exit Sub ‘если выделено больше 1 ячейки — выходим

Application.ScreenUpdating = False
Set WorkRange = Range(«A11:BX7300») ‘адрес рабочего диапазона, в пределах которого видно выделение
Intersect(WorkRange, Union(Target.EntireColumn, Target.EntireRow)).Select ‘формируем крестообразный диапазон и выделяем
Target.Activate

Kuzmich Дата: Пятница, 20.09.2019, 22:35 | Сообщение № 2
grh1 Дата: Суббота, 21.09.2019, 08:05 | Сообщение № 3

Kuzmich, спасибо, но немного не то. Так я тоже делал, но цвет накладывается на выделение и получается искажение цвета — хочу желтый, получаю грязно-оранжевый.

Вот код Н. Павлова, который:
1. не убивает ранее установленное цветовое форматирование на листе;
2. цвет выделения активной строки/столбца является оригинальным.
(выставил светло-зеленый цвет, он и выделяет этим цветом)

Но как сделать в этом коде, чтобы он постоянно был включен на листе, без кнопки ДОБАВИТЬ ВЫДЕЛЕНИЕ или вызова макроса на включение.

Kuzmich, спасибо, но немного не то. Так я тоже делал, но цвет накладывается на выделение и получается искажение цвета — хочу желтый, получаю грязно-оранжевый.

Вот код Н. Павлова, который:
1. не убивает ранее установленное цветовое форматирование на листе;
2. цвет выделения активной строки/столбца является оригинальным.
(выставил светло-зеленый цвет, он и выделяет этим цветом)

Но как сделать в этом коде, чтобы он постоянно был включен на листе, без кнопки ДОБАВИТЬ ВЫДЕЛЕНИЕ или вызова макроса на включение. grh1

Сообщение Kuzmich, спасибо, но немного не то. Так я тоже делал, но цвет накладывается на выделение и получается искажение цвета — хочу желтый, получаю грязно-оранжевый.

Вот код Н. Павлова, который:
1. не убивает ранее установленное цветовое форматирование на листе;
2. цвет выделения активной строки/столбца является оригинальным.
(выставил светло-зеленый цвет, он и выделяет этим цветом)

Но как сделать в этом коде, чтобы он постоянно был включен на листе, без кнопки ДОБАВИТЬ ВЫДЕЛЕНИЕ или вызова макроса на включение. Автор — grh1
Дата добавления — 21.09.2019 в 08:05

gling Дата: Суббота, 21.09.2019, 08:32 | Сообщение № 4
grh1 Дата: Суббота, 21.09.2019, 09:22 | Сообщение № 5
Kuzmich Дата: Суббота, 21.09.2019, 09:41 | Сообщение № 6
grh1 Дата: Суббота, 21.09.2019, 10:03 | Сообщение № 7
grh1 Дата: Суббота, 21.09.2019, 10:24 | Сообщение № 8
Pelena Дата: Суббота, 21.09.2019, 11:35 | Сообщение № 9
«Черт возьми, Холмс! Но как. »
Ю-money 41001765434816

Ответить

grh1 Дата: Суббота, 21.09.2019, 12:47 | Сообщение № 10

Да, конечно.
Код на выделение активной строки/столбца Н. Павлова, убрано вкл/выкл макроса — работает постоянно
[vba]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WorkRange As Range, CrossRange As Range
Set WorkRange = Range(«A11:CC7300»)
If Target.Count > 1 Then Exit Sub

Application.ScreenUpdating = False
If Not Intersect(Target, WorkRange) Is Nothing Then
Set CrossRange = Intersect(WorkRange, Target.EntireRow) ‘это окрас строк+столбец Set CrossRange = Intersect(WorkRange, Union(Target.EntireRow, Target.EntireColumn))
WorkRange.FormatConditions.Delete ‘эта строка делает так, чтобы выделение не оставалось
CrossRange.FormatConditions.Add Type:=xlExpression, Formula1:=»=1″
CrossRange.FormatConditions(1).Interior.ColorIndex = 35
Target.FormatConditions.Delete ‘эта строка убирает заливку в активной ЯЧЕЙКЕ (она становится белой)
End If
End Sub

Не убивает форматирование на листе

Да, конечно.
Код на выделение активной строки/столбца Н. Павлова, убрано вкл/выкл макроса — работает постоянно
[vba]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WorkRange As Range, CrossRange As Range
Set WorkRange = Range(«A11:CC7300»)
If Target.Count > 1 Then Exit Sub

Application.ScreenUpdating = False
If Not Intersect(Target, WorkRange) Is Nothing Then
Set CrossRange = Intersect(WorkRange, Target.EntireRow) ‘это окрас строк+столбец Set CrossRange = Intersect(WorkRange, Union(Target.EntireRow, Target.EntireColumn))
WorkRange.FormatConditions.Delete ‘эта строка делает так, чтобы выделение не оставалось
CrossRange.FormatConditions.Add Type:=xlExpression, Formula1:=»=1″
CrossRange.FormatConditions(1).Interior.ColorIndex = 35
Target.FormatConditions.Delete ‘эта строка убирает заливку в активной ЯЧЕЙКЕ (она становится белой)
End If
End Sub

Не убивает форматирование на листе grh1

Да, конечно.
Код на выделение активной строки/столбца Н. Павлова, убрано вкл/выкл макроса — работает постоянно
[vba]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WorkRange As Range, CrossRange As Range
Set WorkRange = Range(«A11:CC7300»)
If Target.Count > 1 Then Exit Sub

Application.ScreenUpdating = False
If Not Intersect(Target, WorkRange) Is Nothing Then
Set CrossRange = Intersect(WorkRange, Target.EntireRow) ‘это окрас строк+столбец Set CrossRange = Intersect(WorkRange, Union(Target.EntireRow, Target.EntireColumn))
WorkRange.FormatConditions.Delete ‘эта строка делает так, чтобы выделение не оставалось
CrossRange.FormatConditions.Add Type:=xlExpression, Formula1:=»=1″
CrossRange.FormatConditions(1).Interior.ColorIndex = 35
Target.FormatConditions.Delete ‘эта строка убирает заливку в активной ЯЧЕЙКЕ (она становится белой)
End If
End Sub

Не убивает форматирование на листе Автор — grh1
Дата добавления — 21.09.2019 в 12:47

Источник

Выделение строки цветом vba excel

Здравствуйте, нашла макрос для подсветки активной строки определенным цветом, проблема в том, что подсвечивается вся строка от А до горизонта и вторая проблема макроса в том, что если нажать на столбец, то всё дико зависает.
Прошу помочь изменить макрос таким образом, чтобы при нажатии на ячейку в строке подсвечивались ячейки с A-O и влияла только на строку, а не на столбцы.

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static rn_Prev As Range
Dim rn As Range

If rn_Prev Is Nothing Then
Cells.Interior.ColorIndex = xlColorIndexNone
Else
For Each rn In rn_Prev
If rn.Interior.ColorIndex <> xlColorIndexNone Then _
rn.EntireRow.Interior.ColorIndex = xlColorIndexNone
Next
End If

For Each rn In Target
If rn.Interior.ColorIndex <> 37 Then rn.EntireRow.Interior.ColorIndex = 37
Next

Set rn_Prev = Target

Здравствуйте, нашла макрос для подсветки активной строки определенным цветом, проблема в том, что подсвечивается вся строка от А до горизонта и вторая проблема макроса в том, что если нажать на столбец, то всё дико зависает.
Прошу помочь изменить макрос таким образом, чтобы при нажатии на ячейку в строке подсвечивались ячейки с A-O и влияла только на строку, а не на столбцы.

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static rn_Prev As Range
Dim rn As Range

If rn_Prev Is Nothing Then
Cells.Interior.ColorIndex = xlColorIndexNone
Else
For Each rn In rn_Prev
If rn.Interior.ColorIndex <> xlColorIndexNone Then _
rn.EntireRow.Interior.ColorIndex = xlColorIndexNone
Next
End If

For Each rn In Target
If rn.Interior.ColorIndex <> 37 Then rn.EntireRow.Interior.ColorIndex = 37
Next

Set rn_Prev = Target

Сообщение Здравствуйте, нашла макрос для подсветки активной строки определенным цветом, проблема в том, что подсвечивается вся строка от А до горизонта и вторая проблема макроса в том, что если нажать на столбец, то всё дико зависает.
Прошу помочь изменить макрос таким образом, чтобы при нажатии на ячейку в строке подсвечивались ячейки с A-O и влияла только на строку, а не на столбцы.

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static rn_Prev As Range
Dim rn As Range

If rn_Prev Is Nothing Then
Cells.Interior.ColorIndex = xlColorIndexNone
Else
For Each rn In rn_Prev
If rn.Interior.ColorIndex <> xlColorIndexNone Then _
rn.EntireRow.Interior.ColorIndex = xlColorIndexNone
Next
End If

For Each rn In Target
If rn.Interior.ColorIndex <> 37 Then rn.EntireRow.Interior.ColorIndex = 37
Next

Set rn_Prev = Target

Manyasha Дата: Понедельник, 06.02.2017, 13:15 | Сообщение № 2

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
‘Если выделено больше 1-й строки, то выходим из макроса
If Target.Rows.Count > 1 Then Exit Sub
Static rn_Prev As Range
Dim rn As Range

If rn_Prev Is Nothing Then
Cells.Interior.ColorIndex = xlColorIndexNone
Else
For Each rn In rn_Prev
If rn.Interior.ColorIndex <> xlColorIndexNone Then _
rn.EntireRow.Interior.ColorIndex = xlColorIndexNone
Next
End If

For Each rn In Target
‘вместо всей строки (rn.EntireRow) закрашиваем диапазон а:о
If rn.Interior.ColorIndex <> 37 Then Range(«a» & rn.Row & «:o» & rn.Row).Interior.ColorIndex = 37
Next

Set rn_Prev = Target

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
‘Если выделено больше 1-й строки, то выходим из макроса
If Target.Rows.Count > 1 Then Exit Sub
Static rn_Prev As Range
Dim rn As Range

If rn_Prev Is Nothing Then
Cells.Interior.ColorIndex = xlColorIndexNone
Else
For Each rn In rn_Prev
If rn.Interior.ColorIndex <> xlColorIndexNone Then _
rn.EntireRow.Interior.ColorIndex = xlColorIndexNone
Next
End If

For Each rn In Target
‘вместо всей строки (rn.EntireRow) закрашиваем диапазон а:о
If rn.Interior.ColorIndex <> 37 Then Range(«a» & rn.Row & «:o» & rn.Row).Interior.ColorIndex = 37
Next

Set rn_Prev = Target

ЯД: 410013299366744 WM: R193491431804

Ответить

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
‘Если выделено больше 1-й строки, то выходим из макроса
If Target.Rows.Count > 1 Then Exit Sub
Static rn_Prev As Range
Dim rn As Range

If rn_Prev Is Nothing Then
Cells.Interior.ColorIndex = xlColorIndexNone
Else
For Each rn In rn_Prev
If rn.Interior.ColorIndex <> xlColorIndexNone Then _
rn.EntireRow.Interior.ColorIndex = xlColorIndexNone
Next
End If

For Each rn In Target
‘вместо всей строки (rn.EntireRow) закрашиваем диапазон а:о
If rn.Interior.ColorIndex <> 37 Then Range(«a» & rn.Row & «:o» & rn.Row).Interior.ColorIndex = 37
Next

Set rn_Prev = Target

Liana88 Дата: Понедельник, 06.02.2017, 13:20 | Сообщение № 3
Manyasha Дата: Понедельник, 06.02.2017, 13:39 | Сообщение № 4

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
‘Если выделено больше 1-й строки, то выходим из макроса
If Target.Rows.Count > 1 Then Exit Sub
‘Если выделяем столбец за пределами А:О, закрашивать строку нужно?
‘Если нет, то расскомментировать следующую строчку
‘If Target.Column > 15 Then Exit Sub
Static rn_Prev As Range
Dim rn As Range

If rn_Prev Is Nothing Then
Cells.Interior.ColorIndex = xlColorIndexNone
Else
Range(«a» & rn_Prev.Row & «:o» & rn_Prev.Row).Interior.ColorIndex = xlColorIndexNone
End If
‘вместо всей строки (rn.EntireRow) закрашиваем диапазон а:о
Range(«a» & Target.Row & «:o» & Target.Row).Interior.ColorIndex = 37
Set rn_Prev = Target

Код немного сократила, т.к. циклы не нужны, если мы красим только по одной строке.

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
‘Если выделено больше 1-й строки, то выходим из макроса
If Target.Rows.Count > 1 Then Exit Sub
‘Если выделяем столбец за пределами А:О, закрашивать строку нужно?
‘Если нет, то расскомментировать следующую строчку
‘If Target.Column > 15 Then Exit Sub
Static rn_Prev As Range
Dim rn As Range

If rn_Prev Is Nothing Then
Cells.Interior.ColorIndex = xlColorIndexNone
Else
Range(«a» & rn_Prev.Row & «:o» & rn_Prev.Row).Interior.ColorIndex = xlColorIndexNone
End If
‘вместо всей строки (rn.EntireRow) закрашиваем диапазон а:о
Range(«a» & Target.Row & «:o» & Target.Row).Interior.ColorIndex = 37
Set rn_Prev = Target

Код немного сократила, т.к. циклы не нужны, если мы красим только по одной строке. Manyasha

ЯД: 410013299366744 WM: R193491431804

Ответить

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
‘Если выделено больше 1-й строки, то выходим из макроса
If Target.Rows.Count > 1 Then Exit Sub
‘Если выделяем столбец за пределами А:О, закрашивать строку нужно?
‘Если нет, то расскомментировать следующую строчку
‘If Target.Column > 15 Then Exit Sub
Static rn_Prev As Range
Dim rn As Range

If rn_Prev Is Nothing Then
Cells.Interior.ColorIndex = xlColorIndexNone
Else
Range(«a» & rn_Prev.Row & «:o» & rn_Prev.Row).Interior.ColorIndex = xlColorIndexNone
End If
‘вместо всей строки (rn.EntireRow) закрашиваем диапазон а:о
Range(«a» & Target.Row & «:o» & Target.Row).Interior.ColorIndex = 37
Set rn_Prev = Target

Код немного сократила, т.к. циклы не нужны, если мы красим только по одной строке. Автор — Manyasha
Дата добавления — 06.02.2017 в 13:39

Liana88 Дата: Понедельник, 06.02.2017, 13:52 | Сообщение № 5
exzor Дата: Среда, 07.08.2019, 17:34 | Сообщение № 6
китин Дата: Четверг, 08.08.2019, 08:25 | Сообщение № 7
Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

exzor Дата: Среда, 21.08.2019, 17:39 | Сообщение № 8

ну вот пример первый пока макрос не сработал а второй когда включился

ну вот пример первый пока макрос не сработал а второй когда включился

Сообщение ну вот пример первый пока макрос не сработал а второй когда включился

Автор — exzor
Дата добавления — 21.08.2019 в 17:39

китин Дата: Четверг, 22.08.2019, 08:48 | Сообщение № 9

— Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 100кб согласно п.3 Правил форума

— Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 100кб согласно п.3 Правил форума китин

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Сообщение exzor, — Прочитайте Правила форума

— Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 100кб согласно п.3 Правил форума Автор — китин
Дата добавления — 22.08.2019 в 08:48

exzor Дата: Среда, 25.09.2019, 16:34 | Сообщение № 10

нет все равно не получается удалив строчки о которых вы сказали.
у меня на первом скриншоте залиты области мне надо чтоб они также оставались после того как я перемещусь по ячейкам
а получается что либо все области снимется окрас остается либо на оборот увеличиваеться дополнительными строками

если описать проблему то она такая в файле пример одной из таблиц у нас 4000 сотрудников. ведя поиск по таб. номеру мне нужно значение поставить в столбик который за экраном ведя прокрутку сбиваешься со строчки.

так вот я пытаюсь написать макрос который подсветит всю строку по выделенной ячейке, но не будет снимать уже закрашенные области

нет все равно не получается удалив строчки о которых вы сказали.
у меня на первом скриншоте залиты области мне надо чтоб они также оставались после того как я перемещусь по ячейкам
а получается что либо все области снимется окрас остается либо на оборот увеличиваеться дополнительными строками

если описать проблему то она такая в файле пример одной из таблиц у нас 4000 сотрудников. ведя поиск по таб. номеру мне нужно значение поставить в столбик который за экраном ведя прокрутку сбиваешься со строчки.

так вот я пытаюсь написать макрос который подсветит всю строку по выделенной ячейке, но не будет снимать уже закрашенные области exzor

Сообщение нет все равно не получается удалив строчки о которых вы сказали.
у меня на первом скриншоте залиты области мне надо чтоб они также оставались после того как я перемещусь по ячейкам
а получается что либо все области снимется окрас остается либо на оборот увеличиваеться дополнительными строками

если описать проблему то она такая в файле пример одной из таблиц у нас 4000 сотрудников. ведя поиск по таб. номеру мне нужно значение поставить в столбик который за экраном ведя прокрутку сбиваешься со строчки.

так вот я пытаюсь написать макрос который подсветит всю строку по выделенной ячейке, но не будет снимать уже закрашенные области Автор — exzor
Дата добавления — 25.09.2019 в 16:34

Источник

Adblock
detector

Skip to content

Excel VBA ColorIndex

  • VBA ColorIndex

VBA ColorIndex Property of Excel VBA is very useful to set the fill colors, border colors and font colors. Excel VBA ColorIndex returns index values from 1 to 56, -4105 and -4142. You can set the default colors using VBA enumeration number -4105 ( or xlColorIndexAutomatic). We can set VBA colorIndex -4142 (or xlColorIndexNone) enumeration to clear the colors or set to no colors.

Excel VBA ColorIndex

Syntax of Excel VBA ColorIndex

Here is the syntax of ColorIndex property of Excel VBA. You can set or return the color index value of the Excel Objects using the following VBA colorindex syntax.

expression.ColorIndex

Excel VBA Syntax to get the ColorIndex Value of the Excel Font, Interior or Border Color and store it in a Variable:

dblColorValue= expression.ColorIndex

Syntax to set the ColorIndex Value in Excel VBA to Excel Color Objects using Excel ColorIndex value:

expression.ColorIndex= IndexValue (1 to 56,-4105 or -4142)

ColorIndex in Excel VBA

Here are the list of Excel VBA ColorIndex Values and respective Colors:

ColorIndex Excel VBA Color ColorIndex Excel VBA Color
1 RGB(0,0,0) 29 RGB(128,0,128)
2 RGB(255,255,255) 30 RGB(128,0,0)
3 RGB(255,0,0) 31 RGB(0,128,128)
4 RGB(0,255,0) 32 RGB(0,0,255)
5 RGB(0,0,255) 33 RGB(0,204,255)
6 RGB(255,255,0) 34 RGB(204,255,255)
7 RGB(255,0,255) 35 RGB(204,255,204)
8 RGB(0,255,255) 36 RGB(255,255,153)
9 RGB(128,0,0) 37 RGB(153,204,255)
10 RGB(0,128,0) 38 RGB(255,153,204)
11 RGB(0,0,128) 39 RGB(204,153,255)
12 RGB(128,128,0) 40 RGB(255,204,153)
13 RGB(128,0,128) 41 RGB(51,102,255)
14 RGB(0,128,128) 42 RGB(51,204,204)
15 RGB(192,192,192) 43 RGB(153,204,0)
16 RGB(128,128,128) 44 RGB(255,204,0)
17 RGB(153,153,255) 45 RGB(255,153,0)
18 RGB(153,51,102) 46 RGB(255,102,0)
19 RGB(255,255,204) 47 RGB(102,102,153)
20 RGB(204,255,255) 48 RGB(150,150,150)
21 RGB(102,0,102) 49 RGB(0,51,102)
22 RGB(255,128,128) 50 RGB(51,153,102)
23 RGB(0,102,204) 51 RGB(0,51,0)
24 RGB(204,204,255) 52 RGB(51,51,0)
25 RGB(0,0,128) 53 RGB(153,51,0)
26 RGB(255,0,255) 54 RGB(153,51,102)
27 RGB(255,255,0) 55 RGB(51,51,153)
28 RGB(0,255,255) 56 RGB(51,51,51)

VBA to Print ColorIndex Table

Here is the Excel VBA Macro to print Excel ColorIndex Values and respective colors in Excel Sheet.
VBA to Print ColorIndex in Excel Range

Sub sbExcel_VBA_PrintColorIndex()
rowCntr = 2
colCntr = 2

For iCntr = 1 To 56

Cells(rowCntr, colCntr).Interior.ColorIndex = iCntr
Cells(rowCntr, colCntr) = iCntr
If iCntr > 1 And iCntr Mod 14 = 0 Then
    colCntr = colCntr + 1
    rowCntr = 2
Else
rowCntr = rowCntr + 1
End If

Next


End Sub

Set ColorIndex in Excel VBA

Here are the list of Excel VBA code to set ColorIndex to a Range of cells in Microsoft Excel Sheet.

Font Colors in Excel VBA

We can set the font colors in Excel VBA using ColorIndex property of Font Object. Here is the simple excel vba font color macro to set the font color of a given range A1:E20.

Sub SetFontColorIndex_Range()
    Range("A1:E20").Font.ColorIndex = 40
End Sub

You can also get the fornt colors using ColorIndex and store it in a variable. Please check the below code snippet:

myVar=Range("A1").Font.ColorIndex

This will return the font color and assign to a variable.

Interior Colors in Excel VBA

We can change the Interior or fill colors of a range using Excel VBA ColorIndex Property. Excel Interior Color macro heps you to change the interior color of an obect.

Sub SetInteriorColorIndex_Range()
    Range("A1:E20").Interior.ColorIndex = 41
End Sub

You can get Cell colors using Excel VBA, here is the get cell color excel vba macro to get the cell background colors.

myVar=Range("A1:E20").Interior.ColorIndex

Border Colors in Excel VBA

ColorIndex property of Borders is very easy to set the border colors in Excel VBA. Here is

Sub SetBordersColorIndex_Range()
Range("A1:E20").Borders.ColorIndex = 42
End Sub

Clear Colors in Excel VBA

Some times we need to fill no colors in Excel, we can clear the Excel Object colors such as font, border and fill colors and set to automatic or no fill color. Here are example macro to clear the color and fill no colors.

Clear Background Color in Excel VBA

We often required to clear the background or fill color of the excel object. We can use the following Excel Macro to clear the background colors and set no interior colors.

Sub SetClearBackgroundColor_ColorIndex_Range()
    Range("A1:E20").Interior.ColorIndex = -4142
End Sub

The above macro will set the Interior.ColorIndex to -4142 enumeration. Interior.ColorIndex = -4142 is enumeration to clear the background or fill color.

Similarly, we can clear the boder colors using Excel VBA as shown below:

Sub SetClearBorders_ColorIndex_Range()
    Range("A1:E20").Borders.ColorIndex = -4142
End Sub

We can set the font colors to default or automatic colors using Excel VBA ColorIndex property of Font object. Here is an example:

Sub SetClearFontColorIndex_Range()
    Range("A1:E20").Font.ColorIndex = -4105
End Sub

VBA Colors

We can set the colors in VBA using many approaches. We use ColorIndex Property, VBA Color Constants or set RGB Colors. We have already seen how to use ColorIndex in Excel VBA. Let us see the Excel VBA Color Constants and RGB Colors.

Excel VBA Color Constants

We can use the VBA Color Constants to set the colors of Excel Objects. Here is an easy to understand example:

Sub sbExcel_VBA_ColorConstants()
Cells(2, 4).Interior.Color = vbBlack
Cells(3, 4).Interior.Color = vbRed
Cells(4, 4).Interior.Color = vbGreen
Cells(5, 4).Interior.Color = vbYellow
Cells(6, 4).Interior.Color = vbBlue
Cells(7, 4).Interior.Color = vbMagenta
Cells(8, 4).Interior.Color = vbCyan
Cells(9, 4).Interior.Color = vbWhite

End Sub
VBA Color Constant VALUE Excel VBA Color & RGB
vbBlack 0x0 RGB(0,0,0)
vbRed 0xFF RGB(255,0,0)
vbGreen 0xFF00 RGB(0,255,0)
vbYellow 0xFFFF RGB(255,255,0)
vbBlue 0xFF0000 RGB(0,0,255)
vbMagenta 0xFF00FF RGB(255,0,255)
vbCyan 0xFFFF00 RGB(0,255,255)
vbWhite 0xFFFFFF RGB(255,255,255)

RGB Colors in Excel VBA

We have only few color codes when we use Constants or ColorIndex Property. RGB helps us to use all possible combination of colors with Red, Green and Blue. Here is a simple Excel macro to explain the RGB in VBA.

Sub ChangeBackgourdColorRGB_Range()
    Range("A1:E20").Interior.Color = rgb(125, 205, 99)
End Sub

RGB color can be any number between 0 and 255. Here are the list of RGB colors for Excel VBA ColorIndex color codes:
Excel VBA ColorIndex with RGB

Effortlessly Manage Your Projects and Resources
120+ Professional Project Management Templates!

A Powerful & Multi-purpose Templates for project management. Now seamlessly manage your projects, tasks, meetings, presentations, teams, customers, stakeholders and time. This page describes all the amazing new features and options that come with our premium templates.

Save Up to 85% LIMITED TIME OFFER
Excel VBA Project Management Templates
All-in-One Pack
120+ Project Management Templates
Essential Pack
50+ Project Management Templates

Excel Pack
50+ Excel PM Templates

PowerPoint Pack
50+ Excel PM Templates

MS Word Pack
25+ Word PM Templates

Ultimate Project Management Template

Ultimate Resource Management Template

Project Portfolio Management Templates

Related Posts

  • Syntax of Excel VBA ColorIndex
  • ColorIndex in Excel VBA
    • VBA to Print ColorIndex Table
  • Set ColorIndex in Excel VBA
    • Font Colors in Excel VBA
    • Interior Colors in Excel VBA
    • Border Colors in Excel VBA
  • Clear Colors in Excel VBA
    • Clear Background Color in Excel VBA
  • VBA Colors
    • Excel VBA Color Constants
    • RGB Colors in Excel VBA

VBA Reference

Effortlessly
Manage Your Projects

120+ Project Management Templates

Seamlessly manage your projects with our powerful & multi-purpose templates for project management.

120+ PM Templates Includes:

Effectively Manage Your
Projects and  Resources

With Our Professional and Premium Project Management Templates!

ANALYSISTABS.COM provides free and premium project management tools, templates and dashboards for effectively managing the projects and analyzing the data.

We’re a crew of professionals expertise in Excel VBA, Business Analysis, Project Management. We’re Sharing our map to Project success with innovative tools, templates, tutorials and tips.

Project Management
Excel VBA

Download Free Excel 2007, 2010, 2013 Add-in for Creating Innovative Dashboards, Tools for Data Mining, Analysis, Visualization. Learn VBA for MS Excel, Word, PowerPoint, Access, Outlook to develop applications for retail, insurance, banking, finance, telecom, healthcare domains.

Analysistabs Logo

Page load link

Go to Top

Понравилась статья? Поделить с друзьями:
  • Excel vba установить автофильтр
  • Excel vba условные операторы
  • Excel vba условное форматирование макросом
  • Excel vba условие значение ячейки
  • Excel vba условие в диапазоне