| |
|
|
| |
Function LastR() As Long
'Возвращает кол-во строк в листе
'синтаксис области копирования =Range("H3:H" & LastR())
Set R = Selection
Selection.SpecialCells(xlCellTypeLastCell).Select
LastR = Selection.row
R.Select
End Function
|
У меня позднее связывание, а потому Dim R As Range - при компиляции выдаёт ошибку - в Access нет Range
может другой какой тип сгодится? | |
| |
| |
| |
|
|
| | Object
или подключи библятеку в XXXL в референсах | |
| |
| |
| |
|
|
| | библио библио - светлава Мая
ПРИВЕТ,
Либрари Либрари
Оуайт боукет | |
| |
| |
