نوشته اصلی توسط
aty313
با سلام برای یافتن ماکزیمم، مینیمم یا متوسط یک ستون در vba از چه کدی می توان استفاده کرد؟ من دستور WorksheetFunction.Max را بلدم که باید سلول به سلول براش تعریف کرد اما من یک ستون با هزار ردیف دارم.
با سلام
احتراما از دستور زیر استفادن نمایید(ستون A جهت کنترل اعداد می باشد)
کد:
Sub MMax()
Dim LastRow As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
Dim maximum As Double, rng As Range, cell As Range
Cells.Interior.ColorIndex = 0
Set rng = Range("A1:A" & LastRow)
maximum = WorksheetFunction.Max(rng)
For Each cell In rng
If cell.Value = maximum Then cell.Interior.ColorIndex = 22
Next cell
End Sub
با تشکر میر
علاقه مندی ها (Bookmarks)