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

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


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

Новости:

Подпишитесь на рассылку новых сообщений форума через службу рассылок: Subscribe.ru

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

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» без запятой. И чтобы при попытке деления на ноль, прога в отдельном окне выдавала след. Сообщение : «Делени е на ноль не допустимо».
Сейчас же, в таком случае, Ексель пишет на табло что то мне не понятное.  Которое нельзя удалить без выхода из проги.
Посмотрите пожалуйста! Может придумаете че лучше. У меня не получается.
Помогите, пожалуйста!
С уважением, автор!
Записан
 



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

27.05.2022 14:38 конструкция из Shape на VBA на листе Excel 463
09.08.2019 14:09 Макрос для заполнения таблиц через форму 5295
18.07.2019 16:02 Рассылка почты из Excel при помощи почтовой программы TheBAT! 4652
07.02.2019 01:36 Как удалить дубликаты из выпадающего связанного списка? 6258
03.03.2018 00:00 Подсчет отработанного времени, за исключением заранее определенных перерывов 3345
23.05.2017 11:20 Копирование данных из одной таблицы в умную таблицу по условию 5171
15.03.2017 15:45 автозамена картинок PowerPoint 4073
11.03.2017 13:43 Изменить нумерацию страниц 4013
07.02.2017 18:43 Блокировка ячеек по наступлению даты 3135
28.08.2016 19:29 Одинаковые заголовки после обновления оглавления 3632





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

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