Сумма чисел в ячейках без заливки и подчеркивания. Написать функцию

@KOPC1886 · Регистрация: 28.10.2010

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

Здравствуйте! У меня есть экселевский документ, там есть таблица с числами. Мне нужно было создать функцию, которая суммировала все числа, кроме тех, которые был залиты красным цветом или зачеркнуты. Создал функцию в modules....вызываю функцию. Выдается сообщение "У этой функции нет аргументов". В чем проблема?! Я не понимаю..

@Казанский · 12.01.2012, 15:20

Как объявлена функция? Должно быть

Visual Basic

1	Function MyFunc(r As Range)

r - аргумент.

@KOPC1886 · 12.01.2012, 18:20 **[ТС]**

Я написал функцию в modules, я с VBA первый раз..мне препод дал файл excel, там таблица есть с числами, некоторые числа закрашены, а остальные нет. Нужно посчитать сумму только тех чисел, которые незакрашены.
Вот как я написал функцию.

Visual Basic

Function Summer(Summ_Range as Range) as Integer
   Dim cell as Range
   For Each cell in Summ_Range
       If cell.Font.Color<>red Then Summer=Summer+cell.Value
   Next
End Function

И при вызове функции выдается сообщение "У данной функции аргументов нет"

toiai · 12.01.2012, 19:17

Так цвет шрифта или заливка ячейки?

@KOPC1886 · 12.01.2012, 19:28 **[ТС]**

Заливки ячейки

@Казанский · 12.01.2012, 19:37

Все работает, только vbRed вместо red:

@KOPC1886 · 12.01.2012, 19:54 **[ТС]**

Спасибо, но в моем файле у меня не работает. Хотя сделано все тоже самое. Мне файл препод дал.
При вызове функции пишет "У данной функции аргументов нет"

Добавлено через 5 минут
Но она не считает те, у которых цвет шрифта красный, а мне надо чтобы не считал те, у которых заливка красная

Добавлено через 2 минуты
Еще есть один нюанс.....при изменении одной какой то ячейки на красный цвет, она уже считаться не должна.....а она все равно суммируется.

toiai · 12.01.2012, 20:06

Используйте свойство определение заливки .Interior.Color

@KOPC1886 · 12.01.2012, 20:11 **[ТС]**

Простите, это как? Я с VBA впервые сталкиваюсь

toiai · 12.01.2012, 20:14

Visual Basic

1	If cell.Interior.Color <> vbRed Then Summer=Summer+cell.Value

@KOPC1886 · 12.01.2012, 20:21 **[ТС]**

Только эту строчку написать? или как что? Вообщем мне нужно...во у нас есть числа 1,2,3,4. Сумма получилась 10...потом я залил ячейку 1 красным цветом и он должен автоматически пересчитать сумму...то есть уже должно быть написано 9 вместо 10

toiai · 12.01.2012, 20:26

Изменение заливки не является событием для пересчета, нажмите F9/

@KOPC1886 · 12.01.2012, 20:59 **[ТС]**

Но мне так препод сказал. Как сделать то? Или это невозможно

Добавлено через 30 минут
Ответьте пожалуйста

toiai · 12.01.2012, 21:42

Да можно, но с некоторыми условиями (описаны в файле)

@KOPC1886 · 12.01.2012, 22:05 **[ТС]**

А как использовать это событие SelectionChange?

toiai · 14.01.2012, 13:46

События SelectionChange уже использовано в файле (#14). Открой редактор VBA на Лист1.

toiai 3218 / 967 / 223 Регистрация: 29.05.2010 Сообщений: 2,087
	14.01.2012, 13:46	16
	События SelectionChange уже использовано в файле (#14). Открой редактор VBA на Лист1. 0

@KOPC1886 27 / 6 / 0 Регистрация: 28.10.2010 Сообщений: 352
		1
	Сумма чисел в ячейках без заливки и подчеркивания. Написать функцию 12.01.2012, 14:46. Показов 5718. Ответов 15 Метки нет (Все метки) Здравствуйте! У меня есть экселевский документ, там есть таблица с числами. Мне нужно было создать функцию, которая суммировала все числа, кроме тех, которые был залиты красным цветом или зачеркнуты. Создал функцию в modules....вызываю функцию. Выдается сообщение "У этой функции нет аргументов". В чем проблема?! Я не понимаю.. 0

toiai 3218 / 967 / 223 Регистрация: 29.05.2010 Сообщений: 2,087
	12.01.2012, 19:17	4
	Так цвет шрифта или заливка ячейки? 0

@KOPC1886 27 / 6 / 0 Регистрация: 28.10.2010 Сообщений: 352
	12.01.2012, 19:28 [ТС]	5
	Заливки ячейки 0

@KOPC1886 27 / 6 / 0 Регистрация: 28.10.2010 Сообщений: 352
	12.01.2012, 19:54 [ТС]	7
	Спасибо, но в моем файле у меня не работает. Хотя сделано все тоже самое. Мне файл препод дал. При вызове функции пишет "У данной функции аргументов нет" Добавлено через 5 минут Но она не считает те, у которых цвет шрифта красный, а мне надо чтобы не считал те, у которых заливка красная Добавлено через 2 минуты Еще есть один нюанс.....при изменении одной какой то ячейки на красный цвет, она уже считаться не должна.....а она все равно суммируется. 0

toiai 3218 / 967 / 223 Регистрация: 29.05.2010 Сообщений: 2,087
	12.01.2012, 20:06	8
	Используйте свойство определение заливки .Interior.Color 0

@KOPC1886 27 / 6 / 0 Регистрация: 28.10.2010 Сообщений: 352
	12.01.2012, 20:11 [ТС]	9
	Простите, это как? Я с VBA впервые сталкиваюсь 0

@KOPC1886 27 / 6 / 0 Регистрация: 28.10.2010 Сообщений: 352
	12.01.2012, 20:21 [ТС]	11
	Только эту строчку написать? или как что? Вообщем мне нужно...во у нас есть числа 1,2,3,4. Сумма получилась 10...потом я залил ячейку 1 красным цветом и он должен автоматически пересчитать сумму...то есть уже должно быть написано 9 вместо 10 0

toiai 3218 / 967 / 223 Регистрация: 29.05.2010 Сообщений: 2,087
	12.01.2012, 20:26	12
	Изменение заливки не является событием для пересчета, нажмите F9/ 0

@KOPC1886 27 / 6 / 0 Регистрация: 28.10.2010 Сообщений: 352
	12.01.2012, 20:59 [ТС]	13
	Но мне так препод сказал. Как сделать то? Или это невозможно Добавлено через 30 минут Ответьте пожалуйста 0

@KOPC1886 27 / 6 / 0 Регистрация: 28.10.2010 Сообщений: 352
	12.01.2012, 22:05 [ТС]	15
	А как использовать это событие SelectionChange? 0