Ana içeriğe atla

Excel'de hücre değerine göre qr kodu nasıl oluşturulur?

Excel'de belirli hücre değerine göre QR kodunu nasıl oluşturacağınızı biliyor musunuz? Bu makale size bunu başarmak için ayrıntılı bir yöntem gösterecek.

Barkod Kontrolü ve VBA kodu ile hücre değerine göre QR kodu oluşturun
Harika bir araçla hücre değerlerine dayalı olarak toplu olarak birden fazla QR kodunu kolayca oluşturun


Barkod Kontrolü ve VBA kodu ile hücre değerine göre QR kodu oluşturun

Barkod Kontrolü, Excel'deki hücre değerine göre hızlı bir şekilde QR kodu oluşturmanıza yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın.

1. QR Kodunu temel alarak oluşturacağınız hücre değerini içeren çalışma sayfasını açın.

2. tık Geliştirici > Ekle > Daha Fazla Kontrol. Ekran görüntüsüne bakın:

3. içinde Daha fazla kontrol pencere, kontrol edin Microsoft Barkod Kontrolü 16.0 or Microsoft Barkod Kontrolü 15.0.

4. Barkod Kontrolünü More Controls (Daha Fazla Kontrol) penceresinde bulamadıysanız veya Barcode Control 16.0 veya 15.0'ı bulamıyorsa, bu bağlantılara tıklayarak barkod kontrol dosyasını indirmeniz gerekir: barkod kontrolünü indir. More Controls pencerenizde Barkod Kontrolü 16.0 veya 15.0 varsa aşağıya atlayın 10 adım.

Dosyayı indirdikten sonra, sıkıştırmasını açın ve ardından Barkod Kontrolünü, Excel'inizdeki indirilen barkod kontrolü ile aşağıdaki şekilde güncelleyin.

5. Tüm Excel çalışma kitaplarınızı kapatın, Başlama bölümünde bul Excel uygulamasını seçin ve üzerine sağ tıklayın, ardından Yönetici olarak çalıştır bağlam menüsünden. Ekran görüntüsüne bakın:

6. Açılışta Kullanıcı Hesabı Denetimi iletişim kutusunda, Evet düğmesine basın.

7. Ardından yeni bir çalışma kitabı oluşturulur. lütfen tıklayın Geliştirici > Ekle > Daha Fazla Kontrol. Ekran görüntüsüne bakın:

8. içinde Daha fazla kontrol Pencere, tıklayın Özel Kaydet düğmesini tıklayın, indirilen qr kodu OCX dosyasından birini bulun ve seçin ve ardından Açılış buton. Ekran görüntüsüne bakın:

9. Tıklayın OK düğmesi geri döndüğünde Daha fazla kontrol Barcode Control güncellemesini bitirmek için pencere. Ardından çalışma kitabını yeniden açın, QR Kodlarını temel alarak oluşturacağınız hücre değerlerini içerir.

10. Sayfa sekmesine sağ tıklayın ve tıklayın Kodu Görüntüle bağlam menüsünden Uygulamalar için Microsoft Visual Basic pencere. Ardından, VAB kodunu kopyalayıp Kod penceresine yapıştırın. Ve son olarak Ara Toplam + Q çıkış tuşları Uygulamalar için Microsoft Visual Basic pencere.

VBA kodu: Excel'de QR kodu oluşturun

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. tık Geliştirici > Ekle > Düğme (Form Kontrolü) aşağıda gösterilen ekran görüntüsü gibi.

12. Mevcut çalışma sayfasına bir düğme çizin. Haşhaşta Makro Ata iletişim kutusunu seçin setQR kutuya girin ve ardından OK düğmesine basın.

13. Kapatın Tasarım Modu tıklayarak Geliştirici > Tasarım Modu.

14. Açılışta düğmesini tıklayın Kutools for Excel iletişim kutusunda QR Kodunu oluşturacağınız hücreyi seçin ve tıklayın OK.

15. saniyede Kutools for Excel iletişim kutusunda, QR Kodunu yerleştirmek için bir hücre seçin. Ekran görüntüsüne bakın:

Ardından QR Kodu hemen belirtilen hücreye eklenecektir. Oluşturulan tüm QR Kodunu bitirmek için adım 14 ila 15'i tekrarlayın. Ekran görüntüsüne bakın:


Harika bir araçla hücre değerlerine dayalı olarak toplu olarak birden fazla QR kodunu kolayca oluşturun

Dürüst olmak gerekirse, kendi sınırlamaları olduğu için yukarıdaki yöntemin kullanımı kolay değildir. Burada şiddetle tavsiye edilir QR Kodunu Girin özelliği Kutools for Excel. Bu özellik, yalnızca birkaç tıklamayla Excel'de belirtilen hücre değerlerine göre toplu olarak QR kodlarını hızlı bir şekilde eklemenize yardımcı olabilir. Bunu yapmak için lütfen aşağıdakileri yapın.

Başvurmadan önce Kutools for ExcelLütfen önce indirin ve kurun.

1. Öncelikle QR kodunu baz alarak oluşturmak istediğiniz değerlerinizi hazırlayın.

2. tık Kutools > Ekle > QR Kodunu Girin.

İpuçları: Özelliği bu yolla bulamıyorsanız, lütfen Ara Toplam + S anahtarları aynı anda açmak için Kutools İşlevlerini Ara kutu, manuel olarak yazın QR Code arama kutusunda, ardından QR Kodunu Girin özellik listelenmiştir, özelliği etkinleştirmek için tıklamanız yeterlidir. Ekran görüntüsüne bakın:

Şimdi, çalışma kitabının sağ tarafında QR Kodu Ekle bölmesi görüntülenir.

3. içinde QR Kodunu Girin bölmesini aşağıdaki gibi yapılandırmanız gerekir.

3.1) içinde Veri aralığı kutusunda, QR Koduna dayalı olarak oluşturmak istediğiniz değerleri içeren hücre aralığını seçin;
3.2) içinde Aralık Ekle kutusunda, QR kodunun çıktısını almak için bir dizi boş hücre seçin;
3.3) içinde Opsiyonlar bölümünde yapılandırın boyut, çizgi rengi, arka plan rengi ve Hata Düzeltme seviyesi QR kodu için ihtiyacınız olan;
Not: QR kodunun boyutu 500 pikseli aşamaz.
3.4) Oluşturmak buton. Ekran görüntüsüne bakın:

4. Sonra a Kutools for Excel iletişim kutusu açılır, tıklayın Tamam.

5. Ardından aynı anda QR kodları oluşturulur. manuel olarak kapatmanız gerekir QR Kodunu Girin tüm QR kodlarını oluşturmayı bitirirseniz bölme.

Için tıklayın Bu özellik hakkında daha fazla bilgi edinin...


İlgili makale:

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
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