itsokay (Автор тем)

Макрос замена запятой на точку

Пользователь

Сообщений: 12 Регистрация: 05.01.2018

05.01.2018 23:26:49

Приветствую.
Есть вот такой элементарный макрос

Код
Selection.Replace What:=",", Replacement:=" " Selection.Replace What:=".", Replacement:=","

Его задача в выбранной ячейке сначала удалить запятые а потом точки заменить на запятые. Пример : в ячейке число 1,356000.67 (мильйон тристаписятшесть тысяч 67 коп) . После отработки макроса я ожидаю получить число 1356000,67. Или же 0.567 преобразовать в 0,567
В итоге макрос иногда работает правильно, а иногда просто удаляет все точки и запятые. Подскажите, пожалуйста, чего не хватает ?

спасибо

Перейти

Макрос Формат по образцу

itsokay

Пользователь

Сообщений: 12 Регистрация: 05.01.2018

05.01.2018 22:54:41

Господа, доброго времени суток.

Помогите, пожалуйста, вот в таком вопросе :
нужно сделать условно говоря хоткей на функцию формат по образцу, для этого пишу макрос и назначаю на него хоткей.
автозапись предложила копировать формат с помощью функции Selection.Copy и вставлять его функцией

Код
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False

Теперь вопрос по части как сделать так, что бы после нажатия хоткея отрабатывалось копирование, а потом после выбора нужной ячейки мышью скопированный формат применялся к выбранной ячейке ?

Спасибо за ответ.

Изменено: itsokay - 05.01.2018 23:09:35

Перейти