ไปยังเนื้อหาหลัก

การสร้างโค้ด QR ใน Excel (คำแนะนำง่ายๆ พร้อมวิธีการทั้งหมด)

ผู้เขียน : ซิลูเวีย แก้ไขล่าสุด: 2024-05-14

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


การสร้างรหัส QR ใน Excel 365

Excel 365 ปรับปรุงความสามารถด้วยฟังก์ชันต่างๆ เช่น ภาพ และ แลมบ์ดาช่วยให้ผู้ใช้สามารถสร้างรหัส QR แบบไดนามิกได้ ส่วนนี้จะแสดงวิธีสร้างโค้ด QR โดยใช้ฟังก์ชัน IMAGE หรือ LAMBDA ใน Excel 365


การใช้ฟังก์ชัน IMAGE

ในตัวอย่างนี้ เราจะใช้ฟังก์ชัน IMAGE เพื่อสร้างโค้ด QR ที่มีลิงก์ไปยังเว็บไซต์ต่อไปนี้

  1. เลือกเซลล์ที่คุณต้องการให้โค้ด QR ปรากฏ ที่นี่ฉันเลือก D3 เพื่อแสดงรหัส QR ที่มีลิงค์ไปยัง Extendoffice เว็บไซต์.
  2. ป้อนสูตรต่อไปนี้แล้วกด เข้าสู่ เพื่อรับรหัส QR
    =IMAGE("https://quickchart.io/qr?text=" & ENCODEURL(C3))
  3. เลือกเซลล์สูตรนี้ ดับเบิลคลิกที่มุมขวาล่าง (สี่เหลี่ยมสีเขียว) ของเซลล์เพื่อดูโค้ด QR ที่เหลือ
หมายเหตุ:
  • ในสูตรกรุณาแทนที่ C3 ด้วยการอ้างอิงเซลล์ที่มีข้อความที่คุณต้องการเข้ารหัสในโค้ด QR
  • รหัส QR จะอัปเดตโดยอัตโนมัติหากเนื้อหาในเซลล์ที่อ้างอิงมีการเปลี่ยนแปลง
  • สูตรนี้ยังใช้เพื่อสร้างโค้ด QR ใน Google ชีตได้ด้วย
  • QuickChart.io จัดเตรียม API อย่างง่ายเพื่อสร้างรหัส QR URL หลักสำหรับการสร้างรหัส QR คือ https://quickchart.io/qr?text=.

การใช้ฟังก์ชันแลมบ์ดา

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

ขั้นตอนที่ 1: กำหนดชื่อโดยใช้ฟังก์ชัน LAMBDA
  1. ไปที่ สูตร แท็บและคลิก กำหนดชื่อ ใน ชื่อที่กำหนด กลุ่ม
  2. ในการโผล่ขึ้นมา แก้ไขชื่อ คุณต้องกำหนดค่าดังต่อไปนี้
    1. ตัว Vortex Indicator ได้ถูกนำเสนอลงในนิตยสาร Name กล่อง ตั้งชื่อให้กับสูตร LAMBDA ในที่นี้ผมตั้งชื่อมันว่า. fnรับ QRCode.
    2. ตัว Vortex Indicator ได้ถูกนำเสนอลงในนิตยสาร อ้างถึง กล่อง ให้ใส่สูตรต่อไปนี้
      =LAMBDA(text, IMAGE("https://quickchart.io/qr?text=" & ENCODEURL(text) & "&size=150"))
    3. คลิก OK เพื่อบันทึกชื่อที่กำหนด ดูภาพหน้าจอ:
      หมายเหตุ / รายละเอียดเพิ่มเติม:
      • ในสูตร 150 คือขนาดพิกเซลเริ่มต้นสำหรับรูปภาพโค้ด QR คุณสามารถปรับค่านี้ได้ตามต้องการ แต่โปรดจำไว้ว่าขนาดการแสดงผลจริงของโค้ด QR ที่สร้างขึ้นใน Excel จะถูกกำหนดโดยขนาดของเซลล์
      • หากต้องการทราบข้อมูลเพิ่มเติมเกี่ยวกับฟังก์ชัน LAMBDA โปรดไปที่หน้านี้: ฟังก์ชัน Excel LAMBDA (365).
