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

¦p¦ó§ì¨ú¹ïÀ³¸ê®Æ

¦p¦ó§ì¨ú¹ïÀ³¸ê®Æ

¦U¦ì«e½ú¤Î¤j¤j¦n¡G
¤p§Ì¦³­Ó°ÝÃD·Q½Ð±Ð¡A´N¬O¦b§Úªþ¥[ÀɸÌsheet1¸Ì¿é¤J¼Ò¼Æ©M¬í¼Æ
®É¡A¯à¦bsheet2§ä¨ì¬Û¹ïÀ³ªº­È¡A¦p¿é¤J1¼Ò78¬í¡A´N·|±a¤J657¡A
5¼Ò79¬í«h±a¤J577¡A³o¸Ó¦p¦ó°µ¡A½Ð¦U¦ì«e½ú«üÂI¡A¦A¦¸»¡ÁnÁÂÁÂ

¹ïÀ³¸ê®Æ°Ï

sheet2.jpg

¿é¤J°Ï

sheet1.jpg

¦U¦ì«e½ú¤Î¤j¤j¦n¡G
¤p§Ì¦³­Ó°ÝÃD·Q½Ð±Ð¡A´N¬O¦b§Úªþ¥[ÀɸÌsheet1¸Ì¿é¤J¼Ò¼Æ©M¬í¼Æ
®É¡A¯à¦bsheet2§ä¨ì¬Û ...
baomin µoªí©ó 2010-7-6 15:50


¾ã²z¤@¤UÄæ¦ì¼Æ¦r, ¥iÅý¤½¦¡¬Ý±oÀ´,³o¼Ë´N¤£»Ý­nºCºC¼gµ{¦¡
twbts20100706match.zip (4.47 KB)
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

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

TOP

kimbal¤j¤j¦n
¦]¬°§ÚÅv­­¥Ø«eÁÙ¬O¤p¾Ç¥Í¡A©Ò¥H¨S¿ìªk¤U¸üzIPÀÉ¡A¥i§_¶K¹Ï¡A¦A¦¸³Â·Ð

TOP

¼g¤½¦¡

无标题3.jpg
2010-8-6 01:15

¨Ï¥Î¦WºÙ2

无标题2.jpg
2010-8-6 01:14
[attach]2232[/attach]

TOP

¼g¤½¦¡

无标题3.jpg
2010-8-6 01:16

TOP

无标题1.jpg
2010-8-6 01:17

TOP

¦^´_ 3# baomin


    ¤£¦n·N«ä,¤W­Ó¤ë¤£¤Ó¼ôÀô¹Ò ,¨S¦¬¨ì´£¥Ü, ¥H¤U¬O¤½¦¡:
t20100806match1.JPG
2010-8-6 02:21
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

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

TOP

¦^´_ 7# kimbal
ªO¥Dªº¤½¦¡=INDEX(Sheet1!$C$2:$G$8,MATCH(B2,Sheet1!$B$1:$B$8,1),MATCH(Sheet2!A2,Sheet1!C$1:G$1,0))·|¦³®t²§
·íBÄæ¬O80, 100,120,140,160,180 ¶Ç¦^ªº¬O¤U¤@¦Cªº­È
·íBÄæ¬O200®É «h·|¶W¥X½d³ò =#REF!
¦^´_ 1# baomin
¨Ì1¼Ó SHEET2.JPG ¹Ïªí ©Ò¼gªº¦Û­q¨ç¼Æ   ½Ð±Nµ{¦¡½X½Æ»s¨ì ¤@¯ë¼Ò²Õ¤¤(Module)¨Ï¥Î
  1. '¶Ç¦^ ¼Ò¼Æ©Ò¹ïÀ³¨ì¬í¼Æªº¼Æ¾Ú  ½d³ò¥²»Ý¥]§t¼Ò¼Æ¦C  ¬í¼Æ¦C
  2. Function Ex(½d³ò As Range, ¼Ò¼Æ As String, ¬í¼Æ As Integer) As Integer
  3.     Dim C As Range, Row%, Col%
  4.     If Not ½d³ò.Rows(1).Find(¼Ò¼Æ, LookIn:=xlValues, LOOKAT:=xlWhole) Is Nothing Then
  5.         Col = ½d³ò.Rows(1).Find(¼Ò¼Æ, LookIn:=xlValues, LOOKAT:=xlWhole).Column
  6.     End If
  7.     For Each C In ½d³ò.Columns(1).Cells
  8.          If C.Row > 1 Then
  9.             If Val(Split(C, "~")(0)) <= ¬í¼Æ And Val(Split(C, "~")(1)) >= ¬í¼Æ Then
  10.                 Row = C.Row
  11.                 Exit For
  12.             End If
  13.         End If
  14.     Next
  15.     If Row > 0 And Col > 0 Then Ex = Sheets(½d³ò.Parent.Name).Cells(Row, Col)
  16. End Function
½Æ»s¥N½X

TOP

Kinbal¤j¤j,GBKEE¤j¤j¡A¨S¸ò¦U¦ì§iª¾´ú¸Õµ²ªG¡A²`·P©êºp¡A¦]¬°§Ú¤w¸gÂ÷¶}¤u§@ªº¤½¥q¥B¦³¤@°}¤l¨S¤W®a±Ú¡A¹ï©ó¨â¦ì¤j¤j¼ö±¡ªº¸Ñµª¡A«D±`·PÁÂ

TOP

        ÀR«ä¦Û¦b : ¦³¦h¤Ö¤O¶q´N°µ¦h¤Ö¨Æ¡A¤£­n¤ß¦sµ¥«Ý¡Aµ¥«Ý¤~·|¸¨ªÅ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD