Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Авто сума отмеченных текст боксов - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Авто сума отмеченных текст боксов (Формулы/Formulas)
Авто сума отмеченных текст боксов
kristalniy Дата: Пятница, 03.04.2015, 17:11 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Доброго времени суток ребят нужно на форме отмечать суммы и потом в отдельном текст боксе показывало авто суму отмеченых я сделал наброски файл приложил. За ранние спасибо
К сообщению приложен файл: 0491036.xls (33.5 Kb)
 
Ответить
СообщениеДоброго времени суток ребят нужно на форме отмечать суммы и потом в отдельном текст боксе показывало авто суму отмеченых я сделал наброски файл приложил. За ранние спасибо
Автор - kristalniy
Дата добавления - 03.04.2015 в 17:11
Manyasha Дата: Пятница, 03.04.2015, 19:06 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 902 ±
Замечаний: 0% ±

Excel 2010, 2016
kristalniy, можно так[vba]
Код
Private Sub CheckBox1_Click()
       If CheckBox1.Value = True Then
           Total.Value = CDbl(Total.Value) + CDbl(TextBox1.Value)
       Else
           Total.Value = CDbl(Total.Value) - CDbl(TextBox1.Value)
       End If
End Sub
[/vba]Остальные чекбоксы по аналогии. Для того, чтобы дробные числа складывал нормально нужно добавить[vba]
Код
Private Sub Total_Change()
       Total.Value = Replace(Total.Value, ".", ",")
End Sub
[/vba]
[p.s.]В файле текстбокс, в который сумму нужно выводить, переименовала в "Total"[/p.s.]
К сообщению приложен файл: 0491036_1.xls (37.5 Kb)

ЯД: 410013299366744 WM: R193491431804

Сообщение отредактировал Manyasha - Пятница, 03.04.2015, 19:08
 
Ответить
Сообщениеkristalniy, можно так[vba]
Код
Private Sub CheckBox1_Click()
       If CheckBox1.Value = True Then
           Total.Value = CDbl(Total.Value) + CDbl(TextBox1.Value)
       Else
           Total.Value = CDbl(Total.Value) - CDbl(TextBox1.Value)
       End If
End Sub
[/vba]Остальные чекбоксы по аналогии. Для того, чтобы дробные числа складывал нормально нужно добавить[vba]
Код
Private Sub Total_Change()
       Total.Value = Replace(Total.Value, ".", ",")
End Sub
[/vba]
[p.s.]В файле текстбокс, в который сумму нужно выводить, переименовала в "Total"[/p.s.]
Автор - Manyasha
Дата добавления - 03.04.2015 в 19:06
Pelena Дата: Пятница, 03.04.2015, 19:15 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 19518
Репутация: 4632 ±
Замечаний: ±

Excel 365 & Mac Excel
Ещё вариант для чекбоксов
[vba]
Код
Private Sub CheckBox1_Click()
     TextBox3.Value = -CheckBox1.Value * TextBox1.Value - CheckBox2.Value * TextBox2.Value - CheckBox3.Value * TextBox4.Value
End Sub
[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЕщё вариант для чекбоксов
[vba]
Код
Private Sub CheckBox1_Click()
     TextBox3.Value = -CheckBox1.Value * TextBox1.Value - CheckBox2.Value * TextBox2.Value - CheckBox3.Value * TextBox4.Value
End Sub
[/vba]
Автор - Pelena
Дата добавления - 03.04.2015 в 19:15
RAN Дата: Пятница, 03.04.2015, 19:37 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Не используйте [vba]
Код
TextBox1.Value
[/vba] Не рекомендую. Конфликтует с локалью. Недавно выползла коза. Неделю все работало, а после полезла ошибка. Угадайте, сколько я ее искал?
Используйте [vba]
Код
TextBox1.Text
[/vba] или [vba]
Код
TextBox1
[/vba]

Это я случайно TextBox1.Value написал. :)

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

Сообщение отредактировал RAN - Пятница, 03.04.2015, 19:38
 
Ответить
СообщениеНе используйте [vba]
Код
TextBox1.Value
[/vba] Не рекомендую. Конфликтует с локалью. Недавно выползла коза. Неделю все работало, а после полезла ошибка. Угадайте, сколько я ее искал?
Используйте [vba]
Код
TextBox1.Text
[/vba] или [vba]
Код
TextBox1
[/vba]

Это я случайно TextBox1.Value написал. :)
Автор - RAN
Дата добавления - 03.04.2015 в 19:37
Pelena Дата: Пятница, 03.04.2015, 19:51 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 19518
Репутация: 4632 ±
Замечаний: ±

Excel 365 & Mac Excel
Спасибо за подсказку.
Где-то уже встречала насчёт использования .Value, но так и не разобралась, где обязательно использовать, а где - нет

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеСпасибо за подсказку.
Где-то уже встречала насчёт использования .Value, но так и не разобралась, где обязательно использовать, а где - нет
Автор - Pelena
Дата добавления - 03.04.2015 в 19:51
kristalniy Дата: Пятница, 03.04.2015, 20:48 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
все работает спасибо а можно еще добавить что бы и текст бокс окрашивался?
 
