Задание Range в стиле R1C1

[den380]

Доброго времени суток!

есть задача выбирать (select) Range ячеек (cells) если задана начальная ячейка (верхняя левая) и его (Rendge-а) размерность - i колонок, j рядов. С рядами вопросов нет, там цифры, а вот с колонками...
Писать огромный case - не хочется, да и не красиво.
Может кто поделится опытом?
Спасибо.

[uhm]

Range(Cells(y,x),Cells(y+j,x+i))

[den380]

Range(Cells(y,x),Cells(y+j,x+i))

x - буква?

[$€rg]

цифра, и в справке по вба много интересного

[den380]

2 $€rg
вот спасибо, за тыкание носом, но тока не за этим я на форум пришел...

[uhm]

Я бы тоже тебя туда же ткнул, если честно - в справке написано и что такое Range, и что такое Cells. У тебя как задана "начальная ячейка (верхняя левая)"?

[alibek]

вот спасибо, за тыкание носом, но тока не за этим я на форум пришел...

А за чем?

[den380]

У тебя как задана "начальная ячейка (верхняя левая)"?

В формате A1 - т. е. "B6"

[uhm]

Тогда можно так:

Range("B6",Range("B6").Offset(j-1,i-1))

[den380]

вы уж простите меня, хелпы не читающего, но такая вот строчечка работать напрочь отказывается.

Код: Выделить всё

For Each c In Worksheets("table").Range(Cells(1, 3), Cells(1, 16)) '("c1:p1")


может кто подскажет где собака порылась?

[KL]

Тогда можно так:

Range("B6",Range("B6").Offset(j-1,i-1))

Думаю, что все несколько проще:

[B6].Resize(i, j)


например:

Код: Выделить всё

Sub test()
    Dim rng As Range, i As Long, j As Long
    i = 100: j = 25
    Set rng = [B6].Resize(i, j)
End Sub

[uhm]

У меня эта строчечка напрочь работает.

[den380]

У меня эта строчечка напрочь работает.

У мя office 2003 Pro Eng, а у тя?

[den380]

попробовал даже вот так

Код: Выделить всё

Dim rng As Range
Set rng = Worksheets("table").Range(Cells(1, 3), Cells(1, 16))
For Each c In rng 'Worksheets("table").Range(Cells(1, 3), Cells(1, 16)) '("c1:p1")


толку - ноль. При запуске ругается на "Worksheets("table").Range(Cells(1, 3), Cells(1, 16))" - "runtime error 1004"

[KL]

...такая вот строчечка работать напрочь отказывается.

Код: Выделить всё

For Each c In Worksheets("table").Range(Cells(1, 3), Cells(1, 16)) '("c1:p1")


Дело скорее всего в том, что на момент запуска кода Worksheets("table") и ActiveSheet или Me это не одно и тоже. Попробуй так:

Код: Выделить всё

Sub test()
    Dim rng As Range, c As Range
    With Worksheets("table")
        Set rng = .Range(.Cells(1, 3), .Cells(1, 16))
    End With
    For Each c In rng
        '...
    Next c
End Sub

Суть в том, чтобы все используемые ранги [.Range(...), .Cells(1,3), .Cells(1,16)] находились на одном листе.

[uhm]

Весь код покажи? В этих трех строчках ошибки нет.

UPD: А, видимо, действительно дело в этом - у тебя явно прописано, на каком листе находится Range, но не прописано, на каком листе находятся Cells, поэтому если активный лист не совпадает с листом table, происходит ошибка.

[KL]

Весь код покажи? В этих трех строчках ошибки нет.

В этих трех строчках ошибка есть - см. мой пост выше

[uhm]

Да-да, признаю

[den380]

Весь код покажи? В этих трех строчках ошибки нет.

В этих трех строчках ошибка есть - см. мой пост выше

З А Р А Б О Т А Л О ! ! !
спасибо всем.
Вот окончательная версия.

Код: Выделить всё

Sub NakladnaGeneration()

Dim rng As Range
With Worksheets("table")
    Set rng = .Range(.Cells(1, 3), .Cells(1, 16))
End With
For Each c In rng
    If Not IsEmpty(c.Value) Then
    ......
    End If
Next c

End Sub



PS 2moders
тему можно закрывать с пометкой solution