Добрый день!
Ребята. Вот здесь /topic/312449&hl=%ea%e0%eb%fc%ea%f3%eb%ff%f2%ee%f0 надыбал на (вашем форуме) очень удобный калькулятор. Но для нормальной работы ук моеей проге, в него надо добавить несколько кнопок:
Первая – кнопка с двумя нулями. Просто необходима при наборе больших чисел.
Вторая – кнопка из запятой. У нас на Украине в бухучете числа заносятся через запятую.
Третье. Нужно перепрограмировать кнопку СЕ, чтобы она удаляла не все число, а только последний знак с конца.
И последнее Если это вам не в тягость большую, то сделайте мне пожалуйста так, чтобы в контекстное меню при запуске книги, добавлялась строка Калькулятор, для его вызов, а при закрытии книги – удалялась из меню. И чтобы этот калькулятор работал на всех листах даной книги.
Заранее спасибо!
Долго и упорно пытался сделать сам, но ничего у меня не вышло.

Hugo121,

Доброго вам дня!
Первая – кнопка с двумя нулями:
Установил ваш макрос, работает

Вторая – кнопка из запятой: это зависит от установок Экселя, что у него настроено, то и будет.
А разве и то и другое, нельзя установить? На всякий случай! Для этой цели я и создал доп. Кнопку справа.

Третье. Нужно перепрограмировать кнопку СЕ - я немного подкрутил кнопку С, там попроще, но с брачком:
Вот сам соорудил такой макрос :
Private Sub ButtonC_Click()
Me.ReadOut = Left(Me.ReadOut, Len(Me.ReadOut) - 1)
End Sub
Не знаю, правильно или нет, но работает неплохо

как и на хелп) в коде пусто. Я ее отключил, потому что изначально она не работала. Если моднро ее исправить, то будет неплохо. А в общем, то она не сильно и нужна.
А вот вызов куркулятора из меню, ну очень нужен!!!

anor,
И вам доброго дня!
Калькулятор... внутри Exсel
Не знаю как вам, но для меня он очень неудобен. Хотя бы потому, что я на нем плохо вижу цифры, а как изменить цвета не знаю. Как и не знаю как быстро его вызвать на лист Екселя.

А чем формула в ячейке и кнопка F9 не устраивает?
Просто не знаю что это такое.

Hugo121,
Вот сам соорудил такой макрос :
Private Sub ButtonC_Click()
Me.ReadOut = Left(Me.ReadOut, Len(Me.ReadOut) - 1)
End Sub
Не знаю, правильно или нет, но работает неплохо

Вот только сейчас обнаружил. При лишнем нажатии на кнопку (если уже все цифры удалены) ексель выдает ошибку. Наверняка чего то в макросе не хватает?

Hugo121,
If Len(Me.ReadOut)>2 Then Me.ReadOut = Left(Me.ReadOut, Len(Me.ReadOut) - 1)
Нет, не работает. Причем при удалении всегда оставляет 2 цифры. Попробовал поменять >2 на >0, а потом >1. Тоже не работает как надо, с ошибками.

вот про меню непонятно, проясните.
А что тут непонятного. Я хочу чтобы этот калькулятор можно было вызвать на лист Екселя,из стандартного выпадающего контекстного меню екселя. И, чтобы строка калькулятор в этом меню добавлялась при открытии книги екселя, а при ее закрытии - исчезала из меню.

anor,
Да я еще много чего не знаю. Но стремлюсь знать все и больше...

Hugo121,
If Len(Me.ReadOut) > 2 Then Me.ReadOut = Left(Me.ReadOut, Len(Me.ReadOut) - 2) & DecimalSeparator
Этот вариант работает с целыми числами. А вот с дробными? Добавляет какую то дополнительнуб точку, а потом ее удаляет.
Просто интересною Какое выражение (часть макроса) ее добавляет?
Опробовал вот так:
If Len(Me.ReadOut) > 1 Then Me.ReadOut = Left(Me.ReadOut, Len(Me.ReadOut) - 2) & DecimalSeparator
Из целыми числами, работает нормально. А вот с дробными – повторяет ту же ошибку. Да еще с нюансом. При повторнои=м наборе числа, его набор начинается с нуль целых.
Ну прямо издевательство Екселя над человеком!

Hugo121,
вам и всем форумчанам доброго дня!
Вот сочинил для кнопки С новый код:

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
В целом вроди бы работает. Но опять таки, с некоторыми недостатками.
НапримерЮ если этой кнопкой удалить все цифры до нуля, то в случае повторного набора нового числа (без нажатия на кнопку СЕ), набор начинается : либо с нуля (перед цифрами), либо просто набирается дробное число.
Посмотрите пожалуйста! Может придумаете как этого избежать. У меня не получается.

Gleod,

Ребята! А вот здесь еще остался нерешенным вопрос кода на кнопке СЕ. См. выше.