Ir para o conteúdo principal

Como criar código qr baseado no valor da célula no Excel?

Você sabe como criar um código QR com base em um valor de célula específico no Excel? Este artigo mostrará um método para conseguir isso em detalhes.

Crie o código QR com base no valor da célula com controle de código de barras e código VBA
Crie facilmente vários códigos QR em massa com base nos valores das células com uma ferramenta incrível


Crie o código QR com base no valor da célula com controle de código de barras e código VBA

O Barcode Control pode ajudá-lo a criar rapidamente o código QR com base no valor da célula no Excel. Faça o seguinte.

1. Abra a planilha que contém o valor da célula em que você criará o código QR.

2. Clique Developer > inserção > Mais controle. Veja a imagem:

3. No Mais controles janela, verifique o Controle de código de barras da Microsoft 16.0 or Controle de código de barras da Microsoft 15.0.

4. Se você não encontrou o Barcode Control na janela More Controls ou o Barcode Control não é 16.0 ou 15.0, você precisa baixar o arquivo de controle de código de barras clicando nestes links: baixar controle de código de barras. Se houver Barcode Control 16.0 ou 15.0 na janela Mais controles, basta pular para abaixo step 10.

Depois de baixar o arquivo, descompacte-o e atualize o Controle de código de barras com o controle de código de barras baixado em seu Excel da seguinte maneira.

5. Feche todas as suas pastas de trabalho do Excel, vá para o Início seção, encontre o Excel aplicativo e clique com o botão direito sobre ele e selecione Executar como administrador no menu de contexto. Veja a imagem:

6. Na abertura Controle de Conta de Usuário caixa de diálogo, clique no botão Sim botão.

7. Em seguida, uma nova pasta de trabalho é criada. Por favor clique Developer > inserção > Mais controle. Veja a imagem:

8. No Mais controles janela, clique em Cadastre-se personalizado botão, localize e selecione um dos arquivos OCX de código QR baixado e clique no Abra botão. Veja a imagem:

9. Clique na OK botão quando ele retorna o Mais controles janela para finalizar o Controle de Código de Barras atualizado. Em seguida, reabra a pasta de trabalho que contém os valores das células nos quais você criará os códigos QR.

10. Clique com o botão direito na guia da folha e clique em Ver código do menu de contexto para abrir o Microsoft Visual Basic para Aplicações janela. Em seguida, copie e cole o código VAB abaixo na janela de código. E finalmente pressione o outro + Q chaves para sair do Microsoft Visual Basic para Aplicações janela.

Código VBA: crie o código QR no 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. Clique Developer > inserção > Botão (controle de formulário) como a imagem abaixo mostrada.

12. Desenhe um botão na planilha atual. No surgimento Atribuir Macro diálogo, selecione definir QR na caixa e clique no OK botão.

13. Desligue o Modo de design clicando Developer > Modo de design.

14. Clique no botão, na abertura Kutools for Excel caixa de diálogo, selecione a célula na qual você criará o código QR e clique em OK.

15. Na segunda Kutools for Excel caixa de diálogo, selecione uma célula para colocar o código QR. Veja a imagem:

Em seguida, o código QR será inserido na célula especificada imediatamente. Repita as etapas 14 a 15 para concluir todos os QR Code criados. Veja a imagem:


Crie facilmente vários códigos QR em massa com base nos valores das células com uma ferramenta incrível

Para ser honesto, o método acima não é fácil de usar, pois tem suas próprias limitações. Aqui altamente recomendado o Insira o código QR característica de Kutools for Excel. Este recurso pode ajudá-lo a inserir rapidamente códigos QR em massa com base em valores de células especificados no Excel com apenas vários cliques. Faça o seguinte para fazer isso.

Antes de aplicar Kutools for Excel, Por favor baixe e instale primeiro.

1. Em primeiro lugar, prepare seus valores com base nos quais deseja criar o código QR.

2. Clique Kutools > inserção > Insira o código QR.

Dicas: Se você não conseguir encontrar o recurso com este caminho, pressione o outro + S simultaneamente para abrir o Pesquisar funções do Kutools caixa, digite manualmente QR Code na caixa de pesquisa, então você pode ver o Insira o código QR recurso está listado, basta clicar para ativá-lo. Veja a imagem:

Agora, o painel Inserir código QR é exibido no lado direito da pasta de trabalho.

3. No Insira o código QR painel, você precisa configurar da seguinte maneira.

3.1) No Intervalo de dados caixa, selecione o intervalo de células que contém os valores que você deseja criar com base no código QR;
3.2) No Faixa de inserção caixa, selecione um intervalo de células em branco para a saída do código QR;
3.3) No Opções seção, configure o tamanho, cor da linha, cor de fundo e Nível de correção de erro para o código QR conforme necessário;
Observação: O tamanho do código QR não pode exceder 500 pixels.
3.4) Clique no Gerar botão. Veja a imagem:

4. Então um Kutools for Excel caixa de diálogo aparece, clique OK.

5. Em seguida, os códigos QR são criados ao mesmo tempo. Você precisa fechar manualmente o Insira o código QR painel se terminar de criar todos os códigos QR.

Clique para saiba mais sobre este recurso ...


Artigo relacionado:

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo.  Clique aqui para obter o recurso que você mais precisa...

Descrição


Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
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