ขั้นตอนที่ 2: ใช้ฟังก์ชันที่ผู้ใช้กำหนดเพื่อสร้างรหัส QR
  1. เลือกเซลล์ที่คุณต้องการให้โค้ด QR ปรากฏ ที่นี่ฉันเลือก D3 เพื่อแสดงรหัส QR ที่มีลิงค์ไปยัง Extendoffice เว็บไซต์.
  2. ป้อนสูตรต่อไปนี้แล้วกด เข้าสู่ เพื่อรับรหัส QR
    =fnGetQRCode(C3)
  3. เลือกเซลล์สูตรนี้ ดับเบิลคลิกที่มุมขวาล่าง (สี่เหลี่ยมสีเขียว) ของเซลล์เพื่อดูโค้ด QR ที่เหลือ
    หมายเหตุ / รายละเอียดเพิ่มเติม:
    • ในสูตร:
      • fnรับ QRCode คือชื่อที่คุณกำหนดไว้ในขั้นตอนที่ 1
      • กรุณาเปลี่ยน C3 ด้วยการอ้างอิงเซลล์ที่มีข้อความที่คุณต้องการเข้ารหัสในโค้ด QR
    • รหัส QR จะอัปเดตโดยอัตโนมัติหากเนื้อหาในเซลล์ที่อ้างอิงมีการเปลี่ยนแปลง

การสร้างรหัส QR ใน Excel เวอร์ชันทั้งหมด

สำหรับผู้ใช้ที่ไม่สามารถเข้าถึง Excel 365 ได้ ยังคงมีตัวเลือกที่เชื่อถือได้ในการสร้างโค้ด QR ผ่าน Add-in และเครื่องมือภายนอก ทำให้ฟังก์ชันนี้สามารถเข้าถึงได้ใน Excel ทุกเวอร์ชัน


การใช้ Add-in ในตัวของ Excel เพื่อสร้างรหัส QR ทีละรายการ

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

ขั้นตอนที่ 1: ติดตั้ง Add-in QR4Office
  1. ไปที่ สิ่งที่ใส่เข้าไป > รับส่วนเสริม.
    หมายเหตุ: หากคุณไม่เห็นไฟล์ รับส่วนเสริม คำสั่งภายใต้ สิ่งที่ใส่เข้าไป ใน Ribbon คุณจะต้องเพิ่มด้วยตนเอง ด้านล่างนี้เป็นขั้นตอนในการเพิ่มคำสั่งนี้ลงใน แถบเครื่องมือด่วน:
    1. คลิก ปรับแต่งแถบเครื่องมือด่วน ลูกศรแบบเลื่อนลงและเลือก คำสั่งเพิ่มเติม จากเมนู
    2. ตัว Vortex Indicator ได้ถูกนำเสนอลงในนิตยสาร ตัวเลือกของ หน้าต่าง:
      1. เลือก คำสั่งไม่อยู่ใน Ribbon จาก เลือกคำสั่งจาก รายการแบบหล่นลง
      2. ค้นหาและเลือก รับส่วนเสริม ในรายการคำสั่งด้านซ้าย
      3. คลิก เพิ่ม ปุ่ม ( รับส่วนเสริม คำสั่งจะถูกเพิ่มลงในบานหน้าต่างด้านขวา)
      4. คลิก OK เพื่อบันทึกการเปลี่ยนแปลง ดูภาพหน้าจอ:
    3. พื้นที่ รับส่วนเสริม ตอนนี้เพิ่มคำสั่งใน แถบเครื่องมือด่วน- คุณสามารถคลิกเพื่อเปิด สำนักงานเสริม จัดเก็บ
  2. ตัว Vortex Indicator ได้ถูกนำเสนอลงในนิตยสาร สำนักงานเสริม เก็บ:
    1. พิมพ์ "QR4สำนักงาน" ในช่องค้นหาแล้วกด เข้าสู่.
    2. เมื่อ QR4สำนักงาน Add-in ปรากฏขึ้น ให้คลิกที่ เพิ่ม ปุ่มเพื่อติดตั้ง
  3. ในกล่องพร้อมท์ต่อไปนี้ คลิก ต่อ.
ขั้นตอนที่ 2: ใช้ Add-in QR4Office เพื่อสร้างโค้ด QR

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

  1. เลือกเซลล์ที่มีข้อความหรือลิงก์ที่คุณต้องการเข้ารหัสในโค้ด QR
    ในกรณีนี้ให้แนบลิงค์ไปยัง Extendoffice เว็บไซต์ ฉันเลือกเซลล์ C3 มี URL
  2. คลิก คัดลอกการเลือกเอกสารปัจจุบัน ปุ่มเพื่อถ่ายโอนเนื้อหาของเซลล์ไปยังช่อง QR4Office
    ปลาย: หรืออีกทางหนึ่ง คุณสามารถเลือก URL หรือประเภทข้อความจากรายการแบบเลื่อนลงและป้อนข้อมูลที่จำเป็นลงในกล่องข้อความด้วยตนเอง
  3. ตัว Vortex Indicator ได้ถูกนำเสนอลงในนิตยสาร Options คุณสามารถเลือกปรับแต่งรูปลักษณ์ของโค้ด QR ได้โดยเลือกสี พื้นหลัง และขนาด หรือคงการตั้งค่าเริ่มต้นไว้
  4. เลือกเซลล์ปลายทางสำหรับโค้ด QR ที่นี่ฉันเลือก D3.
  5. คลิก สิ่งที่ใส่เข้าไป เพื่อวางโค้ด QR ลงในเซลล์ที่เลือก ดูภาพหน้าจอ:
  6. ทำซ้ำ 5 ขั้นตอนข้างต้นเพื่อสร้างรหัส QR อื่นๆ

