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

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

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

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2013-7-8 21:27 ½s¿è

A                B              C                            D            E
84558        7956        1        7951.886961        845
84558        7957        1        7951.889495        845
84558        7956        1        7951.89153          845
84558        7956        1        7951.893564        845
84558        7957        3        7951.901137        845
84558        7956        1        7951.903162        845
84559        7957        1        7951.905679        845
84559        7957        1        7951.908193        845
84559        7957        9        7951.930713        845
84559        7957        1        7951.933202        845
84600        7957        3        7951.940657        846
84600        7957        1        7951.943137        846
84600        7957        1        7951.945615        846
84600        7957        5        7951.957967        846
84601        7957        4        7951.967805        846
84601        7957        1        7951.970258        846
84601        7957        2        7951.975158        846
84601        7958        2        7951.981022        846

½Ð°Ý¤j¤j¡A§Ú­n«ç»ò¼gVBA·íEÄæ¥X²{846®É§ì¤W¤@­Ó845©Ò¹ïÀ³¥ªÃ䪺­È(7951.933202)

ÂŤÑ
§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

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

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

upload your Excle file
ss

TOP

¦^´_ 13# sunnyso


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

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

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

¦^´_ 9# sunnyso


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

TOP

¦^´_ 9# sunnyso


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

TOP

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

®Ú¾Ú§Aªº±ø¥ó¡]³sÄò®É¶¡¡^¤£¥ÎVBA´N¥i¥H°µ¨ì¡A¨£ªþ¥ó¡C§A¤@©w­n¥ÎVBA¶Ü¡H
sonny.rar (7.77 KB)
sonny1.gif
ss

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD