Excel Max、Min 找最大、最小值
Function find_max()
'初始值
LotoShowCon = 100048
'變數設定
Set Sht348 = Sheets(LotoShowCon & "取位")
'找最大
'Dim arr_tmp(0 To 1) As Variant
ar = Application.Max(Sht348.Range("E4:BA4")) '.Value
Debug.Print ar
End Function
'初始值
LotoShowCon = 100048
'變數設定
Set Sht348 = Sheets(LotoShowCon & "取位")
'找最大
'Dim arr_tmp(0 To 1) As Variant
ar = Application.Max(Sht348.Range("E4:BA4")) '.Value
Debug.Print ar
End Function
留言
張貼留言