Company Logo

• 목록
• 답변
• 글쓰기
• 게시판 리스트 옵션
  • 수정
  • 삭제

엑셀 당첨자 추첨 프로그램 VBA로 만든 당첨자 추첨 프로그램****** 사용 방법 ******​1. 파일을 열면 화면 상단에 [보안 경고]가 표시됩니다. 여기서 [콘텐츠 사용]을 클릭합니다.​​2. A열에 응모자 명단을 입력합니다. 당첨자 추첨 프로그램 [A2] 셀부터 입력해야 하고, 빈 셀 없이 연속적으로 입력합니다. 인원수 제한은 없습니다.그 다음 [추첨 프로그램 실행] 단추를 클릭합니다. ​​3. 추첨할 인원수를 입력하는 화면이 당첨자 추첨 프로그램 표시됩니다. 숫자를 입력한 후 [확인]을 클릭합니다.​​4.C열에 입력한 인원수 만큼 당첨자 결과가 표시됩니다.엑셀 VBA의 random 함수를 이용하여 추첨한 결과입니다. ​5. VBA 소스를 확인해볼까요? [개발 당첨자 추첨 프로그램 도구]-[Visual Basic]을 클릭합니다. 6. 작성된 VBA 소스가 표시됩니다.​아래의 설명을 참고하여 응모자 명단과 당첨결과를 표시하는 열을 변경하시면 됩니다.****** 코드 설명 ******​Sub 추첨프로그램()​Dim 당첨자 As 당첨자 추첨 프로그램 RangeDim i As LongDim 추첨수 As LongDim 응모자수 As Long​Range(C2:C100).ClearContents '기존 당첨자 명단 지우기추첨수 Ϛpplication.InputBox(추첨할 인원수를 입력하세요, Type:=1) '추첨할 인원수 입력받기응모자수 =Range(A1).CurrentRegion.Offset(1, 0).Rows.Count 당첨자 추첨 프로그램 - 1 'A열의 응모인원수 계산하기​If 추첨수 >=응모자수 Then MsgBox 추첨자수는 응모자수보다 작아야합니다: Exit Sub​Randomize '난수 발생기 초기화하기​For i ϑ To 추첨수 '추첨 반복 당첨자 추첨 프로그램 Do Set 당첨자 㷎lls(Int(응모자수 * Rnd) + 2, 1) '응모자명단 범위에서 랜덤하게 1명 추첨 Loop While Application.WorksheetFunction.CountIf(Range(C1).CurrentRegion, 당첨자.Value) >0 '기존 당첨자와 중복여부 확인, 당첨자 추첨 프로그램 중복되면 다시 추첨​ Cells(Rows.Count, C).End(xlUp).Offset(1, 0) =당첨자.Value '최종 당첨자 셀에 입력NextEnd Sub​​