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

Collapse
X
 
  • زمان
  • Show
Clear All
new posts
  • peha

    • July 2014
    • 18

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

    سلام خدمت اساتید بزرگوار
    من یک برنامه با 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
    
    
    [B]
    [/B]

  • khakzad

    • March 2010
    • 2034

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

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

    Comment

    • 4017

      • October 2010
      • 114

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

      Comment

      • peha

        • July 2014
        • 18

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

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

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





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

        Comment

        • khakzad

          • March 2010
          • 2034

          #5
          فایلتون رو بذارید لطفا

          Comment

          • peha

            • July 2014
            • 18

            #6
            تشکر
            بفرمایید
            http://www.hotup.ir/upload/1o2o_farzin_(autosaved).xlsx

            Comment

            • khakzad

              • March 2010
              • 2034

              #7
              اینکه هیچی کد نداره!!!!
              دقت کنید دوست عزیز
              وقتتون داره میره!!!

              Comment

              • peha

                • July 2014
                • 18

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

                Comment

                • 4017

                  • October 2010
                  • 114

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

                  Comment

                  • peha

                    • July 2014
                    • 18

                    #10

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

                    Comment

                    • khakzad

                      • March 2010
                      • 2034

                      #11
                      نوشته اصلی توسط peha
                      کدها برای من با گرفتن alt+f11
                      میاد توی
                      ماژول2
                      دیگه فکر کنم تا این حدبدونم که کدها کجا نوشته میشن و محیط وی بی چطور میاد !!!

                      Comment

                      • khakzad

                        • March 2010
                        • 2034

                        #12
                        خسته نباشید
                        دیگه بر نمی گرده!!!
                        باید بک اپ داشته باشید

                        Comment

                        • peha

                          • July 2014
                          • 18

                          #13
                          تنها بک آپش همین بود که اینجا گذاشتم
                          از روی این نمیشه کاریش کرد
                          کدها رو با روش خاصی باید سیو کرد؟

                          Comment

                          • khakzad

                            • March 2010
                            • 2034

                            #14
                            بر نمی گرده.
                            نهایتا شما همین کدی که اینجا تو سایت گذاشتید و بردارید بذارید تو فایلتون و اگه تغییراتی لازم داره بذارید.
                            بله باید با فرمت xlsm سیو می کردید

                            Comment

                            • peha

                              • July 2014
                              • 18

                              #15
                              خدا خیرت بده داداش
                              این فرمت توی اکسل من نیست روی سیو از که میرم
                              این هم عکسش

                              Comment

                              Working...