☰

각 시트에서 숫자가 증가하도록 숫자 목록을 변경하는 매크로를 어떻게 작성합니까?

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

ALT+ 를 사용하여 VBA/매크로를 엽니다 F11.

왼쪽에서 워크시트를 두 번 클릭하고 오른쪽에 코드를 붙여넣습니다.

변수 lastsheet, numbersPerPage및 원하는 대로 조정 selectedColumn합니다 .firstValue

관련 정보