عدد به حروف فارسی

برای دانلود اینجا کلیک فرمایید (دانلود کد تبدیل عدد به حروف و بالعکس در اکسل (فارسی))

اکسل , VBA , تبدیل عدد به حروف , تبدیل حروف به عدد , عدد به حروف فارسی , ماکرو اکسل , ابزار فارسی اکسل , تبدیل عدد به حروف اکسل , تبدیل عدد به حروف فارسی اکسل , تبدیل حروف به عدد , تبدیل حروف به عدد در اکسل , تبدیل حروف به عدد فارسی ,

دانلود کد تبدیل عدد به حروف و بالعکس در اکسل (فارسی)

در دنیای برنامه‌نویسی و کاربردهای روزمره، یکی از نیازهای مهم کاربران، تبدیل اعداد به حروف و برعکس است که در نرم‌افزار اکسل بسیار کاربرد دارد. این فرآیند، مخصوصاً در موارد مالی، حسابداری، صدور فاکتورها و اسناد رسمی، اهمیت ویژه‌ای پیدا می‌کند. در این مقاله، قصد داریم به صورت کامل و جامع درباره نحوه نوشتن و استفاده از کدهای VBA برای تبدیل عدد به حروف و بالعکس در اکسل با زبان فارسی صحبت کنیم و لینک‌های دانلود مربوطه را نیز معرفی کنیم.
همانطور که می‌دانید، اکسل به صورت پیش‌فرض امکاناتی برای تبدیل اعداد به حروف ندارد، بنابراین نیاز است از کدهای VBA (Visual Basic for Applications) استفاده کنیم. این کدها، به صورت اختصاصی نوشته شده، و می‌توانند اعداد را به صورت کلمات فارسی تبدیل کنند، و بالعکس، یعنی از کلمات فارسی، اعداد متناظر را بازیابی کنند. این قابلیت، در بسیاری از موارد، مخصوصاً در اسناد مالی و حسابداری، می‌تواند کار را بسیار ساده‌تر و سریع‌تر کند.
در ادامه، به بررسی نحوه نوشتن این کدها، نصب و اجرا، و همچنین دانلود فایل‌های آماده می‌پردازیم. مهم‌ترین نکته این است که این کدها، باید در محیط VBA اکسل قرار گیرند و سپس به راحتی قابل استفاده باشند.
نحوه نوشتن و ساخت کد تبدیل عدد به حروف در اکسل
ابتدا، باید وارد محیط ویرایش VBA شویم. این کار از طریق کلیدهای Alt + F11 انجام می‌شود. پس از آن، در منوی Insert، گزینه Module را انتخاب می‌کنیم تا یک ماژول جدید ایجاد شود. در این قسمت، می‌توانیم کدهای مورد نیاز را وارد کنیم. یکی از بهترین و رایج‌ترین کدهای تبدیل عدد به حروف فارسی، کد زیر است:

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  <b...  ← ادامه مطلب در magicfile.ir

یک فایل در موضوع (دانلود کد تبدیل عدد به حروف و بالعکس در اکسل (فارسی)) آماده کرده ایم که از لینک زیر می توانید دانلود فرمایید برای دانلود کردن به لینک زیر بروید

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