Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Функция по покраске ячейки по нажатию
 
#1
10.07.2013 14:01:23
Дня доброго дамы и господа.
У меня возник еще один вопрос по автомотизации экселя...
Задача не сложная наверно для гуру но для рядового пользователя эксель иногда тупиковая.

Пример следующий
Нужно написать функцию при нажатии на которую клетка окрашивалась в определенный цвет.
Далее по нажатию кнопки определялось чило окрашенных клавишь и выводилось в ячейку

Я пытался сделать по двум примерам:

Пример первый:
Код
?
1
2
3
4
5
6
7
8
9
10
11
12
13
'CODE 1 Ставим флажок, если был одиночный щелчок по ячейке
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Cells.Count > 1 Then Exit Sub
 If Not Intersect(Target, Range("A6:A1000" ;) ) Is Nothing Then 'Если ячейка пересекается с указанным диапазоном, то
 Target.Font.Name = "Marlett" 'Назначаем ячейке шрифт
 If Target = vbNullString Then 'Если ячейка пуста, то
 Target = "a" 'заполняем её символом "а" (латиница)
 Else 'Иначе
 Target = vbNullString 'в ячейке пусто
 End If
 Target.Offset(0, 1).Activate '"отскакиваем" вправо на один столбец
 End If
End Sub

как переработать функцию чтобы при нажатии ячейка просто закрашивалась?

Вторая функция с вашего сайта:
Код
?
1
2
3
4
5
6
7
8
9
10
Public Function SumByColor(DataRange As Range, ColorSample As Range) As Double
 Dim Sum As Double
 Application.Volatile True
 For Each cell In DataRange
 If cell.Interior.Color = ColorSample.Interior.Color Then
 Sum = Sum + 1
 End If
 Next cell
 SumByColor = Sum
 End Function


Но проблема в том что она не обновляется автоматом надо чтоб или автоматом или по жмаконью кнопки.
она обновлялась.


P/s если не сложно посоветуйте книгу по программированию на VBA
начальство поставило задачу скрестить эксель и корел под VBA для расчетов и отрисовки деталей.
Изменено: Simple4me - 10.07.2013 22:01:06
 
 
 
#2
10.07.2013 14:24:55
Покажите все это в примере
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
10.07.2013 15:05:17
Вот просто набросок
 
 
 
#4
10.07.2013 15:24:52
Вот решение для наброска.
Изменено: Sanja - 10.07.2013 15:59:41 (доработка)
Согласие есть продукт при полном непротивлении сторон
 
 
 
#5
11.07.2013 06:35:49
Огромное спасибо даже не знаю как вас отблагодарить...
 
 
 
#6
11.07.2013 07:49:50
Рад был помочь  ;). В примере, правда проценты не правильно считаются, но думаю сами доделаете.
Цитата
не знаю как вас отблагодарить...
тел. +79114339102  ;)
Согласие есть продукт при полном непротивлении сторон
 
 
 
#7
19.07.2013 10:16:21
Движемся черепашьими шагами вперед
Вопросы не по теме (не активируются ...) удалены [МОДЕРАТОР]
И еще вопрос почему так сильно разнятся цвета в 2007 и 2003 от светло зеленого до термоядерного
 
 
 
Страницы: 1
Читают тему
Loading...