VPF::Excel, вопрос по фильтрам - Форум программистов

Andrew1

Дата 30.5.2006, 13:09 (ссылка)

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

Загрузка ...

Новичок

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

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

Есть пользовательская функция, аргументом которой является диапазон ячеек. Функция проводит расчет для этого диапазона. Подскажите как при наложении фильтра на этот диапазон сделать так, чтобы подсчитывались только видимые значения (удовлетворяющие фильтру)? Или иначе, как определить отфильтрованый диапазон ячеек?

Дмит

Дата 30.5.2006, 14:53 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 117
Регистрация: 21.4.2006
Где: г.Волгоград

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

К примеру:

Код


Dim i As Long
For i = 1 To Range("A1:D20").Rows.Count
    If Range("A1:D20").Rows(i).Hidden = False Then
        Range("A1:D20").Cells(i, 1) = "TS"
    End If
Next

Aloha

Дата 30.5.2006, 15:12 (ссылка)

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

Загрузка ...

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

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

Andrew1
У меня работает такой код:

Код


Sub sVisibleRng()
  Dim sh As Worksheet
  Dim AF_Rng As Range
  Dim VisibleRng As Range
  Dim i As Integer
  Set sh = Worksheets("Лист1")
  Set AF_Rng = sh.AutoFilter.Range
Debug.Print AF_Rng.Address
  For i = 1 To AF_Rng.Rows.Count   'если 1-я строка автофильтра - заголовок то
                                   'цикл начинаем с i=2
    If Not AF_Rng.Rows(i).Hidden Then
      If TypeName(VisibleRng) = "Nothing" Then
        Set VisibleRng = sh.AutoFilter.Range.Rows(i)
      Else
        Set VisibleRng = Union(VisibleRng, AF_Rng.Rows(i))
      End If
    End If
  Next i
Debug.Print VisibleRng.Address
  Call myFunction(VisibleRng)
End Sub

Function myFunction(myRng As Range)

End Function

AsIs

Дата 30.5.2006, 19:17 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(Andrew1 @ 30.5.2006, 13:09)

Если без макросов, то функция Промежуточные.Итоги.

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

<avalon> - чтобы знать...

Staruha

Дата 30.5.2006, 20:55 (ссылка)

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

Загрузка ...

Эксперт

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

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

Дмит

Цитата

If Range("A1:D20").Rows(i).Hidden = False Then
Range("A1:D20").Cells(i, 1) = "TS"

Код


 If Rows(i).Hidden = false Then
   накопитель=накопитель+ Cells(i, 1)

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

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

Andrew1

Дата 31.5.2006, 12:11 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(AsIs @ 30.5.2006, 19:17

)

Если без макросов, то функция Промежуточные.Итоги.

Дело в том, что эта функция позволяет использовать только 11 итоговых функций. А как быть с остальными?

Цитата(Aloha @ 30.5.2006, 15:12

)

    If Not AF_Rng.Rows(i).Hidden Then
      If TypeName(VisibleRng) = "Nothing" Then
        Set VisibleRng = sh.AutoFilter.Range.Rows(i)
      Else
        Set VisibleRng = Union(VisibleRng, AF_Rng.Rows(i))
      End If
    End If

Такой код работает и в результате полученый диапазон можно вставить в стандартную функцию (WorksheetFunction). Но возникла такая проблема: если стандартная функция в качестве аргументов требует два диапазона (напр. функция НАКЛОН), то если этим кодом вычислить отдельно два диапазона и подставить их в эту функцию - возникает ошибка. Это связано с тем, что адрес диапазона имеет вид (напр. $A$1,$A$3:$A$5). Если подставить в функцию два таких диапазона, то она это не понимает. Можно это как-то решить? Очень не хотелось бы самому писать алгоритмы для подсчета такого, какой делают стандартные функции.

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