RANDBETWEEN(1,45) 함수를 사용하여 각 셀마다 임의번호를 생성한 뒤
"자료정렬"버튼을 누르면 Visual Basic 개발도구로
위의 data 값만 아래에 복사하는 기능까지 완성하였습니다.
질문은
값을 복사한 뒤 가로로 정렬하는 부분에서 막히네요
아시는분 알려주세요. 미리 감사드립니다.
RANDBETWEEN(1,45) 함수를 사용하여 각 셀마다 임의번호를 생성한 뒤
"자료정렬"버튼을 누르면 Visual Basic 개발도구로
위의 data 값만 아래에 복사하는 기능까지 완성하였습니다.
질문은
값을 복사한 뒤 가로로 정렬하는 부분에서 막히네요
아시는분 알려주세요. 미리 감사드립니다.
그냥.. 셀에다 복사 하실때 정렬해서 붙여 넣으시는게 좋을것 같은데요..
For i = 7 To 11
Set Datas = Range("A" & i & ":F" & i)
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add2 Key:=Datas _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Datas
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
Next i
로또 당첨되면 한턱 쏘겠습니다. ㅋ
전 그냥 중복 x회 되는 번호들로 뽑아서도 해보고
그냥도 돌려보고 했는데
역시 로또는 로똡니다 ^^
운빨이 망통이라 몇달간 꽝입니다