продлить формулу / Microsoft Office

ReSQL.ru

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

Гость

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / продлить формулу

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

продлить формулу

#36777904

ffflake

Гость

нужно прописать формулу, в каждой не пустой строке
делаю следующим образом, но выдает ошибку, может кто подскажет почему

For i = 2 To 500
If Cells(i, 1).Value = Empty Then
Cells(i, 16).FormulaR1C1 = "=EDATE(RC[-13],1)" '
Next i
End Sub

...

Рейтинг:

0 / 0

05.08.2010, 17:41

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

продлить формулу

#36777929

Shamanus

Участник

Откуда: мы пришли, кто мы, куда идем?

Сообщения: 6 294

Рейтинг: 0 / 0

ffflake,

желательно конечно код ошибки написать

но для начала пишите или так

Код: plaintext

1.
2.

For i =  2  To  500 
If Cells(i,  1 ).Value = Empty Then Cells(i,  16 ).FormulaR1C1 = "=EDATE(RC[-13],1)" ' тогда не надо закрывать end if -ом
Next i

или так

Код: plaintext

1.
2.
3.
4.

For i =  2  To  500 
If Cells(i,  1 ).Value = Empty Then 
Cells(i,  16 ).FormulaR1C1 = "=EDATE(RC[-13],1)" '
End If
Next i

А то в Вашем варианте получается что next i попадает в незакрытый блок условия,а в этом блоке for i=1 ... не обнаружено

...

Рейтинг:

0 / 0

05.08.2010, 17:48

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

продлить формулу

#36777934

пробуй камнем

Гость

ffflake,
а так?

Код: plaintext

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

'Вместо ЛистДляФормул подставить название свего листа
WIth WorkSheets("ЛистДляФормул")
For i =  2  To  500 
If .Cells(i,  1 ) Is Empty Then
  .Cells(i,  16 ).FormulaR1C1 = "=EDATE(RC[-13],1)"
Next i
End With

ffflakeделаю следующим образом, но выдает ошибку, может кто подскажет почему
P.S.: иногда полезно сказать на какую строку и какими именно словами ругается

...

Рейтинг:

0 / 0

05.08.2010, 17:49

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

продлить формулу

#36777936

Shamanus

Участник

Откуда: мы пришли, кто мы, куда идем?

Сообщения: 6 294

Рейтинг: 0 / 0

З.ы. прочтите пожалуйста правила форума , а то уже больше 100 сообщений, а тегами не пользуетесь

...

Рейтинг:

0 / 0

05.08.2010, 17:51

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

продлить формулу

#36777939

пробуй камнем

Гость

исправленному верить

Код: plaintext

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

'Вместо ЛистДляФормул подставить название свего листа
WIth WorkSheets("ЛистДляФормул")
For i =  2  To  500 
If .Cells(i,  1 ) Is Empty Then _
  .Cells(i,  16 ).FormulaR1C1 = "=EDATE(RC[-13],1)"
Next i
End With

...

Рейтинг:

0 / 0

05.08.2010, 17:51

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

продлить формулу

#36777968

ffflake

Гость

Всем большое спасибо за помощь, то что хотела получилось

...

Рейтинг:

0 / 0

05.08.2010, 18:03

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

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

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / продлить формулу

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

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

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

start [/forum/search_topic.php?author=TQueue&author_mode=last_posts&do_search=1]:	0ms
get settings:	10ms
get forum list:	15ms
get settings:	9ms
get forum list:	19ms
check forum access:	4ms
check topic access:	4ms
track hit:	163ms
get topic data:	10ms
get forum data:	2ms
get page messages:	45ms
get tp. blocked users:	1ms
others:	483ms

total:	765ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы