تابع max

[میثم66]

تو یک ستون تعدادی عدد هست.کد وی بی ای پیداکردن بزرگترین عدد رو میخواستم

[Amir Ghasemiyan]

تو یک ستون تعدادی عدد هست.کد وی بی ای پیداکردن بزرگترین عدد رو میخواستم

سلام
ميتونين از اين كد استفاده كنيد

WorksheetFunction.Max(Range("A:A"))

[میثم66]

سلام
ميتونين از اين كد استفاده كنيد

WorksheetFunction.Max(Range("A:A"))

برای چاپش چجوری بنویسم اینجوری جواب نداد.

Sub test()
WorksheetFunction.Max (Range("A1:A4"))
Range("C1").Value = Max
End Sub 

[abootorab]

برای چاپش چجوری بنویسم اینجوری جواب نداد.

Sub test()
WorksheetFunction.Max (Range("A1:A4"))
Range("C1").Value = Max
End Sub 

با درود
ضمن عرض تشکر از امیر قاسمیان عزیز، به این شکل بنویسید.

Sub test()
Range("C1").Value = WorksheetFunction.Max(Range("A1:A4"))
End Sub