Как вычесть один диапазон из другого?

[viter.alex]

Мне нужно придать определенное форматирование диапазону. Это получается. Но также нужно снять выделение с остальных ячеек. Можно ли выделить все до конца документа, начиная с данной ячейки, и потом вычесть из этого нужный мне диапазон?

[viter.alex]

Почему работает вот это:

  Set oUsedRange = ActiveWorkbook.Sheets(1).Cells(9, 1).Resize([КоличествоЗаписей], 24)

И не работает вот это:

  Set oNotUsedRange = ActiveWorkbook.Sheets(1).Cells(9 + [КоличествоЗаписей], 1).Resize(1000, 1000)

[EducatedFool]

В Excel доступны толко функции объединения и пересечения диапазонов.
Координаты других производных от этих диапазонов придется вычислять самому:

Sub test()
    [a1].Select

    Set ra = Union([e3:h30], [g5:j35]): ra.Select    ' объединение диапазонов
    MsgBox "Результат объединения диапазонов [e3:h30] и [g5:j35]", vbInformation

    Set ra = Intersect([e3:h30], [g5:j35]): ra.Select    ' пересечение диапазонов
    MsgBox "Результат пересечения диапазонов [e3:h30] и [g5:j35]", vbInformation

    Range("e3:h10,e3:d30,e20:h30,g3:h30").Select ' похоже, что только так...
    MsgBox "Исключаем диапазон  [f11:f19] из [e3:h30]", vbInformation

End Sub

не работает вот это:
Set oNotUsedRange = ActiveWorkbook.Sheets(1).Cells(9 + [КоличествоЗаписей], 1).Resize(1000, 1000)

1) Если у тебя Excel 2003 (или 2007 в режиме совместимости), то замени Resize(1000, 1000) на Resize(1000, 200)

2) Старайся использовать .Worksheets(1) вместо .Sheets(1)

3) Лист, содержащий ячейку [КоличествоЗаписей], должен быть активным (либо надо указывать, на каком листе искать эту ячейку)


А, может, поступить несколько иначе?
Сначала применить форматирование ко всему диапазону, а потом сбросить форматирование части этого диапазона?
Вроде, так будет даже проще...

[viter.alex]

Сообщение от EducatedFool

3) Лист, содержащий ячейку [КоличествоЗаписей], должен быть активным (либо надо указывать, на каком листе искать эту ячейку)

Так это не ячейка, а результат функции. Функция доступна для всей книги.

[Юнлинг]

Сообщение от viter.alex

Так это не ячейка, а результат функции. Функция доступна для всей книги.

Ты прав но и прав и EducatedFool , единственное замечание функция
[КоличествоЗаписей] возращает кол-во записей с активного листа.

[SAS888]

Пусть, например, в диапазоне "A1:D10" нужно выделить все ячейки, кроме тех, которые входят в диапазон "B3:C5". Можно, например, так:

Sub DifRange()

    Dim x As Range, y As Range, z As Range, Cell As Range
    Set x = [A1:D10]: Set y = [B3:C5]
    For Each Cell In x
        If Intersect(Cell, y) Is Nothing Then If z Is Nothing Then Set z = Cell Else Set z = Union(z, Cell)
    Next
    z.Select

End Sub

Подставьте вместо x и y Ваши диапазоны.

[viter.alex]

Сообщение от Юнлинг

единственное замечание функция
[КоличествоЗаписей] возращает кол-во записей с активного листа.

Почему? У меня [КоличествоЗаписей] определена как
=МАКС(СМЕЩ('Producing Report for P&G'!$A$1;8;;ЧСТРОК('Producing Report for P&G'!$A:$A)-8))
т.е. она всегда возвращает количество записей с нужного листа этой книги. Я прав?

[Юнлинг]

Сообщение от viter.alex

Почему? У меня [КоличествоЗаписей] определена как
=МАКС(СМЕЩ('Producing Report for P&G'!$A$1;8;;ЧСТРОК('Producing Report for P&G'!$A:$A)-8))
т.е. она всегда возвращает количество записей с нужного листа этой книги. Я прав?

Мне кажется именнованные значения обозначаемые квадратными скопками индивидуальны для каждого листа. и когда вы определяете по Вашей формуле она определяется для активного листа, а не для книги. И если внутри проги вы сделаете активиным другой лист [КоличествоЗаписей] должа вернуть значение NULL.
Может быть я не прав?

[viter.alex]

Сообщение от Юнлинг

…Может быть я не прав?

Сейчас не могу проверить. Приду домой проверю. Но если в определении переменной прямо указан лист, то какая разница где она находится?

[EducatedFool]

Но если в определении переменной прямо указан лист, то какая разница где она находится?

У меня [КоличествоЗаписей] определена как
=МАКС(СМЕЩ('Producing Report for P&G'!$A$1;8;;ЧСТРОК('Producing Report for P&G'!$A:$A)-8))

Это скорее не определение переменной, а просто формула в ячейке...

Никто не спорит, Excel корректно вычислит значение и поместит его в ячейку [КоличествоЗаписей].

Но при обращении из макроса к значению именованного диапазона (в данном случае ячейки [КоличествоЗаписей]) Excel будет пытаться искать этот именованный диапазон на активном листе. И если не найдёт, выведет сообщение об ошибке (даже если этот именованный диапазон присутствует на соседнем листе)