به دست آوردن درصد یك عدد نسبت به عدد دیگر و ضرب یك عدد در همان درصد

[ظهور 313]

سلام و عرض ادب خدمتاساتید محترم
4 تا لیبل دارم كه توی دو تای اول، دو عدد رو به دست آوردم
حالا میخوام نسبت عدد لیبل دو رو رو نسبت به عدد لیبل یك در بیارم (این عدد میخوام به صورت درصد % در لیبل سوم درج بشه)
و در لیبل چهارم هم میخوام عدد لیبل 1 در لیبل 3 درصد به دست آمده) ضرب بشه

درصد رو نصفه نیمه به دست آوردم، اما هم اینكه به صورت اعشاری درج میشه و هم اینكه موقع ضرب در اون، ارور میده
لطفا یكی از اساتید راهنمایی بفرمایند

[abedi]

سلام دوست عزيز . نكته اول كه بنظرم ميرسه اينكه بايد فرمت سلول كه درصد رو نشون ميده از نوع Percentage انتخاب كنيد. براي اينكار روي سلول كليك راست و Format Cells رو انتخاب كرده و در برگه ي Number گزينه Percentage رو انتخاب كنيد.
دوم اينكه اميدوارم فايل پيوست به دردتون بخوره.
به اميد روزهاي بهتر

[ظهور 313]

سلام دوست عزيز . نكته اول كه بنظرم ميرسه اينكه بايد فرمت سلول كه درصد رو نشون ميده از نوع Percentage انتخاب كنيد. براي اينكار روي سلول كليك راست و Format Cells رو انتخاب كرده و در برگه ي Number گزينه Percentage رو انتخاب كنيد.
دوم اينكه اميدوارم فايل پيوست به دردتون بخوره.
به اميد روزهاي بهتر

ممنون از لطف شما دوست عزیز
اما این كدها رو توی vba نیاز دارم و توی خود اكسل مشكلی ندارم

[Amir Ghasemiyan]

ممنون از لطف شما دوست عزیز
اما این كدها رو توی vba نیاز دارم و توی خود اكسل مشكلی ندارم

سلام دوست عزيز

بر اساس فايلي كه دوستمون ضميمه كردن من يك كد نوشتم. اميدوارم ساده و قابل فهم باشه

Sub Macro1()

    r = Cells(Sheet1.Rows.Count, 1).End(xlUp).Row
    Range("D2").Formula = "=C2/B2"
    Range("D2").NumberFormat = "0.00%"
    Range("D2").AutoFill Destination:=Range("D2:D" & r)

    Range("E2").Formula = "=B2*D2"
    Range("E2").NumberFormat = "0.00"
    Range("E2").AutoFill Destination:=Range("E2:E" & r)

End Sub