از کد زیر استفاده کنید و اونرا به یک دکمه الصاق کنید
کد PHP:
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 ) بعد کد را اجرا کنید
علاقه مندی ها (Bookmarks)