무료 당첨자 추첨 프로그램 추천 : 기관총앱스 > 자유게시판

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

엑셀 당첨자 추첨 프로그램 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 '기존 당첨자 명단 지우기추첨수 = Application.InputBox("추첨할 인원수를 입력하세요", Type:=1) '추첨할 인원수 입력받기응모자수 = Range("A1").CurrentRegion.Offset(1, 0).Rows.Count - 1 'A열의 당첨자 추첨 프로그램 응모인원수 계산하기​If 추첨수 >= 응모자수 Then MsgBox "추첨자수는 응모자수보다 작아야합니다": Exit Sub​Randomize '난수 발생기 초기화하기​For i = 1 To 추첨수 '추첨 반복 Do Set 당첨자 추첨 프로그램 당첨자 = Cells(Int(응모자수 * Rnd) + 2, 1) '응모자명단 범위에서 랜덤하게 1명 추첨 Loop While Application.WorksheetFunction.CountIf(Range("C1").CurrentRegion, 당첨자.Value) &gt0 '기존 당첨자와 중복여부 확인, 중복되면 다시 당첨자 추첨 프로그램 추첨​ Cells(Rows.Count, "C").End(xlUp).Offset(1, 0) = 당첨자.Value '최종 당첨자 셀에 입력NextEnd Sub​​