วิธีสร้างรหัส QR ใน Excel ทีละขั้นตอน (โดยไม่ต้องใช้โปรแกรมภายนอก)

คุณจำเป็นต้องสร้าง รหัส QR โดยตรงจาก Excel คุณไม่รู้ว่าจะเริ่มต้นจากตรงไหน ไม่ต้องกังวล เพราะการสร้างโค้ดเหล่านี้ทำได้ง่ายกว่าที่คิด และคุณสามารถทำได้โดยไม่ต้องติดตั้งโปรแกรมภายนอกหรือทำอะไรที่ซับซ้อนเกินไป มีหลายวิธีในการทำเช่นนั้น ตั้งแต่ฟังก์ชันที่กำหนดเองไปจนถึงการใช้แมโครหรือส่วนเสริม

ในบทความนี้เราจะอธิบาย วิธีสร้างรหัส QR ใน Excel ทีละขั้นตอนพร้อมคำแนะนำง่ายๆ ที่ใช้ได้กับ Excel เวอร์ชันใหม่ๆ หากคุณต้องการทำงานอัตโนมัติหรือเพียงต้องการประหยัดเวลา บทช่วยสอนนี้เหมาะสำหรับคุณ

QR code คืออะไร และใช้ใน Excel อย่างไร

ลอส รหัส QR เป็นกราฟิกที่สามารถจัดเก็บข้อมูล เช่น ข้อความ ลิงก์ ตัวเลข อีเมล และอื่นๆ เมื่อสแกนด้วยโทรศัพท์มือถือ เนื้อหาจะแสดงโดยอัตโนมัติ การผสานเข้ากับ Excel ช่วยให้คุณสามารถแชร์ข้อมูล เช่น ลิงก์ไปยังเอกสาร แบบฟอร์ม บันทึกข้อมูลลูกค้า ผู้ติดต่อ หรือข้อมูลที่เกี่ยวข้องอื่นๆ ได้อย่างรวดเร็ว

วิธีที่ 1: สร้างรหัส QR ด้วยฟังก์ชันที่กำหนดเองใน VBA

ตัวเลือกแรกที่คุณมีคือการใช้ฟังก์ชันที่กำหนดเองซึ่งเขียนด้วย VBA ซึ่งใช้งานง่ายและช่วยให้คุณสร้างรหัส QR ได้โดยตรงจากเซลล์

ขั้นแรกให้เปิดใช้งานแท็บนักพัฒนา

1. คลิกขวาที่ริบบิ้นและเลือก “ปรับแต่งริบบิ้น"
2. ทำเครื่องหมายในช่อง "โปรแกรมเมอร์"หรือ"ผู้พัฒนา"
3. คลิกที่ ยอมรับ.

ขั้นตอนต่อไปคือสร้างฟังก์ชั่นที่กำหนดเอง

1. ในแท็บนักพัฒนา เปิด ของ Visual Basic.
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) เพื่อสร้าง QR โดยอิงจากเนื้อหาในเซลล์ A1
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. กด ผลิต.

วิธีนี้เหมาะมากหากคุณไม่ต้องการยุ่งกับโค้ดหรือหากคุณทำงานในสภาพแวดล้อมทางธุรกิจที่มีการบล็อกแมโคร

เหตุใดจึงต้องใช้รหัส QR ใน Excel?

• กระบวนการอัตโนมัติ: สแกนและเข้าถึงข้อมูลโดยตรงโดยไม่ต้องคัดลอก/วางลิงก์
• ความสะดวกในการแบ่งปันข้อมูล: จากไฟล์พนักงานไปจนถึงลิงก์ไปยังแดชบอร์ดหรือแบบฟอร์มออนไลน์
• รองรับมือถือ: ใด มาร์ทโฟน คุณสามารถสแกนรหัสและเข้าถึงเนื้อหาได้

มีหลายวิธีในการสร้างรหัส QR ใน Excel เพื่อให้เหมาะกับรูปแบบการทำงานที่แตกต่างกัน ไม่ว่าจะใช้รหัส VBA มาโครจำนวนมาก หรือโปรแกรมเสริมแบบภาพ ก็มีตัวเลือกที่เข้าถึงได้สำหรับคุณเสมอ โซลูชันทั้งหมดที่แสดงนั้นฟรี มีประสิทธิภาพ และเข้ากันได้กับ Excel เวอร์ชันล่าสุด ดังนั้นคุณจึงต้องฝึกฝนเพียงเล็กน้อยเพื่อเชี่ยวชาญเครื่องมือนี้ ซึ่งกำลังมีประโยชน์เพิ่มขึ้นเรื่อยๆ ในสำนักงาน โรงเรียน โลจิสติกส์ และภาคส่วนอื่นๆ