خروجی در msg box

[میثم66]

برنامه ای بنویسید که شعاع قاعده و ارتفاع یک استوانه را دریافت و مساحت جانبی .مساحت کل و حجم استوانه را چاپ کند؟

Sub aaa()

r = Range("B1").Value
h = Range("B2").Value
s = 2 * 4 * Atn(1) * r * h
v = 4 * Atn(1) * r ^ 2 * h
a = s + 2 * 4 * Atn(1) * r ^ 2
MsgBox "Side Area=" & s.value" & vbnewline & ""The total area="& a.value" & vbnewline & ""Volume=" & v.value

End Sub 

خروجی در msg box در خط اول مساحت جانبی خط دوم مساحت کل خط سوم حجم چاپ شود.این کد msg box من نوشتم ارور داره

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[khakzad]

به نظر میاد کوتیشن اضافه داره
متغیری مثل s.value کوتیشن نمی خواد همینطور بقیه

ترجیحا فایل بذارید اگر حل نشد

[میثم66]

به نظر میاد کوتیشن اضافه داره
متغیری مثل s.value کوتیشن نمی خواد همینطور بقیه

ترجیحا فایل بذارید اگر حل نشد

به این صورت که شما گفتید هم نوشتم بدون کوتیشن باز هم ارور ران تایم 424 داد

Sub aaa()

r = Range("B1").Value
h = Range("B2").Value
s = 2 * 4 * Atn(1) * r * h
v = 4 * Atn(1) * r ^ 2 * h
a = s + 2 * 4 * Atn(1) * r ^ 2
MsgBox "Side Area=" & s.Value & vbNewLine & "The total area=" & a.Value & vbNewLine & "Volume=" & v.Value

End Sub 

[میثم66]

من این کد نوشتم درست شد ولی دا خل سلول اکسل هم نشون میده .اگه بخوام فقط تو msg box نشون بده چیکار کنم.

Sub nnn()

r = Range("B1").Value
h = Range("B2").Value
s = 2 * 4 * Atn(1) * r * h
v = 4 * Atn(1) * r ^ 2 * h
a = s + 2 * 4 * Atn(1) * r ^ 2
Range("D1").Value = s
Range("D2").Value = v
Range("D3").Value = a
MsgBox "Side Area=" & Range("D1").Value & vbNewLine & "The total area=" & Range("D2").Value & vbNewLine & "Volume=" & Range("D3").Value

End Sub 

[Amir Ghasemiyan]

من این کد نوشتم درست شد ولی دا خل سلول اکسل هم نشون میده .اگه بخوام فقط تو msg box نشون بده چیکار کنم.

Sub nnn()

r = Range("B1").Value
h = Range("B2").Value
s = 2 * 4 * Atn(1) * r * h
v = 4 * Atn(1) * r ^ 2 * h
a = s + 2 * 4 * Atn(1) * r ^ 2
Range("D1").Value = s
Range("D2").Value = v
Range("D3").Value = a
MsgBox "Side Area=" & Range("D1").Value & vbNewLine & "The total area=" & Range("D2").Value & vbNewLine & "Volume=" & Range("D3").Value

End Sub 

اين سه خط رو حذف كنيد

Range("D1").Value = s
Range("D2").Value = v
Range("D3").Value = a

و پيغام رو هم بر اساس a و s و v بنويسيد

[میثم66]

اين سه خط رو حذف كنيد

Range("D1").Value = s
Range("D2").Value = v
Range("D3").Value = a

و پيغام رو هم بر اساس a و s و v بنويسيد

ممنون درست شد. یه سوال من میخوام از طریق developer گزینه insert یک دکمه براش ایجاد کنم موقع کلیک روی دکمه این ارور میده
cant execute code in break mode

[Amir Ghasemiyan]

ممنون درست شد. یه سوال من میخوام از طریق developer گزینه insert یک دکمه براش ایجاد کنم موقع کلیک روی دکمه این ارور میده
cant execute code in break mode

فايل رو ببنديد و باز كنيد ببينين درست ميشه يا نه

[میثم66]

فايل رو ببنديد و باز كنيد ببينين درست ميشه يا نه

درست شد