پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
صفحه 1 از 3 123 آخرینآخرین
نمایش نتایج: از شماره 1 تا 10 , از مجموع 24

موضوع: بیرون پریدن از برنامه

  1. #1


    آخرین بازدید
    2015/08/14
    تاریخ عضویت
    July 2014
    نوشته ها
    18
    امتیاز
    13
    سپاس
    16
    سپاس شده
    3 در 1 پست
    تعیین سطح نشده است

    بیرون پریدن از برنامه

    سلام خدمت اساتید بزرگوار
    من یک برنامه با vba نوشتم توی اکسل که برای محاسبه ی حجم و مساحت جانبیه هرم و مخروط و استوانه هست
    که باید اولش نام شکل رو از کاربر بپرسه
    ولی وقتی که نام رو وارد میکنم فقط روی اولی که هرم هست محاسبه میکنه
    و بعد میاد بیرون
    این هم کدهای برنامه
    ممنون میشم بگید مشکلش کجاست
    این پروژه هم3 نمره ی امتحان من رو داره لطفا کمک کنید
    کد:
    
    
    کد:
    Sub masahat()
    'barnameye mohasebe hajm va masahate janebye heram va makhroot va ostavane
    Sheets("masahat").Select
    
    
    Const pi As Single = 3.142
    
    
    a = Val(InputBox("shekle shoma chist?heram?ostovane?makhroot?", "name sehkl", heram, ostovane, makhroot))
    
    
    
    
    
    
    
    
    If a = heram Then
    
    
    h = Val(InputBox("lotfan ertefae amood bar heram ra vared konid"))
    Range("g12").Select
    ActiveCell.Value = h
    
    
    b = Val(InputBox("lotfan toole ghaede ra vared koid"))
    Range("g9").Select
    ActiveCell.Value = b
    
    
    
    
    c = Val(InputBox("lotfan arze ghaede ra vared konid"))
    Range("g10").Select
    ActiveCell.Value = c
    
    
    sh = Val(InputBox("lotfan ertefae mosalas haye janebi ra benevisid"))
    Range("g11").Select
    ActiveCell.Value = sh
    
    
    
    
    'mohsebe hajm
    v = (1 / 3) * (h) * (b * c)
    
    
    Range("g13").Select
    ActiveCell.Value = v
    
    
    'mohasebe masahate janebi
    sj = (((b * sh) + (c * sh)) * 2) + (b * c)
    
    
    Range("g14").Select
    ActiveCell.Value = sj
    
    
    
    
    
    
    MsgBox "hajme heram" & v & "masahate janebi" & sj
    
    
    ElseIf a = ostovane Then
    'daryafte shoa
    
    
    r = Val(InputBox("lotfan shoae ghede ostovane ra vared konid"))
    Range("j9").Select
    ActiveCell.Value = r
    
    
    'daryafte ertefa
    
    
    b = Val(InputBox("lotfan ertefa ra vared konid"))
    Range("j10").Select
    ActiveCell.Value = b
    
    
    'hajme ostovane
    
    
    v = (pi) * (r * r) * (b)
    Range("j11").Select
    ActiveCell.Value = v
    
    
    
    
    'masahate janebi
    
    
    sj = 2 * pi * r * b
    Range("j12").Select
    ActiveCell.Value = sj
    
    
    'masahate kol
    
    
    st = (2 * pi * r) * (r + b)
    Range("j13").Select
    ActiveCell.Value = st
    
    
    
    
    MsgBox "hajme ostovane " & v & "masahate janebi" & sj & "masahate kol" & st
    
    
    
    
    ElseIf a = makhroot Then
    'daryafte shoa
    
    
    r = Val(InputBox("lotfan shoa ra vared konid"))
    Range("m9").Select
    ActiveCell.Value = r
    
    
    'daryafte ertefa
    
    
    h = Val(InputBox("lotfan ertefa e makhroot ra vared konid"))
    Range("m10").Select
    ActiveCell.Value = h
    
    
    
    
    'mohasebe hajm
    
    
    v = (1 / 3) * pi * (r ^ 2) * h
    Range("m11").Select
    ActiveCell.Value = v
    
    
    'masahte janebi
    
    
    sj = pi * r * h
    Range("m12").Select
    ActiveCell.Value = sj
    
    
    'masahate kol
    
    
    st = (pi * r) * (r + h)
    Range("m13").Select
    ActiveCell.Value = st
    
    
    
    
    MsgBox "hajme makhroot" & v & "masahte janebi makhroot" & sj & "masahte kol" & st
    
    
    
    
    End If
    
    
        
    
    
    End Sub
    
    
    
    

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

  2.  

  3. #2


    آخرین بازدید
    2023/08/14
    تاریخ عضویت
    March 2010
    محل سکونت
    تهران
    نوشته ها
    2,039
    امتیاز
    4524
    سپاس
    2,507
    سپاس شده
    4,112 در 1,244 پست
    سطح اکسل
    85.00 %

    khakzad به Yahoo ارسال پیام
    سلام
    اخری رو else بذارید. ببینید حل میشه؟
    ساختار به اینصورته:

    IF condition Then
    statements
    ...
    ElseIF condition Then
    statements
    ...
    ElseIF condition Then
    statements
    ...
    .
    .
    .
    Else
    elsestatements
    ...
    End IF


  4. #3


    آخرین بازدید
    2020/11/02
    تاریخ عضویت
    October 2010
    محل سکونت
    قائمشهر
    نوشته ها
    114
    امتیاز
    54
    سپاس
    150
    سپاس شده
    53 در 27 پست
    تعیین سطح نشده است

    به نظر من شما ميتونستي با يه فرم كارتو راحت تر كني و اينهمه فرمول نويسي نداشته باشي
    اگر تنهاترين تنهايان شوم بازهم خدا هست،
    او جانشين تمام نداشته هاي من است...!

  5. #4


    آخرین بازدید
    2015/08/14
    تاریخ عضویت
    July 2014
    نوشته ها
    18
    امتیاز
    13
    سپاس
    16
    سپاس شده
    3 در 1 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط khakzad نمایش پست ها
    سلام
    اخری رو else بذارید. ببینید حل میشه؟
    ساختار به اینصورته:

    IF condition Then
    statements
    ...
    ElseIF condition Then
    statements
    ...
    ElseIF condition Then
    statements
    ...
    .
    .
    .
    Else
    elsestatements
    ...
    End IF
    نه متاسفانه امتحان کردم نشده
    هر کدوم با یک if هم امتحان کردم باز هم نشد
    آخری رو elseif کردم نشده
    مشکل خوردم شدید

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





    بله میدونم
    ولی توی متن بالا هم ذکر کردم پروژه ی درسی هست که استاد داده

  6. #5


    آخرین بازدید
    2023/08/14
    تاریخ عضویت
    March 2010
    محل سکونت
    تهران
    نوشته ها
    2,039
    امتیاز
    4524
    سپاس
    2,507
    سپاس شده
    4,112 در 1,244 پست
    سطح اکسل
    85.00 %

    khakzad به Yahoo ارسال پیام
    فایلتون رو بذارید لطفا

  7. #6


    آخرین بازدید
    2015/08/14
    تاریخ عضویت
    July 2014
    نوشته ها
    18
    امتیاز
    13
    سپاس
    16
    سپاس شده
    3 در 1 پست
    تعیین سطح نشده است


  8. #7


    آخرین بازدید
    2023/08/14
    تاریخ عضویت
    March 2010
    محل سکونت
    تهران
    نوشته ها
    2,039
    امتیاز
    4524
    سپاس
    2,507
    سپاس شده
    4,112 در 1,244 پست
    سطح اکسل
    85.00 %

    khakzad به Yahoo ارسال پیام
    اینکه هیچی کد نداره!!!!
    دقت کنید دوست عزیز
    وقتتون داره میره!!!

  9. #8


    آخرین بازدید
    2015/08/14
    تاریخ عضویت
    July 2014
    نوشته ها
    18
    امتیاز
    13
    سپاس
    16
    سپاس شده
    3 در 1 پست
    تعیین سطح نشده است

    کدها برای من با گرفتن alt+f11
    میاد توی
    ماژول2

  10. #9


    آخرین بازدید
    2020/11/02
    تاریخ عضویت
    October 2010
    محل سکونت
    قائمشهر
    نوشته ها
    114
    امتیاز
    54
    سپاس
    150
    سپاس شده
    53 در 27 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط peha نمایش پست ها
    کدها برای من با گرفتن alt+f11
    میاد توی
    ماژول2
    فايلتون اصلا ماژول نداره دوست عزيز
    اگر تنهاترين تنهايان شوم بازهم خدا هست،
    او جانشين تمام نداشته هاي من است...!

  11. #10


    آخرین بازدید
    2015/08/14
    تاریخ عضویت
    July 2014
    نوشته ها
    18
    امتیاز
    13
    سپاس
    16
    سپاس شده
    3 در 1 پست
    تعیین سطح نشده است


    بد بخت شدم
    فایل رو بستم چک کنم دیدم هیچ کدوم از کدها سیو نشده
    چرا ؟چی کار کنم؟راهی نداره برش گردوند؟
    همین یه دونه هم نبود
    یه برنامه تحلیل تیر هم بود که 3 روز روش وقت گذاشته بودم
    مگه چه جوری باید برنامه رو سیو کرد؟


صفحه 1 از 3 123 آخرینآخرین

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

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

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

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

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

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

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