SAPфорум.RU • Просмотр темы

Леонид Ф.

Есть в рабочей книге для запроса макрос

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х страниц и побороть сие?

Леонид Ф.

Ну неужели тоже никто не подскажет?
И по ходу, возникла еще задачка:
есть 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)

MakcuM

С такими вопросами - на форумы Microsoft, пожалуйста.

VBA

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