返回列表 上一主題 發帖

[發問] 無法找出最大值

回復 1# Helain
Cells(11, k).Value = Application.WorksheetFunction.Max(Cells(6, k).Resize(4))
.Resize(4)=>.Resize(4,1)  : 將指定的範圍擴充為 (4列,1欄)範圍

TOP

回復 5# Helain
  1. Sub Ex()
  2.     Dim abc As Object
  3.     Set abc = [b3]
  4.     MsgBox abc.Address
  5.     Set abc = abc.Resize(5, 5)
  6.     MsgBox abc.Address
  7. End Sub
複製代碼
Set abc = Nothing
不一定要有的.
是將 abc 物件變數在記憶體中釋放掉 ,可減少佔用記憶體的資源

TOP

        靜思自在 : 要比誰更受誰.不要比誰更怕誰。
返回列表 上一主題