VBA271 [VBA] Alt + Enter 셀 텍스트 색상 변경하기 이전에 이런 글을 올릴적이 있다 https://1stminokingdom.tistory.com/56 [VBA] 글자색 바꾸기(feat. Instr/Characters) 오늘 해볼건 이런것이다. 색상 을 변경할 단어를 Inputbox로 입력받은 후 입력받은 단어를 색상은 빨강색 / Bold는 True하는 작업이다. 이 역시 막상 해보려면 좀 난감하기에 코드를 한번 쏴악 훝어보 1stminokingdom.tistory.com 이건 해당 영역을 순환하면서 값을 찾은 후 글자수를 계산하여 해당 글자만큼 색상을 입혀주기만 하면 된다. 아무 생각할 필요도 없다고 건방을 떨었다...와...근데 하루 반나절이 걸렸다. 물론 일하는 짬짬이 해결했지만 시간 상으론 하루 반나절이 맞다... 이전 글에 올렸던 글자색 변경 문.. 2022. 4. 20. [VBA] 반편성하기(메모에 사진넣기) 각 조건에 모두 부합하는 반편성을 구하시오 ※ 조건1 : 1반 부터 100반까지 1~100까지의 랜덤 숫자 넣기 ※ 조건2 : 각 10배수 / 10 = 반편성 ex) 50번일 경우 5반 ※ 조건3 : 각 5배수는 각 반 한명만 위치하기(반드시 떨어져야 하는 아이들) 코드 진행은 이렇다. 1. 고유값을 전체 영역에 출력한다. 2. 고유값중 10의 배수들은 각 배수의 몫이 해당반에 속해야 한다. 3. 5의 배수중 홀수는 반에 한명씩만 있어야 한다. (메모 사진을 보길 바란다) 4. 학생에 해당하는 사진을 넣는다( 이건 개인 차가 있으니 자신들의 폴더 영역을 수정해야한다.) 핵심구문1: 코드 진행 중 숫자 위치를 변경하기 위해 temp = 1 1=2 2=temp 이렇게 하면 1번과 2번의 값을 바꿀 수 있다... 2022. 4. 15. [VBA] 내일의 로또당첨을 위해(feat. 인생한방!!) 인생 뭐있냐..한방이지... 최근 고유값을 찾기 위한 배열과 셀기반 구문들을 계속 해오고 있는데 고유값 문제의 단골문제는 로또번호를 구하는 문제가 주를 이루기에 이참에 본인도 만들어 보기로 하였다. https://www.youtube.com/watch?v=RhVgm-zDhX0&t=302s 엑사남님이 1년전에 만드신걸 이제야 만들게 되다니...반성중~~ 기본 골격은 엑사남님 파일에서 가져왔다. 엑사남님이 셀기반과 Countif 로 중복값을 걸러내면서 로또번호를 도출하였다면 본인은 최근 계속 사용하고 있는 배열내 고유값을 찾아내는 구문으로 해결하였다. 로또 번호의 생성과 함께 번호의 구문으로 도형의 색상도 함께 변경되도록 구문을 정리하였다. 도형의 텍스트는 셀의 값을 연동시키는 방식으로 하였는데 도형에 바로.. 2022. 4. 14. [VBA] 등급별 랜덤 순번과 전체순번을 구하라 등급은 A,B,C,D,E 총 5 등급이 있다. 등급을 나누는 조건은 또 있는데 5등급을 임의로 나누어서 셀에 뿌려 놓았다. 영역 [F1:G6]는 전체 영역에서 각 등급의 구성갯수를 엑셀의 Countif를 통해서 구하였다. 랜덤값을 구해야 함으로 Application.Randbetween(1 to 마지막값)을 구해야 한다. 각 등급별로 마지막값이 다르므로 전체영역을 순환하면서 등급을 확인 후 해당 등급의 구성값을 끌어와서 랜덤값을 도출하여야 한다. 도출된 값이 기존에 있던 값인지 결과배열(임시배열)에서 찾아본 후 값이 정상적으로 도출이 된다면 값이 중복 되었다는 것이고 값이 "Error"로 도출이 된다면 중복이 되지 않았다는 뜻이므로 셀에 출력 후 다음을 위해 중복 되지 않은 값을 배열에 담아주는 방식으로.. 2022. 4. 12. 이전 1 ··· 47 48 49 50 51 52 53 ··· 68 다음