การใช้ Kutools สำหรับ Excel เพื่อสร้างรหัส QR จำนวนมาก

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

หลังจาก การติดตั้ง Kutools สำหรับ Excel, ไปเลือก Kutools > สิ่งที่ใส่เข้าไป > ใส่ QR Code เพื่อเปิด ใส่ QR Code บานหน้าต่าง จากนั้นคุณสามารถสร้างโค้ด QR จำนวนมากได้ดังนี้:

  1. ตัว Vortex Indicator ได้ถูกนำเสนอลงในนิตยสาร ช่วงข้อมูล ให้เลือกช่วงของเซลล์ที่มีข้อความหรือลิงก์ที่คุณต้องการเข้ารหัสในโค้ด QR
  2. ตัว Vortex Indicator ได้ถูกนำเสนอลงในนิตยสาร แทรกช่วง ให้เลือกช่วงของเซลล์เพื่อวางรหัส QR ที่เกี่ยวข้อง
  3. ตัว Vortex Indicator ได้ถูกนำเสนอลงในนิตยสาร Options คุณสามารถเลือกปรับแต่งรูปลักษณ์ของโค้ด QR ได้โดยระบุขนาด สีของเส้น ฯลฯ หรือคงการตั้งค่าเริ่มต้นไว้
  4. คลิก ผลิต ปุ่มเพื่อสร้างรหัส QR สำหรับเซลล์ที่เลือกทั้งหมดพร้อมกัน
หมายเหตุ: ก่อนที่จะใช้คุณสมบัตินี้ ตรวจสอบให้แน่ใจว่าได้ติดตั้ง Kutools for Excel แล้ว ดาวน์โหลดทดลองใช้ฟรี 30 วันพร้อมฟีเจอร์เต็มรูปแบบของ Kutools for Excel ทันที!

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

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (38)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is it possible to make a payment qr code in excel?
f.e. In cell A1 I've an amout of 10 euro, and in cell B2 I want to have an qr code so anyone can pay me with the qr code?

Thanks.
This comment was minimized by the moderator on the site
Hi Ruben,

Thank you for reaching out with your question. While Kutools for Excel does feature QR code generation, creating a payment QR code directly in Excel for transactional purposes is beyond the scope of this feature. Payment QR codes usually require integration with financial services or payment platforms to ensure secure transactions. I recommend exploring services specifically designed for creating payment QR codes, such as those offered by banks or digital payment systems. These platforms can generate a QR code linked to your payment details securely. Once you have the payment QR code, you could then include it in your Excel document as an image.
This comment was minimized by the moderator on the site
Hello

The download link provided in step 4 appears to be only Microsoft Barcode Control 14.0. Can anyone suggest a correct link for 16.0 please?

Thank you.
This comment was minimized by the moderator on the site
1 Sheets waar in de cellen van de rij random QR codes binnen komen. Waarvan elke QR code automatisch de juiste Sheets openend?
Of de BVA commando codes van de Button om de koppeling maken naar een andere sheets.
Dan ben erg dankbaar voor.
(dit is voor vrijwilligerswerk)

Groetjes,
H. van Schaijk
This comment was minimized by the moderator on the site
Hi H. van Schaijk,
I can't fix this problem. Sorry about that.
This comment was minimized by the moderator on the site
Hi folks,
Below code works fine with me, which is linked to cell range & generates the QR at each row cell 5000 nos, however I would like to stop the QR object generation if the reference cell value is zero / otherway round should generate the QR at adjucent cell if the value at reference cell is more than zero or <>""

Please seek experts assistance!!

thank you in advance

Sub Gen_StockOut_QR()
MsgBox ("Will Generate QR Code for Stock_Out Items at In@Out Sheet")
Sheets("In@Out_Data").Select
ActiveSheet.Unprotect Password:=" "
'Column range set at QR_Code
Range("QR_Code").Select

For Each cell In Selection
'cell.Offset(0, 23).Select ' 1 indicates the position of excel column A1 from the formula/webaddress/site/characters to be used to generate QR code
cell.Offset(0, 0).Select

