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

[µo°Ý] Activecell°ÝÃD

[µo°Ý] Activecell°ÝÃD

§Ú·Q°Ý, ±q¤@­Ótable§ä¥X³Ì¤jªº­È
µM«á ·Q¥O§ä¥X¨Óªº³Ì¤j­È¬°activecell,
§Ú·Q­nª¾¹D³o­Óactivecellªº¦ì¸m¸ê°T(«üªº¬O³o­Ó­È¦btable¸Ìªº¸ê°T),¥H«K«áÄò§@·~

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

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

TOP

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

Max.rar (13.56 KB)

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

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

TOP

Find´N¬O´M§ä
§ä¨ì³Ì¤j­Èªº¦ì¸m
xlValues¬O§ä­È¡A¤£­n§ä¤½¦¡¡C¤º©w­È¬O§ä¤½¦¡ªº¡A©Ò¥H­nµù©ú¡I
­È±oª`·Nªº¬O©pªº¤p¼Æ¦ì¼Æ³]¬°6¦ì¡A©Ò¥H³Ì¤j­È­n¥ÎRound¨ç¼Æ¨ú¨ì¤p¼Æ6¦ì¤~§ä±o¨ì¡C

TOP

¥i¥H¥ÎOffset¨ç¼Æ¶Ü?
Cells(1, 1).Value = Application.WorksheetFunction.Offset(Cells(13, 2), myRange.Find(a, , xlValues, 1).Row, myRange.Find(a, , xlValues, 1).Column)
­Y·Q­n¨ú±oÄæ,¦C¸ê°T¶ñ¤J, ³o¼Ë¬O­þÃ䦳°ÝÃD©O?

TOP

¦^´_ 7# oobird


    ÁÂÁÂ

TOP

¦^´_ 6# Helain

¹Ï1  §ó§ï 2­Óªº¿ï¶µ  ¿ý»s¥¨¶° ¬Ý¬Ýµ{¦¡½XªºÅܤÆ


¹Ï2 vba µøµ¡¤¤  «ö¤U F8 ³v¦æ°õ¦æ«á, ±N·Æ¹«²¾¨ì ¬õ®Ø¤¤ªº°Ñ¼Æ ¥i¥H¬Ý¨ì ¦p½bÀY«ü¥Üªº  °Ñ¼Æ=¼Æ¦r

TOP

        ÀR«ä¦Û¦b : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD