پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 4 , از مجموع 4

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

  1. #1


    محصولات کاربر

    <a href=
    آخرین بازدید
    6 روز پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    مشهد
    نوشته ها
    426
    امتیاز
    887
    سپاس
    252
    سپاس شده
    818 در 183 پست

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

    كار تابع bahttext

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

  2.  

  3. #2


    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    اصفهان-بندرعباس
    نوشته ها
    144
    امتیاز
    70
    سپاس
    17
    سپاس شده
    77 در 57 پست

    RE: كار تابع bahttext

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

  4. #3


    آخرین بازدید
    28 _ 03 _ 2015
    تاریخ عضویت
    March_2010
    نوشته ها
    113
    امتیاز
    12
    سپاس
    8
    سپاس شده
    14 در 10 پست

    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


    آخرین بازدید
    28 _ 03 _ 2015
    تاریخ عضویت
    March_2010
    نوشته ها
    113
    امتیاز
    12
    سپاس
    8
    سپاس شده
    14 در 10 پست

    RE: كار تابع bahttext

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


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

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

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

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

تابع bathtext

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

تابع bahtext

bahttext اکسل

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

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

کار تابع

BAHTTEXT در اکسل

تابع bahttext اکسل

تابع bahttext

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

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

bahttextدر اكسل

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

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

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