기금넷 공식사이트 - 복권 조회 - Excel 에서 VBA 를 사용하여 당첨 번호를 어떻게 자동으로 기록할 수 있습니까?

Excel 에서 VBA 를 사용하여 당첨 번호를 어떻게 자동으로 기록할 수 있습니까?

추첨을 클릭한 후 새로 고친 작업 번호를 Excel 에 자동으로 기록하려면 VBA(Visual Basic for Applications) 를 사용하여 매크로를 작성할 수 있습니다. 다음은 이 기능을 구현하는 데 도움이 되는 간단한 단계별 안내서입니다.

1: Excel 을 열고 통합 문서를 엽니다.

Excel 응용 프로그램을 엽니다.

자동으로 기록할 데이터가 포함된 통합 문서를 엽니다.

2 단계: VBA 코드 삽입

뉴스? Alt+F 1 1? VBA 편집기의 키를 엽니다.

VBA 편집기에서 통합 문서를 선택합니다.

통합 문서에서 코드를 배치할 워크시트를 마우스 오른쪽 단추로 누르고 삽입->; "모듈"

새 모듈의 코드 창에 다음 코드를 붙여 넣습니다.

Vba 복사 코드

하위 레코드 LuckyNumbers ()

변수를 정의합니다

어둡게 RNG As 범위

셀을 범위로 어둡게 하기

Dim luckyNumber 를 문자열로 사용

Dim lastRow As Long

검사할 영역 (예: 열 a) 을 설정합니다.

RNG = thisworkbook 을 설정합니다. 워크시트 (워크시트 1). Range ("a 1: a 100 ")' 실제 상황에 따라 범위를 수정합니다.

범위 내의 각 셀을 검사합니다.

Rng 의 각 구역에 대해 다음을 수행합니다

셀 값이 새로 고친 작업 번호인 경우 (예: "20230 10 1") 기록됩니다.

If 세포. Value = "작업 번호 새로 고침" 그런 다음' 실제 상황에 따라 대응 값이나 조건을 수정합니다.

LuckyNumber = cell 입니다. 가치

종료 ...

만약 ... 끝날거야

다음 셀

기록할 행의 마지막 행을 찾습니다 (예: 열 b)

LastRow = ThisWorkbook 입니다. 워크시트 (워크시트 1). 셀 (행). 수, "B"). 끝내기 (xlUp). 행+1

기록된 작업 번호를 b 열의 다음 행에 씁니다.

이 워크북. 워크시트 (워크시트 1). 셀 (마지막 행, "b"). Value = luckyNumber

끝단 접합

VBA 편집기를 저장하고 닫습니다.

3 단계: 매크로 테스트

Excel 에서 개발 도구 탭을 클릭합니다 (표시되지 않은 경우? 를 누릅니다 Alt+F 1 1? 키를 눌러 VBA 편집기를 열고 보기->; "탭"->; "개발 도구") 를 참조하십시오.

Developers (개발자) 탭에서 macro (매크로) 버튼을 클릭합니다.

팝업 매크로 목록에서 방금 만든 매크로 (예: "RecordLuckyNumbers") 를 선택하고 실행 을 클릭합니다.

이때 a 열에 일치하는 값이 있으면 b 열의 다음 행에 기록해야 합니다 .....

참고 사항:

필요에 따라 코드의 셀 범위 및 일치 값을 조정합니다.

매크로가 예상대로 실행되지 않는 경우 Excel 보안 설정에서 매크로를 실행할 수 있는지 확인합니다. 파일-> 에서 찾을 수 있습니다. 옵션->; 신뢰센터'->; 신뢰 센터 설정->; 매크로 설정에서 확인하고 조정합니다.