Ответить
Сообщениевсе работает спасибо а можно еще добавить что бы и текст бокс окрашивался?
Автор - kristalniy
Дата добавления - 03.04.2015 в 20:48
kristalniy Дата: Пятница, 03.04.2015, 20:54 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
ууууу все да не все))) Ребят а как сделать так что бы при закрытии формы оставались поставленные галочки?
 
Ответить
Сообщениеууууу все да не все))) Ребят а как сделать так что бы при закрытии формы оставались поставленные галочки?
Автор - kristalniy
Дата добавления - 03.04.2015 в 20:54
RAN Дата: Пятница, 03.04.2015, 20:59 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
УУУУУ
Сохранить где-то нать. А потом считать.

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеУУУУУ
Сохранить где-то нать. А потом считать.
Автор - RAN
Дата добавления - 03.04.2015 в 20:59
kristalniy Дата: Пятница, 03.04.2015, 21:02 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
всмысле?
 
Ответить
Сообщениевсмысле?
Автор - kristalniy
Дата добавления - 03.04.2015 в 21:02
RAN Дата: Пятница, 03.04.2015, 21:07 | Сообщение № 10
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата kristalniy, 03.04.2015 в 21:02, в сообщении № 9
всмысле?

Странный вопрос.
Буквы не знакомые встретились? Или смысл написанного не доходит?

Для того, чтобы можно было при последующем открытии прочитать, что мы куда-либо записали "a", "b", или поставили крыж, информацию об этом нужно где-то сохранить.

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

Сообщение отредактировал RAN - Пятница, 03.04.2015, 21:11
 
Ответить
Сообщение
Цитата kristalniy, 03.04.2015 в 21:02, в сообщении № 9
всмысле?

Странный вопрос.
Буквы не знакомые встретились? Или смысл написанного не доходит?

Для того, чтобы можно было при последующем открытии прочитать, что мы куда-либо записали "a", "b", или поставили крыж, информацию об этом нужно где-то сохранить.
Автор - RAN
Дата добавления - 03.04.2015 в 21:07
kristalniy Дата: Пятница, 03.04.2015, 21:10 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
я думаю мне подойдет вариант Hide
 
Ответить
Сообщениея думаю мне подойдет вариант Hide
Автор - kristalniy
Дата добавления - 03.04.2015 в 21:10
RAN Дата: Пятница, 03.04.2015, 21:14 | Сообщение № 12
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
Hide
[/vba] тоже вариант, но только до закрытия файла (максимум).

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
Hide
[/vba] тоже вариант, но только до закрытия файла (максимум).
Автор - RAN
Дата добавления - 03.04.2015 в 21:14
kristalniy Дата: Пятница, 03.04.2015, 21:28 | Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
ну да, ну большего я не умею)00
 
Ответить
Сообщениену да, ну большего я не умею)00
Автор - kristalniy
Дата добавления - 03.04.2015 в 21:28
Manyasha Дата: Пятница, 03.04.2015, 22:09 | Сообщение № 14
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 902 ±
Замечаний: 0% ±

Excel 2010, 2016
kristalniy, в первом файле, результат сохраняется только до закрытия книги. Во втором - результат привязан к ячейкам листа.

UPD. Добавила второй файл и загнала все в архив, без архивации не проходят по размеру

[p.s.]В коде убрала все ".Value" как посоветовал Андрей (RAN)[/p.s.]
К сообщению приложен файл: primer.rar (29.1 Kb)

ЯД: 410013299366744 WM: R193491431804

Сообщение отредактировал Manyasha - Пятница, 03.04.2015, 22:22
 
Ответить
Сообщениеkristalniy, в первом файле, результат сохраняется только до закрытия книги. Во втором - результат привязан к ячейкам листа.

UPD. Добавила второй файл и загнала все в архив, без архивации не проходят по размеру

[p.s.]В коде убрала все ".Value" как посоветовал Андрей (RAN)[/p.s.]
Автор - Manyasha
Дата добавления - 03.04.2015 в 22:09
kristalniy Дата: Суббота, 04.04.2015, 00:01 | Сообщение № 15
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Спасибо все работает
 
Ответить
СообщениеСпасибо все работает
Автор - kristalniy
Дата добавления - 04.04.2015 в 00:01
kristalniy Дата: Суббота, 04.04.2015, 00:08 | Сообщение № 16
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
а как сделать так что бы если в текст боксе что то есть он автоматом окрашевался?
 
Ответить
Сообщениеа как сделать так что бы если в текст боксе что то есть он автоматом окрашевался?
Автор - kristalniy
Дата добавления - 04.04.2015 в 00:08
Manyasha Дата: Суббота, 04.04.2015, 00:54 | Сообщение № 17
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 902 ±
Замечаний: 0% ±

Excel 2010, 2016
kristalniy, [vba]
Код
TextBox1.BackColor = &HFFFF&
[/vba]

ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеkristalniy, [vba]
Код
TextBox1.BackColor = &HFFFF&
[/vba]
Автор - Manyasha
Дата добавления - 04.04.2015 в 00:54
kristalniy Дата: Суббота, 04.04.2015, 12:57 | Сообщение № 18
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
все работает спасибо
 
Ответить
Сообщениевсе работает спасибо
Автор - kristalniy
Дата добавления - 04.04.2015 в 12:57
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Авто сума отмеченных текст боксов (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!