0 / 0 / 0
Регистрация: 26.06.2012
Сообщений: 10
1

Кнопка с изменяющимся текстом и макросом суммы

03.07.2012, 10:48. Показов 2269. Ответов 7
Метки нет (Все метки)

Приветствую. Возник вопрос, вызвавший некоторые трудности. Он заключается в том, что на основе MS Excel 2010 необходимо написать макрос, привязанный к кнопке. Данный макрос должен выводить на кнопку при первом нажатии надпись "Да" и производить сложение процентной ставки, выводя результат в поля итогов. при втором нажатии должна появляться запись "Нет" и, соответственно, никаких действий с суммой происходить не должно.+ кнопка сбраса значений в столбце. Есть пример результата, оставленный разработчиком на пенсии, но VBA в нем запоролен ("Лист оценки писем_2012").
Так же предоставлю файл, требующи написания макроса ("бланк оценки писем 2").
в Столбце "1" подмножества "Письма" указано значение ячейки, применимое ко всем ячейкам строки.
Миниатюры
Кнопка с изменяющимся текстом и макросом суммы  
Вложения
Тип файла: xlsx бланк оценки писем 2.xlsx (16.1 Кб, 13 просмотров)
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.07.2012, 10:48
Ответы с готовыми решениями:

Сверка ячеек с "одинаковым" текстом макросом
Можно ли в Екселе сверить текст типа: "Яблочный сок с мякотью" и "Сок яблочный с мякотью" и найти...

Накопление суммы значения и сброс в 0 в нужный момент макросом
Здравствуйте! Подскажите, пожалуйста, как реализовать следующий алгоритм: 1. В ячейку А1...

Нужна кнопка в виде шарика с текстом, и анимированный шарик с текстом.
где найти готовый? дополню: шарик с текстом у меня есть, но это просто плоский текст на сферическом...

Протабулировать функцию f (x,у) при х, изменяющимся от а до b с шагом hx и у, изменяющимся от с до d с шагом hy.
Протабулировать функцию f (x,у) при х, изменяющимся от а до b с шагом hx и у, изменяющимся от с до...

7
15038 / 6362 / 1726
Регистрация: 24.09.2011
Сообщений: 9,971
03.07.2012, 11:26 2
Цитата Сообщение от Asper04 Посмотреть сообщение
Есть пример результата, оставленный разработчиком на пенсии, но VBA в нем запоролен
И что, он запросил слишком много денег, чтобы решить эту задачу?
0
0 / 0 / 0
Регистрация: 26.06.2012
Сообщений: 10
03.07.2012, 12:16  [ТС] 3
Нет. Он просто потерял доступ к базе паролей.
0
Модератор
Эксперт функциональных языков программированияЭксперт Python
30058 / 16520 / 3352
Регистрация: 12.02.2012
Сообщений: 27,513
Записей в блоге: 5
03.07.2012, 12:17 4
Тут на форуме утверждалось, что вскрыть книгу - несложно...
0
0 / 0 / 0
Регистрация: 26.06.2012
Сообщений: 10
03.07.2012, 12:29  [ТС] 5
Проще переделать одну кнопнку, а по её примеру я доделаю остальное. Как я понимаю, это должен быть объект TonggleButton с макросом на два его состояния(нажат и отжат). Вот как именно написть код я вообще не могу понять.
0
Модератор
Эксперт функциональных языков программированияЭксперт Python
30058 / 16520 / 3352
Регистрация: 12.02.2012
Сообщений: 27,513
Записей в блоге: 5
03.07.2012, 12:48 6
Посмотри, может поможет...
Вложения
Тип файла: zip Задачи-VBA-22.zip (7.7 Кб, 19 просмотров)
0
2774 / 708 / 104
Регистрация: 04.02.2011
Сообщений: 1,433
03.07.2012, 13:32 7
Помещаем кнопку на ячейку, код кнопки:
Visual Basic
1
2
3
4
Private Sub ToggleButton1_Change()
    Cells(9, 3).Value = Abs(ToggleButton1.Value)
    If ToggleButton1.Value Then ToggleButton1.Caption = "Да" Else ToggleButton1.Caption = "Нет"
End Sub
Значение состояния кнопки 1 или 0 помещается в ячейку под кнопкой. Итоги считаются формулой =СУММПРОИЗВ() Остается только написать программную вставку некоторого количества таких кнопок (ActiveX) на лист и кода к ним в модуль листа, чтобы не размещать каждую кнопку вручную.
0
0 / 0 / 0
Регистрация: 26.06.2012
Сообщений: 10
03.07.2012, 15:57  [ТС] 8
Спасибо, товарищи.
Предлагаю еще на обсуждение свой вариант кода обработки события нажатия переключатля.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
  Range("B9").Select
  ActiveCell.FormulaR1C1 = 0.1
  ToggleButton1.Caption = "Да"
Else
  Range("B9").Select
  ActiveCell.FormulaR1C1 = 0
  ToggleButton1.Caption = "Нет"
End If
End Sub
 
'Обраотка события нажатия кнопки для очищения столбца
Private Sub CommandButton1_Click()
ToggleButton1.Value = False
ToggleButton1.Caption = ""
ToggleButton11.Value = False
ToggleButton11.Caption = ""
ToggleButton21.Value = False
ToggleButton21.Caption = ""
ToggleButton31.Value = False
ToggleButton31.Caption = ""
ToggleButton41.Value = False
ToggleButton41.Caption = ""
ToggleButton52.Value = False
ToggleButton52.Caption = ""
ToggleButton63.Value = False
ToggleButton63.Caption = ""
End Sub
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.07.2012, 15:57

Кнопка с текстом
хочу сделать такую кнопку, типо таблицы. потом попытаюсь сделать меню. до начала просто текст...

Кнопка с меняющимся на ней текстом
В visual studio создать диалоговое окно, используя библиотеку MFC. В диалоговом окне должна быть...

Вертикальная кнопка с вертикальным текстом
Добрый день ув. пользователи! Подскажите пожалуйста, как к левой стороне сделать и прижать...

Стиль тоггл кнопка с текстом и картинкой
День добрый. Имеется в наличии следующий стиль: <Style x:Key="Style_MainButtons"...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.