SendKeys(Up) + Value - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

SendKeys(Up) + Value (Макросы Sub)

SendKeys(Up) + Value

KUDRIN

Дата: Суббота, 29.06.2013, 14:11 | Сообщение № 1

Группа: Проверенные

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

здравствуйте
подскажите, почему не срабатывает макрос?

нужно заполнить три ячейки 111
[vba]

Код

Sub Макрос1()
For i = 1 To 3
ActiveCell.Value = "111"
Application.SendKeys ("{UP}")
Next
End Sub

[/vba]

К сообщению приложен файл: 0172103.xlsm (16.4 Kb)

Сообщение отредактировал KUDRIN - Суббота, 29.06.2013, 14:14

Ответить

ShAM

Дата: Суббота, 29.06.2013, 15:24 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1347

Репутация: 249 ±

Замечаний: 0% ±

Excel 2010

Так, вроде, работает:
[vba]

Код

Sub Макрос1()
For i = 0 To 2
Cells(ActiveCell.Row - i, ActiveCell.Column) = 111
Next
End Sub

[/vba]

Ответить

KUDRIN

Дата: Суббота, 29.06.2013, 15:31 | Сообщение № 3

Группа: Проверенные

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

так цель же через sendkeys, а не заполнить любым способом

Ответить

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

Дата: Суббота, 29.06.2013, 15:33 | Сообщение № 4

Группа: Гости

Цитата (KUDRIN)

цель же через sendkeys

А зачем?

Ответить

KUDRIN

Дата: Суббота, 29.06.2013, 15:39 | Сообщение № 5

Группа: Проверенные

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

ну отфильтровал список. и надо откорректировать отфильтрованные значения.
что удобно сделать через "стрелка вверх, Ctrl + V". и так 1000 строк
решил не писать на VBA поиск по условию + замену макросом, а просто размножить "стрелка вверх, Ctrl + V"
а что, судя по вопросам, через Sendkeys это действие невыполнимо?

Сообщение отредактировал KUDRIN - Суббота, 29.06.2013, 15:40

Ответить

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

Дата: Суббота, 29.06.2013, 15:41 | Сообщение № 6

Группа: Гости

Тогда вообще макросы не нужны smile

Это легко делается средствами Excel

Ответить

AndreTM

Дата: Суббота, 29.06.2013, 15:42 | Сообщение № 7

Группа: Друзья

Ранг: Старожил

Сообщений: 1762

Репутация: 501 ±

Замечаний: 0% ±

2003 & 2010

И уж тем более работает вот так:
[vba]

Код

Sub test()
ActiveCell.Offset(-2, 0).Resize(3, 1).Value = 111
End Sub

[/vba] Извини, пропустил про фильтр... wink

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Сообщение отредактировал AndreTM - Суббота, 29.06.2013, 15:43

Ответить

ShAM

Дата: Суббота, 29.06.2013, 15:45 | Сообщение № 8

Группа: Друзья

Ранг: Старожил

Сообщений: 1347

Репутация: 249 ±

Замечаний: 0% ±

Excel 2010

Цитата (AndreTM)

И уж тем более работает вот так:

Да, про Offset забыл, пришлось циклом извращаться.
biggrin

Ответить

KUDRIN

Дата: Суббота, 29.06.2013, 15:57 | Сообщение № 9

Группа: Проверенные

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

не пойму а почему даже
[vba]

Код

Sub test3()
[a10:d30] = 333
End Sub

[/vba]
работает...
получается, VBA в отличие от Ctrl+C Ctrl+V по умолчанию не работает со скрытыми фильтром ячейками?
ведь если скопировать-вставить вручную - то повредятся значения вне фильтра. а макросом и в хвост и в гриву их можно, значения не попавшие в фильтр игнорируются

Сообщение отредактировал KUDRIN - Суббота, 29.06.2013, 15:59

Ответить

ShAM

Дата: Суббота, 29.06.2013, 16:03 | Сообщение № 10

Группа: Друзья

Ранг: Старожил

Сообщений: 1347

Репутация: 249 ±

Замечаний: 0% ±

Excel 2010

Цитата (KUDRIN)

не пойму а почему даже
[vba]

Код

Sub test3()
[a10:d30] = 333
End Sub

[/vba]
работает...

Т.к. изначально Вы привязывались к Activecell, а про фильтр ни слова не было.

Ответить

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

Дата: Суббота, 29.06.2013, 16:05 | Сообщение № 11

Группа: Гости

Цитата (KUDRIN)

VBA в отличие от Ctrl+C Ctrl+V по умолчанию не работает со скрытыми фильтром ячейками?

А Excel c ними тоже дефолтно не работает smile

Ответить

KUDRIN

Дата: Суббота, 29.06.2013, 16:24 | Сообщение № 12

Группа: Проверенные

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Цитата

А Excel c ними тоже дефолтно не работает

ну как же.
я имею ввиду, что вставить значения через Ctrl+C Ctrl+V в фильтр это не одно и тоже, что присвоить этому же диаппазону значения через макрос

открыть файл нажать кнопку1, посмотреть результат, закрыть файл
открыть файл нажать кнопку2, посмотреть результат, закрыть файл

то есть я предполагал, что результат кнопки2 будет таким же как по кнопке1
поэтому и решил делать через sendkeys или на крайний случай через написание мини фильтра с изменением значений. а оказалось - просто макросом по всему диаппазону можно вставить значения и всё.