Developing.ru

Pa vart webbhotell kan ni kanna er trygg! Forutom att vi anvander oss av speglade harddiskar pa alla vara servrar sa tar vi aven backup tva ganger per dygn pa separata servrar. Vi anvander oss av ISPmanager som kontrollpanel. ISPmanager ar en kontrollpanel som gor det enkelt att administrera sin hemsida. Hos oss kan ni lagga hur manga hemsidor och domaner ni onskar under ett webbhotellskonto.
[url=http://fastvds.pro/shared-hosting.html]virtual hosting[/url]

[b]Teslenko_EA[/b],
[quote]VictorM, формулы Excel отобразит согласно свох настроек А$1$ или R1C1.[/quote]
да, все верно, в строке формул у меня так и отбражается - согласно настроек А$1$. Все отлично работает, просто подумалось, раз уж у меня все формулы в проекте в стиле ссылок А$1$, можно ли записать и эту формулу так.
Спасибо за помощь!
Виктор.

[b]VictorM[/b], формулы Excel отобразит согласно свох настроек А$1$ или R1C1.
Единственная проблема при таком обращении ссылка как понимаете будет[b] абсолютной[/b]. Потребуется самосстоятельно считать и задавать смещение, для получения [b]относительной ссылки[/b] - = "=SUM(RC[1]:R[" & iRows-1 & "]C[1])"
Евгений.

Здравствуйте,[b]Teslenko_EA[/b].
ДА!!! Все отлично сработало! Спасибо.
Только у меня тогда попутный вопрос, а как это записать в стиле ссылок А1, а не R1C1 ?

Здравствуйте [b]VictorM[/b].
А с применениям формулы, вот так у Вас получится:
...= "=SUM(R6C8:R" & iRows-1 & "C8)"
Евгений.

For iRow = 6 To iRows - 1
iData = Cells(iRow, "H")
    If IsNumeric(iData) = True Then
       iSum = iSum + iData
    End If
Next
MsgBox "Сумма ячеек :" & iSum

Уважаемые Господа!
Я опять с вопросом по синтаксису...
есть формула =СУММ((H6:H17)
мне же нужно написать вместо 17 мою переменную - iRows
Range("H" & iRows).FormulaLocal = "=СУММ(H6:H & iRows-1 )" - естественно, ошибка :confused:
как уже только не пробовал...
или может вообще как-то без СУММ обойтись.
Мне эту сумму достаточно считать в переменную, на листе она, собственно, не нужна.
подскажите, пожалуйста, как это можно написать?
Спасибо.

****
нашел ответ вот [url=http://www.msoffice.nm.ru/faq/macros/range.htm#faq6]ЗДЕСЬ[/url] у [b]pashulka[/b]
[code]For iRow = 6 To iRows - 1
iData = Cells(iRow, "H")
If IsNumeric(iData) = True Then
iSum = iSum + iData
End If
Next
MsgBox "Сумма ячеек :" & iSum[/code]

[b]ДОШЛО[/b]!!!!!!!!!!!!! :)
Большое спасибо!!!!!
Вот теперь все яно!!!!

Worksheets("БТ").Range("A5")

With Worksheets("БТ")
        .Range(.Range("A5"), .Cells(.Cells(Rows.Count, "G").End(xlUp).Row, "G")).ClearContents
    End With

Если лист не активен, то ссылку на лист необходимо повторять при каждом обращении к ячейке. Иначе, получается, что Вы пытаетесь выделить диапазон от [code]Worksheets("БТ").Range("A5")[/code] до последней заполненной ячейки столбца "G" активного листа. Т.е. нужно так:
[code]With Worksheets("БТ")
.Range(.Range("A5"), .Cells(.Cells(Rows.Count, "G").End(xlUp).Row, "G")).ClearContents
End With[/code]

Worksheets("БТ").Range([A5], Cells(Cells(Rows.Count, "G").End(xlUp).Row, "G")).ClearContents

Worksheets("БТ").Activate
Range([A5], Cells(Cells(Rows.Count, "G").End(xlUp).Row, "G")).ClearContents

И вот опять вопрос по синтаксису.
Почему вот это
[code]Worksheets("БТ").Range([A5], Cells(Cells(Rows.Count, "G").End(xlUp).Row, "G")).ClearContents[/code]
не работает, если лист не активен. Если сделаю вот так
[code]Worksheets("БТ").Activate
Range([A5], Cells(Cells(Rows.Count, "G").End(xlUp).Row, "G")).ClearContents[/code]
все работает :confused:
но у меня таких листов 5 штук и не хочу я их активировать, только для того чтобы очистить диапазон с данными :(
можно их конечно сгруппировать и т.д. , но меня интересует - почему не работает первая строка?
Спасибо.

[b]SAS888[/b], СПАСИБО!!!!
Я этого нигде не мог найти.