☰

Как написать макрос для изменения списка чисел так, чтобы он увеличивался на каждом листе?

tag-icon • tag-icon microsoft-excel macros
Как написать макрос для изменения списка чисел так, чтобы он увеличивался на каждом листе?

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

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

решение1

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

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своему усмотрению.

Связанный контент