powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как в екселе програмно нажать клавишу (Ентер)
5 сообщений из 5, страница 1 из 1
Как в екселе програмно нажать клавишу (Ентер)
    #32671235
sv80
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как имитировать нажитие клавиши? Например Ентера? И как можно считать координаты выделенного диапазона?
Ну задачка примерно стоит так - выделили диапазон нажали на макрос, а он пробежал по всем ячейкам и понажимал Ентер - тогда и чилса становятся числами и даты - датами. Бывают глюки при экспорте с других программ.
...
Рейтинг: 0 / 0
Как в екселе програмно нажать клавишу (Ентер)
    #32671298
Фотография Ден
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SendKeys ("{Enter}")
...
Рейтинг: 0 / 0
Как в екселе програмно нажать клавишу (Ентер)
    #32671309
Фотография PA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вообще-то SendKeys тут нафиг не нужен:
Код: plaintext
1.
2.
3.
4.
5.
    Dim c As Range
    
    For Each c In Selection
        c.Value = c.Value
    Next
...
Рейтинг: 0 / 0
Как в екселе програмно нажать клавишу (Ентер)
    #32671330
sv80
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо. Сейчас буду пробывать оба варианта.
...
Рейтинг: 0 / 0
Как в екселе програмно нажать клавишу (Ентер)
    #32671378
sv80
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Dim c As Range

For Each c In Selection
SendKeys ("{F2}")
SendKeys ("{Enter}")
Next

Оптимальный вариант помоему - работает как с датами так и с числами.:)
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как в екселе програмно нажать клавишу (Ентер)
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]