[µo°Ý] Activecell°ÝÃD

Helain

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

luhpro

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

oobird

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

Helain

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

oobird

1.     Dim myRange As Range
   
2. 
   
3.     Set myRange = Range(Cells(8, 3), Cells(17, 8))
   
4.     a = Application.Round(Application.MAX(myRange), 6)
   
5.     MsgBox myRange.Find(a, , xlValues, 1).Address
   
6.     MsgBox myRange.Find(a, , xlValues, 1).Row
   
7.     MsgBox myRange.Find(a, , xlValues, 1).Column

½Æ»s¥N½X

Helain

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

oobird

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

Helain

¥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?

Helain

¦^´_ 7# oobird


    ÁÂÁÂ

GBKEE

¦^´_ 6# Helain

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

¤U¸ü (29.32 KB)

2011-11-4 17:03

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

¤U¸ü (37.71 KB)

2011-11-4 17:03