Testing function : Week Of the Month.... (첫주의 시작이 수요일 이전일 때만 한 주로 인정하는 경우, 일요일이 한 주의 시작인 경우) 결과값: Testing function : Week Of the Month.... (첫주의 시작이 수요일 이전일 때만 한주로 인정하는 경우, 일요일이 한주의 시작인 경우) 0)2017/01/01 : 1월 1주 1)2017/01/12 : 1월 3주 2)2017/2/1 : 2월 2주 3)2017/4/3 : 4월 1주 4)2017-05-29 : 5월 5주 5)2017-06-26 : 6월 4주 6)2017-07-01 : 7월 1주 7)2017-7-3 : 7월 1주 8)2017-07-31 : 8월 1주 9)2017-08-07 : 8월 2주 10)20..

연초라 달력을 자동으로 생성하는 프로그램을 만들어 보았습니다. 년도를 입력하면 VBA로 계산해서12달의 달력을 슬라이드로 출력하는 PPT프로그램입니다. 이렇게 별다른 디자인이 없는 기본 달력입니다. 가장 큰 특징은 년도만 입력하면 그 해의 12달 달력을 자동으로 출력한다는 점입니다. 그리고 단 한개의 Shape도 모두 VBA를 이용해서 출력합니다. 그래서 미리 배경이미지나 그림 등을 편집한 상태에서 VBA함수를 돌리면 그림 위에 달력이 뜨게 됩니다. 심지어는 모든 슬라이드를 지운 상태에서도 달력이 생성됩니다. 슬라이드 마스터나 배경서식, 디자인 등에서 화면 디자인을 정하고 시작할 수도 있습니다. 빈슬라이드가 되었든 사진12장이 포함된 슬라이드가 되었든 첨부파일을 열고 Alt-F11을 눌러서 VBE 창을 ..

PowerPoint 2010 기준입니다.슬라이드1에서 슬라이드2로 Shape 을 복사하는데 일반 Shape와 마찬가지로 Group인 Shape도 복사 .Copy 붙이기 .Paste는 잘 됩니다만 슬라이드1에서 원래 가지고 있던 그룹개체의 부모 Parent/자식 Child 속성이 사라지는 현상을 알게되었습니다.다른 버전에서도 이런지는 확인을 못했지만 이 현상을 회피하는 방법을 소개하고자 합니다. 일단, 첨부한 CopyGroup.pptm 을 실행해봅시다. 일단 지시하는대로 옵션1과 옵션 2를 클릭해봅시다.옵션1과 옵션2는 동그라미와 텍스트박스가 합쳐진 그룹입니다. 각각 Option1 과 Option2 라는 이름을 부여했고 내부적으로 클릭하면 'ParentGroup'을 이용해 부모그룹의 이름을 검사해서 끝자리..

제목대로 폴더를 선택하면그 폴더 내의 파워포인트 파일목록을 사이즈와 함께 보여줍니다. 매크로 허용해주시고 실행하면그저 이런 빈화면이 나옵니다. 자동으로 폴더창이 뜨거나, 혹시 안뜨면아래 처럼 '폴더선택'을 클릭해서 파포 파일들이 들어 있는 폴더를 선택해줍니다. 해당폴더에 들어가서 확인을 클릭해주세요.ppt 가 많이 들어 있는 폴더가 좋겠지요. 파일이 아니라 폴더를 선택하고 확인하는 것에 유의하세요.이렇게 막대그래프로 파일용량을 보여줍니다.약간의 애니메이션도 추가했습니다.사진파일을 넣을수록 PPT 파일의 용량은 커지지요.가장 큰 파일을 100%로 기준삼아 보여줍니다.색깔이 빨간색에 가까울 수록 큰 용량의 파일입니다.소스상 RGB(255,125,125) 가 100% 로 가장 큰 파일의 색깔입니다. 파일은 확..

고전 게임인 갤러그 비슷한 게임을 만들어보려다 VBA의 한계인지 제 실력의 한계인지 버벅임 때문에 슈팅게임에는 무리가 있구나 하는 것을 느꼈습니다. 화면 변화가 많은 게임은 플래쉬 같은게 적당할 것 같습니다. 그러나 그동안의 노력이 아쉬워 일단 간단하게 키보드 방향키로 적탄을 피하는 것 까지만 구현한 버전을 올립니다. GetAyncKeyState로 키보드 상하좌우 방향키를 이용합니다. 매크로로 되어 있어서 최초 1번은 파워포인트에서 불러와서 매크로컨텐츠를 허용해주셔야 합니다. 우주선(비행선?)을 클릭하면 Timer가 작동되면서 키보드 입력을 받아 우주선이 움직입니다. 갤러그 비행선 이미지는 제가 만든 것이 아니라 인터넷에서 가져온 것입니다. https://namu.wiki/w/%EA%B0%A4%EB%9F..

지난번 주식 시세 모니터링에 이어서이번에는 네이버 카페의 최신글을 모니터링하는 PPT VBA 프로그램입니다. 먼저 캡쳐 영상을 보겠습니다.특정 카페의 전체글, 특정게시판의 최근 글을 보여주고클릭하면 기본 브라우저를 통해 해당 게시글로 가게 되어 있습니다. 굳이 파워포인트를 켜서 이럴 일은 없겠지만 나름대로 만들어 보았습니다. 대상 카페와 추출해올 게시판은 상기와 같습니다. 일단 최신글 15개를 2페이지에 걸쳐 보여드립니다.가만히 있으면 10초마다 1페이지씩 에니메이션과 함께 지나갑니다. 2페이지입니다. 그다음으로 공지사항, 자유공간, 장르별강좌, 팁, vba게임, 질문 등의 게시판을 순서대로 보여줍니다. 7개 게시판이라 10초식 재생하고 그다음 게시판 하나씩 실시간으로 최근 목록을 가져옵니다. 제목을 클..

이 글은 VBA 에서 배열을 사용할 줄 아시는 분을 대상으로 합니다. 첨부한 슬라이드로 설명을 드립니다. 배열 중간에 뭔가 삽입해야할 때가 있습니다. 예를 들어 이렇게 3번 다음에 10번을 넣고 싶다면 어떨까요? Option Base 1dim i as Integerdim myArraydim copyArray()myArray = Array("1번선수","2번선수","3번선수", ...생략...) Redim Preserve myArray(Ubound(MyArray)+1) ' 배열크기를 1 증가시키고for i = Ubound(myArray) to 5 step -1 ' 끝에서부터 삽입위치까지 바로 이전 배열값을 차례로 복사myArray(i) = myArray(i-1)nextmyArray(4) = "10번선수" ..

PPT와 VBA를 이용한 실시간 주식 시세 모니터링 프로그램입니다.다음 파이낸스의 코스피 상위 25종목 의 시세를 가져와서 보여주는 프로그램입니다.사실 저는 주식의 '주'자도 모르지만 http://finance.daum.net/quote/rise.daum 의 자료를 간단히(?) 테이블로 가져와서 5개씩 5페이지에 걸쳐 화면전환과 에니메이션을 약간 섞어서 화면에 뿌려줍니다. 캡쳐영상(빠른 속도) 특히 일반적인 Split 을 이용한 파싱이 아니라MSHTML 라이브러리를 이용해서 WinHTTP로 받아온 HTML속에서 와 을 배열로 가져와서 간단히(?) 처리합니다. 그러기 위해서 Alt-F11 눌러서 매크로편집기상에서 메뉴에 도구-참조에서Microsoft Internet controls 와 Microsoft W..