دانلود توابع کد VBA برای بررسی شماره کارت بانکی و شماره شبا در اکسل: راهنمای جامع و کامل


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

اهمیت اعتبارسنجی شماره کارت و شماره شبا




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

چه چیزی در این توابع وجود دارد؟




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

دانلود و نصب توابع VBA در اکسل




برای شروع، ابتدا باید کدهای VBA را در محیط اکسل وارد کنیم. مراحل این کار عبارت است از:
  1. باز کردن فایل اکسل مورد نظر.

  1. فشردن کلیدهای Alt + F11، تا وارد محیط ویرایش VBA شویم.

  1. در منوی Insert، گزینه Module را انتخاب می‌کنیم.

  1. کدهای موردنظر را در پنجره‌ای که باز می‌شود، کپی و پیست می‌کنیم.

  1. در نهایت، فایل را با فرمت Macro-Enabled Workbook (*.xlsm) ذخیره می‌کنیم.
    نکته مهم، فعال بودن ماکروها در تنظیمات امنیتی اکسل است؛ در غیر این صورت، توابع اجرا نخواهند شد.

    توابع VBA برای اعتبارسنجی شماره کارت بانکی




در این بخش، یک تابع به نام `ValidateBankCardNumber` معرفی می‌شود. این تابع، بر اساس الگوریتم لونا (Luhn Algorithm) کار می‌کند که یکی از روش‌های استاندارد برای بررسی شماره کارت‌ها است.
vba  


Function ValidateBankCardNumber(CardNumber As String) As Boolean  


    Dim Sum As Integer  


    Dim Alt As Boolean  


    Dim i As Integer  


    Dim n As Integer
Sum = 0  


    Alt = False
' شروع از سمت راست شماره کارت  


    For i = Len(CardNumber) To 1 Step -1  


        n = CInt(Mid(CardNumber, i, 1))


        If Alt Then  


            n = n * 2  


            If n > 9 Then n = n - 9  


        End If  


        Sum = Sum + n  


        Alt = Not Alt  


    Next i
ValidateBankCardNumber = (Sum Mod 10 = 0)


End Function

کاربرد این تابع، بسیار ساده است؛ کافی است شماره کارت بانکی را وارد کنید و نتیجه را مشاهده کنید. اگر مقدار True برگردد، شماره معتبر است، و در غیر این صورت، خطا دارد.

توابع VBA برای اعتبارسنجی شماره شبا




در این قسمت، تابعی با نام `ValidateIBAN` ساخته شده است. این تابع، بر اساس استانداردهای جهانی IBAN عمل می‌کند، و مواردی مانند طول ... ← ادامه مطلب در magicfile.ir