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

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

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


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