Выбор диапазона ячеек

@undll · Регистрация: 18.04.2011

Студворк — интернет-сервис помощи студентам

Что-то совсем все подзабыл... в общем есть отчет для подсчета стажа сотрудников, который в свою очередь выдает разное кол-во строк, все зависит от диапазона дат который выберет HR.
Есть формулы для подсчета стажа в годах, мес, днях. Как выделить нужный диапазон ячеек т.е. с первой до первой пустой... вот сам макрос

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Experience()
 
    Range("D3").Select
    ActiveCell.FormulaR1C1 = "=DATEDIF(RC7,R1C2,""Y"")"
    Range("D3").Select
    Selection.AutoFill Destination:=Range("D3:D18"), Type:=xlFillDefault
    Range("D3:D18").Select
    Range("E3").Select
    ActiveCell.FormulaR1C1 = "=DATEDIF(RC7,R1C2,""yM"")"
    Range("E3").Select
    Selection.AutoFill Destination:=Range("E3:E18"), Type:=xlFillDefault
    Range("E3:E18").Select
    Range("F3").Select
    ActiveCell.FormulaR1C1 = "=DATEDIF(RC7,R1C2,""mD"")"
    Range("F3").Select
    Selection.AutoFill Destination:=Range("F3:F18"), Type:=xlFillDefault
    Range("F3:F18").Select
    Range("A1").Select
End Sub

@Busine2009 · 18.04.2011, 14:50

Сообщение от undll

который выберет HR

что такое HR?

Visual Basic
1
2
3
Sub Макрос1()
    Range(Cells(1, 1), Cells(1, 1).End(xlDown)).Select
End Sub

@undll · 18.04.2011, 14:58 **[ТС]**

Сообщение от Busine2009

что такое HR?

Visual Basic
1
2
3
Sub Макрос1()
    Range(Cells(1, 1), Cells(1, 1).End(xlDown)).Select
End Sub

HR - хуман ресурс) "отдел кадров"
в общем работает, НО, когда 1 строка - выводит на всю страницу формулы:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Experience()
 
Dim LastCell As Long
LastCell = Cells(3, 1).End(xlDown).Row
 
    Range("D3").Select
    ActiveCell.FormulaR1C1 = "=DATEDIF(RC7,R1C2,""Y"")"
    Range("D3").Select
    Selection.AutoFill Destination:=Range(Cells(3, 4), Cells(LastCell, 4)), Type:=xlFillDefault
    Range(Cells(3, 4), Cells(LastCell, 4)).Select
    Range("E3").Select
    ActiveCell.FormulaR1C1 = "=DATEDIF(RC7,R1C2,""yM"")"
    Range("E3").Select
    Selection.AutoFill Destination:=Range(Cells(3, 5), Cells(LastCell, 5)), Type:=xlFillDefault
    Range(Cells(3, 5), Cells(LastCell, 5)).Select
    Range("F3").Select
    ActiveCell.FormulaR1C1 = "=DATEDIF(RC7,R1C2,""mD"")"
    Range("F3").Select
    Selection.AutoFill Destination:=Range(Cells(3, 6), Cells(LastCell, 6)), Type:=xlFillDefault
    Range(Cells(3, 6), Cells(LastCell, 6)).Select
    Range("A1").Select
End Sub

@Busine2009 · 18.04.2011, 15:37

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
'Определение последней заполненной строки в Excel.
Sub Test()
    Dim m As Long, n As Long, wsh As Worksheet
    
    Set wsh = ActiveSheet
    
    For m = wsh.UsedRange.Row + wsh.UsedRange.Rows.Count - 1 To 1 Step -1
        If wsh.Rows(m).Text = "" Then Else Exit For
    Next
    Debug.Print m
    
    For n = wsh.UsedRange.Column + wsh.UsedRange.Columns.Count - 1 To 1 Step -1
        If wsh.Columns(n).Text = "" Then Else Exit For
    Next
    Debug.Print n
    
    Set wsh = Nothing
End Sub

Visual Basic
1
2
3
4
5
Sub Макрос1()
If ActiveSheet.UsedRange.Rows.Count = 1 Then
    MsgBox "Всего одна строка используется на текущем листе"
End If
End Sub

Новые блоги и статьи Все статьи Все блоги /
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это дополнительная запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .