مدیریت تراکنش , سیستم حسابداری اکسل , ثبت و گزارش تراکنش , گزارشگیری مالی , اکسل حرفهای , VBA اکسل , ماکرو نویسی , حسابداری با VBA , مدیریت مالی شخصی , سیستم مالی مشتریان , فایل اکسل پیشرفته , ابزار مالی اکسل , تراکنشهای روزانه , پیگیری بدهی و طلب , فایل حسابداری آماده , مدیریت درآمد و هزینه , داشبورد مالی , اتوماسیون مالی با اکسل ,

منبع : https://magicfile.ir
واکسن کودک , پیگیری واکسن , یادآوری واکسن , اکسل پزشکی , ماکرو اکسل , شیت واکسیناسیون , جدول واکسن , معاینات کودک , نمودار واکسن , ثبت اطلاعات سلامت , سیستم یادآوری در اکسل , واکسن و معاینات کودک در اکسل ,

منبع : https://magicfile.ir
اکسل قیمت طلا , محاسبه قیمت سکه , گزارشگیری هوشمند طلا , ابزار اکسل برای طلافروشان , قیمتگذاری لحظهای طلا , تحلیل بازار طلا , فایل اکسل سکه و طلا , نرمافزار محاسبه طلا , اکسل طلافروشی , جدول قیمت طلا و سکه ,

منبع : https://magicfile.ir
تعمیرگاه موتورسیکلت تحت وب , اسکریپت تعمیرگاه موتورسیکلت تحت وب , کد سایت تعمیرگاه موتورسیکلت تحت وب , اسکریپت سایت تعمیرگاه php , ساخت سایت اسکریپت سایت تعمیرگاه , ایجاد سایت اسکریپت سایت تعمیرگاه ,

منبع : https://magicfile.ir
بررسی شماره کارت اکسل , شماره شبا در اکسل , بررسی شماره شبا در اکسل , توابع کد VBA برای بررسی شماره کارت , توابع کد VBA برای بررسی شماره شبا , تست شماره کارت در اکسل , تست شماره شبا در اکسل ,

vba
Function ValidateCardNumber(cardNumber As String) As Boolean
Dim sum As Integer
Dim i As Integer
Dim digit As Integer
Dim nDigits As Integer
Dim parity As Integer
cardNumber = Replace(cardNumber, " ", "") ' حذف فضاها
If Len(cardNumber) <> 16 Then
ValidateCardNumber = False
Exit Function
End If
sum = 0
parity = Len(cardNumber) Mod 2
For i = 1 To Len(cardNumber)
digit = CInt(Mid(cardNumber, i, 1))
If (i Mod 2) = parity Then
digit = digit * 2
If digit > 9 Then digit = digit - 9
End If
sum = sum + digit
Next i
ValidateCardNumber = (sum Mod 10) = 0
End Function
Function ValidateIBAN(iban As String) As Boolean
Dim rearranged As String
Dim total As String
Dim check As Long
iban = UCase(Replace(iban, " ", ""))
If Len(iban) < 15 Or Len(iban) > 34 Then
ValidateIBAN = False
Exit Function
End If
rearranged = Mid(iban, 5) & Left(iban, 4... ← ادامه مطلب در magicfile.ir یک فایل در موضوع (دانلود توابع کد VBA برای بررسی شماره کارت بانکی و شماره شبا در اکسل) آماده کرده ایم که از لینک زیر می توانید دانلود فرمایید برای دانلود کردن به لینک زیر برویدمنبع : https://magicfile.ir