Обращение функции к другому листу Экселя / Microsoft Office

ReSQL.ru

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

Гость

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Обращение функции к другому листу Экселя

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

Обращение функции к другому листу Экселя

#37291081

Stepler

Участник

Откуда: Северная столица!? (Питер)

Сообщения: 1 385

Рейтинг: 0 / 0

Написал функцию, но она не принимает (игнорирует) активацию нужного листа.
Если делаю прямую ссылку на лист (типа "s = Нормы!Cells(i, 3)...."), то просто функция выкидывается.
Подскажите, плз, что делаю не так?

Код: plaintext

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

Public Function СуммПроизведения() 
col = ActiveCell.Column
For i =  3  To  75 
       Sheets("Нормы").Activate
            s = Cells(i,  3 ) * Cells(i, col)
            s1 = s1 + s
             Next i
        Sheets("Цена").Select
    ActiveCell.FormulaR1C1 = s1
End Function

Спасибо

Stepler ^{(щёлк-щёлк!!)}

Код: plaintext

 P.S.Чтобы наступила смерть - необходима жизненная сила !!!

...

Рейтинг:

0 / 0

02.06.2011, 12:37

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

Обращение функции к другому листу Экселя

#37292138

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

SteplerЕсли делаю прямую ссылку на лист (типа "s = Нормы!Cells(i, 3)...."), то просто функция выкидывается.
Подскажите, плз, что делаю не так?
Нет такого объекта как Нормы. Можете поставить брейк и посмотреть Locals Window в момент исполнения.

...

Рейтинг:

0 / 0

02.06.2011, 18:27

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

Обращение функции к другому листу Экселя

#37292801

Stepler

Участник

Откуда: Северная столица!? (Питер)

Сообщения: 1 385

Рейтинг: 0 / 0

Akina,

не совсем понял, Почему в макросе тот же код проходит, а в функции игнорируется??? Ведь функция "сумм()" работает с другими листами и книгами....
Может кто подскажет, где можно посмотреть коды стандартных функций....

...

Рейтинг:

0 / 0

03.06.2011, 09:41

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

Обращение функции к другому листу Экселя

#37293098

The_Prist

Участник

Откуда: www.excel-vba.ru

Сообщения: 2 025

Рейтинг: 0 / 0

Stepler,

Неверный синтаксис: s = Нормы!Cells(i, 3)....
Если хотите обратиться к диапазону на другом листе делайте либо так:

Код: plaintext

s = Worksheets("Нормы").Cells(i,  3 )

либо так:

Код: plaintext

s = Range("Нормы!C" & i)

А если пытаетесь вызвать функцию пользователя с листа, то нельзя пытаться изменить другие объекты(лист, диапазон) - функции листа этого делать не могут. Вам в Вашей функции необходимо убрать активацию листов и изменение активной ячейки:

Код: plaintext

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

Function СуммПроизведения()
    Dim i As Long, col As Long    'не забываем объявлять переменные
    col = Application.Caller.Column    'это более точное определение столбца ячейки с функцией
    With Sheets("Нормы")
        For i =  3  To  75 
            s = .Cells(i,  3 ) * .Cells(i, col)
            s1 = s1 + s
        Next i
    End With
    'ActiveCell.FormulaR1C1 = s1'НЕЛЬЗЯ ТАК ДЕЛАТЬ!!!ЭТО ФУНКЦИЯ
    СуммПроизведения = s1
End Function

Еще почитайте эту статью . Может поймете более точно как создавать функции.

...

Рейтинг:

0 / 0

03.06.2011, 11:42

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

Обращение функции к другому листу Экселя

#37293881

Stepler

Участник

Откуда: Северная столица!? (Питер)

Сообщения: 1 385

Рейтинг: 0 / 0

The_Prist,

Да, я согласен с Вами и благодарен за замечания... ( правда "col = Application.Caller.Column " не проходит) а вообще работает!
Проблем в другом - копирую из этой книги листР, в котором есть ссылка на ячейку с вышеуказанной функцией (листА). При работе макроса копирования листаР при вставке этого листаР в другую книгу идет запрос функции, а функция почему-то не срабатывает, пока её не активируешь входом в ячейку. В результате на итоговом скопированном листе значение функции "#знач!".
Что делать!?

...

Рейтинг:

0 / 0

03.06.2011, 16:42

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

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

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Обращение функции к другому листу Экселя

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

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

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

start [/forum/topic.php?fid=61&tid=2176812]:	0ms
get settings:	9ms
get forum list:	20ms
check forum access:	4ms
check topic access:	4ms
track hit:	183ms
get topic data:	10ms
get forum data:	2ms
get page messages:	38ms
get tp. blocked users:	1ms
others:	240ms

total:	511ms

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