Como criar QR Code usando Excel

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!