지난 번에 실시간으로 D-Day를 표시하는 것과 비슷한 '남은 시간 카운터'입니다.새로운 해가 가까이 다가오는 이 시점에서 새해맞이 카운터를 만들었습니다.요즘 같은 시기 다른 이벤트가 있을 때도 타이머를 만들 때 유용하겠습니다. 1슬라이드에는 Timer 와 Clock 이라는 텍스트상자를 삽입합니다.도형 이름으로 도형을 찾아가기 때문에 Alt+F10 창에서 도형 이름을 정확히 입력해야 합니다. VBA코드를 Module1에 넣습니다. 더보기Option Explicit#If VBA7 Then Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr, _ ByVal uElaps..
전체 글 검색 결과
Dictionary 를 이용해서 단어의 빈도수 통계를 내볼 수 있습니다.Sheet1 에 아래와 같이 텍스트가 들어 있습니다.Alt+F8로 CountWords 매크로를 실행하면 아래처럼 각 단어의 빈도수를 Sheet2 에 알려줍니다.코드는 아래와 같습니다.Alt+F11 창 도구 > 참조에서 Microsoft SCripting Runtime 라이브러리를 체크해주세요.더보기Option ExplicitSub CountWords() Dim sht1 As Worksheet, sht2 As Worksheet Dim rng As Range '도구-참조에서 Microsoft Scripting Runtime 체크 필수 Dim d As Dictionary 'Dim d as Object ..
도형이 회전하면서 뒤에 있는 내용이 나오게 하려면 3D기능을 이용해야 해서 어렵습니다.https://kin.naver.com/qna/detail.naver?d1id=1&dirId=102020103&docId=469885854 PPT 도형 양면 만드는법도형의 한면에 글자가 있고 도형이 회전해서 도형의 뒷면이 보일때 다른 글자가 보이게 하고 싶습니다 그렇게 만드는법 최대한 자세히 알려주세요kin.naver.com 간단히 1번 박스도형을 클릭하면회전하면서 사라지고 밑에 있는 도형이 나타나게 하는 것이 수월합니다.그 때 아래처럼 박스도형에 사라지기 효과 중 기본 회전 효과를 주고 '트리거'를 자기 자신 1번 도형(Box_1_1_1)에 적용하면 됩니다. 다른 네모 도형에는 애니메이션 복사 버튼을 더블 클릭하고 ..
대화창이 화면 밖으로 나가서 창을 움직일 수 없는 경우가 있습니다.한쇼 같은 프로그램에서 간혹 해당 증상이 발생합니다.이럴 때 창을 움직이는 방법입니다. 1. 윈도우에서는 현재 선택된 창에서 Alt+Space 를 누르면 창이동(M)과 닫기(Alt+F4) 가 뜹니다.이 때 M 키를 누른 다음 방향키로 창을 아래로 내려보세요.그 다음 엔터키나 마우스를 클릭하세요.2. 또는 첨부한 오토핫키 실행파일을 실행하고원하는 윈도우 또는 대화창을 Alt+클릭해서 마우스로 대화창을 이동하세요.첨부한 EasyWindowDragging 도 비슷한 오토핫키 프로그램입니다.이건 CapsLock을 누른 채로 창을 마우스로 이동할 수 있습니다. 그밖에 AltMove나 Infinite Screen 등의 프로그램이 있습니다.h..
빙고표를 만들고 빙고칸을 클릭하면 동그라미 표시가 나타나게 하고 싶은 경우입니다. 표로 만들려면 힘들고 도형으로 각각의 네모를 만들고동그라미가 나타나는 애니메이션에각각의 네모 도형으로 트리거를 걸면 됩니다.첫번째 네모 위에 동그라미 도형을 삽입하고동그라미 도형에 나타내기(밝기변화, 확대) 등의 효과를 적용합니다.그 상태에서 애니메이션 트리거를 아래에 있는 네모 도형(Box_1_1)로 지정합니다.그러면 슬라이드 쇼에서 첫번째 네모를 클릭하면 동그라미 도형이 나타납니다.반대로 동그라미를 클릭하면 동그라미 자신이 사라지게 할 수도 있습니다.동그라미에 애니메이션 추가를 누르고(반드시 추가를 눌러야 기존 애니메이션이 사라지지 않습니다.)사라지기 효과를 적용합니다.그 상태에서 애니메이션 트리거를 자기자신(Cir..
예를 들어 당근 사이트처럼 이미 UTF-8인코딩인 경우 WinHttp 로 HTML 문서 내용을 가져오면인코딩이 깨집니다. 이런 경우 인코딩 오류를 예방하거나 처리하는 방법을 소개합니다. 인코딩이 깨질 때첫번째 방법: WinHttp 대신 XMLHttp 혹은 ServerXMLHttp를 이용해서 접속하기아래는 Late Binding이지만 Early Binding하려면 도구 > 참조에서 XML 6.0 등의 라이브러리를 추가합니다.Function GetDocumentByURL(URL) Set winhttp = CreateObject("MSXML2.XmlHttp") Set document = CreateObject("Htmlfile") winhttp.Open "GET", URL, False..
파워포인트 파일을 열었을 때 마지막 페이지가 북마크처럼 뜨긴 하지만 마지막 페이지로 이동하는 기능은 없어서VBA를 이용해야겠습니다.페이지를 이동하는 코드는 아래처럼 간단합니다. Sub onLoad() ActiveWindow.View.GotoSlide 페이지번호숫자 End Sub 현재 슬라이드 위치를 태그에 저장하는 코드는 아래와 같습니다. Sub SaveTag() ActivePresentation.Tags.Add "LastPage", ActiveWindow.View.Slide.SlideIndex End Sub 더 자세한 내용은 아래 클래스와 모듈 코드를 참고하세요.직접 입력하기에는 조금 복잡할 수 있으니첨부파일 다운로드 받아서 파일 속성에서 '차단해제'하고 매크로를 허용한 다음다..
최근댓글