слаживание чисел при использовании флажков

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » слаживание чисел при использовании флажков (Макросы/Sub)

IgorLuPro

Дата: Пятница, 04.12.2015, 20:50 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 62

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

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

К сообщению приложен файл: 5589681.xlsx (87.7 Kb)

С уважением IgorLuPro

Ответить

Wasilich

Дата: Пятница, 04.12.2015, 22:05 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

Репутация: 326 ±

Замечаний: 0% ±

2003

Цитата IgorLuPro, 04.12.2015 в 20:50, в сообщении № 1

при установке флажка в розовой области в желтоватой области складывалась сумма

Ниччё не понятно. Установил в Н1 флажок, и что должно произойти?

Ответить

devilkurs

Дата: Пятница, 04.12.2015, 22:12 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 167

Репутация: 43 ±

Замечаний: 0% ±

Excel 2007, 2010

IgorLuPro, решение через макрос

К сообщению приложен файл: IgorLuPro.xlsm (52.2 Kb)

Сообщение отредактировал devilkurs - Пятница, 04.12.2015, 22:22

Ответить

RAN

Дата: Пятница, 04.12.2015, 22:17 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

А что не понятно? Должна сладиться сумма.

Только зачем вопрос в макросы?
Для первых трех сделал. Остальные - только за отдельную плату. yes

К сообщению приложен файл: 5581.xlsx (88.5 Kb)

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Пятница, 04.12.2015, 22:37

Ответить

devilkurs

Дата: Пятница, 04.12.2015, 22:25 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 167

Репутация: 43 ±

Замечаний: 0% ±

Excel 2007, 2010

[offtop] RAN, опередил! ))) ток хотел выложить))

Цитата RAN, 04.12.2015 в 22:17, в сообщении № 4

сладиться сумма

Ответить

IgorLuPro

Дата: Пятница, 04.12.2015, 22:40 | Сообщение № 6

Группа: Пользователи

Ранг: Участник

Сообщений: 62

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

devilkurs, спасибо - больше и не нужно. Самое то! У дочки по информатике задание было - типа сложить картофель и цену. Макрос увидел - добавил ещё похожий. Спасибо! ОГРОМНОЕ!
Тема закрыта!

С уважением IgorLuPro

Ответить

Wasilich

Дата: Пятница, 04.12.2015, 23:22 | Сообщение № 7

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

Репутация: 326 ±

Замечаний: 0% ±

2003

Цитата IgorLuPro, 04.12.2015 в 22:40, в сообщении № 6

Тема закрыта!

А жаль. Я только понял что надо то.

А мой смысл решения задачи в другом. Это ж надо столько флажков вешать!

Я бы сделал так:

К сообщению приложен файл: IgorLuPro.xls (76.0 Kb)

Ответить

devilkurs

Дата: Суббота, 05.12.2015, 00:19 | Сообщение № 8

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 167

Репутация: 43 ±

Замечаний: 0% ±

Excel 2007, 2010

Wasilic,

Цитата Wasilic, 04.12.2015 в 23:22, в сообщении № 7

Я бы сделал так:

Я бы тогда на SelectionChange повесил бы добавление , а на Дабл клик BeforedoubleClick снятие. А то не удобно в твоем примере снимать "галочку", если ошибся или тупо надо убрать из суммирования.

[spoiler][vba]

Код

Private Sub Worksheet_BeforedoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Cells.Count > 1 Then Exit Sub
        If Not Intersect(Target, Range("h1:h118")) Is Nothing Then
            Target.Font.Name = "Marlett"
            If Target = vbNullString Then
            Else
                Target = vbNullString
            End If
           Cancel = True
        End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
        If Not Intersect(Target, Range("h1:h118")) Is Nothing Then
            Target.Font.Name = "Marlett"
            If Target = vbNullString Then
                Target = "a"
            End If

        End If
End Sub

[/vba]