­ã´£³¡ªL

Function GET_WL(xA, Va, Vb) As String
Dim Arr, AA, j&, Jm%, T$
Arr = xA.Value
For j = 1 To UBound(Arr)
¡@¡@If Arr(j, 2) <> "" Then
¡@¡@¡@¡@Jm = 0:  AA = Split(Arr(j, 2) & "~", "~")
¡@¡@¡@¡@If Va > Val(AA(0)) And Va <= Val(AA(1)) Then T = Arr(j, 1): Jm = 1
¡@¡@End If
¡@¡@If Jm = 1 Then
¡@¡@¡@¡@AA = Split(Arr(j, 4) & "~", "~")
¡@¡@¡@¡@If Vb > Val(AA(0)) And Vb <= Val(AA(1)) Then GET_WL = T & "_" & Arr(j, 3): Exit For
¡@¡@End If
Next j
End Function

¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×
¥t¤@°Ñ¦Ò¡A¦Û­q¨ç¼Æ¡A¼u©Ê¸û¦n¨Ç¡G
¢Ø¢³¡D¤½¦¡¡G=get_wl(B$3:E$11,H4,I4)

­ã´£³¡ªL

¦^´_ 8# c_c_lai


#REF»PÀx¦s®æ°Ñ·Ó¦³Ãö, À³»P¦Û­q¨ç¼ÆµLÃö, ­YK4¤]¬O¦P¤½¦¡«o¥i¥¿±`Åã¥Ü, ´N­n¬d¬Ý¬Ý­ì¦]?
¦Û­q¨ç¼Æ¤j­P»P¤@¯ë¤½¦¡Ãþ¦ü, ¥u¬O´£¨Ñ°Ñ¼Æ©ÎÀx¦s½d³òÅýµ{¦¡¥h¹Bºâ~~

­ã´£³¡ªL

¦^´_ 10# c_c_lai


°Ñ¦ÒÀÉ¡G
¦h±ø¥ó§PÂ_½s»s¦WºÙ1206_v01.rar (9.08 KB)

¤U¸ü¦¸¼Æ: 6

2015-12-8 13:24

­YÁÙ¦³°ÝÃD¡A¥i±NÀɮפW¶Ç¡I¡I

­ã´£³¡ªL

¦^´_ 12# c_c_lai


=get_wl(B$3:E$11,H4,J4) ¡@¡Ö¡@=get_wl(B$3:E$11,H4,I4)

²Ä¤T­Ó°Ñ¼Æ¦b¢ñÄæ¡A
¤£¹L´Nºâ¥ÎJ4¡A¤½¦¡µ²ªG¬°ªÅ¥Õ¡]¦]µL²Å¦X°Ï¶¡­È¡^¡A¤]¤£·|¦³#REF©Î#Value¿ù»~¡A
·|¤£·|¬Oª©¥»°ÝÃD¡H¡]§Ú¬O2000)

­ã´£³¡ªL

¦^´_ 14# c_c_lai


¬O§_¥i¯à get_wl ¤w¥Î¦b¡e©w¸q¦WºÙ¡f¡A¤~·|²£¥Í¡­REF¡ã¡ã