Функция ОКРУГЛ(Ячейка;2) автоматически по кнопке?

[sonata]

Часто пользуюсь в бухгалтерии для точных расчетов(до копеек)функцией ОКРУГЛ(Ячейка;2)

Я каждый раз для каждой ячейки прописываю ее вручную можно ли как-то автоматизировать?Этот процесс ежедневный и хочется чуточку облегчить себе рутинную жизнь,чтобы автоматически по кнопке?

[corgi]

сделай кнопку на панель инструментов и назначь ей макрос
а в нем напиши что-то вроде:
ActiveCell.Formula = "=ROUND(" & Replace(CStr(ActiveCell.Value), ",", ".") & ",2)"

[sonata]

СУПЕР!!!Только хотелось бы, чтобы сама формула сохранялась!Т.е.
если в ячейке введено =4/5, то результат был бы
=ОКРУГЛ(4/5;2)
а не
=ОКРУГЛ(0.8;2)

[sonata]

ActiveCell.Formula = "=ROUND(" & Replace(CStr(ActiveCell.Formula), ",", ".") & ",2)" возникает ошибка..там подставляется знак=

[corgi]

ActiveCell.Formula там же пусто! или жуть стоить кака-нить
вот так попробуй
ActiveCell.Formula = "=ROUND(" & Replace(CStr(ActiveCell.text), ",", ".") & ",2)"

[sonata]

Ну я не знаю...Как раз в твоем варианте возникает пустота, а в моем расчет не м.б. произведен так как, когда я делаю
ActiveCell.Formula, то значение получается "=4/5", а не "4/5", и вот оно(знак равенства "=") мешает жить Нужно его как-нибудь убрать...

[skiperski]

А ещё один Replace() вставить не догадалась?

Всегда с интересом слежу за развитием событий в топиках сонаты (хотя, пожалуй, более подходящий ник - реквием). Радуюсь, что уже давно не работаю с клиентами, в штате нормальные программисты и шеф тоже программист.

[sonata]

skiperski,
А никто и не тянет на высокое звание ПРОГРАММИСТА;о)
Я -обычная любопытная девушка, к тому же бухгалтер, и, к сожалению, у меня времени читать инфу, нужно делать рутинную работу. А вообще я бы с удовольствием этим занялась(программингом), но начальство косо смотрит, если чуть вылезу из 1С в другую прогу...Так что, уж не злитесь пожалуйста....
Наоборот, благодаря форуму и Вам моя работа приобретает творчествое начало.Чему я очень рада, а Вам-благодарна.
К тому же, нет ничего плохого, если своими вопросами, я - поднимаю Вам настроение?
Или нет?

[skiperski]

А я и не злюсь.

Я раздражаюсь!

Сначала было любопытно и удивительно, а позже, когда одно и то же перемалывалось уже дцатый раз, стало раздражать.

Но теперь всё становится на свои места. Бухгалгерам советы отпускаются по остаточной стоимости и без НДС. Но всё же основы знать было бы неплохо. Как, например, работа бухгалтера невозможна без знания, хотя бы определений, если не смысла, основных понятий: сальдо, дебет, кредит, основные фонды, оборот, остаточная стоимость, баланс и чем отличается доход от прибыли.

Кстати, в форуме все, разумеется кроме модераторов, равны и можно не ВЫкать.

[GSerg]

skiperski, не раздражайся!
Я вот уже давно считаю, что VBA без Сонаты совсем не тот! Человек тянется к прекрасному, это ж здорово!

[skiperski]

Согласен, Сонату надо беречь! Я, например, с VBA совсем не работаю, но если вдруг потребуется, то я просто здесь найду все топики от sonata и буду всё знать.

[sonata]

ActiveCell.Formula = "=ROUND(" & Replace(Replace(CStr(ActiveCell.Formula), "=", ""), ",", ".") & ",2)"

Это для окончательного закрытия темы, для Skiperski
А вообще, спасибо за теплые слова,за понимание,терпение.
Куда ж я без вас?(Вы- это все, кто мне помогает постигать увлекательный мир VBA).
Приятно находится в мужском обществе,хотя чувствую, что у меня появилаь конкуренция в виде Pantera
Готовлю следующий вопрос

[Штурман]

skiperski,а для чего вообще форумы,как не для вопросов,не все ж крутые программеры,человек учиться,можно и помочь ему,а раздроажает ,так можно и не заглядывать к нему на топик

[noemotion]

Штурман, я с тобой солидарен.

[RayShade]

Хватит оффтопика. Здесь не демонстрация чтобы солидарность проявлять

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



Да, и Штурман, я не думаю что постить под двумя аватрами на один и тотже форум это хорошая идея

[skiperski]

Чтобы здесь не оффтопить открыл новый топик со своим ответом-мнением http://bbs.vbstreets.ru/viewtopic.php?p=13679#13679