' My case QRCode is at column 24 hence 24 as column from A1, QR Size 100*100
FilePath = "http://chart.googleapis.com/chart?chs=100x100&&cht=qr&chl=" & WorksheetFunction.EncodeURL(cell.Value) ' here is the cell value

With ActiveSheet.Pictures.Insert(FilePath)
'.ShapeRange.ScaleWidth 0.95, msoFalse, msoScaleFromTopLeft
'.ShapeRange.ScaleHeight 0.95, msoFalse, msoScaleFromTopLeft

End With
Next cell
End Sub
This comment was minimized by the moderator on the site
Interesting article - thank you.  How do I remove the custom control from the list please?
This comment was minimized by the moderator on the site
Hi,Do you mean to remove the Form Control inserted in the VBA code method? If so, you just need to right click it (when there is a context menu listed, click anywhere outside it to hide the context menu), and then press Delete to remove it.
This comment was minimized by the moderator on the site
Olá! Para mim, nenhum dos comentários ou esse post funcionou corretamente, mas utilizando o Visual Basic com o código que deixarei abaixo funcionou, pois criou uma função para mim. E para usar a função é só abrir a planilha e digitar: "=QrCode("célula desejada")"




Function QrCode(codetext As String)
Dim URL As String, MyCell As Range
'Para gerar o código, precisa a máquina ter acesso a internet
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
This comment was minimized by the moderator on the site
Wie lösche ich die QR Code Grafik wieder ? wenn ich mit den Skript Wie erstelle ich einen QR-Code basierend auf dem Zellenwert in Excel? einen QR Code erzeugt habe ?
This comment was minimized by the moderator on the site
Hi All,

I modified the VBA code for creation a multi QR codes from selection in excel column

Follow until step 10 then add this code

Sub setQR()

Dim xSRg As Range
Dim xRRg As Range
Dim xObjOLE As OLEObject
On Error Resume Next
Dim srcSelection As Range
Dim srcCell As String
For Each srcSelection In Application.Selection
Dim qrCelltoupdate As String
Dim qrTxt As String
qrCelltoupdate = srcSelection.Offset(0, 1).Address
qrTxt = srcSelection.Text
Worksheets("Sheet1").Range(qrCelltoupdate).Select
Application.ScreenUpdating = False
Set xObjOLE = ActiveSheet.OLEObjects.Add("BARCODE.BarCodeCtrl.1")
xObjOLE.Object.Style = 11
xObjOLE.Object.Value = qrTxt
ActiveSheet.Shapes.Item(xObjOLE.Name).Copy
ActiveSheet.Paste
xObjOLE.Delete
Next srcSelection
'Create Qr code from selection multi cells
End Sub


In step 12
Assign Macro
Chose: Sheet1.setQR

QR codes will be populated in next column

Hope that helps for you all
This comment was minimized by the moderator on the site
Hi ChavdarHarchev.
First of all thank You very much for Your nice work.

Is it possible for You to show how the VBA code looks like when it is finished?
Best regards
Pierre Galuszka.
This comment was minimized by the moderator on the site
Hi All,
I modified the VBA code for creation a multi QR codes from selection in excel column
Follow until step 10 then add this code
Sub setQR()

Dim xSRg As Range
Dim xRRg As Range
Dim xObjOLE As OLEObject
On Error Resume Next
Dim srcSelection As Range
Dim srcCell As String
For Each srcSelection In Application.Selection
Dim qrCelltoupdate As String
Dim qrTxt As String
qrCelltoupdate = srcSelection.Offset(0, 1).Address
qrTxt = srcSelection.Text
Worksheets("Sheet1").Range(qrCelltoupdate).Select
Application.ScreenUpdating = False
Set xObjOLE = ActiveSheet.OLEObjects.Add("BARCODE.BarCodeCtrl.1")
xObjOLE.Object.Style = 11
xObjOLE.Object.Value = qrTxt
ActiveSheet.Shapes.Item(xObjOLE.Name).Copy
ActiveSheet.Paste
xObjOLE.Delete
Next srcSelection
'Create Qr code from selection multi cells
End Sub


In step 12 Assign Macro Chose: Sheet1.setQR
QR codes will be populated in next column
Hope that helps for you all
This comment was minimized by the moderator on the site
I didn't have "Microsoft Barcode Control 16.0" so I down loaded per instruction. And open Excel with Admin mode. Then try to "Register Custom" . But I opened Barcode control folder and select MSBCODE964,OCX. Then there is error message came out. It said "The selected file does not contain self-registrating ActiveX control". What it means? What is the problem. And how can I install that?
This comment was minimized by the moderator on the site
1)Click File > Options.

2)Click Trust Center > Trust Center Settings > ActiveX Settings.

Click the options below, and then click OK.
* Enable all controls without restrictions and without prompting (not recommended)
3)Click Ok
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations