VPF::VB в Excel - Форум программистов

SerGreY

Дата 22.12.2004, 17:23 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 143
Регистрация: 18.1.2004

Репутация: нет
Всего: нет

Написать функцию:

Просуммировать значения ячейки с адресом исходной по всем листам (1..N) и записть в исходную ячейку.

Как обращаться к ячейкам на листе относительно положения заданной. (вроде как СУММ(!'1'R[2]C[2]))

ИЛИ Можно ли вызвать функцию СУММ из VB?

~FoX~

Дата 23.12.2004, 09:30 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 10
Всего: 68

Код


for i = 1 to n
  Cells(1, n+1) = Cells(1, n+1)+Cells(1, i).Value
next i

--------------------

…множественность никогда не следует полагать без необходимости…

Staruha

Дата 23.12.2004, 09:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 2
Всего: 27

А n ему равно надо указывать или Dim n As Integer достаточно?

--------------------

Возмездие настигнет

~FoX~

Дата 23.12.2004, 10:30 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 10
Всего: 68

Старуха
Не придерайся smile

Код


Private Function Summ(n As Integer) As Integer
dim i as integer
  for i = 1 to n
    Summ = Summ + Cells(1, i).Value
  next i
End Function

Так устроит? smile

--------------------

…множественность никогда не следует полагать без необходимости…

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »