|
제가 엑셀 추첨 매크로를 인터넷에서 받았는데요.
현재는 대상자명단만 추출이됩니다.
<VBA 코드입니다.>
Sub Lottery()
Dim RngLot As Range, R As Range
Dim CountAll As Integer, CountLot As Integer
Range("F2:F65536").ClearContents '기존에 추첨자 명단을 지움
CountLot = Val(InputBox("몇명을 추첨할까요?")) '추첨자 수를 입력받음
Set RngLot = Range(Range("F2"), Range("F2").Offset(CountLot - 1, 0)) '당첨자들을 입력할 범위 설정
CountAll = Range(Range("A2"), Range("A2").End(xlDown)).Count '총 추첨대상자의 수를 계산
Randomize '난수발생 초기화
For Each R In RngLot '당첨자 입력범위의 각각의 셀에 대하여
Do
R = Cells(Int((CountAll * Rnd) + 2), 1).Value '대상자중 한명을 랜덤하게 뽑아 기록하되
Loop While Application.WorksheetFunction.CountIf(RngLot, R.Value) > 1 '이미 뽑힌 사람이 중복되지 않게 loop를 돌림
Next
End Sub
사진파일처럼 추첨할때 대상자명단에서 이유까지 추출할 수 있게하려면 코드를 어떻게 짜야 할까요?ㅠㅠ
고수분들 부탁 좀 드리겠습니다..!!
| 
등록안내
추첨 매크로는 여기서 받았습니다.