메인 컨텐츠로 가기

Excel에서 셀 값을 기반으로 qr 코드를 만드는 방법은 무엇입니까?

작가: 실루비아 최종 수정 날짜: 2021-08-04

Excel에서 특정 셀 값을 기반으로 QR 코드를 만드는 방법을 알고 있습니까? 이 기사에서는이를 달성하는 방법을 자세히 설명합니다.

Barcode Control 및 VBA 코드로 셀 값을 기반으로 QR 코드 생성
놀라운 도구를 사용하여 셀 값을 기반으로 여러 QR 코드를 대량으로 쉽게 생성


Barcode Control 및 VBA 코드로 셀 값을 기반으로 QR 코드 생성

바코드 컨트롤을 사용하면 Excel의 셀 값을 기반으로 QR 코드를 빠르게 생성 할 수 있습니다. 다음과 같이하십시오.

1. QR 코드를 생성 할 셀 값이 포함 된 워크 시트를 엽니 다.

2. 클릭 개발자 > 끼워 넣다 > 더 많은 제어. 스크린 샷보기 :

3. 에서 추가 컨트롤 창에서 Microsoft 바코드 제어 16.0 or Microsoft 바코드 제어 15.0.

4. 추가 컨트롤 창에서 바코드 컨트롤을 찾지 못했거나 바코드 컨트롤이 16.0 또는 15.0이 아닌 경우 다음 링크를 클릭하여 바코드 컨트롤 파일을 다운로드해야합니다. 바코드 컨트롤 다운로드. 추가 제어 창에 바코드 제어 16.0 또는 15.0이있는 경우 아래로 이동하십시오. 10 단계.

파일을 다운로드 한 후 압축을 풀고 다음과 같이 Excel에서 다운로드 한 바코드 컨트롤로 바코드 컨트롤을 업데이트합니다.

5. 모든 Excel 통합 문서를 닫고 스타트 섹션에서 뛰어나다 앱을 마우스 오른쪽 버튼으로 클릭 한 다음 관리자 권한으로 실행 상황에 맞는 메뉴에서. 스크린 샷보기 :

6. 오프닝에서 사용자 계정 컨트롤 대화 상자에서 가능 버튼을 클릭합니다.

7. 그런 다음 새 통합 문서가 생성됩니다. 클릭하세요 개발자 > 끼워 넣다 > 더 많은 제어. 스크린 샷보기 :

8. 에서 추가 컨트롤 창을 클릭합니다 커스텀 등록 버튼을 클릭하고 다운로드 한 qr 코드 OCX 파일 중 하나를 찾아 선택한 다음 엽니다 단추. 스크린 샷보기 :

9. 을 클릭합니다 OK 버튼이 반환되면 추가 컨트롤 Barcode Control 업데이트 완료 창. 그런 다음 QR 코드를 생성 할 셀 값이 포함 된 통합 문서를 다시 엽니 다.

10. 시트 탭을 마우스 오른쪽 버튼으로 클릭하고 코드보기 상황에 맞는 메뉴에서 응용 프로그램 용 Microsoft Visual Basic 창문. 그런 다음 VAB 코드 아래에 복사하여 코드 창에 붙여 넣습니다. 그리고 마지막으로 다른 + Q 나가는 열쇠 응용 프로그램 용 Microsoft Visual Basic 창.

VBA 코드 : Excel에서 QR 코드 만들기

Sub setQR()
'Updated by Extendoffice 2018/8/22
    Dim xSRg As Range
    Dim xRRg As Range
    Dim xObjOLE As OLEObject
    On Error Resume Next
    Set xSRg = Application.InputBox("Please select the cell you will create QR code based on", "Kutools for Excel", , , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xRRg = Application.InputBox("Select a cell to place the QR code", "Kutools for Excel", , , , , , 8)
    If xRRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xObjOLE = ActiveSheet.OLEObjects.Add("BARCODE.BarCodeCtrl.1")
    xObjOLE.Object.Style = 11
    xObjOLE.Object.Value = xSRg.Text
    ActiveSheet.Shapes.Item(xObjOLE.Name).Copy
    ActiveSheet.Paste xRRg
    xObjOLE.Delete
    Application.ScreenUpdating = True
End Sub

11. 클릭 개발자 > 끼워 넣다 > 버튼 (양식 컨트롤) 아래 스크린 샷과 같이.

12. 현재 워크 시트에 단추를 그립니다. 팝업에서 매크로 지정 대화 상자에서 선택하십시오. 세트QR 상자에 입력 한 다음 OK 버튼을 클릭합니다.

13. 전원 끄기 디자인 모드 클릭하여 개발자 > 디자인 모드.

14. 개구부에서 버튼을 클릭합니다. Excel 용 Kutools 대화 상자에서 QR 코드를 생성 할 셀을 선택하고 OK.

15. 두 번째 Excel 용 Kutools 대화 상자에서 QR 코드를 배치 할 셀을 선택합니다. 스크린 샷보기 :

그러면 QR 코드가 지정된 셀에 즉시 삽입됩니다. 생성 된 모든 QR 코드를 완료하려면 14 ~ 15 단계를 반복합니다. 스크린 샷보기 :


놀라운 도구를 사용하여 셀 값을 기반으로 여러 QR 코드를 대량으로 쉽게 생성

솔직히 위의 방법은 나름의 한계가 있어서 다루기가 쉽지 않습니다. 여기 적극 추천합니다 QR 코드 삽입 특징 Excel 용 Kutools. 이 기능을 사용하면 몇 번의 클릭만으로 Excel에서 지정된 셀 값을 기반으로 QR 코드를 대량으로 빠르게 삽입할 수 있습니다. 완료하려면 다음을 수행하십시오.

신청하기 전에 Excel 용 Kutools, 제발 먼저 다운로드하여 설치하십시오..

1. 먼저 QR코드를 생성하고자 하는 값을 기준으로 준비합니다.

2. 클릭 쿠툴 > 끼워 넣다 > QR 코드 삽입.

팁 : 이 경로로 기능을 찾을 수 없으면 다음을 누르십시오. 다른 + S 동시에 열려면 키 Kutools 기능 검색 상자, 수동으로 입력 QR 코드 검색창에 보시면 QR 코드 삽입 기능이 나열되어 있으면 클릭하여 기능을 활성화하기만 하면 됩니다. 스크린샷 참조:

이제 통합 문서의 오른쪽에 QR 코드 삽입 창이 표시됩니다.

3. 에서 QR 코드 삽입 창에서 다음과 같이 구성해야합니다.

3.1)에서 데이터 범위 상자에서 QR 코드를 생성할 값이 포함된 셀 범위를 선택합니다.
3.2)에서 범위 삽입 상자에서 QR 코드를 출력할 빈 셀 범위를 선택하십시오.
3.3)에서 옵션 섹션에서 크기, 선색, 배경색오류 수정 수준 당신이 필요에 따라 QR 코드에 대한;
참고 : QR 코드의 크기는 500픽셀을 초과할 수 없습니다.
3.4) 클릭 생성 단추. 스크린 샷보기 :

4. 그런 다음 Excel 용 Kutools 대화 상자가 나타나면 좋아요.

5. 그러면 동시에 QR코드가 생성됩니다. 수동으로 닫아야 합니다 QR 코드 삽입 모든 QR 코드 생성이 완료되면 창을 클릭합니다.

클릭하여 이 기능에 대해 더 알고...


관련 기사 :

최고의 사무 생산성 도구

🤖 Kutools AI 보좌관: 다음을 기반으로 데이터 분석을 혁신합니다. 지능형 실행   |  코드 생성  |  사용자 정의 수식 만들기  |  데이터 분석 및 차트 생성  |  Kutools 기능 호출...
인기 기능: 중복 항목 찾기, 강조 표시 또는 식별   |  빈 행 삭제   |  데이터 손실 없이 열이나 셀 결합   |   수식없이 반올림 ...
슈퍼 조회: 다중 기준 VLookup    다중 값 VLookup  |   여러 시트에 걸친 VLookup   |   퍼지 조회 ....
고급 드롭다운 목록: 드롭다운 목록을 빠르게 생성   |  종속 드롭다운 목록   |  다중 선택 드롭 다운 목록 ....
열 관리자: 특정 개수의 열 추가  |  열 이동  |  Toggle 숨겨진 열의 가시성 상태  |  범위 및 열 비교 ...
특색 지어진 특징: 그리드 포커스   |  디자인보기   |   큰 수식 바    통합 문서 및 시트 관리자   |  리소스 라이브러리 (자동 텍스트)   |  날짜 선택기   |  워크 시트 결합   |  셀 암호화/해독    목록으로 이메일 보내기   |  슈퍼 필터   |   특수 필터 (굵게/기울임꼴/취소선 필터링...) ...
상위 15개 도구 세트12 본문 도구 (텍스트 추가, 문자 제거,...)   |   50+ 거래차트 유형 (Gantt 차트,...)   |   40+ 실용 방식 (생일을 기준으로 나이 계산,...)   |   19 삽입 도구 (QR 코드 삽입, 경로에서 그림 삽입,...)   |   12 매출 상승 도구 (숫자를 단어로, 환율,...)   |   7 병합 및 분할 도구 (고급 결합 행, 셀 분할,...)   |   ... 그리고 더

Excel용 Kutools로 Excel 기술을 강화하고 이전과는 전혀 다른 효율성을 경험해 보세요. Excel용 Kutools는 생산성을 높이고 시간을 절약하기 위해 300개 이상의 고급 기능을 제공합니다.  가장 필요한 기능을 얻으려면 여기를 클릭하십시오...

상품 설명


Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
Comments (38)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is it possible to make a payment qr code in excel?
f.e. In cell A1 I've an amout of 10 euro, and in cell B2 I want to have an qr code so anyone can pay me with the qr code?

Thanks.
This comment was minimized by the moderator on the site
Hi Ruben,

Thank you for reaching out with your question. While Kutools for Excel does feature QR code generation, creating a payment QR code directly in Excel for transactional purposes is beyond the scope of this feature. Payment QR codes usually require integration with financial services or payment platforms to ensure secure transactions. I recommend exploring services specifically designed for creating payment QR codes, such as those offered by banks or digital payment systems. These platforms can generate a QR code linked to your payment details securely. Once you have the payment QR code, you could then include it in your Excel document as an image.
This comment was minimized by the moderator on the site
Hello

The download link provided in step 4 appears to be only Microsoft Barcode Control 14.0. Can anyone suggest a correct link for 16.0 please?

Thank you.
This comment was minimized by the moderator on the site
1 Sheets waar in de cellen van de rij random QR codes binnen komen. Waarvan elke QR code automatisch de juiste Sheets openend?
Of de BVA commando codes van de Button om de koppeling maken naar een andere sheets.
Dan ben erg dankbaar voor.
(dit is voor vrijwilligerswerk)

Groetjes,
H. van Schaijk
This comment was minimized by the moderator on the site
Hi H. van Schaijk,
I can't fix this problem. Sorry about that.
This comment was minimized by the moderator on the site
Hi folks,
Below code works fine with me, which is linked to cell range & generates the QR at each row cell 5000 nos, however I would like to stop the QR object generation if the reference cell value is zero / otherway round should generate the QR at adjucent cell if the value at reference cell is more than zero or <>""

Please seek experts assistance!!

thank you in advance

Sub Gen_StockOut_QR()
MsgBox ("Will Generate QR Code for Stock_Out Items at In@Out Sheet")
Sheets("In@Out_Data").Select
ActiveSheet.Unprotect Password:=" "
'Column range set at QR_Code
Range("QR_Code").Select

For Each cell In Selection
'cell.Offset(0, 23).Select ' 1 indicates the position of excel column A1 from the formula/webaddress/site/characters to be used to generate QR code
cell.Offset(0, 0).Select

' My case QRCode is at column 24 hence 24 as column from A1, QR Size 100*100
FilePath = "http://chart.googleapis.com/chart?chs=100x100&&cht=qr&chl=" & WorksheetFunction.EncodeURL(cell.Value) ' here is the cell value

With ActiveSheet.Pictures.Insert(FilePath)
'.ShapeRange.ScaleWidth 0.95, msoFalse, msoScaleFromTopLeft
'.ShapeRange.ScaleHeight 0.95, msoFalse, msoScaleFromTopLeft

End With
Next cell
End Sub
This comment was minimized by the moderator on the site
Interesting article - thank you.  How do I remove the custom control from the list please?
This comment was minimized by the moderator on the site
Hi,Do you mean to remove the Form Control inserted in the VBA code method? If so, you just need to right click it (when there is a context menu listed, click anywhere outside it to hide the context menu), and then press Delete to remove it.
This comment was minimized by the moderator on the site
Olá! Para mim, nenhum dos comentários ou esse post funcionou corretamente, mas utilizando o Visual Basic com o código que deixarei abaixo funcionou, pois criou uma função para mim. E para usar a função é só abrir a planilha e digitar: "=QrCode("célula desejada")"




Function QrCode(codetext As String)
Dim URL As String, MyCell As Range
'Para gerar o código, precisa a máquina ter acesso a internet
Set MyCell = Application.Caller
URL = "https://chart.googleapis.com/chart?chs=150x150&cht=qr&chl=" & codetext
On Error Resume Next
ActiveSheet.Pictures("QR_" & MyCell.Address(False, False)).Delete
On Error GoTo 0
ActiveSheet.Pictures.Insert(URL).Select
With Selection.ShapeRange(1)
.PictureFormat.CropLeft = 15
.PictureFormat.CropRight = 15
.PictureFormat.CropTop = 15
.PictureFormat.CropBottom = 15
.Name = "QR_" & MyCell.Address(False, False)
.Left = MyCell.Left + 2
.Top = MyCell.Top + 2
End With
QrCode = ""
End Function
This comment was minimized by the moderator on the site
Wie lösche ich die QR Code Grafik wieder ? wenn ich mit den Skript Wie erstelle ich einen QR-Code basierend auf dem Zellenwert in Excel? einen QR Code erzeugt habe ?
This comment was minimized by the moderator on the site
Hi All,

I modified the VBA code for creation a multi QR codes from selection in excel column

Follow until step 10 then add this code

Sub setQR()

Dim xSRg As Range
Dim xRRg As Range
Dim xObjOLE As OLEObject
On Error Resume Next
Dim srcSelection As Range
Dim srcCell As String
For Each srcSelection In Application.Selection
Dim qrCelltoupdate As String
Dim qrTxt As String
qrCelltoupdate = srcSelection.Offset(0, 1).Address
qrTxt = srcSelection.Text
Worksheets("Sheet1").Range(qrCelltoupdate).Select
Application.ScreenUpdating = False
Set xObjOLE = ActiveSheet.OLEObjects.Add("BARCODE.BarCodeCtrl.1")
xObjOLE.Object.Style = 11
xObjOLE.Object.Value = qrTxt
ActiveSheet.Shapes.Item(xObjOLE.Name).Copy
ActiveSheet.Paste
xObjOLE.Delete
Next srcSelection
'Create Qr code from selection multi cells
End Sub


In step 12
Assign Macro
Chose: Sheet1.setQR

QR codes will be populated in next column

Hope that helps for you all
This comment was minimized by the moderator on the site
Hi ChavdarHarchev.
First of all thank You very much for Your nice work.

Is it possible for You to show how the VBA code looks like when it is finished?
Best regards
Pierre Galuszka.
This comment was minimized by the moderator on the site
Hi All,
I modified the VBA code for creation a multi QR codes from selection in excel column
Follow until step 10 then add this code
Sub setQR()

Dim xSRg As Range
Dim xRRg As Range
Dim xObjOLE As OLEObject
On Error Resume Next
Dim srcSelection As Range
Dim srcCell As String
For Each srcSelection In Application.Selection
Dim qrCelltoupdate As String
Dim qrTxt As String
qrCelltoupdate = srcSelection.Offset(0, 1).Address
qrTxt = srcSelection.Text
Worksheets("Sheet1").Range(qrCelltoupdate).Select
Application.ScreenUpdating = False
Set xObjOLE = ActiveSheet.OLEObjects.Add("BARCODE.BarCodeCtrl.1")
xObjOLE.Object.Style = 11
xObjOLE.Object.Value = qrTxt
ActiveSheet.Shapes.Item(xObjOLE.Name).Copy
ActiveSheet.Paste
xObjOLE.Delete
Next srcSelection
'Create Qr code from selection multi cells
End Sub


In step 12 Assign Macro Chose: Sheet1.setQR
QR codes will be populated in next column
Hope that helps for you all
This comment was minimized by the moderator on the site
I didn't have "Microsoft Barcode Control 16.0" so I down loaded per instruction. And open Excel with Admin mode. Then try to "Register Custom" . But I opened Barcode control folder and select MSBCODE964,OCX. Then there is error message came out. It said "The selected file does not contain self-registrating ActiveX control". What it means? What is the problem. And how can I install that?
This comment was minimized by the moderator on the site
1)Click File > Options.

2)Click Trust Center > Trust Center Settings > ActiveX Settings.

Click the options below, and then click OK.
* Enable all controls without restrictions and without prompting (not recommended)
3)Click Ok
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations