Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1 2 След.
RSS
"Галочки", плюс вопросы по суммам
 
#1
05.01.2013 15:26:57
Здравствуйте. Вопрос такой:
Как вывести сумму по месяцам и по кварталам ?
Как суммировать долг в ячейках где уже была установка, но не суммируя где есть рассрочка.
Как установить "галочки" ? Например нет галочки нет рассрочки, а установил галочку есть рассрочка.
Изменено: Дмитрий Павлов - 05.01.2013 16:00:11
 
 
 
#2
05.01.2013 16:18:34
Поставьте шрифт Marlett и латинская буква а станет "галочкой".
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#3
05.01.2013 16:19:41
;)
 
 
 
#4
05.01.2013 16:23:47
Вот еще как вариант.
 
 
 
#5
05.01.2013 17:32:27
кросс - http://www.cyberforum.ru/ms-excel/thread753360.html
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
 
 
#6
05.01.2013 19:25:33
Используя подсказки Nic70y и Сергея.
 
 
 
#7
05.01.2013 19:33:49
Спасибо за быстрые ответы, очень благодарен. :)
С галочками я некорректно описал. Вот какие "галочки" я имел ввиду.
 
 
 
#8
05.01.2013 19:39:27
2 Дмитрий Павлов
Вы хотите реализовать в Excel простановку данного вида галочек?
 
 
 
#9
05.01.2013 19:43:13
Цитата
Дмитрий Павлов пишет:
Вот какие "галочки" я имел ввиду.
Непродуктивно, если у Вас будет много строк. Лучше воспользоваться предлагаемым вариантом со шрифтом Marlett. Подробнее об этом можно почитать здесь
 
 
 
#10
05.01.2013 20:08:32
я пользуюсь символами с кодами 168 и 254 шрифта Wingdings - больше похоже на чекбоксы, чем Marlett
а принцип тот же.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#11
06.01.2013 00:12:40
Саша, здравствуй.

Как ты себе представляешь вводить cвои Wingdings символы {168;254}? Честно сказать попробовал, не понял.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#12
06.01.2013 00:26:49
Например, так:
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
        If Target.Value = Chr(168) Then
            Target.Value = Chr(254)
        Else
            Target.Value = Chr(168)
        End If
    End If
    Cancel = True
End Sub
 
 
 
#13
06.01.2013 00:28:21
Или проверять на символы "Ё" и "ю" :-)
 
 
 
#14
06.01.2013 00:49:51
Цитата
Владимир пишет:
вводить cвои Wingdings символы {168;254}?
да, с клавиатуры - почти нереально.
конечно, с помощью событий - примерно так, как уже написал Юрий.

пс. на своем предприятии специально ходил по отделам и проверял наличие шрифта Wingdings - есть везде :)
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#15
06.01.2013 00:57:08
..И что проще, код Юры или нажатие одной клавишы?
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#16
06.01.2013 01:08:20
код, конечно :)
скопипастил - и забыл.
а дальше - просто кликаешь галочки мышкой.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#17
06.01.2013 01:11:24
Можно в код добавить принудительное переключение на нужный шрифт.
Цитата
Владимир пишет:
или нажатие одной клавишы
Про какую клавишу/клавиши разговор?
 
 
 
#18
06.01.2013 01:20:24
Цитата
Юрий М пишет:
Про какую клавишу/клавиши разговор?
я так понял - про латинскую "a".
при шрифте Marlett её можно вводить ручками, да и в автофильтре использовать.
"Ё" и "ю" - в принципе, тоже можно запомнить.

и, кстати, переключение на латиницу - тоже лишняя "клавиша"  :)
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#19
06.01.2013 01:41:27
Цитата
Юрий М пишет:
Можно в код добавить принудительное переключение на нужный шрифт.
Цитата
Владимир пишет:
или нажатие одной клавишы
Про какую клавишу/клавиши разговор?

Зачем. Если можно раз установить шрифт и забыть.
Хорошо если раз записал. Но..сейчас ещё полчаса будешь объяснять, как код вставить в файл, а если в ПЕРСОНАЛ...
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#20
06.01.2013 11:23:23
Цитата
Владимир пишет:
можно раз установить шрифт и забыть
Ага, а народ назначит снова на столбец свой любимый шрифт. Да и никто ведь не уговаривает: был вопрос - был ответ.
 
 
 
#21
08.01.2013 03:20:19
А "галочки" из набора значков условного форматирования вам не подойдут?  ;)  
Так вроде проще, чем с макросами.
Изменено: Виталий Денисов - 08.01.2013 03:54:22
 
 
 
#22
08.01.2013 11:02:28
Цитата
Юрий М пишет:
Цитата
Дмитрий Павлов пишет:
Вот какие "галочки" я имел ввиду.
Непродуктивно, если у Вас будет много строк. Лучше воспользоваться предлагаемым вариантом со шрифтом Marlett. Подробнее об этом можно почитать  здесь
 
 
 
#23
08.01.2013 11:04:40
Процитировали - и что?
 
 
 
#24
08.01.2013 11:05:47
Уважаемые форумчане вопрос по этой теме. Как переписать код существующего макроса, что бы галочки ставились в двух столбцах и более. Пример прилагаю.

Ответ нашел, Через запятую дописать другую область.
Изменено: Сергей - 08.01.2013 11:15:04
 
 
 
#25
08.01.2013 11:06:14
Спасибо за подробные и быстрые ответы друзья.
Всех с прошедшими праздниками.
 
 
 
#26
08.01.2013 11:08:17
2 Виталий Денисов
Интересно! Никогда ранее не доводилось пользоваться данной "фишкой".
Буду знать. Спасибо!

2 Дмитрий Павлов
Только в данной ситуации Вам нужно будет поменять формулы

В J25:
=СУММПРОИЗВ(($G$17:$G$24>0)*($F$17:$F$24)*($H$17:$H$24<1))
В J26:
=СУММПРОИЗВ(($G$17:$G$24>0)*($F$17:$F$24)*($H$17:$H$24>0))

или по ситуации, в зависимости от правил УФ. Думаю, разберётесь.
 
 
 
#27
08.01.2013 11:09:50
Я понял что формулы поменялись  :)
 
 
 
#28
08.01.2013 11:13:58
2 Дмитрий Павлов
ок!!! :о))
Интересно, а предложенный вариант Вам подходит?
 
 
 
#29
08.01.2013 11:15:49
Да подходит.
 
 
 
#30
08.01.2013 11:20:19
Цитата
Сергей пишет:
Как переписать код существующего макроса, что бы галочки ставились в двух столбцах
Найдите строку:
Код
If Not Intersect(Target, Range("A2:A100")) Is Nothing
и напишите так:
Код
If Not Intersect(Target, Range("A2:A100,E2:E100")) Is Nothing

P.S. Я бы вообще убрал первую часть (Worksheet_SelectionChange) - двойным кликом ставим и двойным убираем.
 
 
 
Страницы: 1 2 След.
Наверх