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

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

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

¤£ª¾¹D­þÃ䦳°ÝÃD
§Q¥Îapplication.WorksheetFunction.Max
µLªk§ä¥X³Ì¤j­È

µLªk§ä¥X³Ì¤j­È.rar (10.35 KB)

Application.WorksheetFunction.Max(Range(Cells(6, k), Cells(10, k)))

TOP

¤Ó²Ê¤ß¤F!! ·Q»¡«ç»ò§ä¤£¥X¨Ó
ÁÂÁ¤j¤j

TOP

¦^´_ 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

¥i¥H°Ý¤@¤U
resize³q±`¦bVBA¬O«ü¤°»ò·N«ä
ÁÙ¦³­Ó¤p¤pºÃ°Ý
·í§Ú set  ABC=     ®É,
¤@©w³£­n¦b³Ì«á ¼g¤J set ABC = nothing¶Ü?
³o¤S¬O«ü¤°»ò·N«ä©O??

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 : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD