경우의수? 질문드립니다.

함수/공식
작성자
rpaq****
작성일
2020-10-12 17:16
조회
50
임의6개숫자를

 

각숫자별 차이1의 연속된번호를 제외 4연번 5연번 6연번 제외

각숫자별 차이1의 연속된번호 3쌍의 경우 제외

올짝수 올홀수 제외

아래 과정에서 어떻게추가해야 할 수 있나요 ㅠ  array 는 임의로 지정한 숫자입니다.

[code]
'Sub Lotto()
Dim Num() As Variant
Dim i As Integer, r As Integer, total As Integer
Dim temp As Integer
Dim cell As Range

Num = Array(1, 3, 5, 7, 9, 11, 15, 16, 19, 30, 45)
total = UBound(Num)
Randomize
For i = LBound(Num) To total
r = Int(total * Rnd)
temp = Num(r)
Num(r) = Num(i)
Num(i) = temp
Next i

Set cell = Cells(Rows.Count, 1).End(xlUp)
For i = 0 To 5
cell.Offset(1, i).Value = Num(i)
Next i

'End Sub
[/code]
전체 3

  • 2020-10-13 15:51

    안녕하세요? 🙂

    질문을 여러번 읽어 보았는데 제가 요점을 정확히 이해하지 못하겠습니다.^^;

    명령문은 이미 잘 작성하신 듯 하구요.. 조건에 따라 예외처리를 어떻게 추가하는지에 대해 여쭤보신 듯 한데

    어떤 조건에 적용이 어려우신지 좀 더 자세한 설명이 필요해보입니다^^


    • 2020-10-13 16:52

      로또로 예를들면 1~45까지숫자중에서 숫자간의간격이 1씩차이나는걸 1연변으로 가정했을대 6연번이라면1,2,3,4,5,6 5연번은 1,2,3,4,5 10 이런식으로 6연변 5연 4연번을 제외하는 경우의수를 제외하는 질문이었습니다 ㅜ!


      • 2020-10-13 21:28

        음.. 그래도 정확히 이해가 안되네요..^^;

        1,2,3,4,5,6 에서 6은 5연번 다음으로 사라지는건 알겠으나, 왜 갑자기 10이 나오는거죠?


    전체 1,354
    번호 카테고리제목작성자작성일추천조회
    1349 함수/공식
    New vlookup말고 다른수식을 도입해야할까요? 다른수식을 어떻게 적용해야할지모르겠어요 ㅠㅠ 첨부파일
    008Parts | 11:59 | 추천 0 | 조회 16
    008Parts11:59016
    1348 함수/공식
    New VLOOKUP 함수 그림 불러오기 관련 문의드립니다ㅠㅠ (1)
    tldg**** | 11:19 | 추천 0 | 조회 7
    tldg****11:1907
    1347 문서서식
    New 특정열 전체에 반영되는 조건부 서식을 모르겠네요 첨부파일 (1)
    마운틴 | 10:31 | 추천 0 | 조회 10
    마운틴10:31010
    1346 함수/공식
    New vlookup 여러개값 가져오기 공식자료의 활용 첨부파일
    승재빠 | 01:05 | 추천 0 | 조회 26
    승재빠01:05026
    1345 차트/그래프
    New 유동적으로 움직이는 그래프 구현 질문드립니다. 첨부파일 (2)
    cress | 2020.10.26 | 추천 0 | 조회 24
    cress2020.10.26024
    1344 차트/그래프
    New 간트차트에서 날짜를 일반서식으로 바꿔도 표기형식이 그대로 보이는 이유는 뭘까요 (1)
    still | 2020.10.26 | 추천 0 | 조회 13
    still2020.10.26013
    1343 함수/공식
    New 셀값안에 있는 다른 경로의 워크시트명을 자동으로 바꿀 수 있나요? (1)
    yachtclub | 2020.10.26 | 추천 0 | 조회 22
    yachtclub2020.10.26022
    1342 VBA
    New VBA 웹크롤링 다운로드 팝업창 열기/저장/취소 선택 방법 (1)
    묵비권 | 2020.10.26 | 추천 0 | 조회 25
    묵비권2020.10.26025
    1341 함수/공식
    New B열의 각 셀이 한개라도 A열과 각셀과 내용이 일치하지 않는 게 있으면 B열 전체색깔을 빨갛게 표시하는 함수가 있을까요? (3)
    마운틴 | 2020.10.26 | 추천 0 | 조회 24
    마운틴2020.10.26024
    1340 VBA
    New vba 특정 셀의 값에 따라 메시지 띄우기 (1)
    엑셀늅늅이 | 2020.10.25 | 추천 0 | 조회 30
    엑셀늅늅이2020.10.25030
    1339 함수/공식
    New 세트 상품을 단품으로 수량 기입해서 합산해야하는데, 문제가 있어요. (2)
    oster | 2020.10.25 | 추천 0 | 조회 29
    oster2020.10.25029
    1338 함수/공식
    New 문장변경 (1)
    작은소녀 | 2020.10.24 | 추천 0 | 조회 34
    작은소녀2020.10.24034
    1337 함수/공식
    New 휴가 현황을 확인할 수 있도록 할 수 있을까요? 첨부파일 (3)
    봉보로봉봉 | 2020.10.24 | 추천 0 | 조회 40
    봉보로봉봉2020.10.24040
    1336 함수/공식
    만년 달력 사용중 첨부파일 (1)
    시딘씨 | 2020.10.24 | 추천 0 | 조회 40
    시딘씨2020.10.24040
    1335 VBA
    엑셀 결과 값 매크로 버튼 눌렀을 때만 바뀌게 하는법 있을까요 (1)
    nm12**** | 2020.10.23 | 추천 0 | 조회 43
    nm12****2020.10.23043
    1334 함수/공식
    조건에 맞는 데이터 내림차순으로 정렬 함수 문의 첨부파일 (2)
    혁궁 | 2020.10.23 | 추천 0 | 조회 29
    혁궁2020.10.23029
    1333 대시보드
    대시보드 만들기 3강 (SUMPRODUCT 값 Name 오류) 첨부파일 (2)
    료마 | 2020.10.23 | 추천 0 | 조회 35
    료마2020.10.23035
    1332 함수/공식
    데이터유효성 검사 중 '공백무시'는 어떤 의미인가요? (1)
    성현생각 | 2020.10.23 | 추천 0 | 조회 32
    성현생각2020.10.23032
    1331 VBA
    한글(HWP)로 된 문서를 엑셀에 붙여넣는 작업을 매크로를 이용해 자동화하기 (3)
    화가 | 2020.10.23 | 추천 0 | 조회 39
    화가2020.10.23039
    1330 VBA
    각각 다른 파일을 개별로 메일을 보내고 싶습니다. (1)
    DAN | 2020.10.23 | 추천 0 | 조회 22
    DAN2020.10.23022
    1329 차트/그래프
    거품차트+원형차트 복합 (Compound bubble and pie chart) (4)
    아카시아 | 2020.10.23 | 추천 0 | 조회 42
    아카시아2020.10.23042
    1328 함수/공식
    2가지 조건을 만족하는 함수를 작성해야합니다. (4)
    THEEUGENE | 2020.10.22 | 추천 1 | 조회 50
    THEEUGENE2020.10.22150
    1327 차트/그래프
    간트 차트 내용 추가 관련 문의 드립니다. (1)
    나짱보이 | 2020.10.22 | 추천 0 | 조회 25
    나짱보이2020.10.22025
    1326 VBA
    VBA로 특정 셀 잠그기 / 잠금 해제하기 (1)
    엑셀늅늅이 | 2020.10.22 | 추천 0 | 조회 33
    엑셀늅늅이2020.10.22033
    1325 피벗테이블
    피벗테이블에서 사용날짜에 있는 값들이 이전 달에 들어가서 합이 되어 버리는 오류가 발생합니다. 첨부파일 (2)
    김광수 | 2020.10.22 | 추천 0 | 조회 37
    김광수2020.10.22037
    1324 차트/그래프
    [질문] 월 데이터를 그래프로 그릴 때 공휴일, 토, 일은 그래프에서 삭제하고 싶습니다. (4)
    그때의너 | 2020.10.22 | 추천 0 | 조회 40
    그때의너2020.10.22040
    1323 차트/그래프
    연결하여 붙여넣기(그림) 선택옵션에서 안보여서용 ㅠㅠ도와주세용 (2)
    윤사슴 | 2020.10.21 | 추천 0 | 조회 43
    윤사슴2020.10.21043
    1322 기능/도구
    조건부서식 아이콘표시 문의 첨부파일 (10)
    글래스 | 2020.10.21 | 추천 0 | 조회 56
    글래스2020.10.21056
    1321 차트/그래프
    선생님.. 첨부파일 (3)
    rpaq**** | 2020.10.21 | 추천 0 | 조회 56
    rpaq****2020.10.21056
    1320 함수/공식
    다운받은게 추가기능에서 설치가 된거 같은데 작동을 안하네요. 첨부파일 (1)
    Fund 꿈전사 | 2020.10.21 | 추천 0 | 조회 40
    Fund 꿈전사2020.10.21040