مرحوم محمد محمدی

🖤 پیام تسلیت

با نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفته‌اند.

ایشان سال‌ها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند.

مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.

انا لله و انا الیه راجعون

محاسبه min و max با ماکرو

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

    • 2018/11/10
    • 27
    • 29.00
    #1

    محاسبه min و max با ماکرو

    سلام دوستان
    دنبال یه ماکرو هستم که min,max,avrg ستونها رو به صورت یکی در میون در دو جدول مختلف قرار بده
    جدول اول مربوط به مبلغ و جدول دوم مربوط به امتیاز هست
    ممنون میشم راهنماییم کنید
    فایل های پیوست شده
    برچسب ها: هیچ‌کدام
    • iranweld

      • 2015/03/29
      • 3341
      #2
      با سلام

      بررسی کنید جواب جدول اولی درسته ؟

      کد PHP:
      Sub test()

      Range("g3") = ""
      Range("g4") = ""
      Range("g5") = ""
      Range("h3") = ""
      Range("h4") = ""
      Range("h5") = ""

      z1 = Cells(Rows.Count, "A").End(xlUp).Row


      x1       = Application.Min(Range("a4:a" & z1))

      x2 = Application.Max(Range("a4:a" & z1))

      x3 = Application.Min(Range("c4:c" & z1))

      x4 = Application.Max(Range("c4:c" & z1))

      x5 = Application.Average(Range("a4:a" & z1))

      x6 = Application.Average(Range("c4:c" & z1))

      Range("g3") = x1
      Range      ("g4") = x2
      Range      ("g5") = x5

      Range      ("h3") = x3
      Range      ("h4") = x4
      Range      ("h5") = x6


      End Sub 
      فایل های پیوست شده
      Last edited by iranweld; 2018/11/21, 12:31. دلیل: اشتباه در کد میانگین ستون دوم

        کامنت

        • fimani119

          • 2018/11/10
          • 27
          • 29.00
          #3
          نوشته اصلی توسط iranweld
          با سلام

          بررسی کنید جواب جدول اولی درسته ؟

          کد PHP:
          Sub test()

          Range("g3") = ""
          Range("g4") = ""
          Range("g5") = ""
          Range("h3") = ""
          Range("h4") = ""
          Range("h5") = ""

          z1 = Cells(Rows.Count, "A").End(xlUp).Row


          x1           = Application.Min(Range("a4:a" & z1))

          x2 = Application.Max(Range("a4:a" & z1))

          x3 = Application.Min(Range("c4:c" & z1))

          x4 = Application.Max(Range("c4:c" & z1))

          x5 = Application.Average(Range("a4:a" & z1))

          x6 = Application.Average(Range("c4:c" & z1))

          Range("g3") = x1
          Range          ("g4") = x2
          Range          ("g5") = x5

          Range          ("h3") = x3
          Range          ("h4") = x4
          Range          ("h5") = x6


          End Sub 
          با سلام
          خیلی عالی بود مرسی فقط چند تا سوال داشتم
          z1 رو میشه توضیح بدین که چرا گذاشتین؟

          من کد رو به صورت کوتاه به شکل زیر درآوردم که ارور متغیر i رو میگیره میشه کمک کنید که مشکلش حل بشه؟
          چون این فایل رو برای داده های بیشتری میخوام و این فایل خلاصه هست.

          Sub test()




          z1 = Cells(Rows.Count, "A").End(xlUp).Row


          For i = 3 To 5


          Range("gi") = Application.Min(Range("a4:a" & z1))
          Range("hi") = Application.Min(Range("c4:c" & z1))


          Next i




          End Sub

          از لطفتون خیلی ممنونم
          Last edited by fimani119; 2018/11/21, 13:08.

            کامنت

            • iranweld

              • 2015/03/29
              • 3341
              #4
              نوشته اصلی توسط fimani119
              با سلام
              خیلی عالی بود مرسی فقط چند تا سوال داشتم
              z1 رو میشه توضیح بدین که چرا گذاشتین؟

              من کد رو به صورت کوتاه به شکل زیر درآوردم که ارور متغیر i رو میگیره میشه کمک کنید که مشکلش حل بشه؟
              چون این فایل رو برای داده های بیشتری میخوام و این فایل خلاصه هست.

              Sub test()




              z1 = Cells(Rows.Count, "A").End(xlUp).Row


              For i = 3 To 5


              Range("gi") = Application.Min(Range("a4:a" & z1))
              Range("hi") = Application.Min(Range("c4:c" & z1))


              Next i




              End Sub

              از لطفتون خیلی ممنونم

              فرمول Z شماره آخرین سطر جدول دیتای شما رو برمیگردونه و دیگر لازم نیست آخرین سطر رو به ماکرو معرفی کنید

              مورد فرمول

              کد PHP:
              Range("g"&i) = Application.Min(Range("a4:a" & z1)) 

                کامنت

                • fimani119

                  • 2018/11/10
                  • 27
                  • 29.00
                  #5
                  Sub test()




                  z1 = Cells(Rows.Count, "A").End(xlUp).Row


                  For i = 3 To 5
                  (Cells(i, 7) = Application.Min(Range("a4:a" & z1)
                  (Cells(i, 8) = Application.Min(Range("c4:c" & z1)
                  Next i










                  End Sub

                  این کد جواب داد مرسی فقط اگه کاربرد z1 رو بگین ممنون میشم

                  - - - Updated - - -

                  اوکی مرسی خیلی لطف کردین

                    کامنت

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