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
Collapse
X
-
خروجی در msg box
برنامه ای بنویسید که شعاع قاعده و ارتفاع یک استوانه را دریافت و مساحت جانبی .مساحت کل و حجم استوانه را چاپ کند؟
خروجی در msg box در خط اول مساحت جانبی خط دوم مساحت کل خط سوم حجم چاپ شود.این کد msg box من نوشتم ارور دارهکد PHP:[CENTER][COLOR=#0000ff][SIZE=3][B]دانش هر فرد دارایی او نیست بلکه بدهکاری او به جامعه است[/B][/SIZE][/COLOR]
[/CENTER] -
به نظر میاد کوتیشن اضافه داره
متغیری مثل s.value کوتیشن نمی خواد همینطور بقیه
ترجیحا فایل بذارید اگر حل نشد[CENTER][B][COLOR=#008000][SIZE=3]محصولات و جزوات آموزش تخصصی [URL="https://excelpedia.net/"]اکسل[/URL] در:
[URL="https://excelpedia.net/category/excel-functions/"]برترین مرجع تخصصی پارسی اکسل[/URL]
[URL="http://www.exceliran.com/shop/"]جامعه اكسل ايرانيان: فروشگاه[/URL][/SIZE][/COLOR][/B]
:wcom:
[B][URL="https://excelpedia.net/"]آموزش اکسل تخصصی[/URL] و [URL="https://excelpedia.net/excel-ninja/"]پیشرفته[/URL] - [URL="https://excelpedia.net/"]تهران[/URL][/B]
[EMAIL="h.khakzad@yahoo.com"]h.khakzad@yahoo.com[/EMAIL]
[/CENTER] -
به این صورت که شما گفتید هم نوشتم بدون کوتیشن باز هم ارور ران تایم 424 داد
کد PHP: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
[CENTER][COLOR=#0000ff][SIZE=3][B]دانش هر فرد دارایی او نیست بلکه بدهکاری او به جامعه است[/B][/SIZE][/COLOR]
[/CENTER]کامنت
-
من این کد نوشتم درست شد ولی دا خل سلول اکسل هم نشون میده .اگه بخوام فقط تو msg box نشون بده چیکار کنم.
کد PHP: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
[CENTER][COLOR=#0000ff][SIZE=3][B]دانش هر فرد دارایی او نیست بلکه بدهکاری او به جامعه است[/B][/SIZE][/COLOR]
[/CENTER]کامنت
-
من این کد نوشتم درست شد ولی دا خل سلول اکسل هم نشون میده .اگه بخوام فقط تو msg box نشون بده چیکار کنم.
کد PHP: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
اين سه خط رو حذف كنيد
و پيغام رو هم بر اساس a و s و v بنويسيدکد:Range("D1").Value = s Range("D2").Value = v Range("D3").Value = aکامنت
-
ممنون درست شد. یه سوال من میخوام از طریق developer گزینه insert یک دکمه براش ایجاد کنم موقع کلیک روی دکمه این ارور میده
cant execute code in break mode[CENTER][COLOR=#0000ff][SIZE=3][B]دانش هر فرد دارایی او نیست بلکه بدهکاری او به جامعه است[/B][/SIZE][/COLOR]
[/CENTER]کامنت
-
کامنت




کامنت