워크 시트의 고유 번호를 생성하기 위해 Excel이 필요할 수 있습니다. 예를 들어 Excel을 사용하여 invoices, 명세서 또는 추적 시트와 같은 양식을 만들 수 있으며 각 양식에 고유 한 번호가 필요합니다 ( 나는 이것을 _ 티켓 번호 _)라고 부를 것입니다. 물론 이것은 Excel이 한 세션에서 다음 세션까지 번호를 기억해야 함을 의미합니다.

이 문제에 접근 할 수있는 몇 가지 방법이 있습니다. 번호가 순차적 일 필요가없는 경우 현재 시간 (초)을 기준으로 티켓 번호를 만들 수 있습니다. ThisWorksheet 개체에 다음 매크로를 추가 할 수 있습니다.

Private Sub Workbook_NewSheet(ByVal Sh As Object)

Dim lTicket As Long     lTicket = CLng(Time  24  60 * 60)

Sh.Range("A1") = lTicket End Sub

매크로는 통합 문서에 새 워크 시트가 추가 될 때마다 트리거됩니다. 현재 시간을 사용하여 정수 초 수로 변환 한 다음 해당 값을 A1 셀에 배치합니다. 주어진 날짜에 티켓 번호가 중복 될 가능성은 거의 없지만 시간이 지남에 따라 발생할 수 있습니다. (예를 들어, 어제 또는 지난주에했던 것과 똑같은 시간에 티켓을 만드는 경우)

이 문제를 해결하기 위해 다음과 같은 방식으로 티켓 번호를 만들 수 있습니다.

Private Sub Workbook_NewSheet(ByVal Sh As Object)

Dim sTemp As String     sTemp = Format(Date, "yymmdd") & Format(Time, "hhmmss")

Sh.Range("A1") = sTemp End Sub

이 버전의 이벤트 처리기는 날짜와 시간을 기준으로 티켓 번호를 구성합니다. 티켓을 매우 빠르게 생성하지 않는 한이 접근 방식은 매크로에 의해 생성되는 중복 번호의 가능성을 줄여야합니다.

번호가 현재 통합 문서 내에서 순차적이어야하는 경우 티켓 번호의 현재 최고 값을 포함하는 이름을 정의한 다음 해당 번호를 새 워크 시트의 셀에 배치하고 저장된 값을 증가시키는 매크로를 정의 할 수 있습니다. 번호. 시작하려면 다음 단계를 따르십시오.

  1. 리본의 공식 탭을 표시합니다.

  2. 정의 된 이름 그룹에서 이름 정의 도구를 클릭합니다. Excel에 새 이름 대화 상자가 표시됩니다. (그림 1 참조)

  3. 이름 상자에 MaxNum과 같은 이름을 입력합니다.

  4. 대화 상자 하단의 참조 대상 영역에 등호 뒤에 다음 티켓 번호로 사용할 값을 입력합니다.

  5. 확인을 클릭하십시오. 새 이름이 통합 문서에 저장됩니다.

이제 VBA 편집기의 ThisWorksheet 개체에 다음 매크로를 추가합니다.

Private Sub Workbook_NewSheet(ByVal Sh As Object)

Dim iMax As Integer     iMax = Mid(ThisWorkbook.Names("MaxNum"), 2)

Sh.Range("A1") = iMax     iMax = iMax + 1     ThisWorkbook.Names("MaxNum").RefersTo = "=" & iMax End Sub

이 매크로는 통합 문서에 새 워크 시트를 삽입 할 때마다 실행됩니다. MaxNum에 저장 한 값을 검색하고 해당 값을 새 워크 시트의 A1 셀에 배치 한 다음 MaxNum에 저장된 값을 증가시킵니다.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (11192)은 Office 365의 Microsoft Excel 2007, 2010, 2013, 2016, 2019 및 Excel에 적용됩니다. 여기에서 Excel의 이전 메뉴 인터페이스에 대한이 팁 버전을 찾을 수 있습니다.

link : / excel-Generating_Unique_Numbers_for_Worksheets [Generating Unique Numbers for Worksheets].