چگونه بیشترین مقدار هر ستون در اکسل را با کد vba بدست آوریم ?

با سلام خدمت کاربران عزیز آی تی سواد

۱. کلیدهای Alt + F11 را فشار دهید تا پنجره Microsoft Visual Basic for Applications باز شود .

۲. در پنجره Microsoft Visual Basic for Applications بر رویInsert > Module کلیک کنید و سپس از زیر کد VBA را کپی و در درون پنجره ماژول قراردهید .

بیشترین مقدار هر ستون در اکسل

با کد زیر می توانید یک فرمول جدیدی برای بدست آوردن حداکثر مقدار هر ستون ایجاد کنید:

Function Max_Each_Column(Data_Range As Range) As Variant
    Dim TempArray() As Double, i As Long
        If Data_Range Is Nothing Then Exit Function
        With Data_Range
        ReDim TempArray(1 To .Columns.Count)
        For i = 1 To .Columns.Count
            TempArray(i) = Application.Max(.Columns(i))
        Next
    End With
        Max_Each_Column = TempArray
End Function

Function Max_Each_Column(Data_Range As Range) As Variant

Dim TempArray() As Double, i As Long

If Data_Range Is Nothing Then Exit Function

With Data_Range

ReDim TempArray(1 To .Columns.Count)

For i = 1 To .Columns.Count

TempArray(i) = Application.Max(.Columns(i))

End With

Max_Each_Column = TempArray

End Function

همچنین با رویه زیر نیز می توانید اینکار را انجام دهید:

Private Sub CommandButton1_Click()
Dim Answer As Variant
Dim No_of_Cols As Integer
Dim i As Integer
No_of_Cols = Range("B5:G27").Columns.Count
ReDim Answer(No_of_Cols)
Answer = Max_Each_Column(Sheets("Sheet1").Range("B5:g27"))
 
For i = 1 To No_of_Cols
MsgBox Answer(i)
Next i
End Sub

Private Sub CommandButton1_Click()

Dim Answer As Variant

Dim No_of_Cols As Integer

Dim i As Integer

No_of_Cols = Range("B5:G27").Columns.Count

ReDim Answer(No_of_Cols)

Answer = Max_Each_Column(Sheets("Sheet1").Range("B5:g27"))

For i = 1 To No_of_Cols

MsgBox Answer(i)

Next i

End Sub

برای تصویر زیر با استفاده از هر یک از روشهای فوق ۹۹۰،۹۰۷ ، ۹۹۲ ، ۹۷۶ ، ۹۸۸ و ۸۷۳ باز خواهد گشت.

ترجمه شده از سایت www.extendoffice.com

ممنون از همراهی شما کاربران عزیز آی تی سواد

اشتراک گذاری

بیشتر

با سلام خدمت کاربران عزیز آی تی سواد

بیشترین مقدار هر ستون در اکسل

ممنون از همراهی شما کاربران عزیز آی تی سواد

دیدگاهتان را بنویسید لغو پاسخ