top of page
  • Foto do escritorDaniel Vinícius

Como criar QR Code usando Excel

Atualizado: 13 de fev. de 2023

Transforme a forma como você compartilha informações com o QR Code


Pessoal, tudo bem? Hoje eu quero compartilhar com vocês um vídeo e uma planilha super úteis para criar e imprimir QRCodes para etiquetar coisas.


Recebi um pedido de ajuda de um cliente que precisava etiquetar itens baratos que vêm e vão com muita velocidade e quer uma maneira fácil e eficiente de fazer isso sem gastar muito.


Por isso, eu gravei esse tutorial abaixo bem no estilo DIY (faça você mesmo) que vai ajudar a solucionar esse problema.


Se você também precisa etiquetar coisas, dê uma olhada no vídeo e use a planilha que deixei no blog.




Passo a passo para criar

Como ativar o modo desenvolvedor e criar um módulo VBA no Excel:


1. Abra o Excel e clique em "Arquivo" -> "Opções" -> "Personalizar faixa de opções".

2. Role até a opção "Comandos desenvolvimento" e clique na caixa de seleção para habilitar o modo desenvolvedor.

3. Clique no botão "OK" para salvar as alterações.

4. Clique na guia "Desenvolvedor" no canto superior direito da janela.

5. Clique em "Visual Basic" para abrir o editor de código VBA.

6. Clique em "Inserir" -> "Módulo" para criar um novo módulo.

7. Copie e cole o código VBA no editor e salve.



Function QrCode(CodeText As String)
    Dim URL As String, MyCell As Range
     
    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

Adaptado de: http://www.excelforum.com

8. Clique em "Arquivo" -> "Salvar Como" e selecione "Planilha macro habilitada" como tipo de arquivo.


9. Dê um nome à planilha e clique em "Salvar".


Faça abaixo o download da planilha já pronta do vídeo para você utilizar em seus projetos

Faça o Download do seu material abaixo:

Agora você já pode usar sua planilha, etiquetar materiais a fim de gerar rastreabilidade, melhor organização, controlar a saida, empréstimo etc.


Muito obrigado por dedicar seu tempo para ler este tutorial! Espero que tenha sido útil para você. Se você está buscando uma maneira ainda mais fácil e eficiente de gerenciar suas etiquetas, eu gostaria de lhe apresentar o software de gerenciamento de ferramentas, EPIs e itens de consumo, o EasyTool.


Com o EasyTool, você pode automatizar o processo de geração de etiquetas e gerenciar seus materiais de uma forma mais fácil e eficiente, além de reduzir seus custos com alta rastreabilidade dos materiais e controle de seu consumo por processo, colaborador, obra, setor e muito mais.


Se você está interessado em conhecer mais sobre o EasyTool, por favor, acesse o link e compartilhe com mais pessoas que possam se beneficobrir interessadas.


Obrigado e até a próxima!

193 visualizações0 comentário

Posts recentes

Ver tudo
bottom of page