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

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


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

Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

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

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



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

24.01.2020 14:03 На диаграмме Ганта несоответствие оси Y 1131
09.08.2019 14:09 Макрос для заполнения таблиц через форму 2879
18.07.2019 16:02 Рассылка почты из Excel при помощи почтовой программы TheBAT! 2496
09.07.2019 20:39 Кредит с уменьшением периода выплат 2593
28.05.2019 21:09 Сделать несколько скриптов для рабочей таблицы 3305
05.03.2019 17:00 Последовательный вывод таблиц Excel в один документ Word без шаблона 3198
05.03.2019 09:29 Нежелательные изменение размеров колонтитула при редактировании 2958
07.02.2019 01:36 Как удалить дубликаты из выпадающего связанного списка? 3121
20.01.2019 12:38 Все варианты частичного суммирования 3279
13.01.2019 12:24 Заполнение диапазона числами - в виде кластеров 2627





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

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