Профессиональные приемы работы в Microsoft Excel

Пожалуйста, войдите или зарегистрируйтесь.


Расширенный поиск  

Новости:

Читайте новые сообщения форума форума в RRS-агрегаторах

Автор Тема: Как поправить макросы, которые очищают (удаляют) цифры на табло калькулятора  (Прочитано 1609 раз)

0 Пользователей и 1 Гость просматривают эту тему.

gleod

  • Пользователь
  • **
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 22

Доброго вам дня!
Имеетя такой вот код:
Private Sub ButtonC_Click()
HandleBackspace
End Sub

Private Sub HandleBackspace()
If ReadOut.Text = "" Then Exit Sub
If ReadOut.Text = "Деление на нуль запрещено" Then
ReadOut.Text = "0,"
Exit Sub
End If

If ReadOut.Text <> "0," Then
ReadOut.Text = Left$(ReadOut.Text, Len(ReadOut.Text) - 1)
End If
If ReadOut.Text = "" Then ReadOut.Text = "0,"
End Sub

В целом он вроди бы работает. Но с существенными недостатками.
Например, кнопкой С удалить все цифры аж до нуля, то в случае повторного набора нового числа (без нажатия на кнопку СЕ), набор начинается : либо с нуля (перед цифрами), либо просто набирается дробное число. Можете посмотреть это на живом примере!
А хотелось бы, чтобы после всех удалений в табло высвечивался ноль (желательно без запятой). И чтобы при повторном наборе нового числа не было названых выше ошибок. Причем, очень существенно. Без нажатия на кнопку СЕ.
Неплохо было бы переделать макрос на кнопке СЕ. Чтобы после удаления на табло также высвечивался «0» без запятой. И чтобы при попытке деления на ноль, прога в отдельном окне выдавала след. Сообщение : «Делени е на ноль не допустимо».
Сейчас же, в таком случае, Ексель пишет на табло что то мне не понятное.  Которое нельзя удалить без выхода из проги.
Посмотрите пожалуйста! Может придумаете че лучше. У меня не получается.
Помогите, пожалуйста!
С уважением, автор!
Записан
 



Темы без ответов

09.08.2019 14:09 Макрос для заполнения таблиц через форму 4542
18.07.2019 16:02 Рассылка почты из Excel при помощи почтовой программы TheBAT! 4075
28.05.2019 21:09 Сделать несколько скриптов для рабочей таблицы 5567
05.03.2019 09:29 Нежелательные изменение размеров колонтитула при редактировании 4485
07.02.2019 01:36 Как удалить дубликаты из выпадающего связанного списка? 5581
03.03.2018 00:00 Подсчет отработанного времени, за исключением заранее определенных перерывов 2782
23.01.2018 13:46 Найти вероятность повторной покупки 2558
12.01.2018 23:56 Сделать отчет на Power BI (Dashboard) 3547
06.09.2017 10:43 Solver VBA не решает гиперболическое уравнение, но при этом решает гармоническое 2432
17.08.2017 12:15 Гиперссылка и фильтр одновременно макрос 2876





Яндекс цитирования msexcel.ru Яндекс.Метрика

Страница сгенерирована за 0.117 секунд. Запросов: 97.