📝 엑셀 QR코드 공식
=IMAGE("https://api.qrserver.com/v1/create-qr-code/?data="&ENCODEURL(셀))
↑ 공식을 붙여넣기 한 후, "셀"을 셀 주소로 바꿔서 사용하세요!
오빠두Tip : 엑셀 이전 버전 사용자는, 웹 엑셀에서 IMAGE 함수를 편리하게 사용할 수 있습니다.😊 (무료 MS 계정으로 로그인 후 사용해보세요!)
✍️ 엑셀 이전 버전에서 xIMAGE 함수 사용하는 방법
- 아래 작성된 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
- 엑셀에서 Alt + F11 을 동시에 눌러 매크로 편집기를 실행합니다.
매크로 편집기를 실행합니다.
- [삽입] - [모듈] 을 선택해서 새로운 모듈을 추가합니다.
삽입 - 모듈을 클릭해서 새 모듈을 추가합니다.
- 새 모듈 안에 복사한 명령문을 붙여넣기하면 함수가 등록됩니다.
xImage 함수 코드를 모듈 안에 붙여넣기 합니다.
- 엑셀 시트로 돌아와서, 아래 함수를 입력하면 QR코드가 생성됩니다.
=xIMAGE("https://api.qrserver.com/v1/create-qr-code/?data="&ENCODEURL(셀),5)
'공식에서 "셀"을 QR코드로 만들 데이터가 입력된 셀 주소로 변경합니다.
xImage 함수로 QR코드를 생성합니다.
- 만약 xIMAGE 함수를 계속 사용하려면, 파일을 '매크로 포함 통합문서'로 저장합니다. [파일] - [다른이름으로 저장] 에서 'Excel 매크로 사용 통합문서(*.xlsm)'로 저장합니다.
xImage 함수를 계속 사용하려면, 매크로 사용 통합문서로 저장합니다.
- xIMAGE 함수를 일회성으로 사용했다면, 매크로 편집기에서 추가했던 모듈을 제거한 후 파일을 저장합니다.
함수를 일회성으로 사용했다면, 추가한 모듈을 제거한 후 파일을 저장합니다.
