返回列表 上一主題 發帖

不知道陣列內的最大值與最小值範圍

回復 1# EGBT
  1. Sub Ex()
  2.     Dim ar(), x As Integer, y As Integer
  3.    
  4.     ar = Array(2, 5, 8, 4, 9, 10, 1, 3, 7, 6, 12, 11)
  5.     x = WorksheetFunction.Min(ar)
  6.     y = WorksheetFunction.Max(ar)
  7.     MsgBox "x = " & x & ", y = " & y
  8. End Sub
複製代碼

TOP

        靜思自在 : 【是否發揮了良能?】人間壽命因為短暫,才更顯得珍貴。難得來一趟人間,應問是否為人間發揮了自己的良能,而不要一味求長壽。
返回列表 上一主題