Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 03.04.2009, 12:56   #1
ksa791
Новичок
Джуниор
 
Регистрация: 03.04.2009
Сообщений: 2
По умолчанию Суммирование ячеек с жирным шрифтом

Привет, всем!
Помогите пожалуйста в простом вопросе.

Как посчитать сумму только тех ячеек в колонке чисел, в которых текст выделен жирным шрифтом?
(Именно жирным шрифтом, остальные свойства ячейки могут быть самыми разными.
И понятно, что содержимое ячейк числа, а не текст)

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

Excel 2000

Последний раз редактировалось ksa791; 03.04.2009 в 13:03.
ksa791 вне форума Ответить с цитированием
Старый 03.04.2009, 13:24   #2
IgorGO
МегаМодератор
СуперМодератор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,284
По умолчанию

в ручном режиме:
1)отмечаем все ячейки, в строке статус видим общую сумму, записываем ее (или запоминаем)
2)жмем Ctrl+H (найти и заменить) в качестве найти выбираем форматы (шрифт, полужирный) в ячейке заменить ставим 0. жмем заменить все.
3)так так оставались отмеченными все ячейки в строке статуса видим новую сумму.
4)от суммы, полученной в п.1, отмаем сумму, полученную в п.3 - это и есть сумма жирных.
5)закрываем файл не записывая!
IgorGO вне форума Ответить с цитированием
Старый 03.04.2009, 13:36   #3
mihakr
Пользователь
 
Регистрация: 04.03.2009
Сообщений: 43
По умолчанию

Цитата:
Сообщение от IgorGO Посмотреть сообщение
в ручном режиме:
А в автоматическом никак?
mihakr вне форума Ответить с цитированием
Старый 03.04.2009, 14:08   #4
IgorGO
МегаМодератор
СуперМодератор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,284
По умолчанию

а в атоматическом макрос писать.
красиво было бы так:
Код:
WorksheetFunction.Sum(Cells.SpecialCells(xlCellTypeSameFormatConditions, ХХХХ))
если найдете константу, которая позволит к специальным ячейкам отнести ячейки с жирным шрифтом (и напишете ее вместо ХХХХ) - это и будет ответ. я - не нашел.
другой вариант (не красиво - зато работает):
Код:
Function SumBold(R As Range) As Double
  s = 0
  On Error Resume Next
  For Each c In R.Cells
    If c.Font.Bold Then s = s + c
  Next
  SumBold = s
End Function
IgorGO вне форума Ответить с цитированием
Старый 03.04.2009, 14:19   #5
ksa791
Новичок
Джуниор
 
Регистрация: 03.04.2009
Сообщений: 2
По умолчанию

IgorGO, спасибо большое, функция sumbold работает так как надо.
Непойму, почему
Цитата:
не красиво
очень даже красиво
ksa791 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
выделение жирным шрифтом минимума и максимума из диапазона Bazzer Microsoft Office Excel 11 28.06.2008 18:50
как сцепить несколько ячеек чтобы сохранилось выделение цветом или жирным шрифтом gribkow Microsoft Office Excel 7 23.04.2008 09:27
Суммирование ячеек с флажками 69angel69 Microsoft Office Excel 2 04.03.2008 19:23
for SAS888 please help! макрос выделения цифр жирным шрифтом прописывает числа без нулей после запятой Dorvir Microsoft Office Excel 1 03.03.2008 23:39
Как в итоге формулы US DOLLARS 2356.67 ONLY выделить только цифры жирным шрифтом? Dorvir Microsoft Office Excel 6 03.03.2008 11:17