ماکرو اکسل , کنترل وزن , گزارش سلامت , BMI , تغذیه , فعالیت روزانه , رژیم غذایی , داشبورد تحلیلی , اکسل پیشرفته , جدول دینامیک , نمودار وزن , تحلیل وضعیت بدن , محاسبه BMI , کاهش وزن , اکسل سلامت , ثبت داده روزانه , ابزار پزشکی در اکسل , پایش سلامت فردی , مدیریت سبک زندگی , کنترل و پایش وزن و سلامت فردی اکسل ,

منبع : https://magicfile.ir
تولید آزمون در اکسل , آزمون چندگزینهای VBA , ساخت آزمون تستی با ماکرو , کلید خودکار سوالات تستی , خروجی PDF از آزمون , طراحی سوالات در Excel , ساخت آزمون هوشمند , تولید آزمون خودکار , سیستم آزمونساز پیشرفته , ساخت برگه سوال و کلید , نرمافزار آزمونساز اکسل , ساخت برگه آزمون , ساخت برگه آزمون تستی ,

منبع : https://magicfile.ir
تست شخصیت NEO , اکسل روانشناسی , فایل اکسل ماکرو , پنج عامل بزرگ شخصیت , Big Five Personality , روانرنجوری , برونگرایی , تجربهپذیری , توافقپذیری , وظیفهشناسی , خودشناسی , نمودار راداری اکسل , تست روانشناسی اکسل , تست شخصیتی قابل دانلود , تحلیل شخصیت با VBA , فایل ماکرو روانشناسی , آزمون NEO اکسل , رشد فردی , ابزار مشاوره روانشناسی ,

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

vba
Function NumToPersian(ByVal MyNumber)
Dim Units As String
Dim Tens As String
Dim Hundreds As String
Dim Result As String
' این قسمت برای اعداد زیر ۱۰ است
Units = Array("", "یک", "دو", "سه", "چهار", "پنج", "شش", "هفت", "هشت", "نه")
' ده تا نوزده
TensArray = Array("", "ده", "بیست", "سی", "چهل", "پنجاه", "شصت", "هفتاد", "هشتاد", "نود")
' صد تا نهصد
HundredsArray = Array("", "صد", "دویست", "سیصد", "چهارصد", "پانصد", "ششصد", "هفتصد", "هشتصد", "نهصد")
If MyNumber = 0 Then
NumToPersian = "صفر"
Exit Function
End If
If MyNumber >= 100 Then
Hundreds = HundredsArray(Int(MyNumber \ 100))
MyNumber = MyNumber Mod 100
End If
If MyNumber >= 20 Then
Tens = TensArray(Int(MyNumber \ 10))
MyNumber = MyNumber Mod 10
ElseIf MyNumber >= 10 Then
' برای اعداد 10 تا 19
Select Case MyNumber
Case 10: Tens = "ده"
Case 11: Tens = " یازده"
Case 12: Tens = "دوازده"
Case 13: Tens = "سیزده"
Case 14: Tens = "چهارده"
Case 15: Tens = "پانزده"
Case 16: Tens = "شانزده"
Case 17: Tens = "هفده"
Case 18: Tens = "هجده"
Case 19: Tens = "نوزده"
End Select
MyNumber = 0
End If
If MyNumber > 0 Then
Units = Units(MyNumber)
End If
' ساختن نتیجه نهایی
If Hundreds <> "" Then Result = Hundreds
If Tens <> "" Then
If Result <> "" Then Result = Result & " و " & Tens
Else Result = Tens
End If
If Units <> "" Then
If Result <> "" Then Result = Result & " و " & Units ... ← ادامه مطلب در magicfile.ir یک فایل در موضوع (دانلود کد تبدیل عدد به حروف و بالعکس در اکسل (فارسی)) آماده کرده ایم که از لینک زیر می توانید دانلود فرمایید برای دانلود کردن به لینک زیر برویدمنبع : https://magicfile.ir
بودجهبندی پروژه , اکسل پیشرفته , تأسیسات برقی , گزارش تحلیلی , نمودار هزینه , فعالیتهای اجرایی برق , محاسبه هزینه پروژه , مدیریت پروژه , مهندسی برق , گزارشگیری هوشمند , بودجهریزی پروژه تأسیسات برقی , محاسبه هزینه پروژه برق , پروژه برق در اکسل ,

منبع : https://magicfile.ir