Range

[WizarD.89]

Здравствуйте!

Для того что бы послать фунции WorksheetFunction.Var Range вида
Range("B4:D10") приходиться вот так вот изощрятся:

V = WorksheetFunction.Var(Range(.ActiveSheet.Cells(нач_таблица_студент, Студент_Начальные_уров_подгатовлен).Address & ":" & _
.ActiveSheet.Cells(нач_таблица_студент + Range("a1").value, Студент_Начальные_уров_подгатовлен).Address))

так как диапазон заранее не известен, можно это как по другому сделать? по красивше?

[EducatedFool]

Вариант 1:

    Dim ra As Range
    Set ra = Cells(нач_таблица_студент, Студент_Начальные_уров_подгатовлен).Resize(Range("a1").Value + 1)
    V = WorksheetFunction.Var(ra)

вариант 2 (то же самое, но короче)

V = WorksheetFunction.Var(Cells(нач_таблица_студент, Студент_Начальные_уров_подгатовлен).Resize(Range("a1").Value + 1))

PS: Можно и проще сделать, и красивее, - но без примера файла никак.

[WizarD.89]

или вот в данном случае:

Range(.ActiveSheet.Cells(нач_таблица_строка + Range("a1").value + 1, нач_таблица_столб).Address & ":" & .ActiveSheet.Cells(нач_таблица_строка + Range("a1").value + 1, нач_таблица_столб + Range("b1").value + 1).Address).NumberFormat= "0.00"

вообще не красиво как то

[WizarD.89]

EducatedFool спасибо очень интересно! а что нужно в файле? просто у меня очень большой проект, диплом уже где то 40 листов А4 накалякал не могу его полностью выслать.

[WizarD.89]

ошибься..................

[WizarD.89]

EducatedFool

ваш вариант не подошел мне нужен диапазон, а не одна ячейка.

вот так я придумал:

Range(getRange(нач_таблица_студент, Студент_Начальные_уров_подгатовлен, Range("a1").value)).select

Function getRange(Optional Cell1 As Integer = нач_таблица_строка, Optional Cell2 As Integer = нач_таблица_столб, Optional resize1 As Integer, Optional resize2 As Integer) As String
getRange = Cells(Cell1, Cell2).Address & ":" & Cells(Cell1 + resize1, Cell2 + resize2).Address
End Function

еще оказывается можно было через запятую:

range(cells(1,1).address,cells(2,3) .address).select

[IgorGO]

видимо так будет еще проще:
range(cells(1,1), cells(2,3)).select
или с таким же результатом:
cells(1,1).resize(1,2).select

[WizarD.89]

IgorGO

спасибо

но я еще вот так придумал, еще короче:

Sub k()
R(, , 3, 3).Select
End Sub

Function R(Optional Cell1 As Integer = 1, Optional Cell2 As Integer = 1, Optional resize1 As Integer, Optional resize2 As Integer) As Range
Set R = Range(Cells(Cell1, Cell2), Cells(Cell1 + resize1, Cell2 + resize2))
End Function

P.S. для меня был шок то что можно сделать выделение используя имя функции R(, , 3, 3).Select О_О , не присвоив объект range другой переменной.