- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 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)¨Ï¥Î- '¶Ç¦^ ¼Ò¼Æ©Ò¹ïÀ³¨ì¬í¼Æªº¼Æ¾Ú ½d³ò¥²»Ý¥]§t¼Ò¼Æ¦C ¬í¼Æ¦C
- Function Ex(½d³ò As Range, ¼Ò¼Æ As String, ¬í¼Æ As Integer) As Integer
- Dim C As Range, Row%, Col%
- If Not ½d³ò.Rows(1).Find(¼Ò¼Æ, LookIn:=xlValues, LOOKAT:=xlWhole) Is Nothing Then
- Col = ½d³ò.Rows(1).Find(¼Ò¼Æ, LookIn:=xlValues, LOOKAT:=xlWhole).Column
- End If
- For Each C In ½d³ò.Columns(1).Cells
- If C.Row > 1 Then
- If Val(Split(C, "~")(0)) <= ¬í¼Æ And Val(Split(C, "~")(1)) >= ¬í¼Æ Then
- Row = C.Row
- Exit For
- End If
- End If
- Next
- If Row > 0 And Col > 0 Then Ex = Sheets(½d³ò.Parent.Name).Cells(Row, Col)
- End Function
½Æ»s¥N½X |
|