Текущее время: Вт, авг 26 2025, 14:33

Часовой пояс: UTC + 3 часа




Начать новую тему Эта тема закрыта, вы не можете редактировать и оставлять сообщения в ней.  [ Сообщений: 3 ] 
Автор Сообщение
 Заголовок сообщения: VBA
СообщениеДобавлено: Ср, окт 19 2005, 14:18 
Старший специалист
Старший специалист
Аватара пользователя

Зарегистрирован:
Ср, сен 14 2005, 22:40
Сообщения: 296
Есть в рабочей книге для запроса макрос
Code:
Sub SapBEXonRefresh(queryID As String, resultArea As Range)

Для удобства ввел следующие переменные
Code:
RC = resultArea.Rows.Count    ' кол-во строк области результатов
CC = resultArea.Columns.Count  'кол-во столбцов области результатов
Sht1 = Sheet ("Отчет1") '1 страница
Sht2 = Sheet ("Отчет2") '2 страница

В макросе необходимо выполнять очистку ячеек под областью результатов, т.к. иначе остаются "хвосты" от предыдущих запросов
Code:
sht1.Range(Cells(RC + 41, 1), Cells(RC + 70, 15)).ClearContents

Но если я пишу тоже самое для 2 листа, т.е.
Code:
sht2.Range(Cells(RC + 41, 1), Cells(RC + 70, 15)).ClearContents

отладчик макроса выдает ошибку :(
Как разграничить области результатов для 2х страниц и побороть сие?

_________________
сплю и саплю


Принять этот ответ
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: VBA
СообщениеДобавлено: Ср, окт 19 2005, 17:19 
Старший специалист
Старший специалист
Аватара пользователя

Зарегистрирован:
Ср, сен 14 2005, 22:40
Сообщения: 296
Ну неужели тоже никто не подскажет?
И по ходу, возникла еще задачка:
есть 2 массива по столбцам, необходимо их перемножить (если просто в екселе - выполняется функция СУММПРОИЗВ, попарное перемножение и сложение результатов) и разделить на еще одно значение, после чего записать в ячейку.

Code:
R= resultArea.Row        ' начальная строка вывода области рез-тов
C = resultArea.Column  ' начальный столбец вывода области рез-тов
Ячейка для записи данных
sht2.Range(Cells(RC + R - 1, i))
Первый массив
sht2.Range(Cells(R + 2, i), Cells(R + RC - 2, i))
Второй массив
sht2.Range(Cells(R + 2, i + 1), Cells(R + RC - 2, i + 1)
делитель
sht2.Range(Cells(RC+ R - 1, i + 1)

_________________
сплю и саплю


Принять этот ответ
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения:
СообщениеДобавлено: Ср, окт 19 2005, 17:22 
Модератор
Модератор
Аватара пользователя

Зарегистрирован:
Ср, авг 18 2004, 10:59
Сообщения: 754
Откуда: Moscow
С такими вопросами - на форумы Microsoft, пожалуйста.

_________________
Фарш невозможно провернуть назад,
И мясо из котлет не восстановишь


Принять этот ответ
Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Эта тема закрыта, вы не можете редактировать и оставлять сообщения в ней.  [ Сообщений: 3 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: Google [Bot]


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB