[2주차] 엑셀 API 기초 3주 완성_챌린지

🔥 실습 예제과 함께 공부하는 모습을 함께 올려보세요!
(마우스 드래그 & 스크린샷+붙여넣기로 편리하게 그림을 넣을 수 있습니다)

• 앞으로 실무에서 API를 잘 활용하는 것이 중요한 이유는 무엇인가요?
수동으로 필요한 자료를 하나하나 매번 검색하지 않고 하나의 템플렛으로 여러가지 검색에 활용 가능함

- URL 방식으로 서버에 요청 시, 꼭 알아야 할 기호인 "?" 와 "&" 기호의 사용법을 간략히 작성해보세요.

? : 물음표 앞의 주소가 API 기본주소
& : 내가 검색할 내용

• URL 방식 외에 JSON, XML 방식이 필요한 이유는 무엇인가요?
복잡하고 구조화된 형식을 세팅할 때 필요함

- JSON 데이터 구조에 사용되는 "3가지 중요 기호"와 사용법을 간략하게 정리해보세요.
{ } , [ ] , :

중괄호 “{ }” 와 콜론 “ : ” 은 Key와 Value 하나의 쌍으로 이루어진 항목들을 배열로 표시함
{ "name" : "오빠두", "age" : "30"}

대괄호 “[ ]” 는 Value로 이루어진 항목들을 배열로 표시 -> 값들만 나열할 때 표시함
["사과", "딸기", "블루베리"]

• (M365 버전 사용자) IMAGE 함수로 구글 QR 코드 API를 활용해 원하는 QR코드를 만드는 방법을 단계별로 정리합니다.

1. 기본링크와 검색할 내용을 정리
2. QR CODE 기본 URL + 검색할 최종링크 정리하여 QR코드로 만들 API주소를 완성함
3. 링크를 이미지로 불러오기 =IMAGE(이미지로만들링크있는셀)
4. QRCODE 있는 셀을 클릭하여 CTRL+C 복사하고 복사할곳 옆에 선택하여 붙여넣기(연결된 그림 클릭)
5. 그림_  자르기 설정으로 여백 최소화 및 보기 좋게 수정
6. 텍스트상자 삽입, 함수창 클릭 해서 받아올 셀 클릭

• (M365 이전 버전 사용자) VBA로 xImage 함수를 등록하고 사용하는 방법을 단계별로 정리합니다.

1. 엑셀에서 ALT+F11 동시에 누르기(매크로 편집기 실행)
2. 삽입 - 모듈( 매크로 작성창 불러오기)
3. 아래 내용 복사해서 붙여넣기
4. 매크로 편집기 종료
5. 셀에 함수 추가 =xIMAGE(이미지로 만들링크를 포함하는 셀)

Function xIMAGE(Link, Optional Margin As Long = 0, Optional UpdateImage As Boolean = True)

'###############################################################
'오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
'수정 및 배포 시 출처를 반드시 명시해야 합니다.

'■ xIMAGE 함수
'■ 인터넷 URL 또는 특정 파일 경로의 이미지를 삽입합니다.
'■ 사용방법
'=xImage("https://www.google.com/images/branding/googlelogo/1x/googlelogo_color_272x92dp.png")
'■ 인수 설명
'_____________Link : 웹 URL 또는 파일 경로입니다. 웹 URL일 경우 링크는 반드시 https:// 또는 http:// 로 시작해야 합니다.
'_____________Margin : 셀 안에 삽입할 그림에 여백을 줍니다. 픽셀 단위로 입력합니다. 기본값은 0(=여백없음)입니다.
'_____________UpdateImage : TRUE 일 경우 기존 셀 안에 삽입되어 있던 그림을 삭제하고 새로운 그림으로 갱신합니다. 기본값은 TRUE 입니다.
'###############################################################

Dim aRng As Range: Dim aWS As Worksheet
Dim shpImg As Shape

On Error Resume Next

Set aRng = Application.Caller
Set aWS = aRng.Parent

Application.EnableEvents = False

If IsEmpty(Link) Then xIMAGE = CVErr(xlValue): Exit Function

For Each shpImg In aWS.Shapes
If shpImg.TopLeftCell.Address = aRng.Address Then
If UpdateImage = True Then
shpImg.Delete
Else
xIMAGE = True
GoTo Final
Exit Function
End If
End If
Next

Set shpImg = aWS.Shapes.AddPicture(Link, msoFalse, msoTrue, _
aRng.Left + Margin, aRng.Top + Margin, _
aRng.MergeArea.Width - Margin * 2, aRng.MergeArea.Height - Margin * 2)
shpImg.Placement = xlMoveAndSize

If shpImg Is Nothing Then
xIMAGE = CVErr(xlValue)
Else
xIMAGE = True
End If

Final:
Set shpImg = Nothing: Set aRng = Nothing: Set aWS = Nothing
Application.EnableEvents = True

End Function

(선택) 현재 내 업무에 적용가능한 API는 무엇이 있을까요? 구글 또는 네이버에 검색 후, 어떻게 적용할 수 있을지 생각해보세요. 👍

- 인사업무 담당자인데 채용공고를 올릴 때 회사 홈페이지  api 활용을 할 수 있을 것 같습니다.