Random 검색 결과

해당 글 5건
모든 행 값을 랜덤으로 섞기

엑셀에서 모든 행의 값을 섞어주는 코드입니다. 빨간 버튼은 행 전체를 순서를 바꿔주고 파란 버튼은 현재 열에 한해서 내부의 셀값을 섞어줍니다. Option Explicit '// mix the entire row Sub Shuffle() Dim sht As Worksheet Dim Rng As Range Dim lastRow As Long, l As Long, r As Long Dim t As Variant Randomize Application.ScreenUpdating = False Set sht = ActiveSheet lastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row For l = 1 To lastRow r = CLng(Rnd * (lastRow -..
XLS+VBA 2024. 3. 1. 01:37
100슬라이드 중 랜덤(무작위) 5슬라이드 재생

소개 실제 슬라이드 순서를 건드리지는 않고 100개의 슬라이드에서 랜덤으로 배열(추출)된 5개 문제슬라이드로 차례대로 이동하고 재시작 또는 종료하는 예제입니다. 조건 슬라이드 순서를 그대로 유지(바꾸지 않기) 등 다음 슬라이드를 누르면 다음 랜덤 슬라이드로 이동 마지막에 종료 메시지 출력 종료 후 다시 시작하면 다른 랜덤 5슬라이드로 이동. 무한 반복 구현 슬라이드쇼 재구성을 이용해서 실행할 때마다 사용자정의 슬라이드쇼를 생성 시작을 누르면 새로운 슬라이드쇼를 시작 (화면이 새로 시작하는 단점이 있음) 모든 슬라이드 순서를 슬라이드 ID로 구분해서 랜덤 재배열해서 처음 5개만 추출하여 쇼를 재구성 5슬라이드 후 마지막 슬라이드로 이동 재시작을 누르면 다시 다른 쇼를 재구성하여 시작 슬라이드쇼 종료시 재구..
PPT+VBA 2024. 1. 19. 13:05
구역내 슬라이드 랜덤 순서로 이동하기

관련: 지식인 1. 랜덤 슬라이드로 이동하게 하려면 VBA를 이용하는 것이 효과적입니다. ​ 1-1. 아래와 같이 구역별로 문제나 제시어를 넣어둡니다. 1-2. 첫번째 차례 슬라이드에 구역 이름이 적힌 도형을 배치하여 선택하게 합니다. 구역도형내의 텍스트와 '구역이름'이 정확히 일치해야 합니다. 첫번째 도형 텍스트가 '동물'이라면 구역 중의 하나의 이름이 '동물'이어야 합니다. 1-3. Alt-F11 창에 삽입 > 모듈을 하나 추가하고 아래 코드를 붙여넣고 창을 닫습니다. 더보기 Option Explicit Dim sPos() As Long Dim sCount As Integer Dim sOrder() As New Collection Dim sName() As String Sub onSlideShowPa..
PPT+VBA 2023. 2. 17. 01:12
랜덤 사진 슬라이드쇼

사진 여러장이 넘어가게 할 때 두 가지 방법이 있습니다. ​ 1. 한 슬라이드안에 여러 사진을 넣어두고 차례로 애니메이션으로 나타나게 하는 것과 ​ 2. 각 슬라이드마다 사진을 넣어서 슬라이드가 자동 전환이 되게 하는 방법 입니다. 2번 방법은 삽입 > 사진앨범 기능을 이용하면 자동으로 여러장의 사진이 각 슬라이드에 자동으로 삽입이 됩니다. 그리고 전환에서 모핑 전환을 적용하면 좋습니다. ​ 그런데 사진을 띄울 때 랜덤으로 순서가 섞이게 하려면 어느 방법이든 VBA를 이용해야 합니다. ​ 2번 방법에서 슬라이드 순서를 섞는 것은 기존 답변( 슬라이드 섞기 , 랜덤슬라이드쇼 ) 을 참고해주세요. ​ 1번 방법은 손이 더 가는 방법이지만 2번방식인 전체 슬라이드 전환과 달리 기존 화면에서 새로운 사진만 나타..
PPT+VBA 2022. 11. 3. 20:10
VBA 중복되지 않는 랜덤값(숫자) 구하기

VBA에서 int(Rnd * 5) 하면 0부터 4까지의 랜덤 숫자가 나온다. 1부터 5까지로 하려면Rnd*4+1로 해서 0부터 4까지 나온 수에 1을 더하면 된다. 그런데 랜덤 숫자는 바로 전에 나온 숫자와 중복된 숫자가 나올 수도 있다.이를 방지하는 방법을 생각해보자. 그저 단순히 이전 랜덤값을 저장했다가 비교할 수도 있지만중복된 수를 원천적으로 차단할 수는 없다. 그래서 배열을 이용해본다.5개의 배열에 1부터 5까지를 넣어 두고랜덤으로 배열을 섞어주는 것이다.어떤 값을 가진 배열들을 서로 섞는 것이라 중복된 수가 나올 수가 없다. 1부터 5까지의 수중에서 랜덤으로 추출한다고 가정하고소스 일부분을 보자 Private Num() As IntegerPrivate CurIndex As IntegerConst..
VBA Tipz 2016. 11. 22. 16:57