دانلود نمونه کد ماکرو ساخت لیست بارکد و ذخیره بصورت تصویر در اکسل


در دنیای امروز، بسیاری از کسب‌وکارها، فروشگاه‌ها، و حتی سازمان‌های مختلف، نیاز دارند که فرآیند تولید و مدیریت بارکدها را ساده‌تر، سریع‌تر، و کارآمدتر انجام دهند. یکی از بهترین روش‌ها برای این کار، استفاده از قابلیت‌های ماکرو در نرم‌افزار اکسل است که می‌تواند به صورت خودکار، لیستی از بارکدهای مختلف را تولید کرده، آن‌ها را در قالب تصویر ذخیره کند، و در نهایت، در فایل اکسل جای دهد. این فرآیند، نه تنها زمان زیادی را صرفه‌جویی می‌کند، بلکه دقت و صحت داده‌ها را نیز تضمین می‌نماید. در ادامه، به صورت کامل و جامع، به شرح این فرآیند می‌پردازیم، همراه با نمونه کدهای ماکرو و توضیحات مربوطه.

مقدمه‌ای بر اهمیت بارکد و کاربردهای آن




بارکد، که در واقع نوعی کد اسکی‌پ شده است، به راحتی قابل اسکن است و اطلاعات مهمی مانند شماره محصول، تاریخ تولید، و سایر جزئیات مربوطه را سریعاً منتقل می‌کند. این فناوری، در فروشگاه‌ها، انبارداری، لجستیک، و حتی در بیمارستان‌ها و مراکز درمانی، کاربرد فراوان دارد. بنابراین، توانایی تولید و مدیریت بارکدها به صورت اتوماتیک، نقش به سزایی در بهبود فرآیندهای اداری و عملیاتی ایفا می‌کند.

چرا از ماکرو در اکسل استفاده کنیم؟




ماکرو، در واقع، مجموعه‌ای از دستورات و فرمان‌هایی است که در قالب کدهای VBA (Visual Basic for Applications) نوشته می‌شوند. با استفاده از ماکرو در اکسل، می‌توان عملیات تکراری و زمان‌بر، مانند تولید لیست بارکد، رسم آن‌ها، و ذخیره‌سازی تصاویر را خودکار کرد. این کار، نه تنها سرعت انجام کار را افزایش می‌دهد، بلکه خطاهای انسانی را کاهش می‌دهد و امکان تکرارپذیری عملیات را فراهم می‌سازد.

گام‌های اصلی فرآیند




برای رسیدن به هدف، یعنی تولید لیست بارکد و ذخیره آن‌ها به صورت تصویر، لازم است چند مرحله کلیدی را طی کنیم:
  1. ایجاد لیست داده‌ها: ابتدا باید داده‌های مورد نیاز، شامل شماره‌های محصول یا شناسه‌های بارکد، در فایل اکسل وارد شوند.

  1. نوشتن کد ماکرو برای تولید بارکد: با استفاده از VBA، کدهای لازم برای تبدیل هر شناسه به یک تصویر بارکد یا QR کد نوشته می‌شود.

  1. رسم و نمایش بارکدها: بارکدهای تولید شده باید در داخل سلول‌ها یا صفحات دیگر، به صورت تصویری نمایش داده شوند.

  1. ذخیره تصاویر به عنوان فایل: در نهایت، باید این تصاویر، به صورت فایل‌های تصویری (مثل PNG یا JPEG) ذخیره شوند.

  1. ادغام تصاویر در فایل اکسل: در صورت نیاز، تصاویر بارکد در کنار داده‌های مربوطه، در همان فایل اکسل قرار می‌گیرند.
    در ادامه، هر یک از این مراحل به صورت دقیق و با نمونه کد، شرح داده می‌شود.

    بخش اول: وارد کردن داده‌ها و آماده‌سازی فایل




برای شروع، باید در اکسل، یک جدول حاوی شناسه‌های بارکد یا کدهای محصول داشته باشیم. فرض کنیم در ستون A، شماره‌های محصول وارد شده است. این شماره‌ها، مبنای تولید بارکدهای ما خواهند بود.
مثلاً، در سلول‌های A2 تا A20، شناسه‌هایی وارد شده است. حالا، می‌خواهیم برای هر شناسه، یک بارکد تولید کنیم و در کنار آن، تصویر را ذخیره کنیم. این کار، نیازمند نوشتن یک ماکرو است که بتواند این عملیات را انجام دهد.

بخش دوم: نوشتن کد VBA برای تولید بارکد




در این مرحله، باید کد VBA را در محیط توسعه VBA اکسل وارد کنیم. برای این کار، کلیدهای Alt + F11 را فشار می‌دهیم و وارد محیط ویرایش می‌شویم. سپس، یک ماژول جدید ایجاد می‌کنیم و کد زیر را وارد می‌نماییم.
vba  


Sub GenerateBarcodes()


    Dim rng As Range  


    Dim cell As Range  


    Dim barcodeText As String  


    Dim barcodeShape As Shape  


    Dim ws As Worksheet  


    Set ws = ThisWorkbook.Sheets("Sheet1")
' تعریف محدوده داده‌ها  


    Set rng = ws.Range("A2:A20") ' فرض بر این است که داده‌ها در این محدوده قرار دارند
For Each cell In rng  


        barcodeText = cell.Value
' حذف هر نوع شکل بارکد قبلی در صورت وجود  


        On Error Resume Next  


        ws.Shapes("Barcode_" & cell.Row).Delete  


        On Error GoTo 0
' تولید تصویر بارکد  


        Set barcodeShape = ws.Shapes.AddBarcode( _


            Text:=barcodeText, _


            Type:=msoBarcodeTypeCode128, _


            Left:=cell.Offset(0, 1).Left, _


            Top:=cell.Offset(0, 1).Top, _


            Width:=100, _


            Height:=50)


        barcodeShape.Name = "Barcode_" & cell.Row  


    Next cell  


End Sub

این کد، هر شماره در ستون A را می‌گیرد، و یک بارکد نوع Code128 تولید می‌کند، و آن را در کنار هر شناسه قرار می‌دهد. باید توجه داشت که در این کد، متد `AddBarcode` وجود ندارد، زیرا اکسل به صورت پیش‌فرض این قابلیت را ندارد. در نتیجه، نیاز است از افزونه‌ها یا روش‌های جایگزین، مانند استفاده از فونت‌های بارکد، یا APIهای خارجی بهره‌مند شویم.

بخش سوم: استفاده از فونت بارکد برای تولید تصاویر




یکی از روش‌های رایج و ساده، استفاده ا... ← ادامه مطلب در magicfile.ir