ExcelでQRコードを生成する手順（外部プログラムなし）

生成する必要がありますか？ Excelから直接QRコードを作成する どこから始めればいいのか分からない？ご安心ください。これらのコードの作成は見た目よりも簡単で、外部プログラムをインストールしたり、複雑な手順を踏んだりする必要もありません。カスタム関数からマクロやアドインの使用まで、さまざまな方法があります。

この記事では説明します ExcelでQRコードを生成する手順最新バージョンのExcelに応用できる簡単な手順で、このチュートリアルは最適です。タスクの自動化や時間の節約をご希望の場合は、このチュートリアルが最適です。

QR コードとは何ですか? Excel では何に使用されますか?

たくさん QRコード テキスト、リンク、数値、メールアドレスなどのデータを保存できるグラフィック表現です。携帯電話でスキャンすると、コンテンツが自動的に表示されます。Excelに統合することで、ドキュメント、フォーム、顧客記録、連絡先、その他の関連データへのリンクなどの情報を素早く共有できます。

方法1: VBAのカスタム関数を使用してQRコードを作成する

最初の選択肢は、VBAで記述されたカスタム関数を使用することです。実装が簡単で、セルから直接QRコードを生成できます。

まず、開発タブをアクティブにします

1. リボンを右クリックして「リボンをカスタマイズする"。
2. チェックボックスをオンにしますプログラマ"または"開発者"。
3. をクリック 受け入れます.

次に、カスタム関数を作成します

1. 開発タブで、 ビジュアルベーシック.
2. を挿入します 新しいモジュール.
3. 次のコードを貼り付けます。

Function CrearQR(texto As String, tamano As Integer) As Variant
    Dim url As String
    Dim celda As Range
    Dim nombreImagen As String
    Dim img As Shape

    On Error GoTo ErrorHandler

    If Trim(texto) = "" Then
        CrearQR = CVErr(xlErrValue)
        Exit Function
    End If

    Set celda = Application.Caller.Cells(1, 1)
    nombreImagen = "QR_" & celda.Address(False, False)

    On Error Resume Next
    celda.Worksheet.Shapes(nombreImagen).Delete
    On Error GoTo 0

    url = "https://api.qrserver.com/v1/create-qr-code/?size=" & tamano & "x" & tamano & "&data=" & WorksheetFunction.EncodeURL(texto)

    With celda.Worksheet.Pictures.Insert(url)
        .ShapeRange.LockAspectRatio = msoFalse
        .Height = tamano
        .Width = tamano
        .Top = celda.Top
        .Left = celda.Left
        .Name = nombreImagen
    End With

    CrearQR = "QR generado"
    Exit Function

ErrorHandler:
    CrearQR = CVErr(xlErrValue)
End Function

Excelで関数を使用する方法

1. 任意のセルに次のように書き込みます: =CrearQR(A1;150) セル A1 の内容に基づいて QR を生成します。
2. プレス 入力します するとシート上に QR コードが表示されます。
3. この数式を下または横にドラッグして、他のセルに複製することができます。

生成されたQRコードを削除する

1. に行く ホーム > 検索と選択 > スペシャルへ移動.
2. 選択します オブジェクト.
3. プレス 削除する 視覚的に挿入されたすべての QR コードを削除します。

方法2: マクロを使用して複数のQRコードを生成する

さらに自動化したい場合は、セル範囲を一括処理するマクロを使うことができます。これは、リストが長く、列全体を素早くQRコードに変換したい場合に最適です。

このマクロをモジュールに挿入します

Sub GenerarQrCode(rango As Range, tamaño As Integer)
    Dim urlQR As String, celda As Range, textoCodigo As String
    Dim img As Picture
    Dim nombreQR As String

    For Each celda In rango
        textoCodigo = Trim(celda.Value)
        If textoCodigo <> "" Then
            urlQR = "https://api.qrserver.com/v1/create-qr-code/?size=" & tamaño & "x" & tamaño & "&data=" & WorksheetFunction.EncodeURL(textoCodigo)
            nombreQR = "QR_" & celda.Address(False, False)
            On Error Resume Next
            celda.Worksheet.Pictures(nombreQR).Delete
            On Error GoTo 0
            Set img = celda.Worksheet.Pictures.Insert(urlQR)
            With img
                .ShapeRange.LockAspectRatio = msoFalse
                .Name = nombreQR
                .Left = celda.Left + 2
                .Top = celda.Top + 2
                .Height = tamaño
                .Width = tamaño
            End With
        End If
    Next celda
End Sub

Sub EjecutarGenerarQrCode()
    Dim rango As Range
    Set rango = Selection
    Dim tamaño As Variant
    tamaño = InputBox("Por favor, introduce el tamaño del código QR (ej. 150):", "Tamaño del código QR", 150)
    If Not IsNumeric(tamaño) Or tamaño <= 0 Then
        MsgBox "Tamaño inválido. Por favor ingresa un número mayor que cero.", vbExclamation
        Exit Sub
    End If
    GenerarQrCode rango, CInt(tamaño)
End Sub

マクロを使用するには

1. テキストまたはリンクを含むセルの範囲を選択します。
2. マクロを実行する「GenerateQrCodeを実行する"。
3. QR コードの希望サイズを入力します (例: 150)。

重要： ファイルを名前を付けて保存 .xlsm マクロが正しく動作するためには。

方法3: 公式のExcelアドインを使用する

コードやマクロが苦手でもご安心ください。Excelの外部アドインを使用するという、もっとシンプルな解決策もあります。

プラグインのインストール手順

1. Excelから、 挿入 > アドイン > アドインの取得.
2. 検索エンジンに「QR」と入力し、評価の高いもの（推奨：赤いアイコン）を選択します。
3. をクリック 加えます その後 続ける.

プラグインでQRコードを生成する

1. 変換するデータが含まれているセルを選択します。
2. プラグインを開き、必要な QR コードのサイズを設定します (例: 100×100 ピクセル)。
3. プレス 生成する.

この方法は、コードをいじりたくない場合や、マクロがブロックされているビジネス環境で作業する場合に最適です。

Excel で QR コードを使用する理由は何ですか?

• プロセスの自動化: リンクをコピー/貼り付けせずに、情報を直接スキャンしてアクセスします。
• データ共有の容易さ: 従業員ファイルからダッシュボードやオンラインフォームへのリンクまで。
• モバイル対応: どれでも スマートフォン コードをスキャンしてコンテンツにアクセスできます。

ExcelでQRコードを作成する方法は複数あり、様々なワークスタイルに対応しています。VBAコード、一括マクロ、ビジュアルアドインなど、どんなツールを使っても、必ず自分に合った方法が見つかります。ご紹介するソリューションはすべて無料で、効果的で、最新バージョンのExcelと互換性があります。そのため、少し練習するだけで使いこなせるようになります。このツールは、オフィス、学校、物流など、様々な分野でますます活用されています。