خواندن 2 رقم از سمت راست فرمول

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • a.dal65

    • 2011/04/29
    • 384
    • 67.00

    [حل شده] خواندن 2 رقم از سمت راست فرمول

    با سلام

    همونطور که میدونیم با فرمول right میشه تعدادی از کاراکترهای رو از سمت راست یک سلول خوند.
    مثلا right(a1,2)

    a1=(((370423*30)+1100000)*(7%))/30*30

    عدد .3 رو از نتیجه فرمول بالا جدا میکنه .





    من دنبال راهی هستم که دو رقم راست خود فرمول رو جدا کنه :

    یعنی اگه این فرمول در سلول باشه :
    (((370423*30)+1100000)*(7%))/30*30
    عدد 30 رو برام جدا کنه .

    یا مثلا اگه توی فرمول سلولی این باشه :
    a1*a2

    عدد a2 رو برام جدا کنه .
  • hadi1980

    • 2019/01/07
    • 237
    • 86.00

    #2
    سلام
    ورژن آفيس شما چنده؟
    اگه از آفيس 2016 به بعد استفاده ميکنيد مثلا 2019 يا 360 يه تابع براي اينکار به توابع اکسل اضافه شده بنام formulatext که دقيقا کارش اينه که سلول a1 رو به عنوان ورودي بهش ميديد خروجيش ميشه همون فرمولي که توشه
    و اگه از ورژن پايين تر استفاده ميکنيد نميشه کاري کرد مگر اينکه برنامه نوشت البته بنظر من. تو VBA بسادگي ميتونيد از اين فرمول استفاده کنيد Range("A1").Formula استفاده کنيد که شبيه همون تابع فوق عمل ميکنه
    موفق باشيد
    هادي

    کامنت

    • حسام بحرانی

      • 2013/09/29
      • 2065
      • 72.00

      #3
      Formulatext

      نوشته اصلی توسط a.dal65
      با سلام
      همونطور که میدونیم با فرمول right میشه تعدادی از کاراکترهای رو از سمت راست یک سلول خوند.
      مثلا right(a1,2)
      a1=(((370423*30)+1100000)*(7%))/30*30
      عدد .3 رو از نتیجه فرمول بالا جدا میکنه .
      من دنبال راهی هستم که دو رقم راست خود فرمول رو جدا کنه :
      یعنی اگه این فرمول در سلول باشه :
      (((370423*30)+1100000)*(7%))/30*30
      عدد 30 رو برام جدا کنه .
      یا مثلا اگه توی فرمول سلولی این باشه :
      A1*a2
      عدد a2 رو برام جدا کنه .
      سلام دوست عزیز
      از فرمول زیر استفاده کنید:
      کد PHP:
      =right((formulatext(a1));2)

      :
      یا

      =right((formulatext(a1)),2
      موفق باشید.
      فایل های پیوست شده
      [CENTER][B][SIZE=5][COLOR=#006600][FONT=georgia][COLOR=#800000]!With [/COLOR][/FONT][/COLOR][COLOR=#006600][FONT=georgia]God [/FONT][/COLOR][COLOR=#006600][FONT=georgia][COLOR=#800000]all [/COLOR][/FONT][/COLOR][COLOR=#800000][FONT=georgia]things are [/FONT][/COLOR][COLOR=#006600][FONT=georgia]possible[/FONT][/COLOR][/SIZE][/B][B][FONT=Tahoma]
      [/FONT][/B][/CENTER]
      [CENTER][B][FONT=Tahoma] [IMG]http://forum.exceliran.com/attachment.php?attachmentid=5334&d=1419428336[/IMG]
      [/FONT][/B][SIZE=1][FONT=Tahoma][B][FONT=Tahoma]
      [/FONT][/B][/FONT][/SIZE]
      [/CENTER]

      کامنت

      • a.dal65

        • 2011/04/29
        • 384
        • 67.00

        #4
        ممنون از هر دو دوست عزیز
        افیس من 2010 هستش و روش های بالا جواب نداد
        ولی راهنمایی های شما باعث شد به جواب برسم :

        کد:
        Function ata(mycell As Range)
        ata = mycell.Formula
        End Function

        کامنت

        چند لحظه..