پرسش خواهشمند است درمورد پیدا کردن ماکزیمم و مینیمم فایل اکسل پیوستی ونمایش آن در یک فرم راهنمایی فرمایید لطفا باماکرو نویسی و فشردن یک دکمه ت

[داور]

تست.xls

[mokaram]

از کد زیر استفاده کنید و اونرا به یک دکمه الصاق کنید

Sub Max_Min()
Dim rng As Range
Dim valueMin As Double
Dim valueMax As Double

Set rng = Sheet1.Range("a:a")
valueMin = Application.WorksheetFunction.Min(rng)
Sheet1.Range("d2").Value = valueMin

valueMax = Application.WorksheetFunction.Max(rng)
Sheet1.Range("e2").Value = valueMax

End Sub 

نکته : مقادیر ستون A موجود در فایل شما ، از نوع عدد نیستند ابتدا اونها را به عدد تبدیل کنید ( انتخاب کل محدوده باز کردن آیکونی که شکل لوزی و علامت ! داره و انتخاب Convert to Number ) بعد کد را اجرا کنید