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

[µo°Ý] Activecell°ÝÃD

¥i¥H¦A°Ý¤@¤U Findªº·N«ä¶Ü?
Find(a.xl.value,1)
"xlvalue" »P"1"¤À§O¬O«ü¤°»ò©O?

TOP

  1.     Dim myRange As Range

  2.     Set myRange = Range(Cells(8, 3), Cells(17, 8))
  3.     a = Application.Round(Application.MAX(myRange), 6)
  4.     MsgBox myRange.Find(a, , xlValues, 1).Address
  5.     MsgBox myRange.Find(a, , xlValues, 1).Row
  6.     MsgBox myRange.Find(a, , xlValues, 1).Column
½Æ»s¥N½X

TOP

©êºp!!{:2_25:}
§Ú¥I¤WÀɮפF!!

Max.rar (13.56 KB)

TOP

§Ú·Q­nª¾¹D³o­Óactivecellªº¦ì¸m¸ê°T(«üªº¬O³o­Ó­È¦btable¸Ìªº¸ê°T),¥H«K«áÄò§@·~
¤°»ò¸ê°T¡H³o¬O´£°Ý©«ÁÙ¬O²qÁ¼©«¡H

TOP

¦^´_ 1# Helain
«Øij§A´£¨Ñ¤@¤U½d¨ÒÀÉ®×,
³o¼Ë¤j®a¤~¯àª¾¹D§A©Ò¿×ªº Table ¨ì©³¬O­Ó Excel ¸ê®Æ©O,
ÁÙ¬OÃþ¦ü SQL ¸ê®Æ®wªºªF¦è?

³o¨âºØ¸ê®Æªº¦s¨ú¤è¦¡¤£¦P,
­n±o¨ì¸ê®Æ©Ò¦b¨ä¥i¥Îªº¯Á¤Þ¤è¦¡¤]¬O¤£¦Pªº.

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD