FormulaAray ошибка, знач, 255, Excel, SendKeys / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / FormulaAray ошибка, знач, 255, Excel, SendKeys

2 сообщений из 2, страница 1 из 1

FormulaAray ошибка, знач, 255, Excel, SendKeys

#39314922

cerf

Гость

Есть код:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

Sub Макрос1

For i = 14 To 20
    Cells(700, i).FormulaR1C1 = "=SUM(IF(R[-661]C[-7]:R[-2]C[-7]=2,IF(LEN(CONCATENATE(IF(ISNUMBER(R[-661]C:R[-2]C),R[-661]C:R[-2]C,""""), IF(ISNUMBER(R[-661]C[33]:R[-2]C[33]),R[-661]C[33]:R[-2]C[33],"""")))>0,1,0),0))"
    Cells(700, i).Activate
    SendKeys "{F2}", True
    SendKeys "^+{ENTER}", True
    SendKeys "{ENTER}"
    MsgBox 1
Next

End Sub

Не пытайтесь понять сакральный смысл формулы!!!

То что нужно понимать, что это формула массива.

Если Вы скопируете этот код, и запустите макрос, и у Вас вместо #ЗНАЧ! будет 0, то это означает, что у Вас особенные настройки Win и SendKeys отрабатывает правильно "наверно ;)"

У меня два компа, на обоих стоит Win 7*64 (разные сборки), на одном макрос работает а на другом нет.

Внимание вопрос: Почему???

Чувствую что нужно, где то, что то поменять в Windows

Заранее спасибо!

P.S.

Решить проблему нужно именно через SendKeys

Админ плз, посоветуй еще ветку куда можно репоснуть этот вопрос.

...

Рейтинг:

0 / 0

24.09.2016, 18:25

| Ответить | Цитировать | Написать

FormulaAray ошибка, знач, 255, Excel, SendKeys

#39314985

cerf

Гость

Решено!!!

Код: vbnet

1.
2.
3.
4.
5.
6.
7.

Sub Макрос1

For i = 14 To 20
    Cells(700, i).FormulaR1C1 = "=SUM(IF(R[-661]C[-7]:R[-2]C[-7]=2,IF(LEN(CONCATENATE(IF(ISNUMBER(R[-661]C:R[-2]C),R[-661]C:R[-2]C,""""), IF(ISNUMBER(R[-661]C[33]:R[-2]C[33]),R[-661]C[33]:R[-2]C[33],"""")))>0,1,0),0))"
    Cells(700, i).Activate
    SendKeys "{F2}", True
    SendKeys "^+{ENTER}", True

Код: vbnet

DoEvents

Код: vbnet

1.
2.
3.
4.
5.

    SendKeys "{ENTER}"
    MsgBox 1
Next

End Sub

...

Рейтинг:

0 / 0

24.09.2016, 20:57

| Ответить | Цитировать | Написать

2 сообщений из 2, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / FormulaAray ошибка, знач, 255, Excel, SendKeys

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&fpage=32&tid=2172945]:	0ms
get settings:	12ms
get forum list:	12ms
check forum access:	4ms
check topic access:	4ms
track hit:	34ms
get topic data:	12ms
get forum data:	2ms
get page messages:	36ms
get tp. blocked users:	2ms
others:	291ms

total:	409ms