엑셀에서 특정 단어만 찾아서 강조표시하고 싶은 경우 찾기/ 바꾸기를 실행하면 포함된 셀 전체의 서식이 바뀌어 버립니다. 이럴 때 VBA로 특정 단어만 찾아서 표시할 수 있습니다. 실행화면은 아래와 같습니다.아래와 같은 코드가 사용되었습니다. Sub Findicate() Dim sht As Worksheet, rng As Range Dim pos&, usr$, str$ '찾을 단어 usr = InputBox("표시할 단어는?", "특정단어 강조표시", "lov") If usr = "" Then Exit Sub '셀 순환 Set sht = ActiveSheet For Each rng In sht.UsedRange str = rn..
전체 글 검색 결과
아래 한/글 자동화에는 C++, 파이썬, 자바스크립트 등을 사용할 수 있습니다. 그런데 엑셀 파일을 읽어와서 한글 파일을 생성한다면엑셀 VBA를 이용하면 좀 더 효율적일 수 있습니다.VBA를 사용하면 별도의 프로그램 컴파일러가 필요 없습니다.한글 파일에 접근할 때 엑셀 시트에 한글 Control을 삽입해서 제어할 수도 있는데도구> 참조에서 HWPObject 등을 이용해서 아래 한/글창을 별도로 띄우고 해당 파일에 접근할 수 있습니다.(물론 아래한/글 프로그램이 설치되어 있어야합니다.)한글 제어에 사용되는 여러가지 명령들은 알기 어렵기 때문에 한글에서 여러가지 동작을 매크로 스크립트로 녹화를 한 다음 녹화된 코드를 약간 수정해서 사용하시면 편리합니다.한글 Object의 구조입니다. 더 하위 개체의 구..
지난번에 이어 이번에는 '코끼리'에 관한 Bomb Game을 만들어 보았습니다. 이번 기회에 인공지능 구글 Gemini 를 활용해서 퀴즈 문제를 생성/추출하고 엑셀파일과 PPTM 자동 매크로를 활용해서 손쉽게 Bomb Game 을 대량으로 제작하는 과정을 상세히 소개합니다. 1. 먼저 구글 Gemini 에게 문제를 출제해달라고 요청합니다. 처음 사용한 프롬프트는 아래와 같습니다.코끼리에 대한 특이한 사실에 대한 퀴즈문항을 30문제 만들려고 해 사람들이 믿지 못하거나 몰랐을, 아주 특이하고 깜짝 놀랄만한 사실에 대한 퀴즈를 내줘. 퀴즈 종류는 OX퀴즈, 빈칸넣기, 주관식, 다른관련동물문제로 균등하게 출제해줘. 출력은 'No, 항목, 문제, 정답, 해설' 로 텍스트파일형식의 CSV형태로 출력해줘, 긴..
파워포인트에서 특정 도형모양을 계속 그리고 싶을 때 도형아이콘을 더블 클릭하면 계속 그릴 수 있습니다.그런데 연속적으로 그릴 때는 상관이 없지만 다른 작업을 하다가 혹은 다른 도형을 그리다가 특정 도형모양을 바로 그리고 싶을 때는 방법이 없습니다. 예를 들어 자유형: 도형을 자주 쓰고 싶다면 삽입 > 도형 누르고 선 종류에서 자유형 도형 아이콘을 마우스로 선택해야 합니다. 단축키로는 상당히 어렵습니다. Alt+n을 누르고 s, h 도형을 선택하면 도형 모양들이 뜹니다. 그 다음은 따로 단축키가 없어서 방향키를 여러번 눌러야 합니다. 게다가 마지막 자유형 도형 아이콘에서 엔터를 치면 시작점을 찍을 수 있게 되는 것이 아니라 화면에 대각선 하나만 삽입되고 위치를 지정할 수도 없습니다. 이 때는 Auto..
먼저 직사각형 위에 부채꼴을 추가해서 캡슐 절반의 단면을 완성합니다. 핵심 원리는 위와 같은 도형아래에 원을 그리고 FollowMe 기능을 이용합니다. 원을 따라 기존 도형이 회전하게 됩니다. 두께가 있고 속이 비어 있다면 아래처럼 원래 도형을 복제해 10%쯤 크기를 줄이고안쪽을 삭제하고 나서 FollowMe 기능을 적용합니다. 알파벳 J 글자 모양의 도형을 Follow Me 기능으로 회전시키는 것입니다. 아래와 같이 속이 빈 총알 머리 모양도형이 완성됩니다. 하나 더 복제하고 크기를 10%키우고 아래에 배치합니다. 3D Builder에서 색을 바꾸거나 회전, 크기를 바꿀 수도 있고 다른 3MF 등의 형식으로 변환할 수 있습니다.애니메이션 적용 화면: 온라인에서 캡슐모양 3D모델을 다운로드할 ..
원래는 슬라이드를 한꺼번에 다른 프레젠테이션 파일에 붙여넣으면하이퍼링크가 다시 계산되어 링크 페이지가 업데이트됩니다.하지만 목차 슬라이드만 다른 프레젠테이션에 붙여넣거나링크로 이동되는 슬라이드만 다른 프레젠테이션에 삽입하는 경우 등은링크 페이지가 업데이트될 수 없습니다.또한 하이퍼링크가 특정 슬라이드 페이지가 아니라 슬라이드 이름으로 링크된 경우도자동으로 업데이트가 안될 수 있습니다.이렇게 슬라이드 링크 페이지에 오차가 발생했을 때 몇페이지 앞으로 당기거나 뒤로 밀려면VBA로 일괄로 링크 페이지를 +/- 증감시켜줄 수 있습니다.첨부파일을 다운로드해서 파일 속성에서 '차단해제' 후 매크로 허용해서 열거나 현재 프레젠테이션에서 Alt+ F11 누르고 창이 뜨면 삽입 > 모듈을 추가한 뒤에 아래 코드를..
셀에 특정 색상을 적용해 놓고지정한 색상의 값들만 합산하고 싶을 때 사용할 수 있는 사용자 함수입니다. VBA로 주어진 색상이 칠해진 셀들의 합을 구하는 사용자 함수를 만들어 사용할 수 있습니다.=SumColor(범위, 기준색상셀) 형식입니다.=SumColor(A2:B20, F2) 라면 A2:B20 범위에서 F2의 배경색상과 같은 셀의 숫자를 모두 합한 결과를 출력합니다. Function SumColor(Rng As Range, cRng As Range) As Long Dim r As Range For Each r In Rng If r.Interior.Color = cRng.Interior.Color Then If IsNumeric(r.Value) ..
지난번 Bomb24 생성기를 바탕으로 만든, 태양계에서 지구와 가장 가까운 붉은 행성 화성에 대한 Bomb Game형식의 OX퀴즈 샘플입니다. 총 20문제입니다.각 번호 뒤에 문제에 대한 힌트를 담은 사진을 보고 문제를 추측해서 번호를 누릅니다. 문제를 누르면 O 혹은 X와 해설이 나타납니다. 오른쪽 상단 Home 버튼을 누르면 다시 번호 화면으로 돌아갑니다.한 번 누른 번호는 사라집니다.(이것이 Bomb Game이지요) 문제는 구글 Gemini 에게 출제해서 CSV로 출력해 달라고 했습니다.아래처럼 엑셀 파일로 저장해서 문제를 생성하도록 했습니다. 실행화면: 번호 도형생성, 엑셀에서 문제 슬라이드 생성, 하이퍼링크, 트리거 애니메이션 등의 과정은 VBA를 이용해서 자동화해서 만들었습니다. 1..
최근댓글