Создание макроса

[Ленусик777]

Как создать макрос, который заменяет формат ячеек текущего столбца
листа MS Excel на денежный, если в ячейке содержатся не тексто-
вые данные, а числовые.

[Sasha_Smirnov]

Да в общем-то просто:

1. Выделить текущий столбец.
1. Записать макрос*: Фомат→Ячейки...→Денежный→OK.
3. Остановить запись.

В результате ваши действия запишутся в виде макроса

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 4/26/2009 (Customer)
'

'
    Selection.NumberFormat = "$#,##0.00"
End Sub

посмотреть (а также и выполнить) который можно по альт-F8.

При этом нечисловые данные ими и останутся, а числовые — станут валютой (той страны, язык которой выбран).
_______________________________
* в главном (верхнем) меню окна Excel: Сервис → Макрос → Начать запись

[vimpel76]

Всем добрый день!
Пытаюсь создать кнопку на стандартной встроенной панели управления, которая при нажатии выполняла те же функции что и клавиша «Esc», вроде и нашёл код, ниже:

Sub НажатиеESC()
Application.SendKeys "{ESC}"
End Sub

Но проблема в следующем:
1 работает только при созданном новом файле, а в созданных раньше файлах не работает
2 если дважды кликнул по ячейки содержащую формулу, то начинает мигать курсор, это
мигание не отменяет.
Отменяет только тока тогда, когда нажал на кнопку копирования, но не нажимал кнопку вставить, т.е. отменяет движущий курсор вокруг ячейки.
Хотелось, чтобы кнопка «Esc» была бы полнофункциональная.
Прощу помощи.

Заранее благодарю,
Спасибо.

[EducatedFool]

если дважды кликнул по ячейки содержащую формулу, то начинает мигать курсор, это мигание не отменяет.

И не отменит - пока ячейка находится в режиме редактирования, макросы не работают.

PS: Я почему и спросил - зачем вам нужен этот макрос. Не вижу в нём смысла - поскольку такая кнопка мало что сможет отменить.

Хотелось, чтобы кнопка «Esc» была бы полнофункциональная

Не получится так сделать.
Кнопка Esc работает всегда, а кнопка на панели инструментов excel - только тогда, когда Excel разрешит. А это бывает отнюдь не всегда.

работает только при созданном новом файле, а в созданных раньше файлах не работает

Где расположен код макроса?
Если в надстройке, или личной книге макросов - всё должно работать.

[vimpel76]

Над этой проблемой пороботал, вроде решил, ошибка была в том что Макрос сохранялся в "эта книга",а с полнофунциональностью не решил.

А можно програмно создать кнопку "Esc" полнофункционально, как например "PLEX".
Спасибо.