در یک پروژه اخیر که بر روی آن کار می‌کردیم، نیاز به تولید انبوه کدهای QR (کدهای پاسخ سریع) برای تعدادی URL داشتیم که در یک ستون از اکسل قرار داشتند. این تجربه ما را به فکر فرو برد که چطور می‌توان این کار را به راحتی و به طور کارآمد انجام داد. از این رو تصمیم گرفتیم چهار روش مختلف برای ایجاد QR کد در اکسل را به اشتراک بگذاریم.
استفاده از تابع IMAGE (برای اکسل با مایکروسافت ۳۶۵)
اگر شما از نسخه اکسل مایکروسافت ۳۶۵ یا اکسل در وب بهره می‌برید، ساده‌ترین و سریع‌ترین روش برای تولید کدهای QR استفاده از تابع IMAGE است.
برای مثال، فرض کنید در ستون A تعدادی URL دارید و می‌خواهید کدهای QR مربوط به آنها را در ستون B ایجاد کنید. فرمولی که می‌توان برای این کار استفاده کرد به شکل زیر است:
=IMAGE("https://api.qrserver.com/v1/create-qr-code/?size=200x200&data="&A2)
این فرمول را در سلول B2 وارد کنید و سپس می‌توانید آن را به سایر سلول‌های موجود در ستون B کپی کنید. توجه داشته باشید که ممکن است هنگام دسترسی به URL سرور کد QR، تأخیری چند ثانیه‌ای ایجاد شود.
چگونه این کار می‌کند؟ وب‌سایت سرور QR یک سرویس رایگان ارائه می‌دهد که به شما اجازه می‌دهد کدهای QR را با تغییر URL به آسانی تولید کنید. با استفاده از تابع IMAGE، کد QR تولید شده به عنوان تصویر در سلول شما قرار می‌گیرد.
نکته مهمی که در اینجا باید به آن توجه کنید این است که کد QR به صورت جاسازی شده در سلول قرار می‌گیرد و با تغییر اندازه سلول، اندازه تصویر کد QR نیز تغییر می‌کند.
استفاده از کد VBA برای ایجاد عملکرد سفارشی
اگر نسخه اکسل شما به تابع IMAGE دسترسی ندارد، می‌توانید از VBA برای ایجاد یک تابع سفارشی استفاده کنید. این کدنویسی به شما امکان می‌دهد تا کدهای QR را به صورت انبوه و به راحتی تولید کنید.
کد زیر یک تابع به نام GETQRCODES را تعریف می‌کند که می‌توانید از آن در سلول‌ها استفاده کنید:
Function GETQRCODES(QrCodeValues As String)
Dim URL As String
Dim CellValues As Range
Set CellValues = Application.Caller
URL = "https://api.qrserver.com/v1/create-qr-code/?size=150x150&data=" & QrCodeValues
On Error Resume Next
ActiveSheet.Pictures("Generated_QR_CODES_" & CellValues.Address(False, False)).Delete
On Error GoTo 0
ActiveSheet.Pictures.Insert(URL).Select
With Selection.ShapeRange(1)
.Name = "Generated_QR_CODES_" & CellValues.Address(False, False)
.Left = CellValues.Left + 2
.Top = CellValues.Top + 2
End With
GETQRCODES = ""
End Function
برای استفاده از این کد، مراحل زیر را دنبال کنید:
ویرایشگر VBA را با استفاده از کلید ALT + F11 باز کنید.
یک ماژول جدید ایجاد کرده و کد بالا را در آن قرار دهید.
به برگه اکسل بازگردید و در سلول B2 فرمول زیر را وارد کنید:
=GETQRCODES(A2)
سپس این فرمول را به سایر سلول‌ها در ستون B کپی کنید.
این کد به شما امکان می‌دهد تا به سرعت و به سادگی کدهای QR را ایجاد کنید.
استفاده از افزونه‌ها
در صورتی که فقط قصد دارید برای چند نقطه داده کد QR تولید کنید، می‌توانید از برخی افزونه‌های شخص ثالث استفاده کنید. به عنوان مثال:
روی تب Developer کلیک کنید.
گزینه Add-ins را انتخاب کنید.
با جستجوی عبارت QR Code، افزونه‌هایی برای ساخت کدهای QR مشاهده خواهید کرد. یکی از این‌ها QR4Office است.
این افزونه را نصب کرده و از آن برای تولید کدهای QR استفاده کنید.
به این ترتیب، می‌توانید کد QR را به راحتی برای URLهای خود تولید کنید.
استفاده از وب‌سایت‌های خارجی
اگر نمی‌خواهید افزونه‌ای به فایل اکسل خود اضافه کنید، می‌توانید از وب‌سایت‌های خارجی مانند QR Code Generator استفاده کنید. برای این کار مراحل زیر را دنبال کنید:
به وب‌سایت https://www.qr-code-generator.com/ بروید.
URL خود را در سایت قرار دهید و کد QR را تولید کنید.
تصویر آن را دانلود کرده و به اکسل وارد کنید.
با استفاده از این روش‌های مختلف، می‌توانید به راحتی و با سرعت کدهای QR مورد نیاز خود را ایجاد کنید.
در صورتی که از اکسل مایکروسافت ۳۶۵ استفاده می‌کنید، تابع IMAGE بهترین گزینه است. اگر به این تابع دسترسی ندارید، کدنویسی VBA گزینه‌ای مناسب برای تولید انبوه کدهای QR خواهد بود. از دیگر روش‌ها نیز می‌توانید برای تولید کدهای QR در صورت نیاز به صورت دلخواه استفاده کنید.
نکات پایانی و مثال‌های عملی
با توجه به روش‌هایی که در بالا توضیح دادیم، می‌توان با استفاده از گزینه‌های متعدد، بسته به نیاز و شرایط خود، کدهای QR را به آسانی در اکسل ایجاد کرد. در اینجا به برخی نکات و مثال‌های عملی برای کمک به شما در استفاده بهتر از این روش‌ها اشاره می‌کنم:
تنظیم اندازه کد QR: در روش استفاده از تابع IMAGE، اندازه کد QR به صورت پیش‌فرض در URL مشخص شده است. شما می‌توانید این مقدار را با تغییر پارامتر size در URL تغییر دهید. برای مثال، اگر به کد QR بزرگ‌تری نیاز دارید، می‌توانید از size=300×۳۰۰ استفاده کنید.
رنگ و طراحی کد QR: در برخی وب‌سایت‌های تولید کد QR، این امکان وجود دارد که رنگ و طرح کد QR را به دلخواه انتخاب کنید. این ویژگی می‌تواند به جذاب‌تر شدن کدهای QR شما کمک کند.
ایجاد کد QR برای اطلاعات متنی: علاوه بر URL، می‌توانید کد QR را برای متن ساده، شماره تلفن، پیام متنی و یا حتی ایمیل هم تولید کنید. کافی است داده مربوطه را به جای URL در فرمول‌ها یا کدها قرار دهید.
ایجاد کد QR برای لینک‌های شبکه‌های اجتماعی: می‌توانید کد QR را برای لینک‌های صفحات شبکه‌های اجتماعی خود ایجاد کرده و آن را در بروشورها، کارت ویزیت‌ها یا وب‌سایت‌ها قرار دهید تا دسترسی به صفحات شما را آسان‌تر کند.
مثال‌های عملی
ساخت کد QR برای چند URL به طور همزمان: فرض کنید در ستون A شما یک لیست از URL های سایت خود دارید. برای تبدیل این لیست به کد QR، فقط کافی است فرمول =GETQRCODES(A2) را به سلول B2 وارد کنید و سپس آن را به سمت پایین بکشید. با این کار تمام URL ها به کد QR تبدیل خواهند شد.
استفاده از افزونه QR4Office: پس از نصب افزونه QR4Office، می‌توانید در کنار اطلاعات موجود در اکسل، به راحتی کدهای QR ایجاد کنید. برای مثال، اگر یک URL در ستون A دارید، کافی است به افزونه مراجعه کنید، URL را وارد کنید و با کلیک بر روی گزینه Insert کد QR را در آنجا داشته باشید.
وارد کردن کد QR از وب‌سایت خارجی: برای زمانی که می‌خواهید از کد QR برای اطلاعات متنی یا غیر از URL استفاده کنید، می‌توانید به وب‌سایت QR Code Generator بروید و داده مد نظر را وارد کنید. سپس پس از دانلود کد QR، می‌توانید آن را به راحتی در اکسل وارد کنید.
نتیجه‌گیری
ایجاد QR کد در اکسل می‌تواند بسیار مفید و کارآمد باشد، به ویژه زمانی که شما نیاز به ایجاد انبوه کدهای QR برای URL ها یا داده‌های دیگر دارید. بسته به نیاز خود می‌توانید از روش‌های مختلف استفاده کنید، از ساده‌ترین آنها که تابع IMAGE است، گرفته تا کد VBA برای کاربری‌های پیشرفته‌تر.
امیدوارم این مقاله به شما کمک کرده باشد تا با روش‌های گوناگون ایجاد QR کد در اکسل آشنا شوید و بتوانید به راحتی از آنها در پروژه‌های خود بهره‌برداری کنید. اگر سوالی دارید یا به توضیحات بیشتری نیاز دارید، خوشحال می‌شوم به شما کمک کنم!
__ تکنو دات مرجع اخبار تکنولوژی __
