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

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

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

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

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

vba
Function IsValidCardNumber(CardNumber As String) As Boolean
Dim Sum As Integer
Dim i As Integer
Dim n As Integer
Dim DoubleDigit As Integer
Dim Length As Integer
Dim Digit As Integer
Sum = 0
Length = Len(CardNumber)
' بررسی طول شماره کارت
If Length <> 16 Then
IsValidCardNumber = False
Exit Function
End If
' حلقه برای پیمایش ارقام
For i = Length To 1 Step -1
Digit = CInt(Mid(CardNumber, i, 1))
If (Length - i + 1) Mod 2 = 0 Then
DoubleDigit = Digit * 2
If DoubleDigit > 9 Then DoubleDigit = DoubleDigit - 9
Sum = Sum + DoubleDigit
Else
Sum = Sum + Digit
End If
Next i
' بررسی صحت شماره
IsValidCardNumber = (Sum Mod 10 = 0)
End Function منبع : https://magicfile.ir