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

½Ð°Ý¤j¤j¥X²{­«½Æªº­È­n«ç»ò§ì¬Û¹ïÀ³ªº­È

¦^´_ 9# sunnyso


    ¤j¤j¡A¤p§ÌÁÙµLªk¤U¸üªþ¥ó¡A¥i¥Hª½±µ¶K¤W¨Ó¶Ü??
    ¤j¤j¥Îªº¬ODMAX¨ç¼Æ¶Ü??

TOP

¦^´_ 9# sunnyso


    ¦pªG¬O¥ÎDMAX¬O¤£¦æªº¡A§Ú¸Õ¹L¤F

TOP

F2 ªº¤½¦¡
=OFFSET(D1,MATCH(846,E:E,0)-2,0)

VBA:
  1. On Error Resume Next
  2. [F2] = [D1].Offset(Application.WorksheetFunction.Match(846, Columns(5), 0) - 2)
½Æ»s¥N½X
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¦^´_ 2# kimbal


    ¤j¤j§Aªº¨â­Ó¤èªk³£¤£¦æ¡A²Ä¤@­Ó¤èªk¥Ñ©óEÄæ¬O¤½¦¡©Ò¥HMATCH§ä¤£¨ì
                                                    ²Ä¤G­Ó¤è¦¡VBA¥X²{¿ù»~1004(µLªk¨ú±oÃþ§OworksheetfunctionªºmatchÄÝ©Ê)
    ½Ð°Ý¤j¤j¥H¤W°ÝÃD­n¦p¦ó¸Ñ¨M©O??

TOP

¦^´_ 13# sunnyso


    ¤j¤j§A³o­Ó¤èªk¤]¤£¦æ£°¡A·PÁ¤j¤j

TOP

¦^´_ 14# ÂŤÑÄR¦À

upload your Excle file
ss

TOP

¦^´_ 12# ÂŤÑÄR¦À
µ{¦¡½X¨Ì§A1#ªº¸ê®Æ©Ò¼g¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.    'Dim(ÃöÁä¦r) «Å§iÅܼƬ°µ{¦¡¨p¥ÎªºÅܼÆ
  4.    Dim N As String, Rng As Range        'String   ¦r¦ê«¬ºA  'Range(½d³ò)«¬ºA¬°ª«¥ó
  5.            
  6.     With Sheets("¸ê®Æªí")                                   '­×¥¿¬°¥¿½Tªº¤u§@ªí¦WºÙ
  7.         '.[E:E] = .Range("E:E")                             'Sheets("¸ê®Æªí")ªº E Äæ
  8.         'Application.Max(.[E:E]) ->¶Ç¦^Eøó ³Ì¤j­È
  9.         'Application.Min (.[E:E])->¶Ç¦^Eøó ³Ì¤p­È
  10.         'N = InputBox("¿é¤J¼Æ­È")  '¤£¹w³]¼Æ­È ¥Î¦¹µ{¦¡½X
  11.             'InputBox ¨ç¼Æ  Åã¥Ü¤@¹ï¸Ü¤è¶ô¨Ó°µ¬°´£¥Ü¡Aµ¥¨Ï¥ÎªÌ¿é¤J¤å¦r©Î«ö¤U«ö¶s¡A¨Ã¶Ç¦^¥]§t¤å¦r¤è¶ô¤º®eªºString¡C
  12.         N = InputBox("¿é¤J¼Æ­È", , Application.Max(.[E:E]))
  13.          Set Rng = .Range("E:E").Find(What:=N, After:=Range("E1"), LookAt:=xlWhole)   'SET(³]¥ßª«¥óÅܼÆ)ªºÃöÁä¦r
  14.         ' ½Ð¸Ô¬Ý VBA Find¤èªk, InputBox ¨ç¼Æ ªº»¡©ú
  15.         If Not Rng Is Nothing Then                       'Nothing: Find §ä¤£¨ì N(ªº¼Æ­È)
  16.             If Rng.Row = 2 Then                          '·íRng(ª«¥ó)ªº¦C¸¹¬O 2
  17.                Set Rng = Rng.Offset(, -1)                'ª«¥ó:­ìª«¥ó  ¦C¦ì(  ¤£°Ê  ),øó¦ì(¥ª²¾¤@Äæ)
  18.             Else
  19.                 Set Rng = Rng.Offset(-1, -1)             'ª«¥ó:­ìª«¥ó  ¦C¦ì(¤W¤É¤@¦C),øó¦ì(¥ª²¾¤@Äæ)
  20.             End If
  21.                 Rng.Select
  22.                 MsgBox Rng.Address
  23.         End If
  24.     End With
  25. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

ÂŤÑ
§AªºData¬O§_¬°Excel  a,b,c,d,e,f,...Äæ(¤w«Ø¥ß¦n)¤§±¡§Î¤U¡A
¥u­n¾ã¦X§ä¥X¤£¦Pªº e Äævalue ¹ïÀ³­È¬°¤W£¸¦CdÄæ
­Y¬O¦p¦¹¡A¥ÎVBA¤~¬O¤ý¹D

TOP

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD