Przejdź do głównej zawartości

Jak utworzyć kod QR na podstawie wartości komórki w programie Excel?

Czy wiesz, jak utworzyć kod QR na podstawie określonej wartości komórki w programie Excel? W tym artykule szczegółowo opisano metodę osiągnięcia tego celu.

Utwórz kod QR na podstawie wartości komórki za pomocą kontroli kodów kreskowych i kodu VBA
Z łatwością twórz zbiorczo wiele kodów QR na podstawie wartości komórek za pomocą niesamowitego narzędzia


Utwórz kod QR na podstawie wartości komórki za pomocą kontroli kodów kreskowych i kodu VBA

Kontrola kodów kreskowych może pomóc w szybkim utworzeniu kodu QR na podstawie wartości komórki w programie Excel. Wykonaj następujące czynności.

1. Otwórz arkusz zawierający wartość komórki, na podstawie której utworzysz kod QR.

2. kliknij Deweloper > wstawka > Więcej kontroli. Zobacz zrzut ekranu:

3. w Więcej kontroli poszukaj pliku Kontrola kodów kreskowych Microsoft 16.0 or Kontrola kodów kreskowych Microsoft 15.0.

4. Jeśli nie znalazłeś kontroli kodów kreskowych w oknie Więcej kontroli lub Kontrola kodów kreskowych nie zawiera 16.0 lub 15.0, musisz pobrać plik kontroli kodów kreskowych, klikając te łącza: pobierz kontrolę kodów kreskowych. Jeśli w oknie Więcej opcji jest Kontrola kodów kreskowych 16.0 lub 15.0, po prostu przejdź do poniżej krok 10.

Po pobraniu pliku rozpakuj go, a następnie zaktualizuj Kontrolę kodu kreskowego pobraną kontrolką kodu kreskowego w programie Excel w następujący sposób.

5. Zamknij wszystkie skoroszyty programu Excel, przejdź do pliku Start sekcję, znajdź przewyższać app i kliknij ją prawym przyciskiem myszy, a następnie wybierz Uruchom jako administrator z menu kontekstowego. Zobacz zrzut ekranu:

6. W otwarciu User Account Control okno dialogowe, kliknij przycisk Tak przycisk.

7. Następnie tworzony jest nowy skoroszyt. Proszę kliknąć Deweloper > wstawka > Więcej kontroli. Zobacz zrzut ekranu:

8. w Więcej kontroli okno, kliknij Zarejestruj się Custom , znajdź i wybierz jeden z pobranych plików OCX z kodem qr, a następnie kliknij Otwarte przycisk. Zobacz zrzut ekranu:

9. Kliknij OK przycisk, gdy zwraca Więcej kontroli okno, aby zakończyć aktualizację Barcode Control. Następnie ponownie otwórz skoroszyt zawierający wartości komórek, na podstawie których utworzysz kody QR.

10. Kliknij prawym przyciskiem myszy kartę arkusza i kliknij Wyświetl kod z menu kontekstowego, aby otworzyć plik Microsoft Visual Basic for Applications okno. Następnie skopiuj i wklej poniższy kod VAB do okna Code. I na koniec naciśnij inny + Q klawisze, aby wyjść z Microsoft Visual Basic for Applications okno.

Kod VBA: utwórz kod QR w programie Excel

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. kliknij Deweloper > wstawka > Przycisk (kontrolka formularza) jak pokazano na poniższym zrzucie ekranu.

12. Narysuj przycisk w bieżącym arkuszu. W wyskakującym okienku Przypisz makro dialog, wybierz ustawQR w polu, a następnie kliknij OK przycisk.

13. Wyłącz Tryb projektowania klikając przycisk Deweloper > Tryb projektowania.

14. Kliknij przycisk w otworze Kutools dla programu Excel wybierz komórkę, na podstawie której utworzysz kod QR, i kliknij OK.

15. W sekundę Kutools dla programu Excel wybierz komórkę, w której ma zostać umieszczony kod QR. Zobacz zrzut ekranu:

Następnie kod QR zostanie natychmiast wstawiony do określonej komórki. Powtórz kroki od 14 do 15, aby zakończyć tworzenie wszystkich kodów QR Code. Zobacz zrzut ekranu:


Z łatwością twórz zbiorczo wiele kodów QR na podstawie wartości komórek za pomocą niesamowitego narzędzia

Szczerze mówiąc, powyższa metoda nie jest łatwa w obsłudze, ponieważ ma swoje własne ograniczenia. Tutaj gorąco polecam Wstaw kod QR cechą Kutools dla programu Excel. Ta funkcja może pomóc szybko wstawić zbiorczo kody QR na podstawie określonych wartości komórek w programie Excel za pomocą kilku kliknięć. Aby to zrobić, wykonaj następujące czynności.

Przed złożeniem wniosku Kutools dla programu ExcelProszę pobierz i zainstaluj najpierw.

1. Najpierw przygotuj swoje wartości, na podstawie których chcesz stworzyć kod QR.

2. kliknij Kutools > wstawka > Wstaw kod QR.

Porady: Jeśli nie możesz znaleźć funkcji o tej ścieżce, naciśnij inny + S klawisze jednocześnie, aby otworzyć Wyszukaj funkcje Kutools pudełko, ręcznie wpisz Kod QR w polu wyszukiwania, zobaczysz Wstaw kod QR funkcja jest wymieniona, wystarczy kliknąć, aby ją aktywować. Zobacz zrzut ekranu:

Teraz okienko Wstaw kod QR jest wyświetlane po prawej stronie skoroszytu.

3. w Wstaw kod QR należy skonfigurować w następujący sposób.

3.1) W Zakres danych wybierz zakres komórek zawierających wartości, na podstawie których chcesz utworzyć kod QR;
3.2) W Wstaw zakres pole, wybierz zakres pustych komórek, aby wyprowadzić kod QR;
3.3) W Opcje sekcji, skonfiguruj rozmiar, kolor linii, kolor tła i Poziom korekcji błędów dla kodu QR, jak potrzebujesz;
Uwaga: Rozmiar kodu QR nie może przekraczać 500 pikseli.
3.4) Kliknij Generuj swój przycisk. Zobacz zrzut ekranu:

4. Następnie a Kutools dla programu Excel pojawi się okno dialogowe, kliknij OK.

5. Następnie w tym samym czasie tworzone są kody QR. Musisz ręcznie zamknąć Wstaw kod QR okienko po zakończeniu tworzenia wszystkich kodów QR.

Kliknij, aby dowiedz się więcej o tej funkcji...


Podobne artykuły:

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
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