ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] µLªk§ä¥X³Ì¤j­È

¦^´_ 1# Helain
Cells(11, k).Value = Application.WorksheetFunction.Max(Cells(6, k).Resize(4))
.Resize(4)=>.Resize(4,1)  : ±N«ü©wªº½d³òÂX¥R¬° (4¦C,1Äæ)½d³ò

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
½Æ»s¥N½X
Set abc = Nothing
¤£¤@©w­n¦³ªº.
¬O±N abc ª«¥óÅܼƦb°O¾ÐÅ餤ÄÀ©ñ±¼ ,¥i´î¤Ö¦û¥Î°O¾ÐÅ骺¸ê·½

TOP

        ÀR«ä¦Û¦b : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD