نمایش نتایج: از شماره 1 تا 4 , از مجموع 4

موضوع: كار تابع bahttext

  1. #1


    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    February 2010
    محل سکونت
    مشهد
    نوشته ها
    435
    امتیاز
    950
    سپاس
    294
    سپاس شده
    881 در 210 پست
    سطح اکسل
    81.00 %

    mrexcel به Yahoo ارسال پیام

    كار تابع bahttext

    تابع فوق عدد گرفته شده را به صورت متن نمايش ميدهد ولي به خط تايلندي من فكر ميكنم اين غير منطقي راهنمائي كنيد چگونه خروجي انگليسي بگيرم
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2018/06/21
    تاریخ عضویت
    February 2010
    محل سکونت
    اصفهان-بندرعباس
    نوشته ها
    146
    امتیاز
    79
    سپاس
    23
    سپاس شده
    86 در 63 پست
    سطح اکسل
    53.33 %

    RE: كار تابع bahttext

    به نظر من در حال حاضر بهترین روش برای گرفتن خروجی حروف انگلیسی از اعداد در اکسل استفاده از Add-In می باشد که برای این منظور فایل تهیه شده توسط جناب استاد فرشید میدانی از لحاظ کارائی بسیار عالی می باشد.

  4. #3


    آخرین بازدید
    2015/03/28
    تاریخ عضویت
    March 2010
    نوشته ها
    113
    امتیاز
    15
    سپاس
    8
    سپاس شده
    17 در 13 پست
    تعیین سطح نشده است

    RE: كار تابع bahttext

    نقل قول نوشته اصلی توسط mrexcel
    تابع فوق عدد گرفته شده را به صورت متن نمايش ميدهد ولي به خط تايلندي من فكر ميكنم اين غير منطقي راهنمائي كنيد چگونه خروجي انگليسي بگيرم
    ALT+F11 رو فشار بدین
    Module رو از منوی Insert انتخاب کنین
    کد زیر رو در module sheet وارد کنین
    [align=left]
    کد PHP:
    Option Explicit
    'Main Function
    Function SpellNumber(ByVal MyNumber)
        Dim Dollars, Cents, Temp
        Dim DecimalPlace, Count
        ReDim Place(9) As String
        Place(2) = " Thousand "
        Place(3) = " Million "
        Place(4) = " Billion "
        Place(5) = " Trillion "
        ' 
    String representation of amount.
        
    MyNumber Trim(Str(MyNumber))
        
    ' Position of decimal place 0 if none.
        DecimalPlace = InStr(MyNumber, ".")
        ' 
    Convert cents and set MyNumber to dollar amount.
        If 
    DecimalPlace 0 Then
            Cents 
    GetTens(Left(Mid(MyNumberDecimalPlace 1) & _
                      
    "00"2))
            
    MyNumber Trim(Left(MyNumberDecimalPlace 1))
        
    End If
        
    Count 1
        
    Do While MyNumber <> ""
            
    Temp GetHundreds(Right(MyNumber3))
            If 
    Temp <> "" Then Dollars Temp Place(Count) & Dollars
            
    If Len(MyNumber) > 3 Then
                MyNumber 
    Left(MyNumberLen(MyNumber) - 3)
            Else
                
    MyNumber ""
            
    End If
            
    Count Count 1
        Loop
        Select 
    Case Dollars
            
    Case ""
                
    Dollars "No Dollars"
            
    Case "One"
                
    Dollars "One Dollar"
             
    Case Else
                
    Dollars Dollars " Dollars"
        
    End Select
        Select 
    Case Cents
            
    Case ""
                
    Cents " and No Cents"
            
    Case "One"
                
    Cents " and One Cent"
                  
    Case Else
                
    Cents " and " Cents " Cents"
        
    End Select
        SpellNumber 
    Dollars Cents
    End 
    Function
          
    ' Converts a number from 100-999 into text 
    Function GetHundreds(ByVal MyNumber)
        Dim Result As String
        If Val(MyNumber) = 0 Then Exit Function
        MyNumber = Right("000" & MyNumber, 3)
        ' 
    Convert the hundreds place.
        If 
    Mid(MyNumber11) <> "0" Then
            Result 
    GetDigit(Mid(MyNumber11)) & " Hundred "
        
    End If
        
    ' Convert the tens and ones place.
        If Mid(MyNumber, 2, 1) <> "0" Then
            Result = Result & GetTens(Mid(MyNumber, 2))
        Else
            Result = Result & GetDigit(Mid(MyNumber, 3))
        End If
        GetHundreds = Result
    End Function
          
    Converts a number from 10 to 99 into text
    Function 
    GetTens(TensText)
        
    Dim Result As String
        Result 
    ""           ' Null out the temporary function value.
        If Val(Left(TensText, 1)) = 1 Then   ' 
    If value between 10-19...
            
    Select Case Val(TensText)
                Case 
    10Result "Ten"
                
    Case 11Result "Eleven"
                
    Case 12Result "Twelve"
                
    Case 13Result "Thirteen"
                
    Case 14Result "Fourteen"
                
    Case 15Result "Fifteen"
                
    Case 16Result "Sixteen"
                
    Case 17Result "Seventeen"
                
    Case 18Result "Eighteen"
                
    Case 19Result "Nineteen"
                
    Case Else
            
    End Select
        
    Else                                 ' If value between 20-99...
            Select Case Val(Left(TensText, 1))
                Case 2: Result = "Twenty "
                Case 3: Result = "Thirty "
                Case 4: Result = "Forty "
                Case 5: Result = "Fifty "
                Case 6: Result = "Sixty "
                Case 7: Result = "Seventy "
                Case 8: Result = "Eighty "
                Case 9: Result = "Ninety "
                Case Else
            End Select
            Result = Result & GetDigit _
                (Right(TensText, 1))  ' 
    Retrieve ones place.
        
    End If
        
    GetTens Result
    End 
    Function
         
    ' Converts a number from 1 to 9 into text. 
    Function GetDigit(Digit)
        Select Case Val(Digit)
            Case 1: GetDigit = "One"
            Case 2: GetDigit = "Two"
            Case 3: GetDigit = "Three"
            Case 4: GetDigit = "Four"
            Case 5: GetDigit = "Five"
            Case 6: GetDigit = "Six"
            Case 7: GetDigit = "Seven"
            Case 8: GetDigit = "Eight"
            Case 9: GetDigit = "Nine"
            Case Else: GetDigit = ""
        End Select
    End Function 
    [/align]
    منبع

  5. #4


    آخرین بازدید
    2015/03/28
    تاریخ عضویت
    March 2010
    نوشته ها
    113
    امتیاز
    15
    سپاس
    8
    سپاس شده
    17 در 13 پست
    تعیین سطح نشده است

    RE: كار تابع bahttext

    درضمن مطابق منطق برنامه نویسی با تغییر محتوای اعداد انگلیسی میتونیم از مدول موجود خروجی فارسی هم بگیریم


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

تابع bathtext

BAHTTEXT در توابع متنی

تابع bahtext

bahttext اکسل

ساخت فهرست sheet exceliran.com

فعال کردن تابع bahttext در اکسل

آموزش کار با فرمول bahttext در اکسل

کار تابع

BAHTTEXT در اکسل

تابع bahttext اکسل

تابع bahttext

وارد کردن تاریخ سیستم در سلول اکسل#

Ms Access vba InStr حروف فارسي

bahttextدر اكسل

کاربرد bathtext در اکسل

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است