خروجی در msg box

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • میثم66

    • 2014/10/29
    • 56
    #1

    خروجی در msg box

    برنامه ای بنویسید که شعاع قاعده و ارتفاع یک استوانه را دریافت و مساحت جانبی .مساحت کل و حجم استوانه را چاپ کند؟
    کد 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 
    خروجی در msg box در خط اول مساحت جانبی خط دوم مساحت کل خط سوم حجم چاپ شود.این کد msg box من نوشتم ارور داره
    [CENTER][COLOR=#0000ff][SIZE=3][B]دانش هر فرد دارایی او نیست بلکه بدهکاری او به جامعه است[/B][/SIZE][/COLOR]
    [/CENTER]
    برچسب ها: box, msg, خروجی, در
    • khakzad

      • 2010/03/17
      • 2034
      • 85.00
      #2
      به نظر میاد کوتیشن اضافه داره
      متغیری مثل 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]

        کامنت

        • میثم66

          • 2014/10/29
          • 56
          #3
          نوشته اصلی توسط khakzad
          به نظر میاد کوتیشن اضافه داره
          متغیری مثل s.value کوتیشن نمی خواد همینطور بقیه

          ترجیحا فایل بذارید اگر حل نشد
          به این صورت که شما گفتید هم نوشتم بدون کوتیشن باز هم ارور ران تایم 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]

            کامنت

            • میثم66

              • 2014/10/29
              • 56
              #4
              من این کد نوشتم درست شد ولی دا خل سلول اکسل هم نشون میده .اگه بخوام فقط تو 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]

                کامنت

                • Amir Ghasemiyan

                  • 2013/09/20
                  • 4598
                  • 100.00
                  #5
                  نوشته اصلی توسط میثم66
                  من این کد نوشتم درست شد ولی دا خل سلول اکسل هم نشون میده .اگه بخوام فقط تو 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 

                  اين سه خط رو حذف كنيد
                  کد:
                  Range("D1").Value = s
Range("D2").Value = v
Range("D3").Value = a
                  و پيغام رو هم بر اساس a و s و v بنويسيد

                    کامنت

                    • میثم66

                      • 2014/10/29
                      • 56
                      #6
                      نوشته اصلی توسط amir ghasemiyan

                      اين سه خط رو حذف كنيد
                      کد:
                      Range("D1").Value = s
Range("D2").Value = v
Range("D3").Value = a
                      و پيغام رو هم بر اساس a و s و v بنويسيد
                      ممنون درست شد. یه سوال من میخوام از طریق developer گزینه insert یک دکمه براش ایجاد کنم موقع کلیک روی دکمه این ارور میده
                      cant execute code in break mode
                      [CENTER][COLOR=#0000ff][SIZE=3][B]دانش هر فرد دارایی او نیست بلکه بدهکاری او به جامعه است[/B][/SIZE][/COLOR]
                      [/CENTER]

                        کامنت

                        • Amir Ghasemiyan

                          • 2013/09/20
                          • 4598
                          • 100.00
                          #7
                          نوشته اصلی توسط میثم66
                          ممنون درست شد. یه سوال من میخوام از طریق developer گزینه insert یک دکمه براش ایجاد کنم موقع کلیک روی دکمه این ارور میده
                          cant execute code in break mode
                          فايل رو ببنديد و باز كنيد ببينين درست ميشه يا نه

                            کامنت

                            • میثم66

                              • 2014/10/29
                              • 56
                              #8
                              نوشته اصلی توسط amir ghasemiyan
                              فايل رو ببنديد و باز كنيد ببينين درست ميشه يا نه
                              درست شد
                              [CENTER][COLOR=#0000ff][SIZE=3][B]دانش هر فرد دارایی او نیست بلکه بدهکاری او به جامعه است[/B][/SIZE][/COLOR]
                              [/CENTER]

                                کامنت

                                قبلی template بعدی
                                چند لحظه..