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

¦p¦ó¥ÎEXCEL¨ç¼Æ Åý¥¦ªí¹F¥X­þ­Ó¼Æ­È³Ì±µªñ ¬Y©T©w­È

¦p¦ó¥ÎEXCEL¨ç¼Æ Åý¥¦ªí¹F¥X­þ­Ó¼Æ­È³Ì±µªñ ¬Y©T©w­È

¦p¦ó¥ÎEXCEL¨ç¼Æ Åý¥¦ªí¹F¥X­þ­Ó¼Æ­È³Ì±µªñ ¬Y©T©w­È

Á|¨Ò
©T©w­È        93

       
¼Æ­È1        76
¼Æ­È2        132

¦p¦ó¥ÎEXCEL¨ç¼Æ Åý¥¦ªí¹F¥X­þ­Ó¼Æ­È³Ì±µªñ©T©w­È93 ¨Ã¥Î¶À¦â©³¦â¶ñº¡Àx¦s®æ

ªþ¹Ï»¡©ú

·PÁ¦U¦ì°ª¤âÀ°¦£
¾Ç²ß ¾Ç²ß ¤@ª½¾Ç²ß

¦bE4¦æ¶}©l°_¦h¤@­Ó  =ABS(D4-D$2)  ©Ô¤U¥h
µM«á®æ¦¡¤Æ±ø¥ó¥Î¤½¦¡ =RANK($E4,$E$4E$10,1)=1 ®M¥Î¨ì=$C$4C$500
  

VBAªº¸Ü´N

Public Sub 钡()
k = Abs(Cells(4, 4) - Cells(2, 4))
For i = 4 To 500
    a = Abs(Cells(i, 4) - Cells(2, 4))
    If a < k Then
    k = a
    c = i
    End If
    Next
    Cells(c, 3).Interior.ColorIndex = 6
   
End Sub

TOP

¦^´_ 2# fengetianxia


  ªí±¡¬O":  $"

TOP

¥»©«³Ì«á¥Ñ ML089 ©ó 2016-4-12 20:18 ½s¿è

¦^´_ 1# peter95

C4 ®æ¦¡¤Æ¤½¦¡ =ABS($D$2-$D4)=MIN(ABS($D$4:$D$5-$D$2))
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 4# ML089


    ¬Omin

­ì¨Ó®æ¦¡¤Æªº¤½¦¡¥i¥Hª½±µ¥Î¼Æ²Õ¤½¦¡.¨ü±Ð¤F

TOP

¦^´_ 5# fengetianxia

¦WºÙ¤½¦¡¡B®æ¦¡¤Æ¤½¦¡¥i¥Hª½±µ¥Î¼Æ²Õ¤½¦¡
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

        ÀR«ä¦Û¦b : ¥¬¬I¦p¼½ºØ¡A¥HÅw³ß¤ß´þ¼íºØ¤l¡A¤~·|µoªÞ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD