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

[fimani119]

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

[iranweld]

با سلام

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

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 

[fimani119]

با سلام

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

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

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

[iranweld]

با سلام
خیلی عالی بود مرسی فقط چند تا سوال داشتم
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 شماره آخرین سطر جدول دیتای شما رو برمیگردونه و دیگر لازم نیست آخرین سطر رو به ماکرو معرفی کنید

مورد فرمول

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

[fimani119]

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 - - -

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