Страницы: 1
RSS
Передать в функцию диапазон ячеек
 
Мне нужно передать в функцию пользователя диапазон ячеек, чтобы в дальнейшем использовать ее наманер функции СУММА(A1:C356)
 
например так    
Public Function pSumm(pRange As Range)  
pSumm = Application.Sum(pRange)  
End Function
 
{quote}{login=Артем}{date=04.09.2008 02:56}{thema=}{post}например так    
Public Function pSumm(pRange As Range)  
pSumm = Application.Sum(pRange)  
End Function{/post}{/quote}  
 
А как при этом из pRange выделить начало и конец диапазона, для примера, А1 и C356
 
pRange.Resize(1, 1).Address  
 
pRange.Resize(1, 1).Offset(pRange.Rows.Count - 1, pRange.Columns.Count - 1).Address
 
чуть проще:  
rng.Cells(1).Address  
rng.Cells(rng.Cells.Count).Address
Страницы: 1
Читают тему
Наверх