Red de conocimiento informático - Material del sitio web - ¿Cómo generar códigos QR dinámicamente en EXcel? Preferiblemente en forma de tarjeta de visita.

¿Cómo generar códigos QR dinámicamente en EXcel? Preferiblemente en forma de tarjeta de visita.

Cree una nueva tabla de Excel e ingrese la información del código requerida para generar el código QR en la celda A1.

1. Primero, debe descargar un control qrmaker, descomprimir el archivo descargado y copiar todos los archivos en la carpeta QRMaker en c:\windows\system32. En la ventana de ejecución, escriba regsvr32? c:\windows\system32\QRmaker.ocx a través de "Inicio → Ejecutar" para registrar el componente.

2. Abra Excel, porque necesita usar VBA, ingrese a las opciones de Excel, marque "Mostrar herramientas de desarrollo en la cinta", cambie a la pestaña de herramientas de desarrollo, haga clic en Visual Basic para abrir el editor de VBA, seleccione " Herramientas → Referencia → Explorar " y busque el componente registrado c: → Windows → System32 → QRmaker.ocx. → Seleccione "Examinar", busque c:\windows\system32\QRMaker.ocx y cierre el editor.

3. Regrese a Excel, inserte un botón de comando en el espacio en blanco, haga clic derecho en el botón y seleccione "Especificar macro" → "Grabar", nombre la macro print2d y detenga la grabación de la macro.

4. Al mismo tiempo, inserte otros controles en el control QRMaker. Después de hacer clic en "Aceptar", el mouse se convertirá en una cruz y dibujará un control de código QR en el área en blanco.

5. Abra nuevamente el editor VBA, busque el módulo 1 a la izquierda, haga doble clic y borre todo el contenido a la derecha, e ingrese el siguiente código:

Sub print2d( )

Dim QRString1 As String

'Definir variables

QRString1 = Sheet1.Range("A1")

'Transferir el valor de la celda A1 a QRString1

Hoja1.Select

Hoja1.QRmaker1.AutoRedraw = ArOn

'Habilitar el atributo de redibujado automático de QRmaker

Hoja1 .QRmaker1.InputData = QRString1. InputData=QRString1

' Pase el valor de QRString1 a QRmaker1

End Sub

Guarde y cierre el editor VBA, regrese a Excel y luego haga clic en Print2D. Botón. El contenido de la celda A1 genera un código QR.

Una vez completada la producción, puedes utilizar este código QR.

上篇: ¿Qué tal Dali Chuangsheng Medical Equipment Sales and Service Co., Ltd.? 下篇: En Icecrown Glacier, llegué a la misión 139 pero no puedo recibir la misión. El mapa indica que hay 7 misiones más, pero no puedo recibirla. ¡Por favor, dame un consejo!

Artículos populares