선수명단을 랜덤하게 두 팀으로 분류

팁&서식

선수명단을 랜덤하게 두 팀으로 분류

코드가  마음에 들진 않지만...

딱히 다른 코드가 생각나지 않아서 올려봅니다.

첨부된 문서를 보시면 A열에 선수 명단을 입력합니다. 

그리고 팀분류 단추를 누르면 단추를 누를때마다  팀이 랜덤하게 분류됩니다.


Option Explicit
Sub team()
Dim cnt, a, arr, cel, i, j, t
cnt = [a2].CurrentRegion.Count - 1
If cnt Mod 2 = 1 Then cnt = cnt + 1
ReDim arr(cnt, 2)
For i = 1 To cnt
 arr(i, 2) = Rnd(1) * 100
 arr(i, 1) = i
Next
For i = 1 To cnt - 1
For j = i + 1 To cnt
 If arr(i, 2) > arr(j, 2) Then
   t = arr(i, 2)
   arr(i, 2) = arr(j, 2)
   arr(j, 2) = t
   t = arr(i, 1)
   arr(i, 1) = arr(j, 1)
   arr(j, 1) = t
  End If
Next j
Next i
cel = 2
For i = 1 To cnt Step 2
 Cells(cel, 3) = Cells(arr(i, 1) + 1, 1)
 Cells(cel, 4) = Cells(arr(i + 1, 1) + 1, 1)
 cel = cel + 1
Next
End Sub

Comments

Category
State
  • 현재 접속자 5 명
  • 오늘 방문자 122 명
  • 어제 방문자 225 명
  • 최대 방문자 394 명
  • 전체 방문자 308,103 명
  • 전체 게시물 2,580 개
  • 전체 댓글수 105 개
  • 전체 회원수 79 명
Facebook Twitter GooglePlus KakaoStory NaverBand