기금넷 공식사이트 - 복권 조회 - Excel 에서 VBA 를 사용하여 당첨 번호를 어떻게 자동으로 기록할 수 있습니까?
Excel 에서 VBA 를 사용하여 당첨 번호를 어떻게 자동으로 기록할 수 있습니까?
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 보안 설정에서 매크로를 실행할 수 있는지 확인합니다. 파일-> 에서 찾을 수 있습니다. 옵션->; 신뢰센터'->; 신뢰 센터 설정->; 매크로 설정에서 확인하고 조정합니다.