У меня есть электронная таблица со списком цифр в столбце 2. Мне нужно печатать 50 листов за раз, причем числа увеличиваются на каждом листе. Т.е. лист 1 начинается с 2834 и заканчивается 2848; следующая страница начинается в 2849 и заканчивается в 2863 и так далее и так далее. Как мне написать макрос и куда мне положить макрос? Я в недоумении.

Я никогда не писал и не использовал макрос, но уверен, что это было бы решением, кроме печати каждой страницы по отдельности и изменения чисел каждый раз.

1 ответ1

0

Это может быть хорошей отправной точкой

Public Sub LotOfNumbers()
    lastSheet = 50
    numbersPerPage = 10
    selectedColumn = 2
    firstValue = 3000
    Dim wkb As New Workbook
    Dim wks As New Worksheet
    Set wkb = ThisWorkbook
    totalwks = Application.Sheets.Count
    i = 1
    actualValue = firstValue
    While i <= lastSheet
        If i <= totalwks Then
            Set wks = wkb.Sheets(i)
        Else
            wkb.Sheets.Add After:=Worksheets(Worksheets.Count)
        End If
        For j = 1 To numbersPerPage
            Cells(j, selectedColumn) = actualValue
            actualValue = actualValue + 1
        Next j

        i = i + 1
    Wend

End Sub

Откройте VBA /Macros с помощью ALT+F11.

На левой стороне дважды щелкните по рабочему листу, с правой стороны вставьте код.

Настройте переменные lastsheet , numbersPerPage , selectedColumn и firstValue по своему вкусу.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .