Различные разделы в таблице (несколько пустых строк). Создайте условный цикл, который вводит пустую строку в правильный раздел - VBA - PullRequest
0 голосов
/ 01 апреля 2019

У меня есть проблема, которую я не могу решить сама, и мне было интересно, может ли кто-нибудь здесь помочь мне.У меня есть таблица с большим количеством значений, которые разбиты на разные разделы (разделенные пустой строкой).Мне нужно иметь возможность контролировать, где новая строка вставляется с помощью макроса.

Что я хотел бы сделать, это создать макрос с условиями, чтобы я мог контролировать, где пустая строка должнабыть вставленным.Мое предположение - создать отдельные кнопки рядом с каждым разделом (перед пустой строкой), который присваивает значение, чтобы цикл мог пропустить x количество пустых строк перед вставкой новой строки.Мой первый дубль выглядит так:

Sub InsertNewRow ()

Dim erow As Integer
Dim number As Integer 'number of empty rows to skip
Dim count As Integer 'to keep track on number of empty rows to skip
Dim LastRow As Long

erow = ActivityInput.UsedRange.Rows.count
count = 0


For Each l In erow

    Do While i <> ""
    Next erow

count = count + 1

If element = count Then

     'Cells(Rows.count, 1).End(xlUp).Offset(1, 0).EntireRow.Insert

'Это насколько я понял.Я не знаю, как заставить макрос перейти к последней строке текущего раздела ... какие-либо предложения?

..

Чтобы пояснить, я хотел бы добавить макрос (ы) (боты), которые помогают пользователю вставлять новые строки.Если пользователь находится в разделе 3 (было пропущено 2 пустых строки, которые разделяют различные разделы), я бы хотел, чтобы пользователь мог щелкнуть макрос (кнопка), который впоследствии добавляет новую строку в текущий раздел.

Есть идеи?: /

С уважением, Александр

1 Ответ

0 голосов
/ 01 апреля 2019

Sub InsertNewRow (X как целое число)

Dim count As Integer
count = 0

For i = 1 To ActivityInput.Range("X[ABC]")(i)

    If i <> "" Then Next i


    ElseIf X = count Then

        Cells(l, 1).End(xlDown).Offset(1, 0).EntireRow.Insert

    Else

    count = count + 1

Next l

End Sub

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...